Galimybė gauti valdymą mokėjimo išrašų iš XML failo importo metu

Galioja nuo 116 Rivile GAMA versijos.

INIT Mokėjimų lange

titi_pagr.SS_MOKEJIMO_ISRASU_IMPORTAS="MANO_IMP_PROGRAMA()"

kur

MANO_IMP_PROGRAMA() - vartotojo padaryta programa, kuri gali suformuoti arba papildyti formuojamame importo EIP faile reikiamą informaciją.

Ši programa gali suformuoti bet kurį lentelės I53_ISR EIP importo lauką.

Pasinaudodama importuojamo dokumento mokėjimo paskirtimi, programa gali suformuoti sudengiamus dokumentus.

Programoje galima pasinaudoti sekančiais kintamaisiais:

* m.sk_laukas     - nuskaitytas XML dokumentas
* m.hand2         - EIP formavimo adresas
* m.imones_banko_saskaita  - įmonės banko sąskaitą
* m.kliento_banko_saskaita - kliento banko sąskaitą
* m.ff_kodas_ks   - kliento kodas
* m.ff_kodas_ss   - buhalterinės sąskaitos kodas
* m.ff_kodas_ws   - banko kodas
* m.mok_paskirtis - mokėjimo paskirtis
* m.ff_pastabos   - suformuotos pastabos
* m.ff_dok_nr     - mokėjimo dokumento numeris
* m.ff_data       - mokėjimo data
* m.ff_valiuta    - mokėjimo valiuta
* m.ff_suma       - mokėjimo suma
* m.ff_suma_vl    - mokėjimo suma valiuta
* m.ff_kursas     - valiutos kursas
* m.iras_ID       - banko operacijos ID
* m.mok_imokos_kodas - banko įmokos kodas
* m.ff_OP_RUSIS   - operacijos tipas : 1-įplaukos; 2-išmokos
* m.ff_MOKETOJAS  - operacijos rūšis : 1-dokumentai; 2-sąskaitos

Pavyzdys. Programa užpildo kliento kodą ir sąskaitos kodą reikšmėmis, jeigu jų nepavyko užpildyti pagrindinei programai, bei suformuoja mokėjimo sudengiamus dokumentus:

PROCEDURE MANO_IMP_PROGRAMA
if empty(m.ff_kodas_ss)
fputs(hand2,'<I53_KODAS_SS>'+'279'+'</I53_KODAS_SS>')
endif
if empty(m.ff_kodas_ks)
fputs(hand2,'<I53_KODAS_KS>'+'K001'+'</I53_KODAS_KS>')
endif
fputs(hand2,'<K62>')
*- jei žinome konkrečią sudengiamo dokumento sumą
fputs(hand2,'<K62_DOK_NR>'+'DOK1'+'</K62_DOK_NR>')
fputs(hand2,'<K62_SUMA_VL>'+'100.00'+'</K62_SUMA_VL>')
fputs(hand2,'</K62>')
fputs(hand2,'<K62>')
*- jei sudengiama visa dokumento suma
fputs(hand2,'<K62_DOK_NR>'+'DOK1'+'</K62_DOK_NR>')
fputs(hand2,'</K62>')
return .t.