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:

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")

Funkcijos panaudojimo pavyzdys aprašytas EIP_WEB_IMP_PO.

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.

Nauojamos funkcijos EIP_NUS ir EIP_ADD_COLUMN.