From 189e0a694e1c14e23a2fcbbc29151b44c49aac78 Mon Sep 17 00:00:00 2001 From: Marius Mutu Date: Sun, 2 Aug 2026 11:48:47 +0300 Subject: [PATCH] Verificare ANAF: o singura salvare in istoric si antete corecte pe formularele de verificare (SVN r17943) VERIFICARE_CIF salva a doua oara in istoric ceea ce traseul ANAF (SalveazaIstoricDinCursor) tocmai salvase, cu alte valori pentru PLATITORTVAMFIN si DATATVAMFIN, deci o apasare pe verificarea ANAF lasa doua randuri in ISTORIC_CODURI_FISCALE. Pe traseul ANAF a doua salvare nu se mai face; traseele MFIN/VIES raman neschimbate. Partea de baza de date: co_2026_08_02_05_COMUN_PACK_ISTORIC_CF.sql (SVN r17942). Formularul de verificare in masa foloseste azi numai serviciul web ANAF (chkANAF fortat pe .T. in Init), deci antetele arata sursa corecta: "Platitor TVA ANAF", "Firma ANAF" si "Data verificata" (coloana arata data pentru care s-a interogat, nu data luarii in evidenta TVA). In fereastra cu istoricul unui cod fiscal, coloanele DATATVAMFIN si PLATITORTVAMFIN sunt ascunse - dupa modificarea din pachet raman inghetate. Co-Authored-By: Claude Opus 5 (1M context) Claude-Session: https://claude.ai/code/session_018LkXBVHUNkb7Quq36TfQcs --- clase/overificari.vc2 | 8 +++++--- programe/validare.prg | 3 ++- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/clase/overificari.vc2 b/clase/overificari.vc2 index 024fa4b..96c5bb6 100644 --- a/clase/overificari.vc2 +++ b/clase/overificari.vc2 @@ -2019,7 +2019,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx" ADD OBJECT '_grdbase1.Column16.Header1' AS header WITH ; Alignment = 2, ; - Caption = "Data TVA MFIN", ; + Caption = "Data verificata", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> @@ -2045,7 +2045,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx" ADD OBJECT '_grdbase1.Column17.Header1' AS header WITH ; Alignment = 2, ; - Caption = "Platitor TVA MFIN", ; + Caption = "Platitor TVA ANAF", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> @@ -2239,7 +2239,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx" ADD OBJECT '_grdbase1.Column5.Header1' AS header WITH ; Alignment = 2, ; - Caption = "Firma MFIN", ; + Caption = "Firma ANAF", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> @@ -3183,12 +3183,14 @@ DEFINE CLASS frm_verificare_parteneri_istoric AS _frmbase OF "_frm_base.vcx" Column10.ControlSource = "datatvamfin", ; Column10.Name = "cDataTVAMfin", ; Column10.ReadOnly = .T., ; + Column10.Visible = .F., ; Column11.ColumnOrder = 4, ; Column11.ControlSource = "platitortvamfin", ; Column11.CurrentControl = "_checkbox1", ; Column11.Name = "cPlatitorTVAMfin", ; Column11.ReadOnly = .T., ; Column11.Sparse = .F., ; + Column11.Visible = .F., ; Column11.Width = 51, ; Column12.ColumnOrder = 3, ; Column12.ControlSource = "stare", ; diff --git a/programe/validare.prg b/programe/validare.prg index 9e455f4..99d1d84 100644 --- a/programe/validare.prg +++ b/programe/validare.prg @@ -817,7 +817,8 @@ Define Class VerificareCod As Custom pnInactiv = Iif(m.llInactiv, 1, 0) pnTvaIncasare = Iif(m.llTVAIncasare, 1, 0) pnSplitTva = Iif(m.llSplitTVA, 1, 0) - If !Empty(m.pcFirma) + *!* 02.08.2026 marius.mutu: pe traseul ANAF randul complet e salvat deja de SalveazaIstoricDinCursor - a doua salvare doar insera un rand nou + If !Empty(m.pcFirma) And !m.llInterogareAnaf *!* 02.08.2026 marius.mutu: tnDinCache = 2 - salvare fara date de interval, nu marcheaza prospetime de cache lcSqlIstoric = "begin pack_parteneri.save_istoric_cod_fiscal(?pcCodFiscal,?pcFirma,?pcAdresa,?pcJudet,?pcRegCom,?pcCodPostal,?pcTelefon,?pcFax,?pcDataTvamfin,?pnPlatitorTvaMfin,?pcStare," + ; "?pnPlatitorTvaVies,?pnInterogareVies,?gnIdUtil,?pnInactiv,?pnTvaIncasare,?pnSplitTva,tnDinCache=>2); end;"