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

3
clase/baza.vc2
View File

@@ -10155,7 +10155,8 @@ DEFINE CLASS item AS container
Endif
If !(Empty(F) Or Empty(C) Or Empty(T) Or Inlist(F,'vnom_parteneri','vnom_gestiuni','vlucrari_validat','vcontracte','vnom_responsabili','vcrm_politici_preturi'))
pcselect = ['select ] + C + [,] + lcIdFis + [ from ] + F + [ where 2=2']
*!* id intern al valutei, nu ISO
pcselect = ['select ] + C + [,] + Iif(F == 'vnom_valute' And Lower(lcIdFis) == 'id_valuta2', [id_valuta3 as id_valuta2], lcIdFis) + [ from ] + F + [ where 2=2']
pcfiltru = [1=2]
pcschema = ['']
pcorder = C

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