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

TODO 21: verificare parteneri la data facturii in jurnalele de TVA

Browse Source 
- 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) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01GztNyTRxjHqBg5kyNMmcy1
This commit is contained in:
Marius Mutu
2026-08-22 18:26:23 +03:00
parent 37c3ac00ca
commit e8b29cec2d
2 changed files with 87 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
Clase/ovanzcump.vc2
View File

@@ -39279,7 +39279,7 @@ DEFINE CLASS frm_regcump2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
lcCodFiscal = Alltrim(actcv.cod_fiscal) lcCodFiscal = Alltrim(actcv.cod_fiscal)
lcDenumire = Alltrim(actcv.denumire) 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) If EMPTY(m.lnOptiune)
Return Return
@@ -39306,12 +39306,22 @@ DEFINE CLASS frm_regcump2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
lcFilter = Filter("actcv") lcFilter = Filter("actcv")
lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) 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 ; *!* 22.08.2026 marius.mutu: optiunea 3 verifica la data documentului - starea TVA se poate schimba in cursul lunii
From actcv ; If m.lnOptiune = 3
Where &lcWhere ; 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 ;
Into Cursor crsCoduriFiscale ; From actcv ;
Order By denumire, cod_fiscal ; Where &lcWhere ;
Readwrite 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 Local lcXMLParteneri
@@ -43835,7 +43845,7 @@ DEFINE CLASS frm_regcump2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
lcCodFiscal = Alltrim(actcv.cod_fiscal) lcCodFiscal = Alltrim(actcv.cod_fiscal)
lcDenumire = Alltrim(actcv.denumire) 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) If EMPTY(m.lnOptiune)
Return Return
@@ -43862,12 +43872,22 @@ DEFINE CLASS frm_regcump2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
lcFilter = Filter("actcv") lcFilter = Filter("actcv")
lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) 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 ; *!* 22.08.2026 marius.mutu: optiunea 3 verifica la data documentului - starea TVA se poate schimba in cursul lunii
From actcv ; If m.lnOptiune = 3
Where &lcWhere ; 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 ;
Into Cursor crsCoduriFiscale ; From actcv ;
Order By denumire, cod_fiscal ; Where &lcWhere ;
Readwrite 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 Local lcXMLParteneri
@@ -51028,7 +51048,7 @@ DEFINE CLASS frm_regvanz2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
lcDenumire = Alltrim(Nvl(actcv.denumire, '')) lcDenumire = Alltrim(Nvl(actcv.denumire, ''))
lcCodFiscal = Alltrim(Nvl(actcv.cod_fiscal, '')) 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) If EMPTY(m.lnOptiune)
Return Return
@@ -51054,12 +51074,22 @@ DEFINE CLASS frm_regvanz2010 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
lcFilter = Filter("actcv") lcFilter = Filter("actcv")
lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) 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 ; *!* 22.08.2026 marius.mutu: optiunea 3 verifica la data documentului - starea TVA se poate schimba in cursul lunii
From actcv ; If m.lnOptiune = 3
Where &lcWhere ; 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 ;
Into Cursor crsCoduriFiscale ; From actcv ;
Order By denumire, cod_fiscal ; Where &lcWhere ;
Readwrite 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 Local lcXMLParteneri
@@ -54697,7 +54727,7 @@ DEFINE CLASS frm_regvanz2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
lcDenumire = Alltrim(Nvl(actcv.denumire, '')) lcDenumire = Alltrim(Nvl(actcv.denumire, ''))
lcCodFiscal = Alltrim(Nvl(actcv.cod_fiscal, '')) 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) If EMPTY(m.lnOptiune)
Return Return
@@ -54723,12 +54753,22 @@ DEFINE CLASS frm_regvanz2025 AS _frmbase OF "..\comun\clase\_frm_base.vcx"
lcFilter = Filter("actcv") lcFilter = Filter("actcv")
lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")) 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 ; *!* 22.08.2026 marius.mutu: optiunea 3 verifica la data documentului - starea TVA se poate schimba in cursul lunii
From actcv ; If m.lnOptiune = 3
Where &lcWhere ; 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 ;
Into Cursor crsCoduriFiscale ; From actcv ;
Order By denumire, cod_fiscal ; Where &lcWhere ;
Readwrite 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 Local lcXMLParteneri

19
changelog_roacont.txt
View File

@@ -1,4 +1,23 @@
<!-- <!--
22/08/2026
ROACONT - 2.11.73
:modificare:
Verificare coduri fiscale. Lista arata si perioadele de la ANAF (inregistrare in scopuri de TVA, TVA la incasare, inactivare),
iar dublu click pe denumire sau cod fiscal deschide partenerul.
:modificare:
Verificare cod fiscal individuala. Mesajul cu rezultatul arata si perioadele de inregistrare in scopuri de TVA, TVA la incasare
si inactivare.
:nou:
Jurnale de TVA. Optiune noua de verificare a codurilor fiscale la data facturii, pentru partenerii care isi
schimba starea TVA in cursul lunii.
:eroare:
Verificare cod fiscal. Textul primit de la ANAF (starea partenerului, adresa, denumirea) se afisa cu caractere gresite.
-->
<!--
20/08/2026 20/08/2026
ROACONT - 2.11.72 ROACONT - 2.11.72