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;"