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

TODO 21: perioade TVA la verificarea codurilor fiscale + diacritice ANAF

Browse Source 
- validare.prg: cele 7 campuri de perioada (inregistrare TVA, TVA la incasare,
  inactivare/reactivare) duse din raspunsul ANAF pana in cVerificareCod
- validare.prg: AnafDecodeResponseText - raspunsul HTTP se citeste din responseBody
  prin ADODB.Stream cu Charset utf-8, cu cadere inapoi pe comportamentul vechi;
  repara diacriticele pierdute la marshalling-ul COM al lui responseText
- oproceduri_comune.prg: perioadele in mesajul de detalii; fix id_part N(16), data D
  in crsXMLParteneriVerificare (Insert Into esua tacit, lista ramanea goala)
- overificari.vc2: 7 coloane noi in grid, dublu-click pe Denumire/Cod fiscal deschide
  fisa partenerului, captionuri corectate in "inregistrare TVA"
- oparteneri / ofacturare_comun / onomenclatoare: id_part in SELECT-urile care
  alimenteaza verificarea
- teste headless noi: utile/Teste/test_todo21_perioade_anaf.prg, utile/Teste/todo21/

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:17 +03:00
parent 02f4c9ec94
commit 2b695b3656
11 changed files with 1011 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
clase/ofacturare_comun.vc2
View File

@@ -4897,7 +4897,7 @@ DEFINE CLASS frm_facturi AS _frmbase OF "_frm_base.vcx"
lcFilter = Filter("crsFacturi")
lcWhere = Iif(!Empty(m.lcFilter), m.lcFilter, ".T.")
IF m.lnOptiune = 1
Select distinct cod_fiscal, data_act as data, client as denumire, adresa_facturare as adresa_roa, IIF(LEFT(UPPER(cod_fiscal), 2) = "RO", "RO", " ") AS ATRIBUT_FISCAL, .T. AS IsCIF, .F. AS codvalid ;
Select distinct id_part, cod_fiscal, data_act as data, client as denumire, adresa_facturare as adresa_roa, IIF(LEFT(UPPER(cod_fiscal), 2) = "RO", "RO", " ") AS ATRIBUT_FISCAL, .T. AS IsCIF, .F. AS codvalid ;
From crsFacturi ;
Where &lcWhere ;
Into Cursor crsCoduriFiscale ;
@@ -4909,7 +4909,7 @@ DEFINE CLASS frm_facturi AS _frmbase OF "_frm_base.vcx"
ldData = GOMONTH(m.ldData,1) - 1
ENDIF
Select distinct cod_fiscal, m.ldData as data, client as denumire, adresa_facturare as adresa_roa, IIF(LEFT(UPPER(cod_fiscal), 2) = "RO", "RO", " ") AS ATRIBUT_FISCAL, .T. AS IsCIF, .F. AS codvalid ;
Select distinct id_part, cod_fiscal, m.ldData as data, client as denumire, adresa_facturare as adresa_roa, IIF(LEFT(UPPER(cod_fiscal), 2) = "RO", "RO", " ") AS ATRIBUT_FISCAL, .T. AS IsCIF, .F. AS codvalid ;
From crsFacturi ;
Where &lcWhere ;
Into Cursor crsCoduriFiscale ;

2
clase/onomenclatoare.vc2
View File

@@ -11806,7 +11806,7 @@ DEFINE CLASS frm_partener AS _frmbase OF "_frm_base.vcx"
lcFilter = FILTER("crsparteneri")
lcWhere = IIF(x = 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 ;
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 crsparteneri ;
WHERE &lcWhere ;
INTO Cursor crsCoduriFiscale ;

4
clase/oparteneri.vc2
View File

@@ -3991,7 +3991,7 @@ DEFINE CLASS frm_bal_parteneri AS _frmbase OF "_frm_base.vcx"
lcFilter = Filter("xtemp")
lcWhere = Iif(m.lnOptiune = 1, "recno() = " + Alltrim(Str(Recno())), Iif(!Empty(m.lcFilter), m.lcFilter, ".T."))
Select Distinct cod_fiscal, nume As denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
Select Distinct id_part, cod_fiscal, nume As denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
From xtemp;
Where &lcWhere ;
Into Cursor crsCoduriFiscale ;
@@ -10704,7 +10704,7 @@ DEFINE CLASS frm_ireg_parteneri AS _frmbase OF "_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, nume as denumire, Iif(Left(Upper(cod_fiscal), 2) = "RO", "RO", " ") As ATRIBUT_FISCAL, .T. As IsCIF, .F. As codvalid ;
Select Distinct id_part, cod_fiscal, nume as 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 ;

253
clase/overificari.vc2
View File

@@ -1598,6 +1598,20 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
*< OBJECTDATA: ObjPath="_grdbase1.Column26.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column27.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.Column27.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataInceputScpTva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataInceputScpTva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataSfarsitScpTva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataSfarsitScpTva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataAnulImpScpTva.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataAnulImpScpTva.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataInceputTvaInc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataInceputTvaInc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataSfarsitTvaInc.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataSfarsitTvaInc.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataInactivare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataInactivare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataReactivare.Header1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="_grdbase1.cDataReactivare.Text1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Gridextra1" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="chkMFIN" UniqueID="" Timestamp="" />
@@ -1620,6 +1634,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
*<DefinedPropArrayMethod>
*m: filtreatentionari
*m: meniu_dblclick
*m: meniu_dblclick_partener
*p: lautoverificare && Daca se porneste verificarea automat din metoda Show, cand este apelata verificarea din Reg. TVA
*p: lmfin
*p: lvies
@@ -1660,7 +1675,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
ADD OBJECT '_grdbase1' AS _grdbase WITH ;
Anchor = 15, ;
ColumnCount = 27, ;
ColumnCount = 34, ;
DeleteMark = .F., ;
HeaderHeight = 32, ;
Height = 283, ;
@@ -1683,14 +1698,14 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
Column2.ControlSource = "crsverificareparteneri.denumire", ;
Column2.Name = "Column2", ;
Column2.ReadOnly = .T., ;
Column2.ToolTipText = "Dublu click pentru verificare manuala pe www.mfinante.ro", ;
Column2.ToolTipText = "Dublu click pentru modificarea partenerului", ;
Column2.Visible = .T., ;
Column2.Width = 221, ;
Column3.ColumnOrder = 5, ;
Column3.ControlSource = "crsverificareparteneri.cod_fiscal", ;
Column3.Name = "Column3", ;
Column3.ReadOnly = .T., ;
Column3.ToolTipText = "Dublu click pentru verificare manuala pe www.mfinante.ro", ;
Column3.ToolTipText = "Dublu click pentru modificarea partenerului", ;
Column3.Visible = .T., ;
Column3.Width = 75, ;
Column4.ColumnOrder = 6, ;
@@ -1701,57 +1716,57 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
Column4.Sparse = .F., ;
Column4.Visible = .T., ;
Column4.Width = 41, ;
Column5.ColumnOrder = 10, ;
Column5.ColumnOrder = 13, ;
Column5.ControlSource = "crsverificareparteneri.firma", ;
Column5.Name = "Column5", ;
Column5.ReadOnly = .T., ;
Column5.Visible = .T., ;
Column5.Width = 305, ;
Column6.ColumnOrder = 14, ;
Column6.ColumnOrder = 21, ;
Column6.ControlSource = "crsverificareparteneri.cod", ;
Column6.Name = "Column6", ;
Column6.ReadOnly = .T., ;
Column6.Visible = .T., ;
Column6.Width = 75, ;
Column7.BackColor = 185,220,255, ;
Column7.ColumnOrder = 16, ;
Column7.ColumnOrder = 23, ;
Column7.ControlSource = "crsverificareparteneri.adresa", ;
Column7.DynamicBackColor = "RGB(185,220,255)", ;
Column7.Name = "Column7", ;
Column7.ReadOnly = .T., ;
Column7.Visible = .T., ;
Column7.Width = 150, ;
Column8.ColumnOrder = 17, ;
Column8.ColumnOrder = 24, ;
Column8.ControlSource = "crsverificareparteneri.judet", ;
Column8.Name = "Column8", ;
Column8.ReadOnly = .T., ;
Column8.Visible = .T., ;
Column8.Width = 89, ;
Column9.ColumnOrder = 18, ;
Column9.ColumnOrder = 25, ;
Column9.ControlSource = "crsverificareparteneri.regcom", ;
Column9.Name = "Column9", ;
Column9.ReadOnly = .T., ;
Column9.Visible = .T., ;
Column9.Width = 75, ;
Column10.ColumnOrder = 19, ;
Column10.ColumnOrder = 26, ;
Column10.ControlSource = "crsverificareparteneri.codpostal", ;
Column10.Name = "Column10", ;
Column10.ReadOnly = .T., ;
Column10.Visible = .T., ;
Column10.Width = 75, ;
Column11.ColumnOrder = 20, ;
Column11.ColumnOrder = 27, ;
Column11.ControlSource = "crsverificareparteneri.telefon", ;
Column11.Name = "Column11", ;
Column11.ReadOnly = .T., ;
Column11.Visible = .T., ;
Column11.Width = 75, ;
Column12.ColumnOrder = 21, ;
Column12.ColumnOrder = 28, ;
Column12.ControlSource = "crsverificareparteneri.fax", ;
Column12.Name = "Column12", ;
Column12.ReadOnly = .T., ;
Column12.Visible = .T., ;
Column12.Width = 75, ;
Column13.ColumnOrder = 22, ;
Column13.ColumnOrder = 29, ;
Column13.ControlSource = "crsverificareparteneri.vies", ;
Column13.CurrentControl = "_checkbox1", ;
Column13.Name = "Column13", ;
@@ -1759,7 +1774,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
Column13.Sparse = .F., ;
Column13.Visible = .T., ;
Column13.Width = 75, ;
Column14.ColumnOrder = 23, ;
Column14.ColumnOrder = 30, ;
Column14.ControlSource = "crsverificareparteneri.platitortva", ;
Column14.CurrentControl = "_checkbox1", ;
Column14.Name = "Column14", ;
@@ -1767,7 +1782,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
Column14.Sparse = .F., ;
Column14.Visible = .T., ;
Column14.Width = 75, ;
Column15.ColumnOrder = 24, ;
Column15.ColumnOrder = 31, ;
Column15.ControlSource = "crsverificareparteneri.eroare", ;
Column15.Name = "Column15", ;
Column15.ReadOnly = .T., ;
@@ -1784,7 +1799,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
Column17.ReadOnly = .T., ;
Column17.Sparse = .F., ;
Column17.Width = 71, ;
Column18.ColumnOrder = 25, ;
Column18.ColumnOrder = 32, ;
Column18.ControlSource = "crsverificareparteneri.duplicat", ;
Column18.CurrentControl = "_checkbox1", ;
Column18.Name = "Column18", ;
@@ -1796,7 +1811,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
Column19.Name = "Column19", ;
Column19.ReadOnly = .T., ;
Column19.Width = 41, ;
Column20.ColumnOrder = 9, ;
Column20.ColumnOrder = 12, ;
Column20.ControlSource = "stare", ;
Column20.Name = "Column20", ;
Column20.ReadOnly = .T., ;
@@ -1806,25 +1821,25 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
Column21.Name = "Column21", ;
Column21.ReadOnly = .T., ;
Column21.Width = 78, ;
Column22.ColumnOrder = 26, ;
Column22.ColumnOrder = 33, ;
Column22.ControlSource = "crsverificareparteneri.id_part", ;
Column22.Name = "Column23", ;
Column22.ReadOnly = .T., ;
Column23.ColumnOrder = 11, ;
Column23.ColumnOrder = 14, ;
Column23.ControlSource = "crsverificareparteneri.tvaincasare", ;
Column23.CurrentControl = "Check1", ;
Column23.Name = "cTVAincasare", ;
Column23.ReadOnly = .T., ;
Column23.Sparse = .F., ;
Column23.Width = 59, ;
Column24.ColumnOrder = 12, ;
Column24.ColumnOrder = 17, ;
Column24.ControlSource = "crsverificareparteneri.splittva", ;
Column24.CurrentControl = "Check1", ;
Column24.Name = "cSplitTVA", ;
Column24.ReadOnly = .T., ;
Column24.Sparse = .F., ;
Column24.Width = 59, ;
Column25.ColumnOrder = 13, ;
Column25.ColumnOrder = 18, ;
Column25.ControlSource = "crsverificareparteneri.inactiv", ;
Column25.CurrentControl = "Check1", ;
Column25.Name = "cInactiv", ;
@@ -1832,20 +1847,174 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
Column25.Sparse = .F., ;
Column25.Width = 51, ;
Column26.BackColor = 255,202,228, ;
Column26.ColumnOrder = 15, ;
Column26.ColumnOrder = 22, ;
Column26.ControlSource = "crsverificareparteneri.adresa_roa", ;
Column26.DynamicBackColor = "RGB(255,202,228)", ;
Column26.Name = "Column26", ;
Column26.ReadOnly = .T., ;
Column26.Width = 150, ;
Column27.ColumnOrder = 27, ;
Column27.ColumnOrder = 34, ;
Column27.ControlSource = "IIF(EMPTY(NVL(sursa,'')),'',IIF(ALLTRIM(sursa)=='ANAF','ANAF','CACHE '+DTOC(NVL(data_sursa,DATE()))+IIF(ALLTRIM(sursa)=='CACHE_INDISP',' (ANAF indisponibil)','')))", ;
Column27.Name = "Column27", ;
Column27.ReadOnly = .T., ;
Column27.Visible = .T., ;
Column27.Width = 230
Column27.Width = 230, ;
Column28.ColumnOrder = 9, ;
Column28.ControlSource = "crsverificareparteneri.data_inceput_scptva", ;
Column28.Name = "cDataInceputScpTva", ;
Column28.ReadOnly = .T., ;
Column28.Visible = .T., ;
Column28.Width = 85, ;
Column29.ColumnOrder = 10, ;
Column29.ControlSource = "crsverificareparteneri.data_sfarsit_scptva", ;
Column29.Name = "cDataSfarsitScpTva", ;
Column29.ReadOnly = .T., ;
Column29.Visible = .T., ;
Column29.Width = 85, ;
Column30.ColumnOrder = 11, ;
Column30.ControlSource = "crsverificareparteneri.data_anul_imp_scptva", ;
Column30.Name = "cDataAnulImpScpTva", ;
Column30.ReadOnly = .T., ;
Column30.Visible = .T., ;
Column30.Width = 85, ;
Column31.ColumnOrder = 15, ;
Column31.ControlSource = "crsverificareparteneri.data_inceput_tvainc", ;
Column31.Name = "cDataInceputTvaInc", ;
Column31.ReadOnly = .T., ;
Column31.Visible = .T., ;
Column31.Width = 85, ;
Column32.ColumnOrder = 16, ;
Column32.ControlSource = "crsverificareparteneri.data_sfarsit_tvainc", ;
Column32.Name = "cDataSfarsitTvaInc", ;
Column32.ReadOnly = .T., ;
Column32.Visible = .T., ;
Column32.Width = 85, ;
Column33.ColumnOrder = 19, ;
Column33.ControlSource = "crsverificareparteneri.data_inactivare", ;
Column33.Name = "cDataInactivare", ;
Column33.ReadOnly = .T., ;
Column33.Visible = .T., ;
Column33.Width = 85, ;
Column34.ColumnOrder = 20, ;
Column34.ControlSource = "crsverificareparteneri.data_reactivare", ;
Column34.Name = "cDataReactivare", ;
Column34.ReadOnly = .T., ;
Column34.Visible = .T., ;
Column34.Width = 85
*< END OBJECT: ClassLib="_grd_base.vcx" BaseClass="grid" />
ADD OBJECT '_grdbase1.cDataAnulImpScpTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Anulare inregistrare TVA", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.cDataAnulImpScpTva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.cDataInactivare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data inactivare", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.cDataInactivare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.cDataInceputScpTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Inceput inregistrare TVA", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.cDataInceputScpTva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.cDataInceputTvaInc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Inceput TVA incasare", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.cDataInceputTvaInc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.cDataReactivare.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Data reactivare", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.cDataReactivare.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.cDataSfarsitScpTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sfarsit inregistrare TVA", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.cDataSfarsitScpTva.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.cDataSfarsitTvaInc.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sfarsit TVA incasare", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
ADD OBJECT '_grdbase1.cDataSfarsitTvaInc.Text1' AS textbox WITH ;
BackColor = 255,255,255, ;
BorderStyle = 0, ;
ForeColor = 0,0,0, ;
Margin = 0, ;
Name = "Text1", ;
ReadOnly = .T.
*< END OBJECT: BaseClass="textbox" />
ADD OBJECT '_grdbase1.cInactiv.Check1' AS checkbox WITH ;
Alignment = 2, ;
Caption = "", ;
@@ -2566,7 +2735,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
*< END OBJECT: ClassLib="..\utile\gridextras\gridextras.vcx" BaseClass="custom" />
ADD OBJECT 'lblInfo' AS _label WITH ;
Caption = "Apasati ESC pentru a intrerupe verificarile *** Dublu click pe Denumire pentru verificare manuala / istoric verificari", ;
Caption = "Apasati ESC pentru a intrerupe verificarile *** Dublu click pe Denumire/Cod fiscal = modificare partener, pe Firma/Cod ANAF = verificare manuala / istoric", ;
FontSize = 8, ;
ForeColor = 255,255,128, ;
Left = 12, ;
@@ -2761,7 +2930,10 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
IF llGasit
Replace firma With .denumire, adresa With .adresa, datatvamfin With TRANSFORM(.data), platitortvamfin With .tva, stare With .mesaj, cod WITH ALLTRIM(STR(.cui)), ;
tvaincasare WITH .tvaincasare, splittva WITH .splittva, inactiv WITH .inactiv, ;
sursa WITH NVL(.sursa, 'ANAF'), data_sursa WITH .data_sursa
sursa WITH NVL(.sursa, 'ANAF'), data_sursa WITH .data_sursa, ;
data_inceput_scptva WITH .data_inceput_ScpTVA, data_sfarsit_scptva WITH .data_sfarsit_ScpTVA, data_anul_imp_scptva WITH .data_anul_imp_ScpTVA, ;
data_inceput_tvainc WITH .dataInceputTvaInc, data_sfarsit_tvainc WITH .dataSfarsitTvaInc, ;
data_inactivare WITH .dataInactivare, data_reactivare WITH .dataReactivare
ENDIF
ENDWITH
ENDSCAN && (m.lcCursorVerificareANAF)
@@ -2933,7 +3105,10 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
LOCAL lcAliasTmp
IF TYPE('crsVerificareParteneri.sursa') = 'U'
lcAliasTmp = 'crsVPTmp' + Sys(2015)
SELECT *, SPACE(20) AS sursa, {} AS data_sursa FROM crsVerificareParteneri INTO CURSOR (lcAliasTmp) READWRITE
SELECT *, SPACE(20) AS sursa, {} AS data_sursa, ;
{} AS data_inceput_scptva, {} AS data_sfarsit_scptva, {} AS data_anul_imp_scptva, ;
{} AS data_inceput_tvainc, {} AS data_sfarsit_tvainc, {} AS data_inactivare, {} AS data_reactivare ;
FROM crsVerificareParteneri INTO CURSOR (lcAliasTmp) READWRITE
USE IN (SELECT('crsVerificareParteneri'))
SELECT * FROM (lcAliasTmp) INTO CURSOR crsVerificareParteneri READWRITE
USE IN (SELECT(lcAliasTmp))
@@ -2958,6 +3133,22 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
lnRaspuns = VerificaCodFiscal(loDate, @lnOptiune, @loPartener)
ENDPROC
PROCEDURE meniu_dblclick_partener
*** Modificarea partenerului de pe inregistrarea curenta (id_part vine din lista trimisa la verificare)
Local lcAlias, lnIdPart, loRec
lcAlias = This._grdbase1.RecordSource
Select (m.lcAlias)
lnIdPart = Iif(Type(m.lcAlias + '.id_part') = 'N', Nvl(Evaluate(m.lcAlias + '.id_part'), 0), 0)
If Empty(m.lnIdPart)
AMESSAGEBOX('Partenerul nu poate fi identificat in nomenclator!', 0 + 48, _Screen.Caption)
Return
Endif
loRec = nom_parteneri_modifica(m.lnIdPart) && in onomenclatoare.prg
ENDPROC
PROCEDURE chkDuplicat.Click
Thisform.FiltreAtentionari()
ENDPROC
@@ -3002,7 +3193,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
ENDPROC
PROCEDURE _grdbase1.Column2.Text1.DblClick
Thisform.meniu_dblclick()
Thisform.meniu_dblclick_partener()
ENDPROC
@@ -3011,7 +3202,7 @@ DEFINE CLASS frm_verificare_parteneri AS _frmbase OF "_frm_base.vcx"
ENDPROC
PROCEDURE _grdbase1.Column3.Text1.DblClick
Thisform.meniu_dblclick()
Thisform.meniu_dblclick_partener()
ENDPROC
PROCEDURE _grdbase1.Column5.Text1.DblClick
@@ -3338,7 +3529,7 @@ DEFINE CLASS frm_verificare_parteneri_istoric AS _frmbase OF "_frm_base.vcx"
ADD OBJECT '_grdbase1.cDataAnulImpScpTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Anulare scutire TVA", ;
Caption = "Anulare inregistrare TVA", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
@@ -3370,7 +3561,7 @@ DEFINE CLASS frm_verificare_parteneri_istoric AS _frmbase OF "_frm_base.vcx"
ADD OBJECT '_grdbase1.cDataInceputScpTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Inceput scutire TVA", ;
Caption = "Inceput inregistrare TVA", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />
@@ -3461,7 +3652,7 @@ DEFINE CLASS frm_verificare_parteneri_istoric AS _frmbase OF "_frm_base.vcx"
ADD OBJECT '_grdbase1.cDataSfarsitScpTva.Header1' AS header WITH ;
Alignment = 2, ;
Caption = "Sfarsit scutire TVA", ;
Caption = "Sfarsit inregistrare TVA", ;
Name = "Header1", ;
WordWrap = .T.
*< END OBJECT: BaseClass="header" />