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

sync SVN

Browse Source
This commit is contained in:
Marius Mutu
2026-08-23 20:31:07 +03:00
parent a580dfd6e1
commit a833cf639f
7 changed files with 618 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

214
clase/ofirma.vc2
View File

@@ -1428,6 +1428,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
*< OBJECTDATA: ObjPath="Clb_cont_banca9" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_banca10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="Clb_cont_banca10" UniqueID="" Timestamp="" />
*< OBJECTDATA: ObjPath="But_verifica1" UniqueID="" Timestamp="" />
*<DefinedPropArrayMethod>
*m: alege_fj
@@ -1437,6 +1438,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
*m: alege_nivel
*m: alege_organizare
*m: alege_proprietate
*m: anaf_completeaza_firma
*m: sucursala
*p: id_judet
*p: jcategorie
@@ -1472,10 +1474,10 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
LB_TITLU_ALB_B121.Caption = "FIRMA"
LB_TITLU_ALB_B121.FontBold = .T.
LB_TITLU_ALB_B121.Name = "LB_TITLU_ALB_B121"
LB_TITLU_ALB_B121.TabIndex = 60
LB_TITLU_ALB_B121.TabIndex = 61
BUT_TERMIN1.Left = 803
BUT_TERMIN1.Name = "BUT_TERMIN1"
BUT_TERMIN1.TabIndex = 55
BUT_TERMIN1.TabIndex = 56
BUT_TERMIN1.Top = 1
Gridsort1.Left = 20
Gridsort1.Name = "Gridsort1"
@@ -1485,15 +1487,22 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
ADD OBJECT 'But_renunt1' AS but_renunt WITH ;
Left = 769, ;
Name = "But_renunt1", ;
TabIndex = 56, ;
TabIndex = 57, ;
Top = 1
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'But_verifica1' AS but_verifica WITH ;
Left = 329, ;
Name = "But_verifica1", ;
TabIndex = 3, ;
Top = 65
*< END OBJECT: ClassLib="cmd_butoane.vcx" BaseClass="commandbutton" />
ADD OBJECT 'Cb_tx_caen_revizie' AS cb_tx_simplu WITH ;
Height = 29, ;
Left = 201, ;
Name = "Cb_tx_caen_revizie", ;
TabIndex = 5, ;
TabIndex = 6, ;
Top = 120, ;
Width = 125, ;
_cbbase1.BoundTo = .T., ;
@@ -1515,7 +1524,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 12, ;
Name = "Cb_tx_categorie", ;
TabIndex = 8, ;
TabIndex = 9, ;
Top = 204, ;
Width = 314, ;
_cbbase1.BoundColumn = 2, ;
@@ -1537,7 +1546,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 12, ;
Name = "Cb_tx_mama", ;
TabIndex = 58, ;
TabIndex = 59, ;
Top = 774, ;
Width = 314, ;
_CBBASE1.ColumnCount = 2, ;
@@ -1562,7 +1571,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 356, ;
Name = "Cb_tx_operatie", ;
TabIndex = 54, ;
TabIndex = 55, ;
Top = 727, ;
Width = 314, ;
_cbbase1.BoundColumn = 2, ;
@@ -1587,7 +1596,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
ControlSource = "poRec.e_mama", ;
Left = 251, ;
Name = "chkMama", ;
TabIndex = 59, ;
TabIndex = 60, ;
Top = 807
*< END OBJECT: ClassLib="_baza.vcx" BaseClass="checkbox" />
@@ -1595,7 +1604,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 625, ;
Name = "Clb_banca1", ;
TabIndex = 23, ;
TabIndex = 24, ;
Top = 36, ;
Width = 217, ;
TEXT_SIMPLU1.ControlSource = "porec.banca1", ;
@@ -1613,7 +1622,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 625, ;
Name = "Clb_banca10", ;
TabIndex = 41, ;
TabIndex = 42, ;
Top = 288, ;
Width = 217, ;
Text_simplu1.ControlSource = "porec.banca10", ;
@@ -1628,7 +1637,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 625, ;
Name = "Clb_banca2", ;
TabIndex = 25, ;
TabIndex = 26, ;
Top = 64, ;
Width = 217, ;
TEXT_SIMPLU1.ControlSource = "porec.banca2", ;
@@ -1643,7 +1652,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 625, ;
Name = "Clb_banca3", ;
TabIndex = 27, ;
TabIndex = 28, ;
Top = 92, ;
Width = 217, ;
TEXT_SIMPLU1.ControlSource = "porec.banca3", ;
@@ -1658,7 +1667,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 625, ;
Name = "Clb_banca4", ;
TabIndex = 29, ;
TabIndex = 30, ;
Top = 120, ;
Width = 217, ;
Text_simplu1.ControlSource = "porec.banca4", ;
@@ -1675,7 +1684,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 625, ;
Name = "Clb_banca5", ;
TabIndex = 31, ;
TabIndex = 32, ;
Top = 148, ;
Width = 217, ;
Text_simplu1.ControlSource = "porec.banca5", ;
@@ -1690,7 +1699,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 625, ;
Name = "Clb_banca6", ;
TabIndex = 33, ;
TabIndex = 34, ;
Top = 176, ;
Width = 217, ;
Text_simplu1.ControlSource = "porec.banca6", ;
@@ -1705,7 +1714,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 625, ;
Name = "Clb_banca7", ;
TabIndex = 35, ;
TabIndex = 36, ;
Top = 204, ;
Width = 217, ;
Text_simplu1.ControlSource = "porec.banca7", ;
@@ -1722,7 +1731,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 625, ;
Name = "Clb_banca8", ;
TabIndex = 37, ;
TabIndex = 38, ;
Top = 232, ;
Width = 217, ;
Text_simplu1.ControlSource = "porec.banca8", ;
@@ -1737,7 +1746,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 625, ;
Name = "Clb_banca9", ;
TabIndex = 39, ;
TabIndex = 40, ;
Top = 260, ;
Width = 217, ;
Text_simplu1.ControlSource = "porec.banca9", ;
@@ -1752,7 +1761,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 12, ;
Name = "Clb_caen", ;
TabIndex = 4, ;
TabIndex = 5, ;
Top = 120, ;
Width = 190, ;
TEXT_SIMPLU1.ControlSource = "porec.caen", ;
@@ -1770,7 +1779,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
ADD OBJECT 'Clb_capsocsub' AS clb_tx_simplu WITH ;
Left = 12, ;
Name = "Clb_capsocsub", ;
TabIndex = 7, ;
TabIndex = 8, ;
Top = 176, ;
Width = 314, ;
TEXT_SIMPLU1.ControlSource = "porec.capital_soc_sub", ;
@@ -1783,7 +1792,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
ADD OBJECT 'Clb_capsocvar' AS clb_tx_simplu WITH ;
Left = 12, ;
Name = "Clb_capsocvar", ;
TabIndex = 6, ;
TabIndex = 7, ;
Top = 148, ;
Width = 314, ;
TEXT_SIMPLU1.ControlSource = "porec.capital_soc_var", ;
@@ -1797,7 +1806,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 365, ;
Name = "Clb_cod_firma", ;
TabIndex = 51, ;
TabIndex = 52, ;
Top = 618, ;
Width = 290, ;
TEXT_SIMPLU1.ControlSource = "porec.cod_firma", ;
@@ -1828,7 +1837,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 365, ;
Name = "Clb_codang", ;
TabIndex = 48, ;
TabIndex = 49, ;
Top = 534, ;
Width = 290, ;
TEXT_SIMPLU1.ControlSource = "porec.codang", ;
@@ -1841,7 +1850,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 368, ;
Name = "Clb_cont_banca1", ;
TabIndex = 22, ;
TabIndex = 23, ;
Top = 36, ;
Width = 258, ;
TEXT_SIMPLU1.ControlSource = "porec.cont_banca1", ;
@@ -1859,7 +1868,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 368, ;
Name = "Clb_cont_banca10", ;
TabIndex = 40, ;
TabIndex = 41, ;
Top = 288, ;
Width = 258, ;
Text_simplu1.ControlSource = "porec.cont_banca10", ;
@@ -1874,7 +1883,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 368, ;
Name = "Clb_cont_banca2", ;
TabIndex = 24, ;
TabIndex = 25, ;
Top = 64, ;
Width = 258, ;
TEXT_SIMPLU1.ControlSource = "porec.cont_banca2", ;
@@ -1889,7 +1898,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 368, ;
Name = "Clb_cont_banca3", ;
TabIndex = 26, ;
TabIndex = 27, ;
Top = 92, ;
Width = 258, ;
TEXT_SIMPLU1.ControlSource = "porec.cont_banca3", ;
@@ -1904,7 +1913,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 368, ;
Name = "Clb_cont_banca4", ;
TabIndex = 28, ;
TabIndex = 29, ;
Top = 120, ;
Width = 258, ;
Text_simplu1.ControlSource = "porec.cont_banca4", ;
@@ -1920,7 +1929,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 368, ;
Name = "Clb_cont_banca5", ;
TabIndex = 30, ;
TabIndex = 31, ;
Top = 148, ;
Width = 258, ;
Text_simplu1.ControlSource = "porec.cont_banca5", ;
@@ -1935,7 +1944,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 368, ;
Name = "Clb_cont_banca6", ;
TabIndex = 32, ;
TabIndex = 33, ;
Top = 176, ;
Width = 258, ;
Text_simplu1.ControlSource = "porec.cont_banca6", ;
@@ -1950,7 +1959,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 368, ;
Name = "Clb_cont_banca7", ;
TabIndex = 34, ;
TabIndex = 35, ;
Top = 204, ;
Width = 258, ;
Text_simplu1.ControlSource = "porec.cont_banca7", ;
@@ -1966,7 +1975,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 368, ;
Name = "Clb_cont_banca8", ;
TabIndex = 36, ;
TabIndex = 37, ;
Top = 232, ;
Width = 258, ;
Text_simplu1.ControlSource = "porec.cont_banca8", ;
@@ -1981,7 +1990,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 368, ;
Name = "Clb_cont_banca9", ;
TabIndex = 38, ;
TabIndex = 39, ;
Top = 260, ;
Width = 258, ;
Text_simplu1.ControlSource = "porec.cont_banca9", ;
@@ -1996,7 +2005,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 365, ;
Name = "Clb_declarant", ;
TabIndex = 52, ;
TabIndex = 53, ;
Top = 646, ;
Width = 290, ;
Text_simplu1.ControlSource = "porec.declarant", ;
@@ -2009,7 +2018,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 545, ;
Name = "Clb_email", ;
TabIndex = 45, ;
TabIndex = 46, ;
Top = 324, ;
Width = 284, ;
TEXT_SIMPLU1.ControlSource = "porec.email", ;
@@ -2028,7 +2037,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 365, ;
Name = "Clb_functie", ;
TabIndex = 53, ;
TabIndex = 54, ;
Top = 674, ;
Width = 290, ;
Text_simplu1.ControlSource = "porec.functie", ;
@@ -2041,7 +2050,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 365, ;
Name = "Clb_itm", ;
TabIndex = 50, ;
TabIndex = 51, ;
Top = 590, ;
Width = 290, ;
Text_simplu1.ControlSource = "porec.indicativ", ;
@@ -2056,7 +2065,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 365, ;
Name = "Clb_nume", ;
TabIndex = 46, ;
TabIndex = 47, ;
Top = 478, ;
Width = 290, ;
TEXT_SIMPLU1.ControlSource = "porec.nume", ;
@@ -2069,7 +2078,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 365, ;
Name = "Clb_oasp", ;
TabIndex = 49, ;
TabIndex = 50, ;
Top = 562, ;
Width = 290, ;
TEXT_SIMPLU1.ControlSource = "porec.oasp", ;
@@ -2083,7 +2092,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 365, ;
Name = "Clb_prenume", ;
TabIndex = 47, ;
TabIndex = 48, ;
Top = 506, ;
Width = 290, ;
TEXT_SIMPLU1.ControlSource = "porec.prenume", ;
@@ -2095,7 +2104,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
ADD OBJECT 'Clb_reg_comert' AS clb_tx_simplu WITH ;
Left = 12, ;
Name = "Clb_reg_comert", ;
TabIndex = 3, ;
TabIndex = 4, ;
Top = 92, ;
Width = 314, ;
TEXT_SIMPLU1.ControlSource = "porec.reg_comert", ;
@@ -2111,7 +2120,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 12, ;
Name = "Clb_schema", ;
TabIndex = 57, ;
TabIndex = 58, ;
Top = 746, ;
Width = 314, ;
Text_simplu1.ControlSource = "porec.schema", ;
@@ -2128,7 +2137,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 365, ;
Name = "Clb_telefon", ;
TabIndex = 42, ;
TabIndex = 43, ;
Top = 324, ;
Width = 181, ;
TEXT_SIMPLU1.ControlSource = "porec.telefon", ;
@@ -2144,7 +2153,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 365, ;
Name = "Clb_telefon2", ;
TabIndex = 43, ;
TabIndex = 44, ;
Top = 352, ;
Width = 181, ;
TEXT_SIMPLU1.ControlSource = "porec.telefon2", ;
@@ -2159,7 +2168,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 545, ;
Name = "Clb_telefon3", ;
TabIndex = 44, ;
TabIndex = 45, ;
Top = 352, ;
Width = 181, ;
TEXT_SIMPLU1.ControlSource = "porec.telefon3", ;
@@ -2191,7 +2200,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
ADD OBJECT 'Clb_tx_simplu10' AS clb_tx_simplu WITH ;
Left = 12, ;
Name = "Clb_tx_simplu10", ;
TabIndex = 20, ;
TabIndex = 21, ;
Top = 674, ;
Width = 314, ;
Text_simplu1.ControlSource = "porec.apart", ;
@@ -2206,7 +2215,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu11", ;
TabIndex = 21, ;
TabIndex = 22, ;
Top = 702, ;
Width = 314, ;
Text_simplu1.ControlSource = "porec.cod_postal", ;
@@ -2220,7 +2229,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
ADD OBJECT 'Clb_tx_simplu6' AS clb_tx_simplu WITH ;
Left = 12, ;
Name = "Clb_tx_simplu6", ;
TabIndex = 16, ;
TabIndex = 17, ;
Top = 562, ;
Width = 314, ;
Text_simplu1.ControlSource = "porec.strada", ;
@@ -2234,7 +2243,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
ADD OBJECT 'Clb_tx_simplu7' AS clb_tx_simplu WITH ;
Left = 12, ;
Name = "Clb_tx_simplu7", ;
TabIndex = 17, ;
TabIndex = 18, ;
Top = 590, ;
Width = 314, ;
Text_simplu1.ControlSource = "porec.numar", ;
@@ -2249,7 +2258,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 29, ;
Left = 12, ;
Name = "Clb_tx_simplu8", ;
TabIndex = 18, ;
TabIndex = 19, ;
Top = 618, ;
Width = 314, ;
Text_simplu1.ControlSource = "porec.bloc", ;
@@ -2264,7 +2273,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
ADD OBJECT 'Clb_tx_simplu9' AS clb_tx_simplu WITH ;
Left = 12, ;
Name = "Clb_tx_simplu9", ;
TabIndex = 19, ;
TabIndex = 20, ;
Top = 646, ;
Width = 314, ;
Text_simplu1.ControlSource = "porec.scara", ;
@@ -2281,7 +2290,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
cvar_afisata = porec.forma_juridica, ;
Left = 11, ;
Name = "Ct_clb_formaj", ;
TabIndex = 10, ;
TabIndex = 11, ;
Top = 259, ;
img_cautare.Name = "img_cautare", ;
clb_tx_cautare.Lb_simplu1.Caption = "Form<72> juridic<69>", ;
@@ -2298,7 +2307,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
cvar_afisata = porec.tip_societate, ;
Left = 11, ;
Name = "Ct_clb_nivel", ;
TabIndex = 12, ;
TabIndex = 13, ;
Top = 315, ;
img_cautare.Name = "img_cautare", ;
clb_tx_cautare.Lb_simplu1.Caption = "Nivel", ;
@@ -2315,7 +2324,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
cvar_afisata = porec.forma_organizare, ;
Left = 11, ;
Name = "Ct_clb_organizare", ;
TabIndex = 11, ;
TabIndex = 12, ;
Top = 287, ;
img_cautare.Name = "img_cautare", ;
clb_tx_cautare.Lb_simplu1.Caption = "Organizare", ;
@@ -2334,7 +2343,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
cvar_afisata = porec.forma_proprietate, ;
Left = 11, ;
Name = "Ct_clb_proprietate", ;
TabIndex = 9, ;
TabIndex = 10, ;
Top = 231, ;
img_cautare.Name = "img_cautare", ;
clb_tx_cautare.Lb_simplu1.Caption = "Proprietate", ;
@@ -2349,7 +2358,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
cdate = porec, ;
Left = 12, ;
Name = "Ct_localitate1", ;
TabIndex = 15, ;
TabIndex = 16, ;
Top = 478, ;
Width = 314, ;
CB_LOCALITATE_AF.img_atentie.Name = "img_atentie", ;
@@ -2377,7 +2386,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 45, ;
Left = 14, ;
Name = "Ed_adresa", ;
TabIndex = 14, ;
TabIndex = 15, ;
Top = 428, ;
Width = 814, ;
_edbase1.ControlSource = "porec.adresa", ;
@@ -2395,7 +2404,7 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
Height = 40, ;
Left = 14, ;
Name = "Ed_tx_simplu1", ;
TabIndex = 13, ;
TabIndex = 14, ;
Top = 389, ;
Width = 814, ;
_EDBASE1.ControlSource = "porec.antet", ;
@@ -2584,6 +2593,91 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
ENDPROC
PROCEDURE anaf_completeaza_firma
Local loPartener As "empty"
Local loPartenerX As "empty"
Local lcCodFiscal, lcCodFiscalFRO, lcCrsJud, lcCrsLoc, lcDenumire, lcMesajIntrebare, lcNepotrivit, lcSelect, lcTipVerificare, ldData, llValid, lnRaspuns, loNom
lcSelect = Select()
*** 1. Preluare si validare cod fiscal
lcCodFiscal = Alltrim(Nvl(poRec.cod_fiscal, ""))
If Empty(m.lcCodFiscal)
AMESSAGEBOX("Completati codul fiscal", 0+48, _Screen.Caption)
Return .F.
Endif
*** Acceptam doar CIF romanesc (ANAF nu intoarce date pentru alte tari)
lcCodFiscalFRO = Strtran(Strtran(Strtran(Upper(m.lcCodFiscal), "RO", ""), " ", ""), "R", "")
If !Isdigit(m.lcCodFiscalFRO) Or Len(m.lcCodFiscalFRO) > 10 Or Empty(m.lcCodFiscalFRO)
AMESSAGEBOX("Codul fiscal " + m.lcCodFiscal + " nu pare a fi un CIF romanesc valid.", 0+48, _Screen.Caption)
Return .F.
Endif
lcDenumire = Alltrim(poRec.firma)
ldData = DATE()
lcTipVerificare = 'ANAF_SERVICIU_WEB'
loPartenerX = Createobject("empty")
loPartener = Createobject("empty")
AddProperty(loPartenerX, "cod_fiscal", m.lcCodFiscal)
AddProperty(loPartenerX, "denumire", m.lcDenumire)
AddProperty(loPartenerX, "dataact", m.ldData)
llValid = verifica_partener(m.lcTipVerificare, loPartenerX, @loPartener)
If !m.llValid
amessagebox('Codul ' + m.lcCodFiscal + ' este invalid!', 0 + 48, _Screen.Caption)
ELSE
If Pemstatus(loPartener, "platitortvamfin", 5)
lcMesajIntrebare = 'Doriti sa se completeze datele in formular?'
lnRaspuns = verifica_partener_show_info(loPartener, m.lcCodFiscal, m.lcDenumire, m.lcMesajIntrebare)
IF lnRaspuns = 6
poRec.firma = Alltrim(Nvl(loPartener.firma, ""))
poRec.antet = Alltrim(Nvl(loPartener.firma, ""))
poRec.reg_comert = Alltrim(Nvl(loPartener.regcom, ""))
poRec.adresa = Alltrim(Nvl(loPartener.adresa, ""))
*** Judetul si localitatea se potrivesc peste nomenclator: denumirea de la ANAF poate fi
*** scrisa altfel decat in syn_vnom_*, iar formularul are nevoie de id-uri, nu de text.
lcNepotrivit = ""
loNom = Createobject("AnafNomenclator")
lcCrsJud = Iif(!Empty(Thisform.Ct_localitate1.cCrsJudete), Thisform.Ct_localitate1.cCrsJudete, "crsJudete")
lcCrsLoc = Iif(!Empty(Thisform.Ct_localitate1.cCrsLocalitati), Thisform.Ct_localitate1.cCrsLocalitati, "crsLocalitati")
If Used(m.lcCrsJud) And loNom.pozitioneaza_judet(m.lcCrsJud, Nvl(loPartener.judet, ""))
poRec.judet = Alltrim(Evaluate(m.lcCrsJud + ".judet"))
*** ia id_judet din inregistrarea curenta si reface cursorul de localitati pe judetul ales
Thisform.Ct_localitate1.modifica_judet()
If Used(m.lcCrsLoc) And loNom.pozitioneaza_localitate(m.lcCrsLoc, Nvl(loPartener.localitate, ""))
poRec.localitate = Alltrim(Evaluate(m.lcCrsLoc + ".localitate"))
Thisform.Ct_localitate1.modifica_localitate(Evaluate(m.lcCrsLoc + ".id_loc"))
Else
lcNepotrivit = Alltrim(Nvl(loPartener.localitate, ""))
Endif
Else
lcNepotrivit = Alltrim(Nvl(loPartener.judet, "")) + ", " + Alltrim(Nvl(loPartener.localitate, ""))
Endif
poRec.strada = Alltrim(Nvl(loPartener.strada, ""))
poRec.numar = Alltrim(Nvl(loPartener.nr, ""))
poRec.Bloc = Alltrim(Nvl(loPartener.Bloc, ""))
poRec.scara = Alltrim(Nvl(loPartener.scara, ""))
*** porec.apart e numeric in nom_firme; ANAF intoarce string
poRec.apart = Int(Val(Nvl(loPartener.apart, "0")))
Thisform.Refresh()
ENDIF
ENDIF
Endif
If !Empty(m.lcNepotrivit)
AMESSAGEBOX("Nu am gasit in nomenclator: " + m.lcNepotrivit + Chr(13) + ;
"Alegeti manual judetul si localitatea.", 0+48, _Screen.Caption)
Endif
Select (m.lcSelect)
ENDPROC
PROCEDURE inainte_de_do_termin
Local PLRETURN
@@ -2787,6 +2881,10 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
PROCEDURE sucursala
ENDPROC
PROCEDURE But_verifica1.Click
Thisform.anaf_completeaza_firma()
ENDPROC
PROCEDURE Cb_tx_categorie._cbbase1.InteractiveChange
porec.persoana_juridica=this.value
thisform.jcategorie=this.Value