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

sync SVN r18227

Browse Source
This commit is contained in:
Marius Mutu
2026-09-29 17:35:13 +03:00
parent 1ae4086ee6
commit 1a05265329
6 changed files with 127 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
programe/coada_contabilizare_ef.prg
View File

@@ -107,7 +107,7 @@ DEFINE CLASS CoadaContabilizareEF AS Custom
RETURN ''
ENDPROC
*!* Numarul de document dedus din numarul eFacturii: ultimele 12 cifre din primul grup de cifre
*!* Numarul de document dedus din numarul eFacturii: ultimele 14 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,8 +126,7 @@ DEFINE CLASS CoadaContabilizareEF AS Custom
ENDIF
ENDIF
ENDFOR
*!* ultimele 12 cifre, cat se afiseaza in ROA
RETURN INT(VAL(RIGHT(m.lcCifre, 12)))
RETURN INT(VAL(RIGHT(m.lcCifre, 14)))
ENDPROC
*!* Textul lipsurilor facturii al carei cursor de linii e deschis (tcAliasDetalii), calculat