romfast/comun
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r18102

Browse Source
This commit is contained in:
Marius Mutu
2026-09-11 19:06:57 +03:00
parent 661a3cad22
commit 6d339c932e
4 changed files with 171 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
programe/import_efactura.prg
View File

@@ -18,8 +18,9 @@ PROCEDURE importEfacturaTrimise
ENDPROC
PROCEDURE vizImportEFactura
LPARAMETERS tcTip
LPARAMETERS tcTip, tlDoarGestiune
* tcTIP: PRIMITE/TRIMISE
* tlDoarGestiune: import doar in gestiune, fara alegerea rutei (apel din aplicatia de gestiune)
Private poFacturi, poFacturiDetalii
Local loFrmFacturi As "frm_efactura_import", lcTip, llPrimite
@@ -164,7 +165,7 @@ select 0 as distribuie, CAST(0 as number(10)) as id_tip, id_articol, id_gestiune
INDEX on id TAG id
Select crsFacturi
loFrmFacturi = Createobject("frm_import_efactura", m.llPrimite)
loFrmFacturi = Createobject("frm_import_efactura", m.llPrimite, m.tlDoarGestiune)
* Do Form frm_import_efactura Name loFrmFacturi Linked With m.llPrimite Noshow
loFrmFacturi.Show(1)