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

sync SVN r18221

Browse Source
This commit is contained in:
Marius Mutu
2026-09-29 11:22:33 +03:00
parent e263114bad
commit ca8e7ca694
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
programe/coada_contabilizare_ef.prg
View File

@@ -107,8 +107,8 @@ DEFINE CLASS CoadaContabilizareEF AS Custom
RETURN ''
ENDPROC
*!* Numarul de document dedus din numarul eFacturii: primul grup de cifre de la dreapta
*!* ('ZZT-A1-C' -> 1, 'F1234' -> 1234, 'FACTURA' -> 0). 0 inseamna ca nu s-a putut deduce.
*!* Numarul de document dedus din numarul eFacturii: ultimele 12 cifre din primul grup de cifre
*!* de la dreapta ('ZZT-A1-C' -> 1, 'F1234' -> 1234, 'FACTURA' -> 0). 0 inseamna ca nu s-a putut deduce.
PROCEDURE NrActDinNumarAct
LPARAMETERS tcNumarAct
@@ -126,7 +126,8 @@ DEFINE CLASS CoadaContabilizareEF AS Custom
ENDIF
ENDIF
ENDFOR
RETURN INT(VAL(RIGHT(m.lcCifre, 14)))
*!* ultimele 12 cifre, cat se afiseaza in ROA
RETURN INT(VAL(RIGHT(m.lcCifre, 12)))
ENDPROC
*!* Textul lipsurilor facturii al carei cursor de linii e deschis (tcAliasDetalii), calculat