Funkcija suformuoja DVS operaciją
Sintaksė
DVS_FOR(cf_kodas_rd,[cf_data],[cf_pav],[cf_kodas_ks],[cf_kodas_ms],[cf_kodas_is,cf_kodas_tb],[cf_kodas_4a],[cf_pastabos],[cf_file],[cf_file_nuoroda],[cf_rysys_modulis],[cf_rysys_operacija],[cf_kodas_ls_1],[cf_kodas_ls_2],[cf_kodas_ls_3],[cf_kodas_ls_4],[cf_aprasymas1],[cf_aprasymas2],[cf_aprasymas3],[cf_aprasymas4],[cf_tevas],[cf_dok_nr],[cf_dok_reg],[cf_arch_nr],[cf_dok_data],[cf_kodas_rs])
Grąžina
Simbolinę reikšmę - suformuotos DVS operacijos numerį
Parametrai
| Parametras | Aprašymas | Formatas |
|---|---|---|
| cf_kodas_rd | DVS rūšies kodas | C(10) |
| cf_data | DVS operacijos data (pagal nutylėjimą imama sistemos data) | D |
| cf_pav | operacijos pavadinimas | C(150) |
| cf_kodas_ks | kliento kodas | C(12) |
| cf_kodas_ms | menedžerio kodas | C(12) |
| cf_kodas_is | padalinio kodas | C(12) |
| cf_kodas_tb | tabelinis numeris | C(12) |
| cf_kodas_4a | personalo kodas | C(12) |
| cf_pastabos | pastabos | M |
| cf_file | PDF, DOC, XLS ar kitas failas, kurį norima įkelti prie DVS operacijos | C |
| cf_file_nuoroda | požymis, ar bus įkeltas pats failas, ar nuoroda į jį ; jei reikšmė 0 (pagal nutylėjimą)- įkeliamas failas, jei reikšmė 1 - nuoroda į failą |
N(1) |
| cf_rysys_modulis | modulis, su kuriuo norima suformuoti informacijos ryšį su suformuota DVS operacija, (privalomas, jei nurodomas cf_rysys_operacija) | C |
| cf_rysys_operacija | operacijos numeris, su kuria norima suformuoti informacijos ryšį su suformuota DVS operacija, (privalomas, jei nurodomas cf_rysys_modulis) | C(12) |
| cf_kodas_ls_1 | logistikos kodas 1 | C(12) |
| cf_kodas_ls_2 | logistikos kodas 2 | C(12) |
| cf_kodas_ls_3 | logistikos kodas 3 | C(12) |
| cf_kodas_ls_4 | logistikos kodas 4 | C(12) |
| cf_aprasymas1 | aprašymas 1 | C(150) |
| cf_aprasymas2 | aprašymas 2 | C(150) |
| cf_aprasymas3 | aprašymas 3 | C(150) |
| cf_aprasymas4 | aprašymas 4 | C(150) |
| cf_tevas | tėvinės DVS operacijos numeris | C(12) |
| cf_dok_nr | dokumento numeris | C(20) |
| cf_dok_reg | registro numeris | C(20) |
| cf_arch_nr | archyvo numeris | C(20) |
| cf_dok_data | dokumento data (pagal nutylėjimą imama sistemos data) | D |
| cf_kodas_rs | vartotojas - jei priskiriama simbolinė reikšmė, būklė (aktyvus, archyvuotas, anuliuotas) - jei priskiriamas skaičius |
Pavyzdžiai
Užprogramavimas sąskaitos-faktūros formos INIT-e, kad suformuotą PDF failą padėtų į katalogą C:\ARCHYVAS\PARDAVIMAI, suformuotų DVS operaciją ir prie jos prisegtų nuorodą į kataloge padėtą failą.
*titi_pagr.SS_DVS_REPORT_FILE=alltrim(Wi06k.i06_dok_nr) && formuojamo failo vardas (pagal nutylėjimą ATASKAITA)
titi_pagr.SS_DVS_REPORT_KAT="C:\ARCHYVAS\PARDAVIMAI" && formuojamų failų katalogas (pagal nutylėjimą C:\Users\vardas\Desktop)
titi_pagr.SS_DVS_REPORT_FOR=[]
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_kodas_rd='PARDAVIMAI']+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_data=Wi06k.i06_op_data]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_pav="Pardavimo S/F"]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_kodas_ks=Wi06k.i06_kodas_ks]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_kodas_ms=Wi06k.i06_kodas_ms]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[go top in Wi07k]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_kodas_is=Wi07k.i07_kodas_is]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_kodas_tb=.f.]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_kodas_4a=.f.]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_pastabos=Wi06k.i06_pastabos]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_file=m.SS_DVS_FILE]+[+',2,S/F Nr. ]+alltrim(Wi06k.i06_dok_nr)+[;']+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_file_nuoroda=.f.]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_rysys_modulis="RO"]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_rysys_operacija=Wi06k.i06_kodas_po]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_kodas_ls_1=f_nulls(Wi06k.i06_kodas_ls_1,"")]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_kodas_ls_2=f_nulls(Wi06k.i06_kodas_ls_2,"")]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_kodas_ls_3=f_nulls(Wi06k.i06_kodas_ls_3,"")]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_kodas_ls_4=f_nulls(Wi06k.i06_kodas_ls_4,"")]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_aprasymas1=f_nulls(Wi06k.i06_aprasymas1,"")]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_aprasymas2=f_nulls(Wi06k.i06_aprasymas2,"")]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_aprasymas3=f_nulls(Wi06k.i06_aprasymas3,"")]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_aprasymas4=.f.]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_tevas=.f.]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_dok_nr=Wi06k.i06_dok_nr]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_dok_reg=.f.]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_arch_nr=.f.]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_dok_data=Wi06k.i06_dok_data]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_bukle=.f.]+chr(13)
*titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[m.cf_bukle=titi_pagr.useris]+chr(13)
titi_pagr.SS_DVS_REPORT_FOR=titi_pagr.SS_DVS_REPORT_FOR+[DVS_for(m.cf_kodas_rd,m.cf_data,m.cf_pav,m.cf_kodas_ks,m.cf_kodas_ms,m.cf_kodas_is,m.cf_kodas_tb,m.cf_kodas_4a,]+;
[m.cf_pastabos,m.cf_file,m.cf_file_nuoroda,m.cf_rysys_modulis,m.cf_rysys_operacija,]+;
[m.cf_kodas_ls_1,m.cf_kodas_ls_2,m.cf_kodas_ls_3,m.cf_kodas_ls_4,m.cf_aprasymas1,m.cf_aprasymas2,m.cf_aprasymas3,m.cf_aprasymas4,]+;
[m.cf_tevas, m.cf_dok_nr,m.cf_dok_reg,m.cf_arch_nr, m.cf_dok_data, m.cf_bukle)]