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

ROAGEST 2.11.15: pretul de achizitie se trimite cu minim 4 zecimale

Browse Source 
ofactureaza.prg, adauga_articol_factura: pret_achizitie, pretd si pretv_orig se formateaza
cu Max(gnPPret*, 4) zecimale, cate pastreaza stocul, ca sa nu se piarda precizia la
articolele importate din eFactura.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01AV7dQbTLAqvrtQbH7zxXxw
This commit is contained in:
Marius Mutu
2026-08-20 14:07:31 +03:00
parent 9eab1933a2
commit 72e8058b51
2 changed files with 15 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Programe/ofactureaza.prg
View File

@@ -17,6 +17,10 @@
*!* marius.mutu
*!* scatter name poArt memo - nu exporta campul "explicatia" MEMO
*!* 19.08.2026
*!* marius.mutu
*!* adauga_articol_factura - pretul de achizitie, pretul in valuta si pretul de vanzare se trimit cu cel putin 4 zecimale, cate pastreaza stocul
Private ptDataOra
Local lnIdSet,lnIdTipDoc,lcCursorVerificare,lcCursorFinal,pcSirDifAcont ,pcSirDifPart,lnSucces
lnSucces = 1
@@ -264,8 +268,8 @@ Else
lcSql = lcSql + [pack_facturare.adauga_articol_factura(] + Alltrim(Str(poArt.id_temp)) + [,] + ;
Alltrim(Str(poArt.id_articol)) + [,'] + Alltrim(Nvl(poArt.serie,[])) + [',] + ;
['] + Alltrim(Nvl(poArt.explicatie,'')) + [',] + Nvl(Alltrim(Str(poact.id_pol)),[NULL]) + [,] + ;
Nvl(Alltrim(Str(poArt.id_gestiune)),[NULL]) + [,] + Alltrim(Str(poArt.pret_achizitie,18,gnPPret)) + [,] + ;
Alltrim(Str(poArt.pretd,18,gnPPretVal)) + [,] + ;
Nvl(Alltrim(Str(poArt.id_gestiune)),[NULL]) + [,] + Alltrim(Str(poArt.pret_achizitie,18,Max(gnPPret,4))) + [,] + ;
Alltrim(Str(poArt.pretd,18,Max(gnPPretVal,4))) + [,] + ;
Iif(IsNull(poArt.id_valuta_d),[NULL],Alltrim(Str(poArt.id_valuta_d))) + [,] + ;
IIF(poArt.cu_tva=0,;
IIF(poArt.tip_valuta = 0,Alltrim(Str(poArt.pretftva,18,gnPPretV)),Alltrim(Str(poArt.vpretftva,18,gnPVal))),;
@@ -277,7 +281,7 @@ Else
IIF(poArt.tip_valuta = 0,Alltrim(Str(poArt.discountctva,18,gnPPretV)),Alltrim(Str(poArt.vdiscountctva,18,gnPVal)))) + [,] + ;
['] + Alltrim(Nvl(poArt.Cont,'')) + [',] + Alltrim(Str(poArt.Curs,18,4)) + [,1,] + Alltrim(Str(poArt.id_jtva_coloana)) + [,] + ;
Nvl(Alltrim(Str(poArt.id_part_rez)),[NULL]) + [,] + Nvl(Alltrim(Str(poArt.id_lucrare_rez)),[NULL]) + [,] + ;
Alltrim(Str(poArt.pretv_orig,18,gnPPretV)) + [,] + ;
Alltrim(Str(poArt.pretv_orig,18,Max(gnPPretV,4))) + [,] + ;
Nvl(Alltrim(Str(poArt.id_set_fact)),[NULL]) + [,NULL,] + Alltrim(Str(gnIdUtil)) + [);]
*!* 05.11.2010 ^
lcSql = [begin ] + lcSql + [ end;]