From e8b29cec2d9e8906d5a7a53cdcafe4d8750576aa Mon Sep 17 00:00:00 2001 From: Marius Mutu Date: Sat, 22 Aug 2026 18:26:23 +0300 Subject: [PATCH] TODO 21: verificare parteneri la data facturii in jurnalele de TVA - ovanzcump.vc2: optiunea 3 "VERIFICA TOTI PARTENERII LA DATA FACTURII - ANAF" in cele 4 jurnale (regcump2010/2025, regvanz2010/2025); SELECT-ul duce dataact As data si id_part mai departe, ca verificarea ANAF sa se faca la data documentului, nu la prima zi a lunii curente - changelog_roacont.txt: intrarea 2.11.73 Co-Authored-By: Claude Opus 5 (1M context) Claude-Session: https://claude.ai/code/session_01GztNyTRxjHqBg5kyNMmcy1 --- Clase/ovanzcump.vc2 | 96 ++++++++++++++++++++++++++++++------------- changelog_roacont.txt | 19 +++++++++ 2 files changed, 87 insertions(+), 28 deletions(-) diff --git a/Clase/ovanzcump.vc2 b/Clase/ovanzcump.vc2 index 1767c88..ee7228d 100644 --- a/Clase/ovanzcump.vc2 +++ b/Clase/ovanzcump.vc2 @@ -39279,7 +39279,7 @@ DEFINE CLASS frm_regcump2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx" lcCodFiscal = Alltrim(actcv.cod_fiscal) lcDenumire = Alltrim(actcv.denumire) - lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF') + lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF; VERIFICA TOTI PARTENERII LA DATA FACTURII - ANAF') If EMPTY(m.lnOptiune) Return @@ -39306,12 +39306,22 @@ DEFINE CLASS frm_regcump2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx" lcFilter = Filter("actcv") lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) - Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; - From actcv ; - Where &lcWhere ; - Into Cursor crsCoduriFiscale ; - Order By denumire, cod_fiscal ; - Readwrite + *!* 22.08.2026 marius.mutu: optiunea 3 verifica la data documentului - starea TVA se poate schimba in cursul lunii + If m.lnOptiune = 3 + Select Distinct id_part, cod_fiscal, denumire, dataact As data, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + Else + Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + Endif Local lcXMLParteneri @@ -43835,7 +43845,7 @@ DEFINE CLASS frm_regcump2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx" lcCodFiscal = Alltrim(actcv.cod_fiscal) lcDenumire = Alltrim(actcv.denumire) - lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF') + lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF; VERIFICA TOTI PARTENERII LA DATA FACTURII - ANAF') If EMPTY(m.lnOptiune) Return @@ -43862,12 +43872,22 @@ DEFINE CLASS frm_regcump2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx" lcFilter = Filter("actcv") lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) - Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; - From actcv ; - Where &lcWhere ; - Into Cursor crsCoduriFiscale ; - Order By denumire, cod_fiscal ; - Readwrite + *!* 22.08.2026 marius.mutu: optiunea 3 verifica la data documentului - starea TVA se poate schimba in cursul lunii + If m.lnOptiune = 3 + Select Distinct id_part, cod_fiscal, denumire, dataact As data, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + Else + Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + Endif Local lcXMLParteneri @@ -51028,7 +51048,7 @@ DEFINE CLASS frm_regvanz2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx" lcDenumire = Alltrim(Nvl(actcv.denumire, '')) lcCodFiscal = Alltrim(Nvl(actcv.cod_fiscal, '')) - lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF') + lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF; VERIFICA TOTI PARTENERII LA DATA FACTURII - ANAF') If EMPTY(m.lnOptiune) Return @@ -51054,12 +51074,22 @@ DEFINE CLASS frm_regvanz2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx" lcFilter = Filter("actcv") lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) - Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; - From actcv ; - Where &lcWhere ; - Into Cursor crsCoduriFiscale ; - Order By denumire, cod_fiscal ; - Readwrite + *!* 22.08.2026 marius.mutu: optiunea 3 verifica la data documentului - starea TVA se poate schimba in cursul lunii + If m.lnOptiune = 3 + Select Distinct id_part, cod_fiscal, denumire, dataact As data, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + Else + Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + Endif Local lcXMLParteneri @@ -54697,7 +54727,7 @@ DEFINE CLASS frm_regvanz2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx" lcDenumire = Alltrim(Nvl(actcv.denumire, '')) lcCodFiscal = Alltrim(Nvl(actcv.cod_fiscal, '')) - lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF') + lnOptiune = XMENU('VERIFICA... ' + m.lcDenumire + ' - ANAF; VERIFICA TOTI PARTENERII - ANAF; VERIFICA TOTI PARTENERII LA DATA FACTURII - ANAF') If EMPTY(m.lnOptiune) Return @@ -54723,12 +54753,22 @@ DEFINE CLASS frm_regvanz2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx" lcFilter = Filter("actcv") lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) - Select Distinct cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; - From actcv ; - Where &lcWhere ; - Into Cursor crsCoduriFiscale ; - Order By denumire, cod_fiscal ; - Readwrite + *!* 22.08.2026 marius.mutu: optiunea 3 verifica la data documentului - starea TVA se poate schimba in cursul lunii + If m.lnOptiune = 3 + Select Distinct id_part, cod_fiscal, denumire, dataact As data, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + Else + Select Distinct id_part, cod_fiscal, denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ; + From actcv ; + Where &lcWhere ; + Into Cursor crsCoduriFiscale ; + Order By denumire, cod_fiscal ; + Readwrite + Endif Local lcXMLParteneri diff --git a/changelog_roacont.txt b/changelog_roacont.txt index cede123..ffd0626 100644 --- a/changelog_roacont.txt +++ b/changelog_roacont.txt @@ -1,4 +1,23 @@ +