From 837b455687b74afa791bc3374fdf802928f5cb23 Mon Sep 17 00:00:00 2001 From: Marius Mutu Date: Fri, 7 Aug 2026 13:15:25 +0300 Subject: [PATCH] sync SVN r17991: garda valuta la nota de curs eFactura, scos SET STEP ON xmlefactura.prg: mentiunea despre cursul valutar din textul aditional se emite doar cand documentul e chiar in valuta (in_valuta = 1). ofacturare.vcx: scos SET STEP ON neconditionat din frm_facturare.do_scrie_factura. --- clase/ofacturare.vc2 | 1 - programe/xmlefactura.prg | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/clase/ofacturare.vc2 b/clase/ofacturare.vc2 index 30786ab..12fefa2 100644 --- a/clase/ofacturare.vc2 +++ b/clase/ofacturare.vc2 @@ -14006,7 +14006,6 @@ DEFINE CLASS frm_facturare_articole AS _frmbase OF "_frm_base.vcx" pnParametruAditional = 0 llReturn = .T. lcListaIncasare = '' - SET STEP ON llEproforma = (poDate.eProforma = 1) If Inlist(poDate.ntip_incasare, 11, 2, 3) && 11 = CHITANTA, 2 = BON FISCAL, 3 = POS/Card diff --git a/programe/xmlefactura.prg b/programe/xmlefactura.prg index 18f706e..7ab30f2 100644 --- a/programe/xmlefactura.prg +++ b/programe/xmlefactura.prg @@ -371,7 +371,7 @@ Define Class ExportEFactura As Custom lcTextAditional = m.lcTextAditional + Iif(!Empty(m.lcTextAditional), ' # ', '') + "Taxare inversa" ENDIF - IF !EMPTY(NVL(loDate.curs,0)) AND ATC('curs', m.lcTextAditional) = 0 + IF loDate.in_valuta = 1 AND !EMPTY(NVL(loDate.curs,0)) AND ATC('curs', m.lcTextAditional) = 0 lcTextAditional = m.lcTextAditional + Iif(!Empty(m.lcTextAditional), ' # ', '') + "Curs: " + ALLTRIM(STR(loDate.curs, 10,4)) + " RON/" + STRTRAN(ALLTRIM(Nvl(loDate.cValuta, '')),'EURO', 'EUR',1,1,1) ENDIF