diff --git a/Programe/ofactureaza.prg b/Programe/ofactureaza.prg index 4677e54..7b430f0 100644 --- a/Programe/ofactureaza.prg +++ b/Programe/ofactureaza.prg @@ -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;] diff --git a/changelog_roagest.txt b/changelog_roagest.txt index 3f751b7..56e3264 100644 --- a/changelog_roagest.txt +++ b/changelog_roagest.txt @@ -1,3 +1,11 @@ + +