romfast/roacont
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Registre 2025: cotele 24/20 la soldul neexigibil; exigibilizare TVA reparata

Browse Source 
frm_regcump2025 / frm_regvanz2025 au fost derivate din clasele 2010 INLOCUIND
cotele 24/20 cu 11/21, in loc sa le adauge. Consecinta: filtrul "Diferenta sold"
si lista TVA-ului exigibilizat din plati pierdeau facturile cu TVA neexigibil la
24% sau 20% - adica exact facturile vechi cu TVA la incasare, cele carate din
perioade anterioare, care sunt rostul filtrului. Corectate 6 filtre, formula de
sold din frm_regvanz2025 (care omitea complet RO20/RO24, spre deosebire de
geamana ei de la cumparari) si lista de coloane selectate.

Clasele frm_regcump2010 / frm_regvanz2010 raman neatinse: enumera 24/20/19/9/5 si
e corect asa - se folosesc doar pe perioade dinainte de cotele 21/11, iar cursorul
lor actcv nici nu are coloanele ro11*/ro21*.

inchidere_tva_sold:
- soldn21/soldn11 si ro21nt/ro11nt se citesc doar daca exista in cursor.
  Registrele de dinainte de 2025 nu le emit, de unde eroarea VFP la apasarea
  butonului de exigibilizare pe orice perioada anterioara.
- cota 21 nu era luata in calcul: `Iif(m.lnCota = 21, ...)` intr-o bucla
  For 1 To 7, deci lnSuma21 era cod mort, iar la cota 6 se lua soldul de 11% cu
  1.21. Linia imediat urmatoare folosea deja corect `= 6`.
- 8 variabile adaugate in Local; deveneau PRIVATE si se scurgeau in stiva de apel.

Scoase 37 `SET STEP ON` ramase in cod (35 in ovanzcump.vc2, 2 in
oproceduri_inchidere.prg); deschideau depanatorul la fiecare rulare din IDE.

Changelog 2.11.66. Sterse handoff-urile, planurile si patch-urile de review ale
lucrarii ANAF/TVA/eFactura; .gitignore acopera acum docs/diff_*.patch, nu doar
docs/diff_runda*.patch.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01DhJwsrFFe1ZNAAtS8Twuti
This commit is contained in:
Marius Mutu
2026-07-28 15:12:35 +03:00
parent 8b5a670ff1
commit 869403cd3e
11 changed files with 41 additions and 2414 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
Clase/ovanzcump.vc2
View File

@@ -20865,7 +20865,6 @@ DEFINE CLASS frm_deconttva AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
SET STEP ON
lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -21063,7 +21062,6 @@ DEFINE CLASS frm_deconttva AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -21274,7 +21272,6 @@ DEFINE CLASS frm_deconttva AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -21485,7 +21482,6 @@ DEFINE CLASS frm_deconttva AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -22921,7 +22917,6 @@ DEFINE CLASS frm_deconttva_201601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
SET STEP ON
lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -23119,7 +23114,6 @@ DEFINE CLASS frm_deconttva_201601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -23330,7 +23324,6 @@ DEFINE CLASS frm_deconttva_201601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -23541,7 +23534,6 @@ DEFINE CLASS frm_deconttva_201601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -25155,7 +25147,6 @@ DEFINE CLASS frm_deconttva_201701 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
SET STEP ON
lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -25353,7 +25344,6 @@ DEFINE CLASS frm_deconttva_201701 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -25564,7 +25554,6 @@ DEFINE CLASS frm_deconttva_201701 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -25775,7 +25764,6 @@ DEFINE CLASS frm_deconttva_201701 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -25997,7 +25985,6 @@ DEFINE CLASS frm_deconttva_201701 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -26221,7 +26208,6 @@ DEFINE CLASS frm_deconttva_201701 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -26425,7 +26411,6 @@ DEFINE CLASS frm_deconttva_201701 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -26631,7 +26616,6 @@ DEFINE CLASS frm_deconttva_201701 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -26835,7 +26819,6 @@ DEFINE CLASS frm_deconttva_201701 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -28466,7 +28449,6 @@ DEFINE CLASS frm_deconttva_202601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
SET STEP ON
lcNumePrenumeDeclarant = Alltrim(NVL(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -28664,7 +28646,6 @@ DEFINE CLASS frm_deconttva_202601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -28875,7 +28856,6 @@ DEFINE CLASS frm_deconttva_202601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -29086,7 +29066,6 @@ DEFINE CLASS frm_deconttva_202601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -29308,7 +29287,6 @@ DEFINE CLASS frm_deconttva_202601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -29532,7 +29510,6 @@ DEFINE CLASS frm_deconttva_202601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -29736,7 +29713,6 @@ DEFINE CLASS frm_deconttva_202601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -29942,7 +29918,6 @@ DEFINE CLASS frm_deconttva_202601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -30146,7 +30121,6 @@ DEFINE CLASS frm_deconttva_202601 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
Set Date To Ymd
Set Mark To '-'
Set Step On
lcNumePrenumeDeclarant = Alltrim(Nvl(gofirma.declarant,''))
lcNumeDeclarant = lcNumePrenumeDeclarant
lcPrenumeDeclarant = ""
@@ -38862,7 +38836,6 @@ DEFINE CLASS frm_regcump2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*!* Delete From cListRCTemp Where Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') Not In ;
*!* (Select Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') From cListRC WHERE !EMPTY(NVL(denumire,'')) )
*!* Endif
SET STEP ON
WAIT WINDOW 'TVA exigibilizat din plati facturi cu TVA Incasare' NOWAIT
*** ADAUG TVA INCASARE (DIN INCASARI/PLATI, TVA 4427 LA 90 ZILE)
TEXT to m.lcSql textmerge noshow
@@ -42642,14 +42615,14 @@ DEFINE CLASS frm_regcump2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
from vjc2010
where an = <<m.gnAn>>
and luna = <<m.gnLuna>>
and (RO11nt <> 0 or RO21nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0)
and (RO11nt <> 0 or RO21nt <> 0 or ro20nt <> 0 or ro24nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0)
and tva_incasare = 1)
group by id_fact, cont) ip
on jc.id_fact = ip.id_fact
where jc.an = <<m.gnAn>>
and jc.luna = <<m.gnLuna>>
and jc.tva_incasare = 1
and (jc.RO11nt <> 0 or jc.RO21nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0)
and (jc.RO11nt <> 0 or jc.RO21nt <> 0 or jc.ro20nt <> 0 or jc.ro24nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0)
and nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + RO20nb + RO20nt + RO24nb + RO24nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0
ENDTEXT
@@ -43155,7 +43128,6 @@ DEFINE CLASS frm_regcump2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
lcWhere = Alltrim(Substr(m.lcWhere, m.lnPos + 11))
Endif
Endif
SET STEP ON
Do Case
Case m.lnTipJurnal = 1
pcSubtitlu = "Achizitii de bunuri si prestari de sevicii taxabile din tara"
@@ -43452,7 +43424,6 @@ DEFINE CLASS frm_regcump2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*!* Delete From cListRCTemp Where Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') Not In ;
*!* (Select Padl(nract,14,'0') + '|' + Dtos(dataact) + '|' + Padr(denumire,100,' ') From cListRC WHERE !EMPTY(NVL(denumire,'')) )
*!* Endif
SET STEP ON
WAIT WINDOW 'TVA exigibilizat din plati facturi cu TVA Incasare' NOWAIT
*** ADAUG TVA INCASARE (DIN INCASARI/PLATI, TVA 4427 LA 90 ZILE)
TEXT to m.lcSql textmerge noshow
@@ -43467,7 +43438,7 @@ DEFINE CLASS frm_regcump2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
LEFT Join JTVA_COLOANE J2 On J.id_jtva_coloana = J2.id_tva
left join nom_fdoc fdoc on a.id_fdoc = fdoc.id_fdoc
where a.an = ?m.gnAn and a.luna = ?m.gnLuna and a.sters = 0 and a.scd = '4426' And a.scc = '4428' And Nvl(a.id_jtva_coloana, 0) <> 0
and jc.an = ?m.gnAn and jc.luna = ?m.gnLuna and (jc.RO11nt <> 0 or jc.RO21nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0)
and jc.an = ?m.gnAn and jc.luna = ?m.gnLuna and (jc.RO11nt <> 0 or jc.RO21nt <> 0 or jc.ro20nt <> 0 or jc.ro24nt <> 0 or jc.ro19nt <> 0 or jc.ro9nt <> 0 or jc.ro5nt <> 0)
ORDER BY a.cod, J2.COLOANA_JC
ENDTEXT
@@ -44214,7 +44185,6 @@ DEFINE CLASS frm_regcump2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*!* 25.08.2014
*!* marius.mutu
*!* se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0
SET STEP ON
Local lcXMLFacturi
If !(luna_inchisa Or m.glEMama)
Select *, (RO11NB+RO21NB+RO24NB+RO20NB+RO19NB+RO09NB+RO05NB + RO11NT+RO21NT+RO24NT+RO20NT+RO19NT+RO09NT+RO05NT) as soldn, ;
@@ -50170,7 +50140,6 @@ DEFINE CLASS frm_regvanz2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
ENDPROC
PROCEDURE do_excel
SET STEP ON
do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg
return
@@ -50521,7 +50490,6 @@ DEFINE CLASS frm_regvanz2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
update_jtva_coloane('JV')
*** SELECTEZ FACTURILE CU TVA_INCASARE CU TOTAL BAZA, TVA, BAZAN, TVAN
SET STEP ON
Select r.cod, r.id_fact, r.tip, r.denumire, r.nract, r.SERIE_ACT, r.dataact, r.COD_FISCAL, Space(10) As COD_TVA, Space(100) As EXPLICATIE_TVA, r.TOTCTVA, r.TOTFTVATAX, r.TOTTVATAX, TVA_INCASARE, ;
(RO24B + RO20B + RO19B + RO9B + RO5B + CESCDD1 + CESCDD2 + CEOPTR + FODD + FOFDD + CESVDD + CESVFDD + CESVFS + ROTI + WRN + WRSCDD + WRSCFDD) As BAZA, ;
(RO24T + RO20T + RO19T + RO9T + RO5T) As TVA, ;
@@ -51396,7 +51364,6 @@ DEFINE CLASS frm_regvanz2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*!* 25.08.2014
*!* marius.mutu
*!* se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0
SET STEP ON
Local lcXMLFacturi
If !(luna_inchisa Or m.glEMama)
Select *, (RO24NB+RO20NB+RO19NB+RO9NB+RO5NB + RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as soldn, ;
@@ -53816,8 +53783,8 @@ DEFINE CLASS frm_regvanz2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
select jv.id_fact,
ip.cont,
nvl(ip.sold, 0) as soldf,
(RO11nb + RO11nt + RO21nb + RO21nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as soldn,
nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as solddif,
(RO11nb + RO11nt + RO21nb + RO21nt + RO20nb + RO20nt + RO24nb + RO24nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as soldn,
nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + RO20nb + RO20nt + RO24nb + RO24nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) as solddif,
jv.denumire,
jv.nract,
jv.serie_act,
@@ -53830,6 +53797,10 @@ DEFINE CLASS frm_regvanz2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
jv.RO11nt,
jv.RO21nb,
jv.RO21nt,
jv.RO20nb,
jv.RO20nt,
jv.RO24nb,
jv.RO24nt,
jv.ro19nb,
jv.ro19nt,
jv.ro9nb,
@@ -53849,15 +53820,15 @@ DEFINE CLASS frm_regvanz2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
from vjv2010
where an = <<m.gnAn>>
and luna = <<m.gnLuna>>
and (RO11nt <> 0 or RO21nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0)
and (RO11nt <> 0 or RO21nt <> 0 or ro20nt <> 0 or ro24nt <> 0 or ro19nt <> 0 or ro9nt <> 0 or ro5nt <> 0)
and tva_incasare = 1)
group by id_fact, cont) ip
on jv.id_fact = ip.id_fact
where jv.an = <<m.gnAn>>
and jv.luna = <<m.gnLuna>>
and jv.tva_incasare = 1
and (jv.RO11nt <> 0 or jv.RO21nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0)
and nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0
and (jv.RO11nt <> 0 or jv.RO21nt <> 0 or jv.ro20nt <> 0 or jv.ro24nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0)
and nvl(ip.sold, 0) - (RO11nb + RO11nt + RO21nb + RO21nt + RO20nb + RO20nt + RO24nb + RO24nt + ro19nb + ro19nt + ro9nb + ro9nt + ro5nb + ro5nt) <> 0
ENDTEXT
llSucces = goExecutor.oExecuta(m.lcSql, "crsSoldDif")
@@ -53888,7 +53859,6 @@ DEFINE CLASS frm_regvanz2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
ENDPROC
PROCEDURE do_excel
SET STEP ON
do export_excel_grid WITH thisform._grdbase1,"dataact, nract", "", this.lb_titlu_alb_b121.caption IN proceduri_excel.prg
return
@@ -54377,7 +54347,7 @@ DEFINE CLASS frm_regvanz2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
LEFT Join JTVA_COLOANE J2 On J.id_jtva_coloana = J2.id_tva
left join nom_fdoc fdoc on a.id_fdoc = fdoc.id_fdoc
where a.an = ?m.gnAn and a.luna = ?m.gnLuna and a.sters = 0 and a.scd = '4428' And a.scc = '4427' And Nvl(a.id_jtva_coloana, 0) <> 0
and jv.an = ?m.gnAn and jv.luna = ?m.gnLuna and (jv.RO11nt <> 0 or jv.RO21nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0)
and jv.an = ?m.gnAn and jv.luna = ?m.gnLuna and (jv.RO11nt <> 0 or jv.RO21nt <> 0 or jv.ro20nt <> 0 or jv.ro24nt <> 0 or jv.ro19nt <> 0 or jv.ro9nt <> 0 or jv.ro5nt <> 0)
order by a.cod, J2.COLOANA_JC
ENDTEXT
@@ -55063,7 +55033,6 @@ DEFINE CLASS frm_regvanz2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
*!* 25.08.2014
*!* marius.mutu
*!* se transmit si soldurile pe cote de TVA 24,9,5 pentru cazul in care soldul total este 0
SET STEP ON
Local lcXMLFacturi
If !(luna_inchisa Or m.glEMama)
Select *, (RO11NB+RO21NB+RO24NB+RO20NB+RO19NB+RO9NB+RO5NB + RO11NT+RO21NT+RO24NT+RO20NT+RO19NT+RO9NT+RO5NT) as soldn, ;