romfast/vfp_roaauto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import initial din SVN ROAAUTO/Trunk @HEAD

Browse Source
This commit is contained in:
Marius Mutu
2026-04-11 17:11:32 +03:00
commit 656d98697f
1856 changed files with 163525 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
COMUN/datemenu/readme_x.txt Normal file
View File

@@ -0,0 +1,30 @@
Trebuie adaugate in update_nomenclator.prg :
goExecutor.oExecute([select id_set, nr_set, nume_set, fix as fixTemp, lista_note, explicatia, model, ] + ;
[formgest, nu_sterg as nu_stergTemp, param1, listare, param2, frm_date, discount as discountTemp, adaos as adaosTemp, factura as facturaTemp,id_selst,] + ;
[id_seldr, tip_doc, tip_ctr, expl_fixa,aleg_cont as aleg_contTemp, frm_plata,valuta as valutatemp, compens,] + ;
[id_tip_rul, id_jnetax, id_jtax, tipjurnal, id_jtaxn, productie as productieTemp, formproduc, cursval as cursvaltemp ] + ;
[from xsets], [XSetsTemp]) && are valuta si aleg_cont cu valori 1,0 care vor fi transf in .t., .f.
Select *,Iif(valutaTemp = 1, .T., .F.) As valuta,;
IIF(aleg_contTemp = 1,.T.,.F.) As aleg_cont,;
IIF(cursvalTemp = 1,.T.,.F.) as cursval,;
IIF(productieTemp = 1,.T.,.F.) as productie,;
IIF(discountTemp = 1,.T.,.F.) as discount,;
IIF(fixTemp = 1,.T.,.F.) as fix,;
IIF(nu_stergTemp = 1,.T.,.F.) as nu_sterg,;
IIF(adaosTemp = 1,.T., .F.) as adaos,;
IIF(facturaTemp = 1,.T.,.F.) as factura ;
From XSetsTemp Into Cursor xSets Readwrite
goExecutor.oExecute([select * from xrequest], [XRequest])
goExecutor.oExecute([select * from xnote], [XNote])
goExecutor.oExecute([select * from xact], [XAct])
goExecutor.oExecute([select * from xitems], [XItems])
nvl2Default("xrequest", "id_tipdoc")
nvl2Default("xnote")
nvl2Default("xact")
nvl2Default("xsets")
nvl2Default("XItems")