EIP_FOR()

EIP failo suformavimas iš EIP kursoriaus.

Sintaksė

EIP_FOR(tcFileEip, tcHeaderCursor, tcDetailCursors[, tcFields])

Grąžina

Iš EIP kursoriaus suformuojamas EIP failas

Parametrai

Parametras Aprašymas Formatas
tcFileEip EIP failas C
tcHeaderCursor EIP failo "hederis" C
tcDetailCursors EIP failo detalumas C
tcFields laukai, kurie turi likti EIP faile C

Pavyzdžiai:

  1. EIP failo suformavimas iš kursoriaus, paliekant tik tam tikrus laukus.
eip_for(m.EXP_FAILAS,"EIP_I06","EIP_I07,EIP_I08","i06_kodas_ks,i06_dok_nr,i06_op_data,di07_bar_kodas,t_kiekis,i08_mok_p,i08_mok_d")
  1. Funkcijos panaudojimo pavyzdys aprašytas EIP_WEB_IMP_PO.
  2. EIP failo performavimas, išimant mokėjimus, prekės kodą perkeliant į aprašymo pirmą lauką ir paliekant tik tam tikrus laukus.
m.EXP_FAILAS=GETFILE("EIP")
IF EMPTY(m.EXP_FAILAS)
    RETURN .T.
ENDIF

** Nuskaitome EIP failą ir paverčiame kursoriais:
* EIP_I06, EIP_I07, EIP_I08, EIP_I13
* Visos reikšmės iš EIP - char tipo
* Ryšys tarp kursorių - SS_PKEY (numeric tipo). Indeksas paieškai: IND_PKEY
IF !eip_nus(m.EXP_FAILAS)
    RETURN .F.
ENDIF

****************************************************************
* Mokėjimų informacija
* Nurodytus apmokėjimus išimame iš importuojamos informacijos
IF USED("EIP_I13")
    USE IN EIP_I13
ENDIF

****************************************************************
* Nurodytą prekės kodą (tik prekės) nukopijuojame į Aprašymo 1 lauką
=eip_add_column("EIP_I07","i07_aprasymas1","C(150)")

UPDATE EIP_I07 SET i07_aprasymas1=i07_kodas WHERE i07_tipas=1
=vyk_upd("EIP_I07")

** Formuojame EIP failą
* Nurodome tik tuos laukus, kurie turi likti EIP faile
* EIP failas perrašomas
LOCAL lcLaukuSar
m.lcLaukuSar=;  "i06_kodas_ks,i06_kodas_ak,i06_op_tip,i06_pvm_tip,i06_dok_nr,i06_op_data,i06_dok_data,i06_dok_reg,i06_dok_pr,i06_val_poz,i06_kodas_vl,i06_pastabos,i06_pvm_skol"+;
",di07_bar_kodas,i07_aprasymas3,i07_tipas,i07_kodas_is,i07_kodas_us_p,i07_kodas,i07_pav,i07_kaina_be,i07_kaina_su,i07_nuolaida,i07_mokestis,i07_mokestis_p,i07_pvm,i07_suma,t_kiekis"+;
    ",i08_mok_p,i08_mok_d"

IF !eip_for(m.EXP_FAILAS,"EIP_I06","EIP_I07,EIP_I08",m.lcLaukuSar)
    RETURN .F.
ENDIF

RETURN .T.

Naudojamos funkcijos EIP_NUS ir EIP_ADD_COLUMN.

  1. EIP failo suformavimas su parinktais kliento ir alternatyvių adresų kortelės laukais (nuo 123.0000+DI Rivile GAMA programos versijos):
=f_select("select *, n08_kodas_ks as ss_pkey from N08_KLIJ where N08_KODAS_KS=?Wn08.n08_kodas_ks","eip_n08")
=f_select("select *, n33_kodas_ks as ss_pkey from N33_KBAN where N33_KODAS_KS=?Wn08.n08_kodas_ks","eip_n33")
=eip_for("c:\tmp\wn08.eip","eip_n08","eip_n33","N08_KODAS_KS,N08_PAV,N08_RUSIS,N08_IM_KODAS,N08_PVM_KODAS,N08_KODAS_XS_P,N08_KODAS_XS_T,N08_KODAS_DS,N33_PAV,N33_ADRESAS")