*!* 15.03.2010 *!* marius.mutu *!* VerificareCod.Vies - iau direct din pagina web in loc de serviciu web (nu mai merge) *!* 07.04.2011 *!* marius.mutu *!* adaugare verificarecod.InfoMfin2Array, ParseTable *!* modificat Verificarecod.MFIN - alta aranjare in pagina a tabelului cu date de la mfinante.ro *!* s-a modificat adresa de la mfinante.ro *!* 12.04.2011 *!* marius.mutu *!* verificarecod.validare_cif - intorc .T. pentru CIF-urile <> RO (nu am algoritm) *!* tratare VIES alte tari din UE in afara de RO *!* 20.01.2012 *!* marius.mutu *!* VERIFICARE_CIF, MFIN - Taxa pe valoarea adaugata (data luarii in evidenta) + datatvamfin, platitortvamfin *!* 27.01.2012 *!* marius.mutu *!* VerificareCod.Init - nu mai este nevoie de tlMFINROMFAST, tlVIESROMFAST ca parametri - se citesc din settings.ini *!* 28.11.2012 *!* marius.mutu *!* verificare_cif, mfin - Se verifica si starea pentru un cod fiscal de pe mfinante.ro *!* s-au adaugat proprietati pentru captcha, si o singura sesiune xmlhttp *!* 04.12.2014 *!* marius.mutu *!* MFIN - se foloseste GET in loc de POST - restrictii puse de MF *!* 27.02.2017 *!* marius.mutu *!* ANAF_SincronWebService_PlatitorTva *!* se incearca prima oara cu inHTTP.winHTTPrequest.5.1 *!* 10.01.2018 *!* marius.mutu *!* VerificareANAF - completare stare TVA Incasare, Split TVA, Inactiv *!* 20.07.2020 *!* marius.mutu *!* ANAF_SincronWebService_PlatitorTva api v4 *!* 06.01.2021 *!* marius.mutu *!* ANAF_SincronWebService_PlatitorTva api v5 +nrRegCom *!* 24.04.2023 *!* marius.mutu *!* ANAF_SincronWebService_PlatitorTva api v8 *!* 19.05.2025 *!* marius.mutu *!* ANAF_SincronWebService_PlatitorTva api v9 *!* 25.07.2026 *!* marius.mutu *!* NormalizeazaCUI + ANAF_VerificaCuiSingle (verificare la alegerea partenerului, la data documentului) *!* 27.07.2026 *!* marius.mutu *!* ANAF_VerificaCuiSingle: raspunsul ANAF se citeste si cand serviciul intoarce cod 404, iar codul e *!* declarat inexistent doar cand raspunsul chiar contine codul cautat; apelurile web (single si lot) *!* folosesc timeout-uri reale, iar formatul datei se restaureaza si daca interpretarea raspunsului esueaza; *!* sonda asincrona de disponibilitate (ANAF_SondaPorneste/AuSositRaspunsul/AReusit/Opreste) verifica in *!* fundal, la nevoie, daca serviciul ANAF a revenit, fara sa blocheze interfata *!* 27.07.2026 *!* marius.mutu *!* ANAF_VerdictDinCursor expune si perioada de inregistrare in scopuri de TVA (inceput, sfarsit, *!* anulare din oficiu) si mesajul ANAF integral (mesaj_ScpTVA), citite din cursorul deja parsat de *!* ParseJsonANAFv8; parsarea esuata a datelor de perioada se logheaza *!* http://ec.europa.eu/taxation_customs/vies/viesquer.do *!* http://localhost/contafinupdate/verificarecod.aspx/verificarecod/verificare/CIF/1879855/MFIN *!* http://localhost/contafinupdate/verificarecod.aspx/verificarecod/verificare/CNP/1810228134187 *!* http://localhost:1512/WebRoot/codfiscaldebug.aspx/verificarecod/verificare/CIF/1879855/1 *!* http://localhost/update/codfiscal.aspx/verificarecod/validare/CIF/1879855 *!* http://localhost/update/codfiscal.aspx/verificarecod/validare/CNP/1810228134187 #Define TIP_CNP 1 #Define TIP_CIF 2 #Define TIP_IBAN 3 #Define TIP_CC 4 #Define TIP_ISBN 5 #Define TIP_NIF 6 #Define CRLF Chr(13) + Chr(10) #Define CR Chr(13) Clear Local lcDir, lcPath, llVIESURL, lcRomfastURL, loVerificare Local llMFINURL, lcMfinanteURL, lcMfinanteParams, I Local llValid, lcRegCom, llPlatitorTVA lcDir = Addbs(Justpath(Sys(16, 0))) lcDir = Left(lcDir, Rat('\', lcDir, 2) ) *!* MESSAGEBOX(lcDir) Set Default To (lcDir) lcPath = lcDir + 'controllers;' + ; lcDir + 'programe;' + ; lcDir + 'utility;' Set Path To (lcPath) Set Procedure To regex.prg Additive *!* strPattern = "[^A-Za-z 0-9 \.,\?'""!@#\$%\^&\*\(\)-_=\+;:<>\/\\\|\}\{\[\]`~]*" Create Cursor cTeste (test c(200), rezultat L, mesaj c(250)) If .T. *!* TREBUIE OPTIUNI - VARIABILE PUBLICE gcVIESDotNet, gcVIESURL lcRomfastURL = "http://localhost/update/verificarecod.aspx/verificarecod/verificare/CIF/|CIF|/|TIP|" *!* lcMfinanteURL = "http://www.mfinante.ro/contribuabili/link.jsp?body=/cod.do" *!* lcMfinanteURL = "http://apt1.mfinante.ro/site/contribuabili/link.jsp?body=/cod.do" *!* lcMfinanteParams = "cod=|CIF|" lcMfinanteURL = "http://www.mfinante.ro/infocodfiscal.html" lcMfinanteParams = "cod=|CIF|&captcha=|CAPTCHA|&B1=VIZUALIZARE" For I = 1 To 2 llVIESURL = I = 1 llMFINURL = I = 1 ? ?'------------------------------------------' If I = 1 ?'* VERIFICARE CIF PE ROMFAST' Else ?'* VERIFICARE PE MFINANTE SI CU DLL DIRECT PE VIES' Endif ? ?'* ROMFAST SRL - VALIDARE', I llValid = .T. lcRegCom = '' llPlatitorTVA = .F. test_verificare_cif('1879855', '', llVIESURL, llMFINURL, lcRomfastURL, lcMfinanteURL, lcMfinanteParams, llValid, lcRegCom, llPlatitorTVA) ? ?'* ROMFAST SRL - VIES', I llValid = .T. lcRegCom = '' llPlatitorTVA = .T. test_verificare_cif('1879855', 'VIES', llVIESURL, llMFINURL, lcRomfastURL, lcMfinanteURL, lcMfinanteParams, llValid, lcRegCom, llPlatitorTVA) ? ?'* ROMFAST SRL - MFIN', I llValid = .T. lcRegCom = 'J13/626/1991' llPlatitorTVA = .F. test_verificare_cif('1879855', 'MFIN', llVIESURL, llMFINURL, lcRomfastURL, lcMfinanteURL, lcMfinanteParams, llValid, lcRegCom, llPlatitorTVA) ? ?'* ROMFAST SRL - MFINVIES', I llValid = .T. lcRegCom = 'J13/626/1991' llPlatitorTVA = .T. test_verificare_cif('1879855', 'MFINVIES', llVIESURL, llMFINURL, lcRomfastURL, lcMfinanteURL, lcMfinanteParams, llValid, lcRegCom, llPlatitorTVA) ? ?'* COD INVALID - VALIDARE', I llValid = .F. lcRegCom = '' llPlatitorTVA = .F. test_verificare_cif('187985X', 'MFINVIES', llVIESURL, llMFINURL, lcRomfastURL, lcMfinanteURL, lcMfinanteParams, llValid, lcRegCom, llPlatitorTVA) Endfor && i Endif ? ?'------------------------------------------' ?'* VALIDARE CIF' loVerificare = Createobject("verificarecod") test_cif('7320118', .T.) test_cif('RO7320118', .T.) test_cif('RO 7320118', .T.) test_cif('R 7320118', .T.) test_cif('R7320118', .T.) test_cif('7320117', .F.) test_cif('RO7320117', .F.) test_cif('', .F.) test_cif('3654392', .F.) test_cif('14699589', .T.) test_cif('11071295', .T.) ? ?'------------------------------------------' ?'VALIDARE CNP' ? test_cnp('1810228134187', .T.) test_cnp('181022813418', .F.) Select cTeste Browse *!* TESTEAZA FUNCTIA DE VALIDARE CIF Function test_cif Lparameters tcCIF, tuValoareCorect Local luRezultat, lcMesaj Local luReturn luReturn = .F. luRezultat = VALIDARE_CIF(tcCIF) lcMesaj = 'VALIDARE_CIF(' + tcCIF + ') ' + Transform(luRezultat) + ' (' + Transform(tuValoareCorect) + ')' If luRezultat <> tuValoareCorect lcMesaj = 'ERR ' + m.lcMesaj luReturn = .F. Else lcMesaj = 'OK ' + m.lcMesaj luReturn = .T. Endif ?m.lcMesaj If Used('cTeste') Insert Into cTeste (test, rezultat, mesaj) Values('VALIDARE CIF', luReturn, lcMesaj) Endif Return luReturn Endfunc && TEST_CIF *!* TESTEAZA FUNCTIA DE VALIDARE CNP Function test_cnp Lparameters tcCNP, tuValoareCorect Local luRezultat, lcMesaj Local luReturn luReturn = .F. luRezultat = VALIDARE_CNP(tcCNP) lcMesaj = 'VALIDARE_CNP(' + tcCNP + ') ' + Transform(luRezultat) + ' (' + Transform(tuValoareCorect) + ')' If luRezultat <> tuValoareCorect lcMesaj = 'ERR ' + m.lcMesaj luReturn = .F. Else lcMesaj = 'OK ' + m.lcMesaj luReturn = .T. Endif ?m.lcMesaj If Used('cTeste') Insert Into cTeste (test, rezultat, mesaj) Values('VALIDARE CNP', luReturn, lcMesaj) Endif Return luReturn Endfunc && TEST_CNP *!* TESTEAZA FUNCTIA DE VERIFICARE CIF Function test_verificare_cif Lparameters tcCIF, tcTipInterogare, tlVIESURL, tlMFINURL, tcRomfastURL, tcMfinanteURL, tcMfinanteParams, tlValid, tcRegCom, tlPlatitorTVA Local lcMesaj, llSucces, lcEroare Local loVerificare, llValid, lcRegCom, llPlatitorTVA Local lcXML, loEx As Exception Local luReturn luReturn = .F. llSucces = .F. Try loVerificare = Createobject("verificarecod", tlVIESURL, tlMFINURL, tcRomfastURL, tcMfinanteURL, tcMfinanteParams) lcXML = loVerificare.verificare('CIF', tcCIF, tcTipInterogare) llValid = loVerificare.oEntitate.Valid lcRegCom = loVerificare.oEntitate.regcom llPlatitorTVA = loVerificare.oEntitate.PlatitorTVA llSucces = .T. Catch To loEx lcEroare = loEx.Message Endtry If llSucces lcMesaj = 'VERIFICARE_CIF ' + tcCIF + ' VALID: ' + Transform(llValid) + '(' + Transform(tlValid) + ')' + ; ' REGCOM: ' + Alltrim(Transform(lcRegCom)) + '(' + Transform(tcRegCom) + ')' + ; ' PLATITOR TVA: ' + Transform(llPlatitorTVA) + '(' + Transform(tlPlatitorTVA) + ')' Else lcMesaj = 'VERIFICARE_CIF ' + tcCIF + ' ' + lcEroare Endif If !llSucces Or (tlValid <> llValid Or tcRegCom <> lcRegCom Or tlPlatitorTVA <> tlPlatitorTVA) lcMesaj = 'ERR ' + m.lcMesaj luReturn = .F. Else lcMesaj = 'OK ' + m.lcMesaj luReturn = .T. Endif ?m.lcMesaj If Used('cTeste') Insert Into cTeste (test, rezultat, mesaj) Values('VERIFICARE CIF', luReturn, lcMesaj) Endif Return luReturn Endfunc && TEST_VERIFICARE_CIF *============================= *!* verifica lungimea <= 10 caractere *============================= *!* VALIDARE CIF *!* tcCIF - codul fiscal *!* toVerificare - optional in cazul in care am multe verificari sa nu se se instantiatieze obiectul la fiecare verificare Function VALIDARE_CIF Lparameters tcCIF, toVerificare Local loVerificare, lcCod, llReturn If Type('tcCIF') <> 'C' lcCod = '' Else lcCod = tcCIF Endif If Type('toVerificare') = 'O' And Pemstatus(toVerificare, 'VALIDARE', 5) loVerificare = toVerificare Else loVerificare = Createobject("verificarecod") Endif llReturn = loVerificare.validare('CIF', lcCod) Return llReturn Endfunc && VALIDARE_CIF *============================= *!* VERIFICARE_PLATITORTVA *!* tcCIF - codul fiscal *!* toVerificare - optional in cazul in care am multe verificari sa nu se se instantiatieze obiectul la fiecare verificare Function VERIFICARE_PLATITORTVA Lparameters tcCIF, toVerificare Local loVerificare, lcCod, llReturn Local llReturn If Type('tcCIF') <> 'C' lcCod = '' Else lcCod = tcCIF Endif If Type('toVerificare') = 'O' And Pemstatus(toVerificare, 'VALIDARE', 5) loVerificare = toVerificare Else loVerificare = Createobject("verificarecod") Endif llReturn = loVerificare.verificare('CIF', lcCod) Return llReturn Endfunc && VALIDARE_CIF *============================= *!* VALIDARE CNP *!* tcCIF - CNP *!* toVerificare - optional in cazul in care am multe verificari sa nu se se instantiatieze obiectul la fiecare verificare Function VALIDARE_CNP Lparameters tcCNP, toVerificare Local loVerificare, lcCod, llReturn If Type('tcCNP') <> 'C' lcCod = '' Else lcCod = tcCNP Endif If Type('toVerificare') = 'O' And Pemstatus(toVerificare, 'VALIDARE', 5) loVerificare = toVerificare Else loVerificare = Createobject("verificarecod") Endif llReturn = loVerificare.validare('CNP', lcCod) Return llReturn Endfunc && VALIDARE_CNP *==================================== Define Class VerificareCod As Custom lVIESURL = .F. && .T. ROMFAST URL, .F. DOT NET DIRECT VIES lMFINURL = .F. && .T. ROMFAST URL, .F. www.mfinante.ro cRomfastURL = "http://83.103.197.79:3002/contafinupdate/verificarecod.aspx/verificarecod/verificare/CIF/|CIF|/|TIP|" && url catre Romfast pentru verificare MFIN, VIES *!* cMfinanteURL = "http://www.mfinante.ro/contribuabili/link.jsp?body=/cod.do" && url catre www.mfinante.ro *!* cMfinanteParams = "cod=|CIF|" cMfinanteURL = "" && "http://voes.mfinante.ro/codfiscal/codfiscal.html" && url catre www.mfinante.ro cMfinanteParams = "" && [cod=|CIF|&cap=null&B1=VIZUALIZARE] cMFINURL = '' && url catre Romfast pentru verificare informatii cod fiscal oEntitate = Null cMfinCaptcha = "" && codul CAPTCHA pentru verificarea codurilor fiscale pe mfinante oHTTP = Null *** se pare ca mfinante.ro are un bug - nu mai cere kaptcha la interogare directa si nu da mesajul "serverul este ocupat" la interogare rapida daca sunt sesiuni diferite lOneSession = .T. && oHTTP se retine pe instanta sau se creeaza oHTTP la fiecare interogare lCaptcha = .T. && se apeleaza Captcha de la mfinante, valabil doar pentru apelarea din program, nu de pe serverul romfast cMfinAnchorString = "AGENTUL ECONOMIC CU CODUL UNIC" && textul dupa care apare tabelul cu informatii MFIN cMfinNuExistaString = "NU EXISTA AGENT ECONOMIC CU ACEST COD FISCAL" lXMLHTTP = .F. && daca se foloseste xmlhttp pentru interogarea MFINANTE sau InternetExplorer.Application din luna 02/2017 nu mai merge apelul prin xmlhttp dDataAct = DATE() *================================= Procedure Init Lparameters tlVIESURL, tlMFINURL, tcRomfastURL, tcMfinanteURL, tcMfinanteParams This.cMfinanteURL = "http://www.mfinante.gov.ro/infocodfiscal.html" && url catre www.mfinante.ro This.cMfinanteParams = "cod=|CIF|&captcha=|CAPTCHA|&B1=VIZUALIZARE" *!* 27.01.2012 If Pcount() >= 2 And Type('goApi') = 'O' And Type('gcSettingsFile') = 'C' And !Empty(m.gcSettingsFile) lcMFINROMFAST = goAPI.GetProfileString(m.gcSettingsFile, [validare], "mfinromfast") lcVIESROMFAST = goAPI.GetProfileString(m.gcSettingsFile, [validare], "viesromfast") lcMFINROMFAST = Nvl(m.lcMFINROMFAST, '') lcVIESROMFAST = Nvl(m.lcVIESROMFAST, '') If !Inlist(m.lcMFINROMFAST, '.T.', '.F.') tlMFINURL = .T. Else tlMFINURL = &lcMFINROMFAST Endif If !Inlist(m.lcVIESROMFAST, '.T.', '.F.') tlVIESURL = .T. Else tlVIESURL = &lcVIESROMFAST Endif Endif && PCOUNT *!* 27.01.2012 ^ If Type('goApi') = 'O' And Type('gcSettingsFile') = 'C' And !Empty(m.gcSettingsFile) lcXMLHTTP = goAPI.GetProfileString(m.gcSettingsFile, [validare], "xmlhttp") lcXMLHTTP = Nvl(m.lcXMLHTTP, '') If !Inlist(m.lcXMLHTTP, '.T.', '.F.') llXMLHTTP = .F. Else llXMLHTTP = &lcXMLHTTP Endif This.lXMLHTTP = m.llXMLHTTP Endif This.lVIESURL = Iif(Type('tlVIESURL') = 'L', tlVIESURL, .F.) && default .F. pentru dll This.lMFINURL = Iif(Type('tlMFINURL') = 'L', tlMFINURL, .F.) && default .F. pentru www.mfinante.ro If Type('tcRomfastUrl') = 'C' And !Empty(tcRomfastURL) This.cRomfastURL = tcRomfastURL Endif If Type('tcMfinanteUrl') = 'C' And !Empty(tcMfinanteURL) This.cMfinanteURL = tcMfinanteURL Endif If Type('tcMfinanteParams') = 'C' And !Empty(tcMfinanteParams) This.cMfinanteParams = tcMfinanteParams Endif *!* 13.01.2012 If _vfp.StartMode = 0 This.cRomfastURL = Strtran(This.cRomfastURL, '83.103.197.79:3002', '10.0.20.122:81') Endif *!* 13.01.2012 ^ This.cMfinCaptcha = "" Endproc && Init Function Destroy Local loEx As Exception If Type('This.oHTTP') = 'O' And Pemstatus(This.oHTTP, 'visible', 5) Try This.oHTTP.Visible = .F. This.oHTTP.Quit This.oHTTP = Null Catch To loEx * Endtry Endif Endfunc && Destroy *================================= Function verificare Lparameters tcTip, tcCod, tcExtraParam1, tcExtraParam2, tcExtraParam3, tcExtraParam4, tcExtraParam5 Local lcTip, lcXML lcXML = '' lcTip = Iif(Type('tcTip') = 'C' And !Empty(tcTip), Upper(tcTip), 'CIF') This.Log('VERIFICARE ' + lcTip + ' ' + tcCod + ' ' + Transform(tcExtraParam1) + ' ' + Transform(tcExtraParam2) + ' ' + Transform(tcExtraParam3) + ' ' + Transform(tcExtraParam4) + ' ' + Transform(tcExtraParam5) ) Do Case Case lcTip = 'CNP' lcXML = This.VERIFICARE_CNP(tcCod) Case lcTip = 'CIF' lcXML = This.VERIFICARE_CIF(tcCod, tcExtraParam1, tcExtraParam2, tcExtraParam3, tcExtraParam4, tcExtraParam5) Otherwise lcXML = '' Endcase Return lcXML Endfunc && VERIFICARE *================================= Function XMLCursorToOBj Lparameters tcXML Local lcCursor, lcSelect, loReturn Local lcEroare, loEx loReturn = Null lcCursor = Sys(2015) lcSelect = Select() Try Xmltocursor(tcXML, lcCursor) Select (lcCursor) Scatter Name loReturn Catch To loEx lcEroare = 'XMLCursorToOBj ' + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry Use In (Select(lcSelect)) Select (lcSelect) Return loReturn Endfunc && XMLCursorToOBj *================================= Function ISCIF Lparameters tcCod Local lcCod, llIsCIF llIsCIF = .F. lcCod = Iif(Type('tcCod') <> 'C', '', Alltrim(tcCod)) Do Case Case !Isdigit(lcCod) && Daca incepe cu o litera il consider COD FISCAL && ROXXX llIsCIF = .T. Case Len(lcCod) <= 10 llIsCIF = .T. Endcase Return llIsCIF Endfunc && IsCIF *================================= * VERIFICARE_CNP('1810228134187') Procedure VERIFICARE_CNP Lparameters tcCNP Local lcSelect, lcCNP, llSucces, loEx As Exception, lcEroare, llValid, lcXML lcXML = '' lcSelect = Select() lcCNP = Iif(Empty(tcCNP) Or Type('tcCNP') <> 'C', '', Alltrim(tcCNP)) lcEroare = '' Create Cursor cVerificareCod (Valid L, eroare c(250), cod c(100) Null) Cursortoxml("cVerificareCod", "lcXML", 1, 0, 0, "1") Select cVerificareCod Scatter Name This.oEntitate llSucces = .F. llValid = .F. Try llValid = This.validare('CNP', lcCNP) llSucces = .T. Catch To loEx lcEroare = 'VERIFICARE_CNP VALIDARE ' + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry Try Insert Into cVerificareCod(Valid, eroare, cod) ; Values (llValid, lcEroare, lcCNP) Cursortoxml("cVerificareCod", "lcXML", 1, 0, 0, "1") Catch To loEx lcEroare = 'VERIFICARE_CNP XML ' + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry Select cVerificareCod Go Top Scatter Name This.oEntitate Use In (Select('cVerificareCod')) Select (lcSelect) Return m.lcXML Endproc && VERIFICARE_CNP *================================= * VERIFICARE_CIF('1879855', ['VIES' | 'MFIN' | 'MFINVIES']) * valideaza CIF + aduna informatii de pe www.mfinante.ro + platitor tva de pe vies Procedure VERIFICARE_CIF Lparameters tcVerificareCod, tcTipInterogare, tdData, tcExtraParam3, tcExtraParam4, tcExtraParam5 Local lcVerificareCod, lcFirma, lcAdresa, lcJudet, lcRegCom, lcCodpostal, lcTelefon, lcFax, lcSelect, lcXML, llVies, llPlatitorTVA, llValid, lcCodTara, llRO, lcStare Local loEx As Exception Local lcMfinanteURL, lcMfinanteParams, lcRomfastURL, llMFINURL, loMFIN, loVIES, lcProcedura, llInterogareAnaf Local lStare, lcApart, lcBloc, lcDataTVAMFIN, lcEtaj, lcLocalitate, lcNr, lcScara, lcStrada Local llPlatitorTVAMFIN, lnSucces, llTVAIncasare, llSplitTVA, llInactiv, ldData Local lcTipInterogare, llInterogareVies, llInterogareMfin If Empty(tcTipInterogare) Or Type('tcTipInterogare') <> 'C' lcTipInterogare = '' Else lcTipInterogare = Upper(tcTipInterogare) ENDIF ldData = IIF(EMPTY(m.tdData) or TYPE('tdData') <> 'D', {}, m.tdData) llInterogareVies = 'VIES' $ lcTipInterogare llInterogareMfin = 'MFIN' $ lcTipInterogare llInterogareAnaf = 'ANAF' $ lcTipInterogare lcMfinanteURL = This.cMfinanteURL lcMfinanteParams = This.cMfinanteParams lcRomfastURL = This.cRomfastURL llMFINURL = This.lMFINURL *!* This.Log(Alltrim(Transform(tcVerificareCod))) Local llSucces, lcEroare lcXML = '' lcSelect = Select() lcVerificareCod = Iif(Empty(tcVerificareCod) Or Type('tcVerificareCod') <> 'C', '', UPPER(Alltrim(tcVerificareCod))) *!* 12.04.2011 lcCodTara = This.GetCodTara(m.lcVerificareCod) llRO = lcCodTara = 'RO' lcVerificareCod = Strtran(lcVerificareCod, m.lcCodTara, '') lcVerificareCod = Strtran(Strtran(Strtran(lcVerificareCod, ' ', ''), 'RO', ''), 'R', '') *!* 12.04.2011 ^ lcFirma = '' lcAdresa = '' lcJudet = '' lcRegCom = '' lcCodpostal = '' lcTelefon = '' lcFax = '' llPlatitorTVA = .F. llVies = .F. lcEroare = '' lcDataTVAMFIN = "" llPlatitorTVAMFIN = .F. lcStare = '' lcStrada = '' lcNr = '' lcLocalitate = '' lcBloc = '' lcScara = '' lcEtaj = '' lcApart = '' llTVAIncasare = .F. llSplitTVA = .F. llInactiv = .F. Create Cursor cVerificareCod (Valid L, eroare c(250), cod V(100) Null, firma V(100), adresa V(250), judet V(100), ; regcom V(30), codpostal V(20), telefon V(30), fax V(30), datatvamfin V(30), platitortvamfin L, VIES L, PlatitorTVA L, ; stare V(100), strada V(100), nr V(25), localitate V(100), Bloc V(30), Scara V(10), Etaj V(10), Apart V(20), ; tvaincasare L, splittva L, inactiv L) Cursortoxml("cVerificareCod", "lcXML", 1, 0, 0, "1") Select cVerificareCod Scatter Name This.oEntitate llSucces = .F. llValid = .F. Try llValid = This.validare('CIF', m.tcVerificareCod) llSucces = .T. Catch To loEx lcEroare = 'VERIFICARE_CIF VALIDARE ' + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry If m.llValid And m.llRO And m.llInterogareAnaf loMFIN = This.ANAF(m.lcVerificareCod, m.ldData) lcFirma = loMFIN.firma lcAdresa = loMFIN.adresa lcJudet = loMFIN.judet lcRegCom = loMFIN.regcom lcCodpostal = loMFIN.codpostal lcTelefon = loMFIN.telefon lcFax = loMFIN.fax lcEroare = loMFIN.eroare lcDataTVAMFIN = TRANSFORM(loMFIN.datatvamfin) llPlatitorTVAMFIN = loMFIN.platitortvamfin lcStare = loMFIN.stare lcStrada = loMFIN.strada lcNr = loMFIN.nr lcLocalitate = loMFIN.localitate lcBloc = EVALUATE('loMFIN.Bloc') lcScara = loMFIN.scara lcEtaj = loMFIN.etaj lcApart = loMFIN.apart llTvaIncasare = loMFIN.tvaIncasare llSplitTVA = loMFIN.SplitTVA llInactiv = loMFIN.Inactiv Endif && llValid AND llInterogareMfin If m.llValid And m.llRO And m.llInterogareMfin loMFIN = This.MFIN(lcVerificareCod) lcFirma = loMFIN.firma lcAdresa = loMFIN.adresa lcJudet = loMFIN.judet lcRegCom = loMFIN.regcom lcCodpostal = loMFIN.codpostal lcTelefon = loMFIN.telefon lcFax = loMFIN.fax lcEroare = loMFIN.eroare lcDataTVAMFIN = loMFIN.datatvamfin llPlatitorTVAMFIN = loMFIN.platitortvamfin lcStare = loMFIN.stare lcStrada = loMFIN.strada lcNr = loMFIN.nr lcLocalitate = loMFIN.localitate lcBloc = EVALUATE('loMFIN.Bloc') lcScara = loMFIN.scara lcEtaj = loMFIN.etaj lcApart = loMFIN.apart llTvaIncasare = loMFIN.tvaIncasare llSplitTVA = loMFIN.SplitTVA llInactiv = loMFIN.Inactiv Endif && llValid AND llInterogareMfin *!* VERIFICARE VIES pentru platitori TVA If llValid And llInterogareVies loVIES = This.VIES(m.lcVerificareCod, m.lcCodTara) llPlatitorTVA = loVIES.PlatitorTVA If !llInterogareMfin Or Empty(lcFirma) lcFirma = loVIES.firma lcAdresa = loVIES.adresa Endif llVies = loVIES.VIES lcEroare = lcEroare + ' ' + loVIES.eroare Endif && llValid AND llInterogareVies * lcAdresa = StripNonAscii(lcAdresa, ' ') && regex.prg lcFirma = This.RemoveCharacters(m.lcFirma) && Strtran(Strtran(Upper(Alltrim(Nvl(m.lcFirma, ''))), Chr(170), 'S'), Chr(222), 'T') lcAdresa = This.RemoveCharacters(m.lcAdresa) && Strtran(Strtran(Upper(Alltrim(Nvl(m.lcAdresa, ''))), Chr(170), 'S'), Chr(222), 'T') lcJudet = This.RemoveCharacters(m.lcJudet) && Strtran(Strtran(Upper(Alltrim(Nvl(m.lcJudet, ''))), Chr(170), 'S'), Chr(222), 'T') lcRegCom = This.RemoveCharacters(m.lcRegCom) && Strtran(Strtran(Upper(Alltrim(Nvl(m.lcRegCom, ''))), Chr(170), 'S'), Chr(222), 'T') lcLocalitate = This.RemoveCharacters(m.lcLocalitate) lcStrada = This.RemoveCharacters(m.lcStrada) TRY Insert Into cVerificareCod(Valid, eroare, cod, firma, adresa, judet, regcom, codpostal, telefon, fax, datatvamfin, platitortvamfin, VIES, PlatitorTVA, stare, strada, nr, localitate, bloc, scara, etaj, apart, tvaincasare, splittva, inactiv) ; Values (m.llValid, Left(m.lcEroare, 250), m.lcVerificareCod, m.lcFirma, m.lcAdresa, m.lcJudet, m.lcRegCom, m.lcCodpostal, m.lcTelefon, m.lcFax, m.lcDataTVAMFIN, m.llPlatitorTVAMFIN, m.llVies, m.llPlatitorTVA, m.lcStare, m.lcStrada, m.lcNr, m.lcLocalitate, m.lcBloc, m.lcscara, m.lcetaj, m.lcapart, m.llTVAIncasare, m.llSplitTVA, m.llInactiv) Select cVerificareCod Go Top Scatter Name This.oEntitate Cursortoxml("cVerificareCod", "lcXML", 1, 0, 0, "1") *** ROA salvez datele in istoric_coduri_fiscale If Type('goExecutor') = 'O' Private pcCodFiscal, pcFirma, pcAdresa, pcJudet, pcRegCom, pcCodPostal, pcTelefon, pcFax, pcDataTvamfin, pnPlatitorTvaMfin, pcStare, pnPlatitorTvaVies, pnInterogareVies pcCodFiscal = m.lcVerificareCod pcFirma = m.lcFirma && Strtran(Strtran(Upper(Alltrim(Nvl(m.lcFirma, ''))), Chr(170), 'S'), Chr(222), 'T') pcAdresa = m.lcAdresa && Strtran(Strtran(Upper(Alltrim(Nvl(m.lcAdresa, ''))), Chr(170), 'S'), Chr(222), 'T') pcJudet = m.lcJudet && Strtran(Strtran(Upper(Alltrim(Nvl(m.lcJudet, ''))), Chr(170), 'S'), Chr(222), 'T') pcRegCom = m.lcRegCom && Strtran(Strtran(Upper(Alltrim(Nvl(m.lcRegCom, ''))), Chr(170), 'S'), Chr(222), 'T') pcCodPostal = Upper(Alltrim(Nvl(m.lcCodpostal, ''))) pcTelefon = Upper(Alltrim(Nvl(m.lcTelefon, ''))) pcFax = Upper(Alltrim(Nvl(m.lcFax, ''))) pcDataTvamfin = Upper(Alltrim(Nvl(m.lcDataTVAMFIN, ''))) pnPlatitorTvaMfin = Iif(m.llPlatitorTVAMFIN, 1, 0) pcStare = Upper(Alltrim(Nvl(m.lcStare, ''))) pnPlatitorTvaVies = Iif(m.llPlatitorTVA, 1, 0) pnInterogareVies = Iif(m.llVies, 1, 0) If !Empty(m.pcFirma) lnSucces = goExecutor.oExecuta("begin pack_parteneri.save_istoric_cod_fiscal(?pcCodFiscal,?pcFirma,?pcAdresa,?pcJudet,?pcRegCom,?pcCodPostal,?pcTelefon,?pcFax,?pcDataTvamfin,?pnPlatitorTvaMfin,?pcStare,?pnPlatitorTvaVies,?pnInterogareVies,?gnIdUtil); end;") Endif Endif *** CONTAFIN salvez datele in istoric_coduri_fiscale If Used('ISTORIC_CODURI_FISCALE') lcProcedura = [SAVE_ISTORIC_COD_FISCAL] && sa nu dea eroarea ROACONT la compilare ca nu gaseste procedura din CONCONT Do &lcProcedura With This.oEntitate In proceduri_comune.prg Endif Catch To loEx lcEroare = 'VERIFICARE_CIF INSERT XML' + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry Use In (Select('cVerificareCod')) Select (lcSelect) Return m.lcXML Endproc && VERIFICARE_CIF *================================================== *!* Aduce informatii despre starea de platitor TVA si adresa prin SERVICIU WEB ANAF *================================================== Procedure ANAF Lparameters tcCodFiscal, tdData * tcCodFiscal * optional tdData Local loVerificareANAF As "VerificareANAF" Local lcCodFiscal, lcCursorVerificareANAF, lcSelect, loMFIN, ldData lcCodFiscal = Iif(!Empty(m.tcCodFiscal) And Type('tcCodFiscal') = 'C', Alltrim(m.tcCodFiscal), '') lcSelect = Select() ldData = IIF(TYPE('tdData') = 'D' and !EMPTY(m.tdData), m.tdData, DATE(m.gnAn, m.gnLuna, 1)) loMFIN = This.GetEmptyMfinObj() && verificare serviciu web ANAF loVerificareANAF = Createobject("VerificareANAF") && validare.prg lcCursorVerificareANAF = loVerificareANAF.VerificaListaCIF(m.lcCodFiscal, m.ldData) If Used(m.lcCursorVerificareANAF) If Reccount(m.lcCursorVerificareANAF) >= 1 Select (m.lcCursorVerificareANAF) Go Top loMFIN.firma = firma loMFIN.adresa = adresa loMFIN.judet = judet loMFIN.regcom = nrregcom loMFIN.codpostal = '' loMFIN.telefon = '' loMFIN.fax = '' loMFIN.eroare = '' loMFIN.datatvamfin = Data loMFIN.platitortvamfin = tva loMFIN.stare = mesaj loMFIN.strada = strada loMFIN.nr = nr loMFIN.localitate = localitate loMFIN.Bloc = Bloc loMFIN.scara = scara loMFIN.etaj = etaj loMFIN.apart = apart loMFIN.TVAIncasare = tvaincasare loMFIN.SplitTVA = splittva loMFIN.Inactiv = inactiv Endif Endif Select (lcSelect) Return loMFIN Endproc && ANAF *================================================== *!* VERIFICARE INFORMATII MFINANTE *!* DIRECT PE MFINANTE.RO PE URL ROMFAST Procedure MFIN Lparameters tcCodFiscal Local llMFINURL, lcMfinanteURL, lcMfinanteParams, lcRomfastURL, lcSelect, loHTTP Local llPlatitorTVA, lcFirma, lcAdresa, lcEroare, llVies, lcStrada, lcNr, lcLocalitate Local loMFIN Local lnStatus, lcXML, lcJudet, lcRegCom, lcCodpostal, lcDataTVAMFIN, llPlatitorTVAMFIN, lcStare Local lcTelefon, lcFax, lcValues, lcResponse, loEx Local Array laMfin[100, 2] Local loFormIntroducereCod loFormIntroducereCod = Null llPlatitorTVA = .F. lcFirma = '' lcAdresa = '' lcEroare = '' llVies = .F. lcStare = '' lcStrada = '' lcNr = '' lcLocalitate = '' lcSelect = Select() llMFINURL = This.lMFINURL lcMfinanteURL = This.cMfinanteURL lcMfinanteParams = This.cMfinanteParams lcMfinanteParams = Strtran(lcMfinanteParams, '|CIF|', tcCodFiscal, 1, 1, 1) lcRomfastURL = This.cRomfastURL lcRomfastURL = Strtran(lcRomfastURL, '|CIF|', tcCodFiscal, 1, 1, 1) && http://localhost/update/verificarecod.aspx/verificarecod/verificare/CIF/|CIF|/|TIP| lcRomfastURL = Strtran(lcRomfastURL, '|TIP|', 'MFIN', 1, 1, 1) loMFIN = This.GetEmptyMfinObj() *!* if This.lOneSession If Type("This.oHTTP") <> "O" && la prima apelare a verificarii MFIN If This.lXMLHTTP This.oHTTP = Createobject("winhttp.winhttprequest.5.1") Else This.oHTTP = Createobject("InternetExplorer.Application") This.oHTTP.Visible = .F. Endif Endif loHTTP = This.oHTTP *!* ELSE *!* IF This.lXMLHTTP *!* loHTTP = Createobject("winhttp.winhttprequest.5.1") *!* ELSE *!* loHTTP = Createobject("InternetExplorer.Application") *!* loHTTP.visible = .T. *!* ENDIF *!* endif *** INTRODUCERE CAPTCHA DACA NU ESTE INTRODUS DEJA *** Daca exista proprietatea VerificareCod.UserHostAddress, atunci clasa este instantiata din DISPATCHREQUEST de pe serverul ROMFAST If This.lXMLHTTP And !Pemstatus(This, "UserHostAddress", 5) And Empty(This.cMfinCaptcha) And This.lCaptcha lcCodFile = Addbs(Getenv("TEMP")) + "captcha_" + Sys(2015) + ".jpg" loHTTP.Open('GET', "http://www.mfinante.ro/kaptcha.jpg", .F.) loHTTP.Send() = Strtofile(loHTTP.ResponseBody, m.lcCodFile) This.cMfinCaptcha = "" Clear Class "IntroducereCod" loFormIntroducereCod = Createobject("IntroducereCod", m.lcCodFile) loFormIntroducereCod.Show(1) If File(m.lcCodFile) Delete File (m.lcCodFile) Endif If Type('loFormIntroducereCod') = 'O' And Type('loFormIntroducereCod.cCod') = 'C' This.cMfinCaptcha = loFormIntroducereCod.cCod Release loFormIntroducereCod Endif Endif && !PEMSTATUS Do Case Case This.lMFINURL Try *!* loHttp.SetTimeouts(ResolveTimeout, ConnectTimeout, SendTimeout, ReceiveTimeout) * loHttp.SetTimeouts(60000, 60000, 60000, 60000) loHTTP.Open("GET", lcRomfastURL, .F.) loHTTP.Send() lnStatus = loHTTP.Status If lnStatus = 200 && OK lcXML = loHTTP.responseText Xmltocursor(lcXML, 'cMFINTemp') lcFirma = Alltrim(cMFINTemp.firma) lcAdresa = Alltrim(cMFINTemp.adresa) lcJudet = Alltrim(cMFINTemp.judet) lcRegCom = Alltrim(cMFINTemp.regcom) lcCodpostal = Alltrim(cMFINTemp.codpostal) lcTelefon = Alltrim(cMFINTemp.telefon) lcFax = Alltrim(cMFINTemp.fax) lcEroare = Alltrim(cMFINTemp.eroare) lcDataTVAMFIN = cMFINTemp.datatvamfin llPlatitorTVAMFIN = cMFINTemp.platitortvamfin lcStare = cMFINTemp.stare lcStrada = Alltrim(cMFINTemp.strada) lcNr = Alltrim(cMFINTemp.nr) lcLocalitate = Alltrim(cMFINTemp.localitate) Use In (Select('cMFINTemp')) Else lcEroare = 'VERIFICARE_CIF MFIN - ' + Alltrim(Transform(lcRomfastURL)) + ' eroare ' + Alltrim(Str(lnStatus)) Endif && lnStatus Catch To loEx lcEroare = 'VERIFICARE_CIF MFIN ' + CRLF + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry Otherwise Try If !Empty(This.cMfinCaptcha) lcMfinanteParams = Strtran(lcMfinanteParams, '|CAPTCHA|', This.cMfinCaptcha, 1, 1, 1) Else && daca nu introduc CAPTCHA prima oara, nu il mai cer ulterior. sa vad daca merge ??? lcMfinanteParams = Strtran(lcMfinanteParams, '&captcha=|CAPTCHA|', '', 1, 1, 1) This.lCaptcha = .F. Endif Do Case Case .F. loHTTP.Open("POST", lcMfinanteURL, .F.) loHTTP.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded') lcValues = lcMfinanteParams loHTTP.Send(lcValues) lnStatus = loHTTP.Status Case This.lXMLHTTP lcValues = lcMfinanteParams loHTTP.Open("GET", m.lcMfinanteURL + '?' + m.lcValues, .F.) loHTTP.setRequestHeader ("Content-Type", "multipart/form-data; ") loHTTP.setRequestHeader ("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)") loHTTP.Send(Null) lnStatus = loHTTP.Status Otherwise * Internet.Application din cauza ca nu mai merge interogarea cu xmlhttp lcValues = lcMfinanteParams loHTTP.Navigate(m.lcMfinanteURL + '?' + m.lcValues) * Astept maxim 10 secunde sa se incarce documentul si verific daca exista tag-ul lnSeconds = Seconds() lnStatus = -200 Do While .T. Inkey(1) lnSecondsPassed = Seconds() - lnSeconds Wait Window 'Astept incarcarea paginii mfinante.ro ' + Alltrim(Str(m.lnSecondsPassed)) + '/20 sec.' Nowait If (loHTTP.ReadyState = 4 And !loHTTP.Busy) Or m.lnSecondsPassed > 20 If This.cMfinAnchorString $ Upper(loHTTP.Document.body.innerhtml) Or This.cMfinNuExistaString $ Upper(loHTTP.Document.body.innerhtml) lnStatus = 200 Exit Else If m.lnSecondsPassed > 20 Exit Endif Endif Endif Enddo Endcase If lnStatus = 200 && OK If This.lXMLHTTP lcResponse = Upper(loHTTP.responseText) Else lcResponse = loHTTP.Document.body.innerhtml Endif *STRTOFILE(m.lcResponse, "c:\info_" + m.tcCodFiscal + ".html") This.InfoMfin2Array(m.lcResponse, @laMfin) lcFirma = This.RemoveCharacters(laMfin(1, 2), .T.) && Strtran(Strtran(Upper(Alltrim(Nvl(aMfin(1, 2), ''))), Chr(170), 'S'), Chr(222), 'T') lcAdresa = This.RemoveCharacters(laMfin(2, 2), .T., .F., .T.) && Strtran(Strtran(Upper(Alltrim(Nvl(laMfin(2, 2), ''))), Chr(170), 'S'), Chr(222), 'T') lcJudet = This.RemoveCharacters(laMfin(3, 2), .T.) && Strtran(Strtran(Upper(Alltrim(Nvl(laMfin(3, 2), ''))), Chr(170), 'S'), Chr(222), 'T') lcRegCom = This.RemoveCharacters(laMfin(4, 2), .T., .T., .T.) && Strtran(Strtran(Upper(Alltrim(Nvl(STRTRAN(laMfin(4, 2), ' ',''), ''))), Chr(170), 'S'), Chr(222), 'T') lcCodpostal = This.RemoveCharacters(laMfin(6, 2), .T., .T., .T.) && laMfin(6, 2) lcTelefon = This.RemoveCharacters(laMfin(7, 2), .T., .T., .T.) && laMfin(7, 2) lcFax = This.RemoveCharacters(laMfin(8, 2), .T., .T., .T.) && laMfin(8, 2) lcStare = This.RemoveCharacters(laMfin(9, 2), .T., .F., .T.) && Strtran(Strtran(Upper(Alltrim(Nvl(laMfin(9, 2), ''))), Chr(170), 'S'), Chr(222), 'T') lcDataTVAMFIN = Nvl(laMfin(16, 2), '') llPlatitorTVAMFIN = !(Empty(m.lcDataTVAMFIN) Or Isalpha(m.lcDataTVAMFIN)) loAdresa = This.ParseAdresaMFin(m.lcAdresa) lcStrada = loAdresa.strada lcNr = loAdresa.nr lcLocalitate = loAdresa.localitate Else lcEroare = 'VERIFICARE_CIF MFIN - ' + Alltrim(Transform(lcMfinanteURL)) + ' eroare ' + Alltrim(Str(lnStatus)) Endif Catch To loEx lcEroare = 'VERIFICARE_CIF MFIN ' + CRLF + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry Endcase loMFIN.firma = m.lcFirma loMFIN.adresa = m.lcAdresa loMFIN.judet = m.lcJudet loMFIN.regcom = m.lcRegCom loMFIN.codpostal = m.lcCodpostal loMFIN.telefon = m.lcTelefon loMFIN.fax = m.lcFax loMFIN.eroare = m.lcEroare loMFIN.datatvamfin = m.lcDataTVAMFIN loMFIN.platitortvamfin = m.llPlatitorTVAMFIN loMFIN.stare = m.lcStare loMFIN.strada = m.lcStrada loMFIN.nr = m.lcNr loMFIN.localitate = m.lcLocalitate Select (lcSelect) Return loMFIN Endproc && MFIN *================================================== *!* VERIFICARE CALITATE PLATITOR TVA *!* DIRECT PE VIES CU DLL DOTNET SAU PE URL ROMFAST Procedure VIES Lparameters tcCodFiscal, tcCodTara Local ws, loVIES, llVIESURL, lcRomfastURL, lcSelect, loHTTP Local llPlatitorTVA, lcFirma, lcAdresa, lcEroare, llVies, lcCodTara Local lnStatus, lcXML, loEx, lcViesURL llPlatitorTVA = .F. lcFirma = '' lcAdresa = '' lcEroare = '' llVies = .F. lcSelect = Select() *!* 12.04.2011 lcCodTara = Iif(!Empty(m.tcCodTara), Alltrim(Upper(Transform(m.tcCodTara))), 'RO') *!* 12.04.2011 ^ llVIESURL = This.lVIESURL lcRomfastURL = This.cRomfastURL *!* 12.04.2011 lcRomfastURL = Strtran(lcRomfastURL, '|CIF|', m.lcCodTara + m.tcCodFiscal, 1, 1, 1) && http://localhost/update/verificarecod.aspx/verificarecod/verificare/CIF/|CIF|/|TIP| *!* 12.04.2011 ^ lcRomfastURL = Strtran(lcRomfastURL, '|TIP|', 'VIES', 1, 1, 1) loVIES = Createobject("empty") AddProperty(loVIES, "Vies", .F.) AddProperty(loVIES, "Eroare", '') AddProperty(loVIES, "Cod", tcCodFiscal) AddProperty(loVIES, "PlatitorTVA", .F.) AddProperty(loVIES, "Firma", "") AddProperty(loVIES, "Adresa", "") If This.lVIESURL Try *!* loHTTP = Createobject("MSXML2.ServerXMLHTTP") loHTTP = Createobject("winhttp.winhttprequest.5.1") loHTTP.Open("GET", lcRomfastURL, .F.) loHTTP.Send() lnStatus = loHTTP.Status If lnStatus = 200 && OK lcXML = loHTTP.responseText Xmltocursor(lcXML, 'cVIESTemp') llPlatitorTVA = cVIESTemp.PlatitorTVA lcFirma = Alltrim(cVIESTemp.firma) lcAdresa = Alltrim(cVIESTemp.adresa) lcEroare = Alltrim(cVIESTemp.eroare) llVies = cVIESTemp.VIES Use In (Select('cVIESTemp')) Else lcEroare = 'VERIFICARE_CIF VIES - ' + Alltrim(Transform(lcRomfastURL)) + ' eroare ' + Alltrim(Str(lnStatus)) Endif && lnStatus Catch To loEx lcEroare = 'VERIFICARE_CIF VIES ' + CRLF + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry Else If .F. Try llVies = .F. ws = Createobject('DotNetCom.VerificareCIF') llPlatitorTVA = ws.VerifCIF(tcCodFiscal) &&returneza .T. sau .F., in functie de existenta CIF in baza de date EU lcFirma = ws.firma lcAdresa = Strtran(Strtran(ws.adresa, Chr(13), ''), Chr(10), '') llVies = .T. Catch To loEx lcEroare = 'VERIFICARE_CIF VIES ' + CRLF + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry ELSE *!* 15.03.2010 IF .F. Try *!* loHTTP = Createobject("MSXML2.ServerXMLHTTP") && ("Microsoft.XMLHTTP") loHTTP = Createobject("winhttp.winhttprequest.5.1") *!* 12.04.2011 lcViesURL = "http://ec.europa.eu/taxation_customs/vies/viesquer.do?ms=" + m.lcCodTara + "&iso=" + m.lcCodTara + "&vat=" + m.tcCodFiscal *!* 12.04.2011 ^ loHTTP.Open("GET", m.lcViesURL, .F.) loHTTP.Send() lnStatus = loHTTP.Status If lnStatus = 200 && OK lcXML = loHTTP.responseText llPlatitorTVA = 'YES, VALID VAT NUMBER' $ Upper(lcXML) lcFirma = '' lcAdresa = '' llVies = .T. Else lcEroare = 'VERIFICARE_CIF VIES - ' + m.lcViesURL + ' eroare ' + Alltrim(Str(lnStatus)) Endif && lnStatus Catch To loEx lcEroare = 'VERIFICARE_CIF VIES ' + CRLF + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry *!* 15.03.2010 ^ ENDIF && .F. Try loHTTP = Createobject("winhttp.winhttprequest.5.1") loHTTP.Open("POST", "http://ec.europa.eu/taxation_customs/vies/services/checkVatService", .F.) loHTTP.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded') TEXT TO lcValues NOSHOW TEXTMERGE <> <> ENDTEXT loHTTP.Send(lcValues) lnStatus = loHTTP.Status If lnStatus = 200 && OK lcXML = loHTTP.responseText llPlatitorTVA = (STREXTRACT(m.lcXML, [],[],1,1) = 'true') && true/false lcFirma = STRTRAN(STREXTRACT(m.lcXML, [],[],1,1), '-','',1,10,1) lcAdresa = STRTRAN(STREXTRACT(m.lcXML, [
],[
],1,1), '-','',1,10,1) lcAdresa = Strtran(m.lcAdresa, Chr(13) + CHR(10), ' ') llVies = .T. Else lcEroare = 'VERIFICARE_CIF VIES - ' + m.lcViesURL + ' eroare ' + Alltrim(Str(lnStatus)) Endif && lnStatus Catch To loEx lcEroare = 'VERIFICARE_CIF VIES ' + CRLF + loEx.Message + " " + loEx.LineContents + " " + Transform(loEx.Lineno) This.Log(m.lcEroare) Endtry Endif Endif loVIES.PlatitorTVA = llPlatitorTVA loVIES.firma = lcFirma loVIES.adresa = lcAdresa loVIES.eroare = lcEroare loVIES.VIES = llVies Select (lcSelect) Return loVIES Endproc && VIES *================================= Function validare Lparameters tcTip, tcCod Local lcTip, llReturn llReturn = .F. lcTip = Iif(Type('tcTip') = 'C' And !Empty(tcTip), Upper(tcTip), 'CIF') Do Case Case lcTip = 'CNP' llReturn = This.VALIDARE_CNP(tcCod) Case lcTip = 'CIF' llReturn = This.VALIDARE_CIF(tcCod) Otherwise llReturn = .F. Endcase Return llReturn Endfunc && VALIDARE *================================= *!* VALIDEAZA CIF *!* RETURN .T. / .F. Function VALIDARE_CIF Lparameters tcCIF Local lcCIFinv, I Local llCorect, lcCif, cheieinv, lnSuma, lnRest, lnCifraVerificare, lcCifraControl, lnCifraControl If Type('tcCIF') <> 'C' tcCIF = '' Endif *!* 12.04.2011 lcCif = Alltrim(Nvl(tcCIF, '')) lcCodTara = This.GetCodTara(m.lcCif) *!* daca primele 2 caractere sunt coduri de tara le elimin If !Substr(M.lcCif, 1, 1) $ '0123456789' m.lcCif = Alltrim(Substr(m.lcCif, 2)) Endif If !Substr(M.lcCif, 1, 1) $ '0123456789' m.lcCif = Alltrim(Substr(m.lcCif, 2)) Endif llCorect = .T. If !(Empty(m.lcCodTara) Or m.lcCodTara = 'RO') Return m.llCorect Endif *!* 12.04.2011 ^ *!* lcCIF = '7320118' *!* Pas preliminar: Se testeaza daca codul respecta formatul unui cod CIF. Adica lungimea maxima sa fie de 10 cifre si sa contina doar caractere numerice. If Len(m.lcCif) > 10 Or Empty(m.lcCif) llCorect = .F. Else For I = 1 To Len(m.lcCif) If !Substr(m.lcCif, I, 1) $ '0123456789' llCorect = .F. Endif Endfor Endif *!* Pas 1: Se foloseste cheia de testare "753217532". Se inverseaza ordinea cifrelor codului CIF precum si a cheii de testare. *!* Pas 2: Se ignora prima cifra din codul CIF inversat (aceasta este cifra de control) si se inmulteste fiecare cifra cu cifra corespunzatoare din cheia de testare inversata. *!* Pas 3: Se aduna toate produsele obtinute. Suma rezultata se inmulteste cu 10 si produsul este impartit la 11. Cifra obtinuta, in urma operatiei MODULO 11 reprezita cifra de verificare. Daca in urma impartirii s-a obtinut restul 10 atunci cifra de verificare va fi 0. *!* Pas 4: Pentru un CIF valid cifra de verificare va trebui sa corespunda cu cifra de control a codului CIF initial. cheieinv = '235712357' If llCorect lcCIFinv = '' lnSuma = 0 For I = Len(m.lcCif) - 1 To 1 Step - 1 lcCIFinv = m.lcCIFinv + Substr(m.lcCif, I, 1) Endfor For I = 1 To Len(m.lcCIFinv) lnSuma = lnSuma + Val(Substr(m.lcCIFinv, I, 1)) * Val(Substr(m.cheieinv, I, 1)) Endfor lnRest = Mod(m.lnSuma * 10, 11) lnCifraVerificare = Iif(m.lnRest = 10, 0, lnRest) lcCifraControl = Substr(m.lcCif, Len(m.lcCif), 1) lnCifraControl = Val(lcCifraControl) If m.lnCifraVerificare <> m.lnCifraControl llCorect = .F. Endif Endif *!* ?IIF(llCorect, 'CORECT', 'INCORECT') Return llCorect Endfunc && VALIDARE_CIF *================================= *!* VALIDEAZA CNP *!* RETURN .T. / .F. Function VALIDARE_CNP Lparameters cCnp Local cCod cCod = Alltrim(cCnp) If Len(cCod)!= 13 Return .F. Endif Local _X(13), _rest, j For j = 1 To 13 _X(j) = Val(Substr(cCod, j, 1)) Endfor _rest = (_X(1) * 2 + _X(2) * 7 + _X(3) * 9 + _X(4) * 1 + _X(5) * 4 + _X(6) * 6 + _X(7) * 3 + _X(8) * 5 + _X(9) * 8 + _X(10) * 2 + _X(11) * 7 + _X(12) * 9) % 11 Return Iif((_rest < 10 And _rest = _X(13))Or(_rest = 10 And _X(13) = 1), .T., .F.) Endfunc && VALIDARE_CNP *================================= Function GetError Local lcReturn, lnLines Local Array laEroare(1) lcReturn = "" lnLines = Aerror(laEroare) If lnLines = 7 lcReturn = Alltrim(Transform(laEroare(1))) + ' ' + Alltrim(Transform(laEroare(2))) &&+ ALLTRIM(TRANSFORM(laEroare(3))) Endif Return lcReturn Endfunc *============================ Procedure Log Lparameters tcText If Type('goLog') = 'O' goLog.Log(tcText) Else Local lcText lcText = Transform(Datetime()) + " " + Iif(Empty(tcText), "", tcText) + Chr(13) + Chr(10) Strtofile(m.lcText, "log.txt", .T.) Endif Endproc && Log Function GetInfoMfin(lcResponse, lnRand) Local cAnchorString, cTable, lcRand, lcReturn m.cAnchorString = "AGENTUL ECONOMIC CU CODUL UNIC" m.cTable = Upper(Strextract( Substr(lcResponse, Atc( m.cAnchorString, lcResponse)), '')) lcRand = Strextract( cTable, "", lnRand ) lcReturn = Strextract( lcRand, [SIZE="2">], "", 2) Return lcReturn Endfunc && GetInfoMfin *** Parseaza html-ul de la mfinante.ro si transforma tabelul intr-un array cu 2 coloane (descriere, valoare) Procedure InfoMfin2Array(lcResponse, laInfo) Local lcList, lcTable, lnLinii, I If Atc('NU ATI INTRODUS CODUL DE VALIDARE CORECT', m.lcResponse, 1) > 0 Dimension laInfo(100, 2) laInfo = "" laInfo(2, 2) = "Nu ati introdus codul de validare corect!" Else lcString = This.cMfinAnchorString && "AGENTUL ECONOMIC CU CODUL UNIC" lcTable = Strextract(Substr(m.lcResponse, Atc(m.lcString, m.lcResponse)), '', 1, 1) If Empty(m.lcTable) Dimension laInfo(100, 2) laInfo = "" laInfo(2, 2) = "Nu s-a gasit tabelul!" Else * Elimin CR LF TAB NBSP si "reglez" & lcTable = Transform(m.lcTable) lcTable = Strtran(m.lcTable, Chr(10), '', 1, 1000, 1) * lcTable = Strtran(m.lcTable, Chr(9), '',1,1000,1) lcTable = Strtran(m.lcTable, Chr(13), '', 1, 1000, 1) lcTable = Strtran(m.lcTable, ' ', ' ', 1, 1000, 1) lcTable = Strtran(m.lcTable, '&', '&', 1, 1000, 1) *!* lcTable = STREXTRACT(m.lcResponse,'',1,5) *** functia parsetable transforma tabelul html intr-o lista fara tag-uri lcList = This.ParseTable(m.lcTable) *** se trece lista intr-un vector lnLinii = Alines(laInfo, lcList, 1) If lnLinii > 1 *** vectorul laInfo se redimensioneaza la 2 coloane. Prima coloana contine explicatia, a doua valoarea Dimension laInfo (Ceiling(lnLinii / 2), 2) For I = 1 To Alen(laInfo, 1) laInfo(I, 1) = Alltrim(Strtran(Alltrim(Strtran(laInfo(I, 1), " ", "", 1, 1000, 1)), Chr(9), "")) laInfo(I, 2) = Alltrim(Strtran(Alltrim(Strtran(laInfo(I, 2), " ", "", 1, 1000, 1)), Chr(9), "")) Endfor Else Dimension laInfo(100, 2) laInfo = "" laInfo(2, 2) = "Tabelul are dimensiunea < 2!" Endif && lnLinii > 1 Endif && EMPTY(m.lcTable) Endif && NU ATI INTRODUS CODUL DE VALIDARE CORECT Endproc && InfoMfin2Array *** Parseaza html-ul de la vies si transforma tabelul intr-un array cu 2 coloane (descriere, valoare) Procedure InfoVIES2Array(lcResponse, laInfo) Local lcList, lcTable, lnLinii, I lcTable = Strextract(m.lcResponse, '', 5, 5) *** functia parsetable transforma tabelul html intr-o lista fara tag-uri lcList = This.ParseTable(m.lcTable) *** se trece lista intr-un vector lnLinii = Alines(laInfo, lcList, 1) *** vectorul laInfo se redimensioneaza la 2 coloane. Prima coloana contine explicatia, a doua valoarea Dimension laInfo (lnLinii / 2, 2) For I = 1 To Alen(laInfo, 1) laInfo(I, 1) = Alltrim(Strtran(Alltrim(Strtran(laInfo(I, 1), " ", "", 1, 10, 1)), Chr(9), "")) laInfo(I, 2) = Alltrim(Strtran(Alltrim(Strtran(laInfo(I, 2), " ", "", 1, 10, 1)), Chr(9), "")) Endfor Endproc && InfoMfin2Array *** creaza o lista caracter cu valorile dintr-un tabel html *** rand 1: cell_1_1, rand 2: cell_1_2, rand 3: cell_2_1, rand 4: cell_2_2 etc. Function ParseTable Lparameters tcTable Local lcList, lcCell, lcData, lnCell, lnTag lcList = '' For lnCell = 1 To Occurs('', lnCell, 3) lcData = '' For lnTag = 1 To Occurs('>', lcCell) lcData = lcData + Strextract(lcCell, '>', '<', lnTag, 3) Next lnTag lcData = Alltrim(Chrtran(lcData, Chr(10) + Chr(13), Space(1))) Do While At(Space(2), lcData) > 0 lcData = Strtran(lcData, Space(2), Space(1)) Enddo lcList = lcList + lcData + CR Endfor Return lcList Endfunc && ParseTable *** Extrage codul de tara din codul fiscal (primele 2 caractere) Function GetCodTara Lparameters tcCodFiscal Local lcCodTara, lcCodFiscal Local lcChar1, lcChar2 lcCodTara = "" lcCodFiscal = Alltrim(Strtran(Upper(Transform(tcCodFiscal)), ' ', '')) lcChar1 = Substr(m.lcCodFiscal, 1, 1) If Isalpha(m.lcChar1) m.lcCodTara = m.lcCodTara + m.lcChar1 lcChar2 = Substr(m.lcCodFiscal, 2, 1) If Isalpha(m.lcChar2) m.lcCodTara = m.lcCodTara + m.lcChar2 Endif Endif If m.lcCodTara = 'R' Or Empty(m.lcCodTara) m.lcCodTara = 'RO' Endif Return m.lcCodTara Endfunc && GetCodTara *** curata textul de diacritice, spatii, CR/LF Function RemoveCharacters Lparameters tcText, tlDiacritics, tlSpaces, tlCR *** tcText: textul initial *** tlDiacritics: inlocuieste diacriticele *** tlSpaces: sterge spatiile *** tlCR: sterge CR si LF If Pcount() = 1 tlDiacritics = .T. Endif Local lcText lcText = Nvl(m.tcText, '') If m.tlDiacritics lcText = STRTRAN(STRTRAN(Strtran(Nvl(m.lcText, ''), Chr(197) + CHR(162), 'T', 1,100,1), Chr(197) + CHR(63), 'S', 1,100,1), Chr(196) + CHR(63), 'A', 1,100,1) lcText = Strtran(Nvl(m.lcText, ''), Chr(195) + CHR(63), 'I', 1,100,1) lcText = Strtran(Strtran(Strtran(Strtran(Strtran(Nvl(m.lcText, ''), Chr(170), 'S', 1,100,1), Chr(222), 'T', 1,100,1), Chr(226), 'A', 1,100,1), Chr(227), 'A', 1,100,1), Chr(238), 'I', 1,100,1) lcText = STRTRAN(Strtran(Strtran(Strtran(Nvl(m.lcText, ''), Chr(206), 'I', 1,100,1), Chr(194), 'A', 1,100,1), Chr(195), 'A', 1,100,1), Chr(196), 'A', 1,100,1) lcText = STRTRAN(m.lcText, CHR(2), '',1,100,1) && caracter neprintabil ENDIF If m.tlSpaces lcText = Strtran(m.lcText, ' ', '', 1, 100, 1) Endif If m.tlCR lcText = Strtran(Strtran(m.lcText, Chr(13), ''), Chr(10), '') Endif Return m.lcText Endfunc ****************************************************** *** Primeste o adresa de forma Strada NR LOCALITATE *** Intoarce un obiect cu proprietatile: STRADA, NR, LOCALITATE ****************************************************** Procedure ParseAdresaMFin Lparameters tcAdresa * tcAdresa: Bld. Stefan cel Mare 14 Tirgu Neamt Local lcAdresa, loAdresa loAdresa = Createobject("empty") AddProperty(loAdresa, "strada", "") AddProperty(loAdresa, "nr", "") AddProperty(loAdresa, "localitate", "") lcAdresa = Iif(!Empty(m.tcAdresa) And Type('tcAdresa') = 'C', m.tcAdresa, '') If !Empty(m.lcAdresa) lcPatternNrLocalitate = "\d+[A-Za-z\s]+$" && 14 Tirgu Neamt lcNrLocalitate = GetRegexp(m.lcAdresa, m.lcPatternNrLocalitate, 1) && 14 Tirgu Neamt lcPatternLocalitate = "[A-Za-z\s]+$" && Tirgu Neamt loAdresa.localitate = GetRegexp(m.lcAdresa, m.lcPatternLocalitate, 1) && Tirgu Neamt loAdresa.nr = Alltrim(Strtran(m.lcNrLocalitate, loAdresa.localitate, '')) && 14 If !Empty(m.lcNrLocalitate) loAdresa.strada = Alltrim(Strtran(m.lcAdresa, m.lcNrLocalitate, '')) && Bld. Stefan cel Mare Endif Endif && !EMPTY() Return loAdresa Endproc && ParseAdresaMfin *************************************************************** *** Intoarce un obiect Mfin cu atribute goale, pentru uz intern *************************************************************** Function GetEmptyMfinObj Local loMFIN loMFIN = Createobject("empty") AddProperty(loMFIN, "Eroare", '') AddProperty(loMFIN, "Cod", "") AddProperty(loMFIN, "Firma", "") AddProperty(loMFIN, "Adresa", "") AddProperty(loMFIN, "Judet", "") AddProperty(loMFIN, "Regcom", "") AddProperty(loMFIN, "codpostal", "") AddProperty(loMFIN, "telefon", "") AddProperty(loMFIN, "fax", "") AddProperty(loMFIN, "DataTVAMFIN", "") AddProperty(loMFIN, "PlatitorTVAMFIN", .F.) AddProperty(loMFIN, "Stare", "") AddProperty(loMFIN, "Strada", "") AddProperty(loMFIN, "Nr", "") AddProperty(loMFIN, "Localitate", "") AddProperty(loMFIN, "Bloc", "") AddProperty(loMFIN, "Scara", "") AddProperty(loMFIN, "Etaj", "") AddProperty(loMFIN, "Apart", "") AddProperty(loMFIN, "TvaIncasare", .F.) AddProperty(loMFIN, "SplitTVA", .F.) AddProperty(loMFIN, "Inactiv", .F.) Return loMFIN Endfunc && GetEmptyMfinObj Enddefine ************************************* *** Normalizeaza un cod fiscal: UPPER, fara spatii, fara prefixul RO daca restul e numeric ************************************* Function NormalizeazaCUI Lparameters tcCui Local lcCui, lcRest, lnI, llNumeric lcCui = Upper(Strtran(Alltrim(Nvl(m.tcCui, '')), ' ', '')) If Left(m.lcCui, 2) = 'RO' lcRest = Substr(m.lcCui, 3) llNumeric = !Empty(m.lcRest) For lnI = 1 To Len(m.lcRest) If !Isdigit(Substr(m.lcRest, lnI, 1)) llNumeric = .F. Exit Endif Endfor If m.llNumeric lcCui = m.lcRest Endif Endif Return m.lcCui Endfunc && NormalizeazaCUI ************************************* *** Wrapper single-CUI peste VerificareANAF: tdData = data documentului (lipsa -> data curenta), degradare tacuta (.NULL.), *** tlNegasit (prin referinta) = ANAF a raspuns ca nu exista codul, spre deosebire de lipsa raspunsului ************************************* Function ANAF_VerificaCuiSingle Lparameters tcCui, tdData, tlNegasit, tcClasaEsec Local lcCuiNormalizat, loHTTP, loEx As Exception, loResult, lcJsonString, ldData Local loVerificareANAF As "VerificareANAF", lcAliasTemp, lnI, llValid Local llRaspunsPrimit, lnCuiCautat If Type('gvANAF_EroareLogataSesiune') = 'U' Public gvANAF_EroareLogataSesiune gvANAF_EroareLogataSesiune = .F. Endif tcClasaEsec = '' tlNegasit = .F. lcCuiNormalizat = NormalizeazaCUI(m.tcCui) llValid = !Empty(m.lcCuiNormalizat) If m.llValid For lnI = 1 To Len(m.lcCuiNormalizat) If !Isdigit(Substr(m.lcCuiNormalizat, lnI, 1)) llValid = .F. Exit Endif Endfor Endif If !m.llValid Return .Null. Endif loResult = .Null. lcAliasTemp = "crsANAFSingleTemp" llRaspunsPrimit = .F. ldData = Iif(Vartype(m.tdData) = 'D' And !Empty(m.tdData), m.tdData, Date()) lnCuiCautat = Int(Val(m.lcCuiNormalizat)) Try loVerificareANAF = Createobject("VerificareANAF") && incarca nfjsonread/nfjsoncreate (Init) loHTTP = ANAF_CreeazaCerereANAF(m.lnCuiCautat, m.ldData, .F.) llRaspunsPrimit = .T. lcJsonString = Alltrim(loHTTP.responseText) If !Empty(m.lcJsonString) And Left(m.lcJsonString, 1) = '{' Use In (Select(m.lcAliasTemp)) loVerificareANAF.ParseJsonANAFv8(nfjsonread(m.lcJsonString), m.lcAliasTemp) loResult = ANAF_VerdictDinCursor(m.lcAliasTemp, m.lnCuiCautat, @tlNegasit, @tcClasaEsec) Else tcClasaEsec = 'RASPUNS_NEINTELES' Endif Catch To loEx If !gvANAF_EroareLogataSesiune If Type('goLog') = 'O' goLog.Log('ANAF_VerificaCuiSingle: ' + loEx.Message, 'ANAF_VerificaCuiSingle') Endif gvANAF_EroareLogataSesiune = .T. Endif loResult = .Null. tlNegasit = .F. tcClasaEsec = Iif(m.llRaspunsPrimit, 'RASPUNS_NEINTELES', 'FARA_RASPUNS') Endtry Return m.loResult Endfunc && ANAF_VerificaCuiSingle ************************************* *** Alege intre obiect de rezultat / tlNegasit (exact 1 rand, denumire goala, cui = CUI-ul cautat) / *** tcClasaEsec = 'RASPUNS_NEINTELES', pe baza cursorului lasat de ParseJsonANAFv8; ambele prin referinta ************************************* Function ANAF_VerdictDinCursor Lparameters tcAlias, tnCuiCautat, tlNegasit, tcClasaEsec Local loResult, lnReccountTemp loResult = .Null. tlNegasit = .F. tcClasaEsec = '' If Used(m.tcAlias) Select (m.tcAlias) lnReccountTemp = Reccount() If m.lnReccountTemp = 1 And !Empty(denumire) loResult = Createobject("empty") Addproperty(loResult, "cui", cui) Addproperty(loResult, "scpTVA", Nvl(scpTVA, .F.)) Addproperty(loResult, "statusInactivi", Nvl(statusInactivi, .F.)) Addproperty(loResult, "denumire", Nvl(denumire, "")) Addproperty(loResult, "mesaj", Nvl(mesaj, "")) Addproperty(loResult, "dInceputScpTVA", Nvl(data_inceput_ScpTVA, {})) Addproperty(loResult, "dSfarsitScpTVA", Nvl(data_sfarsit_ScpTVA, {})) Addproperty(loResult, "dAnulareScpTVA", Nvl(data_anul_imp_ScpTVA, {})) Addproperty(loResult, "cMesajScpTVA", Nvl(mesaj_ScpTVA, "")) Else If m.lnReccountTemp = 1 And Empty(denumire) And Nvl(cui, 0) = m.tnCuiCautat tlNegasit = .T. Else tcClasaEsec = 'RASPUNS_NEINTELES' Endif Endif Use In (Select(m.tcAlias)) Else tcClasaEsec = 'RASPUNS_NEINTELES' Endif Return m.loResult Endfunc && ANAF_VerdictDinCursor ************************************* *** Construieste, deschide (sincron sau asincron) si trimite o cerere PlatitorTvaRest v9 pentru un singur CUI; *** folosita atat de wrapper-ul de verificare cat si de sonda de disponibilitate ************************************* Function ANAF_CreeazaCerereANAF Lparameters tnCui, tdData, tlAsync Local loHTTP, loEx As Exception, loCol As "empty", laCoduri[1], lcSend, lcServer, ldData, lcDataFormatted Try loHTTP = Createobject('winHTTP.winHTTPrequest.5.1') Try loHTTP.SetTimeouts(2000, 2000, 3000, 3000) && rezolvare/conectare 2s, trimitere/primire 3s Catch To loEx Endtry Catch To loEx loHTTP = .Null. Endtry ldData = Iif(Vartype(m.tdData) = 'D' And !Empty(m.tdData), m.tdData, Date()) lcDataFormatted = Left(Dtos(m.ldData), 4) + "-" + Substr(Dtos(m.ldData), 5, 2) + "-" + Substr(Dtos(m.ldData), 7, 2) loCol = Createobject("empty") Addproperty(loCol, "cui", Int(Val(Transform(m.tnCui)))) Addproperty(loCol, "data", m.lcDataFormatted) laCoduri[1] = loCol lcSend = nfjsoncreate(@laCoduri) lcServer = 'https://webservicesp.anaf.ro/api/PlatitorTvaRest/v9/tva' loHTTP.Open('POST', lcServer, m.tlAsync) loHTTP.setRequestHeader("Content-Type", "application/json;") loHTTP.Send(lcSend) Return m.loHTTP Endfunc && ANAF_CreeazaCerereANAF ************************************* *** Sonda asincrona de disponibilitate ANAF: porneste o cerere pe un CUI constant (1879855, ROMFAST SRL, *** deja folosit ca CUI de test in acest fisier), fara sa scrie in cache si fara sa produca vreun verdict de partener ************************************* Function ANAF_SondaPorneste Local loEx As Exception ANAF_SondaOpreste() If Type('goANAF_SondaHTTP') = 'U' Public goANAF_SondaHTTP, glANAF_SondaReusita Endif goANAF_SondaHTTP = .Null. glANAF_SondaReusita = .F. Try goANAF_SondaHTTP = ANAF_CreeazaCerereANAF(1879855, Date(), .T.) Catch To loEx goANAF_SondaHTTP = .Null. Endtry Return (Vartype(goANAF_SondaHTTP) = 'O') Endfunc && ANAF_SondaPorneste ************************************* *** .T. daca sonda in curs si-a primit raspunsul (indiferent de rezultat) sau nu exista nicio sonda activa ************************************* Function ANAF_SondaAuSositRaspunsul Local loEx As Exception, llSosit, llEroare llEroare = .F. If Vartype(goANAF_SondaHTTP) <> 'O' Return .T. Endif llSosit = .F. Try llSosit = goANAF_SondaHTTP.WaitForResponse(0) Catch To loEx glANAF_SondaReusita = .F. llEroare = .T. ENDTRY IF m.llEroare Return .T. ENDIF If m.llSosit glANAF_SondaReusita = .T. Endif Return m.llSosit Endfunc && ANAF_SondaAuSositRaspunsul ************************************* *** Verdictul sondei, valabil dupa ce ANAF_SondaAuSositRaspunsul() a intors .T. ************************************* Function ANAF_SondaAReusit Return (Vartype(glANAF_SondaReusita) = 'L' And glANAF_SondaReusita) Endfunc && ANAF_SondaAReusit ************************************* *** Abandoneaza si elibereaza sonda in curs, daca exista; intoarce .T. daca chiar era o sonda in aer ************************************* Function ANAF_SondaOpreste Local loEx As Exception, llOprita llOprita = (Vartype(goANAF_SondaHTTP) = 'O') If m.llOprita Try goANAF_SondaHTTP.Abort() Catch To loEx Endtry goANAF_SondaHTTP = .Null. Endif Return m.llOprita Endfunc && ANAF_SondaOpreste ********************************************* *** Verificare coduri fiscale folosind serviciul web ANAF, cate 500 de coduri per interogare ********************************************* Define Class VerificareANAF As Custom Procedure Init If !'nfjsonread' $ Lower(Set("Procedure")) Set Procedure To nfjsonread.prg Additive Endif If !'nfjsoncreate' $ Lower(Set("Procedure")) Set Procedure To nfjsoncreate.prg Additive Endif Endproc && Init ************************************* *** VerificaListaCIF("31103995,1879855", Date(), "crsANAF") *** Verifica codurile fiscale din lista, la data *** Intoarce un cursor crsANAF (cui N(13), Data d, denumire c(60), adresa c(244), tva L, data_sfarsit d, data_anul_imp d, mesaj c(100)) ************************************* Function VerificaListaCIF Lparameters tcListaCIF, tdData, tcAlias * tcListaCIF: lista coduri fiscale sau numele unui cursor cu coduri fiscale Local llUsed, lcCursorListaCIF, lnRec, lnRecs, lcAlias lcCursorListaCIF = "" llUsed = .F. lcAlias = "" goLog.Log('tcListaCIF: ' + tcListaCIF, 'VerificaListaCIF') If Used(tcListaCIF) * cursor lcCursorListaCIF = m.tcListaCIF llUsed = .T. Else * lista lcCursorListaCIF = "cListaCIFTemp" lnRecs = Getwordcount(m.tcListaCIF, ',') Create Cursor (lcCursorListaCIF) (cod_fiscal c(30) Null, data D null) For lnRec = 1 To m.lnRecs lcCodFiscal = Getwordnum(m.tcListaCIF, m.lnRec, ',') Insert Into (lcCursorListaCIF) (cod_fiscal, data) Values (m.lcCodFiscal, m.tdData) Endfor Endif lcAlias = This.ANAF_SincronWebService_PlatitorTva(m.lcCursorListaCIF, m.tdData, m.tcAlias) If !m.llUsed Use In (Select(lcCursorListaCIF)) Endif Return m.lcAlias Endfunc && AnafPlatitorTVA * Function ANAF_SincronWebService_PlatitorTva Lparameters tcCursorListaCIF, tdData, tcAlias Local loCol As "empty" Local loHTTP As 'Microsoft.XMLHTTP' Local laCoduri[1], lcAlias, lcData, lcDataFormatted, lcJsonString, lcListaCIF, lcSend, lcServer, lcCodFiscal, llDataCursor Local ldData, lnRec, lnRecords, loJsonObject, lnIdx, lnRec1, lnRec2, lnGrup, lnGrupuri, loEx As Exception Local loVerificareCod As "VerificareCod" Local lcCodFiscalFRO, lcCodTara, lcMesaj, llRO, lnReqNo, lnWaitSeconds, laFound, lcCodJudet lcJsonString = "" lcAlias = Iif(!Empty(m.tcAlias) And Type('tcAlias') = "C", m.tcAlias, "crsANAF") USE IN (SELECT(m.lcAlias)) ldData = Iif(!Empty(m.tdData) And Type('tdData') = "D", m.tdData, Date()) lcData = Dtos(m.ldData) *lcDataFormatted = Left(m.lcData, 4) + "-" + Substr(m.lcData, 5, 2) + "-" + Substr(m.lcData, 7, 2) lnRecords = Reccount(tcCursorListaCIF) IF m.lnRecords = 0 Return m.lcAlias ENDIF llDataCursor = (TYPE(tcCursorListaCIF + '.data') = 'D') && daca exista coloana data in cursor, folosesc data din cursor, daca este completata goLog.Log('lnRecords: ' + Transform(m.lnRecords), 'ANAF_SincronWebService_PlatitorTva') Try loHTTP = Createobject('winHTTP.winHTTPrequest.5.1') Try loHTTP.SetTimeouts(2000, 2000, 3000, 3000) Catch To loEx Endtry Catch To loEx ENDTRY If Type('loHTTP') <> 'O' Try loHTTP = Createobject('Microsoft.XMLHTTP') && 04.07.2016 Catch To loEx AMESSAGEBOX(loEx.Message, 0 + 16, _Screen.Caption) Endtry Endif If Type('loHTTP') <> 'O' goLog.Log("TYPE('loHTTP') <> 'O'", 'ANAF_SincronWebService_PlatitorTva') Return m.lcAlias Endif * lcServer = 'https://webservicesp.anaf.ro:/PlatitorTvaRest/api/v1/ws/tva' && api v1 * lcServer = 'https://webservicesp.anaf.ro/PlatitorTvaRest/api/v3/ws/tva' *!* lcServer = 'https://webservicesp.anaf.ro/PlatitorTvaRest/api/v5/ws/tva' *!* lcServer = 'https://webservicesp.anaf.ro/PlatitorTvaRest/api/v6/ws/tva' lcServer = 'https://webservicesp.anaf.ro/api/PlatitorTvaRest/v9/tva' loVerificareCod = Createobject("VerificareCod") lnReqNo = 100 && maxim 100 CUI-uri pe verificare lnWaitSeconds = 1 && minim 1 secunda intre interogari lnGrupuri = Max(CEILING(m.lnRecords / m.lnReqNo), 1) && grupuri de cate 500 de coduri maxim per interogare For lnGrup = 1 To m.lnGrupuri lnRec1 = m.lnReqNo * (m.lnGrup - 1) + 1 lnRec2 = Min(m.lnReqNo * m.lnGrup, m.lnRecords) Wait Window 'Verific codurile fiscale ' + Alltrim(Str(m.lnRec1)) + '..' + Alltrim(Str(m.lnRec2)) + ' / ' + Alltrim(Str(m.lnRecords)) Nowait Release laCoduri Dimension laCoduri(m.lnRec2 - lnRec1 + 1) lnIdx = 0 Select (m.tcCursorListaCIF) Scan For Between(Recno(), lnRec1, lnRec2) lcCodFiscal = Alltrim(cod_fiscal) IF m.llDataCursor AND !EMPTY(data) lcData = DTOS(data) ELSE lcData = DTOS(m.ldData) ENDIF lcDataFormatted = Left(m.lcData, 4) + "-" + Substr(m.lcData, 5, 2) + "-" + Substr(m.lcData, 7, 2) lcCodTara = loVerificareCod.GetCodTara(m.lcCodFiscal) llRO = (m.lcCodTara = 'RO') lcCodFiscalFRO = Strtran(m.lcCodFiscal, m.lcCodTara, '') lcCodFiscalFRO = Strtran(Strtran(Strtran(m.lcCodFiscalFRO, ' ', ''), 'RO', ''), 'R', '') If m.llRO AND (Isdigit(m.lcCodFiscalFRO) and Len(m.lcCodFiscalFRO) <= 10) loCol = Createobject("empty") AddProperty(loCol, "cui", Int(Val(m.lcCodFiscalFRO))) AddProperty(loCol, "data", m.lcDataFormatted) lnIdx = lnIdx + 1 laCoduri[lnIdx] = loCol ENDIF Endscan && tcCursorListaCIF IF m.lnIdx > 0 Dimension laCoduri(lnIdx) ENDIF lcSend = nfjsoncreate(@laCoduri) goLog.Log('lcSend: ' + m.lcSend, 'ANAF_SincronWebService_PlatitorTva') lcJsonString = '' Try loHTTP.Open('POST', lcServer, .F.) && !!! POST e blocat de furnizor loHTTP.setRequestHeader("Content-Type", "application/json;") loHTTP.Send(lcSend) If loHTTP.Status = 200 lcJsonString = ALLTRIM(loHTTP.responseText) IF LEFT(m.lcJsonString,1) <> '{' IF 'mentenanta'$LOWER(m.lcJsonString) AMESSAGEBOX('Serviciul web ANAF este in mentenanta!',0+48,_screen.Caption) ELSE AMESSAGEBOX('Serviciul web ANAF nu a intors un raspuns corespunzator.!' + CHR(13) + CHR(10) + m.lcJsonString,0+48,_screen.Caption) ENDIF lcJsonString = '' ENDIF ENDIF Catch To loEx AMESSAGEBOX(loEx.Message, 0 + 16, _Screen.Caption) Endtry * goLog.Log('lcJsonString: ' + m.lcJsonString, 'ANAF_SincronWebService_PlatitorTva') * If Not Empty(m.lcJsonString) TRY loJsonObject = nfjsonread(m.lcJsonString) && nfJson from http://vfpx.codeplex.com/ lcCodJudet = "" IF TYPE('loJsonObject.found_vfpsafe_[1].adresa_domiciliu_fiscal.dcod_judet') <> 'U' lcCodJudet = loJsonObject.found_vfpsafe_[1].adresa_domiciliu_fiscal.dcod_judet ENDIF IF !EMPTY(m.lcCodJudet) lcAlias = This.ParseJsonANAFv8(loJsonObject, m.tcAlias) ELSE lcMesaj = 'Serviciul web ANAF intors mesaj de eroare: ' + IIF(TYPE('loJsonObject.message') = 'C', loJsonObject.message, '') AMESSAGEBOX(m.lcMesaj, 0+48, _screen.Caption) ENDIF CATCH TO loEx AMESSAGEBOX(loEx.Message, 0 + 16, _Screen.Caption) ENDTRY Endif If m.lnGrup < m.lnGrupuri INKEY(m.lnWaitSeconds)&& astept o secunda intre interogari ENDIF Endfor && lnGrup * Return m.lcAlias Endfunc && ANAF_SincronWebService_PlatitorTva ************************************* *** Parseaza obiectul cu raspunsul de la ANAF si creeaza cursorul crsANAF *** intoarce numele cursorului creat ************************************* Procedure ParseJsonANAFv8 Lparameters toJsonObject, m.tcAlias Local lcSave_SetDate, lnRec, loRec, loAdresa Local lcAlias, lnCUI, lnRecords, loDate, loDateGenerale, loEx, loInregistrareRTVAI Local loInregistrareSplitTVA, loInregistrareTVA, loJsonObject, loStareInactiv loJsonObject = Iif(Type('toJsonObject') = "O" And Pemstatus(toJsonObject, "found_vfpsafe_", 5), toJsonObject, Null) lcAlias = Iif(!Empty(m.tcAlias) And Type('tcAlias') = "C", m.tcAlias, "crsANAF") If !Used(m.lcAlias) Create Cursor (m.lcAlias) (cui N(13), data D, denumire V(100), firma V(100), adresa C(244), nrRegCom C(30), scpTVA L, data_inceput_ScpTVA D, data_sfarsit_ScpTVA D, data_anul_imp_ScpTVA D, mesaj_ScpTVA C(244), ; dataInceputTvaInc D, dataSfarsitTvaInc D, dataActualizareTvaInc D, dataPublicareTvaInc D, tipActTvaInc C(100), statusTvaIncasare L, dataInactivare D, dataReactivare D, dataPublicare D, dataRadiere D, statusInactivi L, ; dataInceputSplitTVA D, dataAnulareSplitTVA D, statusSplitTVA L, ; tva L, tvaincasare L, splittva L, inactiv L, ; mesaj V(100), judet V(100), strada V(100), nr V(20), localitate V(100), Bloc V(20), scara V(20), etaj V(20), apart V(20)) Endif If !Isnull(loJsonObject) goLog.Log('JsonObject ' + Transform(Alen(loJsonObject.found_vfpsafe_, 1)) + ' found ' + Transform(Alen(loJsonObject.notfound, 1)) + ' not found', 'ParseJsonANAF') lcSave_SetDate = Set("Date") Set Date To YMD Try * lnRecords = Alen(loJsonObject.found_vfpsafe_, 1) For lnRec = 1 To m.lnRecords loRec = loJsonObject.found_vfpsafe_(m.lnRec) If Type('loRec') <> 'O' LOOP ENDIF SELECT (m.lcAlias) SCATTER NAME loDate MEMO BLANK IF TYPE('loRec.date_generale') = 'O' loDateGenerale = loRec.date_generale loDateGenerale.adresa = This.RemoveCharacters(loDateGenerale.adresa) loAdresa = This.ParseAdresaAnaf(loDateGenerale.adresa) loDate.cui = loDateGenerale.Cui loDate.data = CTOD(loDateGenerale.data) loDate.denumire = This.RemoveCharacters(loDateGenerale.denumire) loDate.firma = loDateGenerale.denumire loDate.adresa = loDateGenerale.adresa loDate.judet = loAdresa.judet loDate.strada = loAdresa.strada loDate.nr = loAdresa.nr loDate.localitate = loAdresa.localitate loDate.bloc = loAdresa.Bloc loDate.scara = loAdresa.scara loDate.etaj = loAdresa.etaj loDate.apart = loAdresa.apart loDate.nrRegCom = IIF(TYPE('loDateGenerale.nrRegCom') <> 'U', loDateGenerale.nrRegCom, '') ENDIF IF TYPE('loRec.inregistrare_scop_tva') = 'O' loInregistrareTVA = loRec.inregistrare_scop_tva loDate.scpTVA = loInregistrareTVA.scpTVA IF TYPE('loInregistrareTVA.perioade_tva',1) <> "U" TRY loDate.data_inceput_ScpTVA = CTOD(loInregistrareTVA.perioade_tva[1].data_inceput_ScpTVA) loDate.data_sfarsit_ScpTVA = CTOD(loInregistrareTVA.perioade_tva[1].data_sfarsit_ScpTVA) loDate.data_anul_imp_ScpTVA = CTOD(loInregistrareTVA.perioade_tva[1].data_anul_imp_ScpTVA) loDate.mesaj_ScpTVA = loInregistrareTVA.perioade_tva[1].mesaj_ScpTVA IF !Empty(loInregistrareTVA.perioade_tva[1].data_inceput_ScpTVA) And Empty(loDate.data_inceput_ScpTVA) goLog.Log('ParseJsonANAFv8: data_inceput_ScpTVA neparsabila (' + loInregistrareTVA.perioade_tva[1].data_inceput_ScpTVA + ')', 'ParseJsonANAF') ENDIF IF !Empty(loInregistrareTVA.perioade_tva[1].data_sfarsit_ScpTVA) And Empty(loDate.data_sfarsit_ScpTVA) goLog.Log('ParseJsonANAFv8: data_sfarsit_ScpTVA neparsabila (' + loInregistrareTVA.perioade_tva[1].data_sfarsit_ScpTVA + ')', 'ParseJsonANAF') ENDIF IF !Empty(loInregistrareTVA.perioade_tva[1].data_anul_imp_ScpTVA) And Empty(loDate.data_anul_imp_ScpTVA) goLog.Log('ParseJsonANAFv8: data_anul_imp_ScpTVA neparsabila (' + loInregistrareTVA.perioade_tva[1].data_anul_imp_ScpTVA + ')', 'ParseJsonANAF') ENDIF CATCH TO loEx ENDTRY ENDIF ENDIF IF TYPE('loRec.inregistrare_RTVAI') = 'O' loInregistrareRTVAI = loRec.inregistrare_RTVAI loDate.dataInceputTvaInc = CTOD(loInregistrareRTVAI.dataInceputTvaInc) loDate.dataSfarsitTvaInc = CTOD(loInregistrareRTVAI.dataSfarsitTvaInc) loDate.dataActualizareTvaInc = CTOD(loInregistrareRTVAI.dataActualizareTvaInc) loDate.dataPublicareTvaInc = CTOD(loInregistrareRTVAI.dataPublicareTvaInc) loDate.tipActTvaInc = loInregistrareRTVAI.tipActTvaInc loDate.statusTvaIncasare = loInregistrareRTVAI.statusTvaIncasare ENDIF IF TYPE('loRec.stare_inactiv') = 'O' loStareInactiv = loRec.stare_inactiv loDate.dataInactivare = CTOD(loStareInactiv.dataInactivare) loDate.dataReactivare = CTOD(loStareInactiv.dataReactivare) loDate.dataPublicare = CTOD(loStareInactiv.dataPublicare) loDate.dataRadiere = CTOD(loStareInactiv.dataRadiere) loDate.statusInactivi = loStareInactiv.statusInactivi ENDIF IF TYPE('loRec.inregistrare_SplitTVA') = 'O' loInregistrareSplitTVA = loRec.inregistrare_SplitTVA loDate.dataInceputSplitTVA = CTOD(loInregistrareSplitTVA.dataInceputSplitTVA) loDate.dataAnulareSplitTVA = CTOD(loInregistrareSplitTVA.dataAnulareSplitTVA) loDate.statusSplitTVA = loInregistrareSplitTVA.statusSplitTVA loDate.statusSplitTVA = loInregistrareSplitTVA.statusSplitTVA ENDIF loDate.tva = loDate.scpTVA loDate.tvaincasare = loDate.statusTvaIncasare loDate.splittva = loDate.statusSplitTVA loDate.inactiv = loDate.statusInactivi loDate.mesaj = loDate.mesaj_ScpTVA IF !EMPTY(NVL(loDate.cui, 0)) Insert Into (m.lcAlias) FROM NAME loDate ENDIF Endfor For lnRec = 1 To Alen(loJsonObject.notfound, 1) lnCUI = loJsonObject.notfound(m.lnRec) If Type('lnCUI') = 'N' SELECT (m.lcAlias) SCATTER NAME loDate MEMO BLANK loDate.cui = m.lnCUI IF !EMPTY(NVL(loDate.cui, 0)) Insert Into (m.lcAlias) FROM NAME loDate ENDIF Endif Endfor * Finally Set Date To &lcSave_SetDate Endtry Else goLog.Log('JsonObject is null', 'ParseJsonANAF') Endif Return m.lcAlias ENDPROC ************************************* *** Parseaza obiectul cu raspunsul de la ANAF si creeaza cursorul crsANAF *** intoarce numele cursorului creat ************************************* Procedure ParseJsonANAFv3 Lparameters toJsonObject, m.tcAlias Local lcSave_SetDate, lnRec, loRec, loAdresa loJsonObject = Iif(Type('toJsonObject') = "O" And Pemstatus(toJsonObject, "found_vfpsafe_", 5), toJsonObject, Null) lcAlias = Iif(!Empty(m.tcAlias) And Type('tcAlias') = "C", m.tcAlias, "crsANAF") If !Used(m.lcAlias) Create Cursor (m.lcAlias) (cui N(13), data D, denumire V(100), firma V(100), adresa C(244), nrRegCom C(30), scpTVA L, data_inceput_ScpTVA D, data_sfarsit_ScpTVA D, data_anul_imp_ScpTVA D, mesaj_ScpTVA C(244), ; dataInceputTvaInc D, dataSfarsitTvaInc D, dataActualizareTvaInc D, dataPublicareTvaInc D, tipActTvaInc C(100), statusTvaIncasare L, dataInactivare D, dataReactivare D, dataPublicare D, dataRadiere D, statusInactivi L, ; dataInceputSplitTVA D, dataAnulareSplitTVA D, statusSplitTVA L, ; tva L, tvaincasare L, splittva L, inactiv L, ; mesaj V(100), judet V(100), strada V(100), nr V(20), localitate V(100), Bloc V(20), scara V(20), etaj V(20), apart V(20)) Endif If !Isnull(loJsonObject) goLog.Log('JsonObject ' + Transform(Alen(loJsonObject.found_vfpsafe_, 1)) + ' found ' + Transform(Alen(loJsonObject.notfound, 1)) + ' not found', 'ParseJsonANAF') lcSave_SetDate = Set("Date") Set Date To YMD * For lnRec = 1 To Alen(loJsonObject.found_vfpsafe_, 1) loRec = loJsonObject.found_vfpsafe_(m.lnRec) If Type('loRec') = 'O' loRec.adresa = This.RemoveCharacters(loRec.adresa) loAdresa = This.ParseAdresaAnaf(loRec.adresa) lcNrRegCom = IIF(TYPE('loRec.nrRegCom') <> 'U', loRec.nrRegCom, '') Insert Into (m.lcAlias) (cui, data, denumire, firma, adresa, nrRegCom, ; scpTVA, data_inceput_ScpTVA, data_sfarsit_ScpTVA, data_anul_imp_ScpTVA, mesaj_ScpTVA, ; dataInceputTvaInc, dataSfarsitTvaInc, dataActualizareTvaInc, dataPublicareTvaInc, tipActTvaInc, statusTvaIncasare, ; dataInactivare, dataReactivare, dataPublicare, dataRadiere, statusInactivi, ; dataInceputSplitTVA, dataAnulareSplitTVA, statusSplitTVA, ; tva, tvaincasare, splittva, inactiv, ; mesaj, judet, strada, nr, localitate, Bloc, scara, etaj, apart) VALUES ; (loRec.cui, CTOD(loRec.data), loRec.denumire, loRec.denumire, loRec.adresa, m.lcNrRegCom, ; loRec.scpTVA, CTOD(loRec.data_inceput_ScpTVA), CTOD(loRec.data_sfarsit_ScpTVA), CTOD(loRec.data_anul_imp_ScpTVA), loRec.mesaj_ScpTVA, ; CTOD(loRec.dataInceputTvaInc), CTOD(loRec.dataSfarsitTvaInc), CTOD(loRec.dataActualizareTvaInc), CTOD(loRec.dataPublicareTvaInc), loRec.tipActTvaInc, loRec.statusTvaIncasare, ; CTOD(loRec.dataInactivare), CTOD(loRec.dataReactivare), CTOD(loRec.dataPublicare), CTOD(loRec.dataRadiere), loRec.statusInactivi, ; CTOD(loRec.dataInceputSplitTVA), CTOD(loRec.dataAnulareSplitTVA), loRec.statusSplitTVA, ; loRec.scpTVA, loRec.statusTvaIncasare, loRec.statusSplitTVA, loRec.statusInactivi, ; loRec.mesaj_ScpTVA, loAdresa.judet, loAdresa.strada, loAdresa.nr, loAdresa.localitate, loAdresa.Bloc, loAdresa.scara, loAdresa.etaj, loAdresa.apart) Endif Endfor For lnRec = 1 To Alen(loJsonObject.notfound, 1) loRec = loJsonObject.notfound(m.lnRec) If Type('loRec') = 'O' loRec.adresa = This.RemoveCharacters(loRec.adresa) loAdresa = This.ParseAdresaAnaf(loRec.adresa) lcNrRegCom = IIF(TYPE('loRec.nrRegCom') <> 'U', loRec.nrRegCom, '') Insert Into (m.lcAlias) (cui, data, denumire, firma, adresa, nrRegCom, ; scpTVA, data_inceput_ScpTVA, data_sfarsit_ScpTVA, data_anul_imp_ScpTVA, mesaj_ScpTVA, ; dataInceputTvaInc, dataSfarsitTvaInc, dataActualizareTvaInc, dataPublicareTvaInc, tipActTvaInc, statusTvaIncasare, ; dataInactivare, dataReactivare, dataPublicare, dataRadiere, statusInactivi, ; dataInceputSplitTVA, dataAnulareSplitTVA, statusSplitTVA, ; tva, tvaincasare, splittva, inactiv, ; mesaj, judet, strada, nr, localitate, Bloc, scara, etaj, apart) VALUES ; (loRec.cui, CTOD(loRec.data), loRec.denumire, loRec.denumire, loRec.adresa, m.lcNrRegCom, ; loRec.scpTVA, CTOD(loRec.data_inceput_ScpTVA), CTOD(loRec.data_sfarsit_ScpTVA), CTOD(loRec.data_anul_imp_ScpTVA), loRec.mesaj_ScpTVA, ; CTOD(loRec.dataInceputTvaInc), CTOD(loRec.dataSfarsitTvaInc), CTOD(loRec.dataActualizareTvaInc), CTOD(loRec.dataPublicareTvaInc), loRec.tipActTvaInc, loRec.statusTvaIncasare, ; CTOD(loRec.dataInactivare), CTOD(loRec.dataReactivare), CTOD(loRec.dataPublicare), CTOD(loRec.dataRadiere), loRec.statusInactivi, ; CTOD(loRec.dataInceputSplitTVA), CTOD(loRec.dataAnulareSplitTVA), loRec.statusSplitTVA, ; loRec.scpTVA, loRec.statusTvaIncasare, loRec.statusSplitTVA, loRec.statusInactivi, ; loRec.mesaj_ScpTVA, loAdresa.judet, loAdresa.strada, loAdresa.nr, loAdresa.localitate, loAdresa.Bloc, loAdresa.scara, loAdresa.etaj, loAdresa.apart) Endif Endfor * Set Date To &lcSave_SetDate Else goLog.Log('JsonObject is null', 'ParseJsonANAF') Endif Return m.lcAlias ENDPROC ************************************* *** Parseaza obiectul cu raspunsul de la ANAF si creeaza cursorul crsANAF *** intoarce numele cursorului creat ************************************* Procedure ParseJsonANAFv1 Lparameters toJsonObject, m.tcAlias Local lcSave_SetDate, lnRec, loRec, loAdresa loJsonObject = Iif(Type('toJsonObject') = "O" And Pemstatus(toJsonObject, "found_vfpsafe_", 5), toJsonObject, Null) lcAlias = Iif(!Empty(m.tcAlias) And Type('tcAlias') = "C", m.tcAlias, "crsANAF") If !Used(m.lcAlias) Create Cursor (m.lcAlias)(cui N(13), Data D, denumire V(100), firma V(100), adresa V(244), tva L, data_sfarsit D, data_anul_imp D, mesaj V(100), judet V(100), strada V(100), nr V(20), localitate V(100), Bloc V(20), scara V(20), etaj V(20), apart V(20)) Endif If !Isnull(loJsonObject) goLog.Log('JsonObject ' + Transform(Alen(loJsonObject.found_vfpsafe_, 1)) + ' found ' + Transform(Alen(loJsonObject.notfound, 1)) + ' not found', 'ParseJsonANAF') lcSave_SetDate = Set("Date") Set Date To YMD * For lnRec = 1 To Alen(loJsonObject.found_vfpsafe_, 1) loRec = loJsonObject.found_vfpsafe_(m.lnRec) If Type('loRec') = 'O' loRec.adresa = This.RemoveCharacters(loRec.adresa) loAdresa = This.ParseAdresaAnaf(loRec.adresa) Insert Into (m.lcAlias) (cui, Data, denumire, firma, adresa, tva, data_sfarsit, data_anul_imp, mesaj, judet, strada, nr, localitate, Bloc, scara, etaj, apart) Values; (loRec.cui, Ctod(loRec.Data), loRec.denumire, loRec.denumire, loRec.adresa, loRec.tva, Ctod(loRec.data_sfarsit), Ctod(loRec.data_anul_imp), loRec.mesaj, loAdresa.judet, loAdresa.strada, loAdresa.nr, loAdresa.localitate, loAdresa.Bloc, loAdresa.scara, loAdresa.etaj, loAdresa.apart) Endif Endfor For lnRec = 1 To Alen(loJsonObject.notfound, 1) loRec = loJsonObject.notfound(m.lnRec) If Type('loRec') = 'O' loRec.adresa = This.RemoveCharacters(loRec.adresa) loAdresa = This.ParseAdresaAnaf(loRec.adresa) Insert Into (m.lcAlias) (cui, Data, denumire, firma, adresa, tva, data_sfarsit, data_anul_imp, mesaj, judet, strada, nr, localitate, Bloc, scara, etaj, apart) Values; (loRec.cui, Ctod(loRec.Data), loRec.denumire, loRec.denumire, loRec.adresa, loRec.tva, Ctod(loRec.data_sfarsit), Ctod(loRec.data_anul_imp), loRec.mesaj, loAdresa.judet, loAdresa.strada, loAdresa.nr, loAdresa.localitate, loAdresa.Bloc, loAdresa.scara, loAdresa.etaj, loAdresa.apart) Endif Endfor * Set Date To &lcSave_SetDate Else goLog.Log('JsonObject is null', 'ParseJsonANAF') Endif Return m.lcAlias Endproc *** curata textul de diacritice, spatii, CR/LF Function RemoveCharacters Lparameters tcText, tlDiacritics, tlSpaces, tlCR *** tcText: textul initial *** tlDiacritics: inlocuieste diacriticele *** tlSpaces: sterge spatiile *** tlCR: sterge CR si LF If Pcount() = 1 tlDiacritics = .T. Endif Local lcText lcText = Nvl(m.tcText, '') If m.tlDiacritics lcText = STRTRAN(STRTRAN(Strtran(Nvl(m.lcText, ''), Chr(197) + CHR(162), 'T', 1,100,1), Chr(197) + CHR(63), 'S', 1,100,1), Chr(196) + CHR(63), 'A', 1,100,1) lcText = Strtran(Nvl(m.lcText, ''), Chr(195) + CHR(63), 'I', 1,100,1) lcText = Strtran(Strtran(Strtran(Strtran(Strtran(Nvl(m.lcText, ''), Chr(170), 'S', 1,100,1), Chr(222), 'T', 1,100,1), Chr(226), 'A', 1,100,1), Chr(227), 'A', 1,100,1), Chr(238), 'I', 1,100,1) lcText = STRTRAN(Strtran(Strtran(Strtran(Nvl(m.lcText, ''), Chr(206), 'I', 1,100,1), Chr(194), 'A', 1,100,1), Chr(195), 'A', 1,100,1), Chr(196), 'A', 1,100,1) Endif If m.tlSpaces lcText = Strtran(m.lcText, ' ', '', 1, 100, 1) Endif If m.tlCR lcText = Strtran(Strtran(m.lcText, Chr(13), ''), Chr(10), '') Endif Return m.lcText ENDFUNC ****************************************************** *** Primeste o adresa de forma * JUD. CONSTANTA, MUN. CONSTANTA, ALEEA CRIZANTEMELOR, NR.6, CAMERA 2, BL.H1, SC.F, ET.2, AP.109 *** Intoarce un obiect cu proprietatile: STRADA, NR, LOCALITATE ****************************************************** Procedure ParseAdresaAnaf Lparameters tcAdresa * JUD. CONSTANTA, MUN. CONSTANTA, ALEEA CRIZANTEMELOR, NR.6, CAMERA 2, BL.H1, SC.F, ET.2, AP.109 Local lcAdresa, loAdresa, lcCamera, lcItem, lnItem, lnItems, lcPrefix lcAdresa = Iif(!Empty(m.tcAdresa) And Type('tcAdresa') = 'C', Alltrim(m.tcAdresa), "") lcCamera = "" loAdresa = Createobject("empty") AddProperty(loAdresa, "judet", "") AddProperty(loAdresa, "strada", "") AddProperty(loAdresa, "nr", "") AddProperty(loAdresa, "localitate", "") AddProperty(loAdresa, "bloc", "") AddProperty(loAdresa, "scara", "") AddProperty(loAdresa, "etaj", "") AddProperty(loAdresa, "apart", "") If !Empty(m.lcAdresa) lnItems = Getwordcount(m.lcAdresa) For lnItem = 1 To m.lnItems lcItem = Alltrim(Getwordnum(m.lcAdresa, m.lnItem, ',')) Do Case Case m.lnItem = 1 && 'JUD.'$UPPER(lcItem) *!* lcJudet = ALLTRIM(STRTRAN(m.lcItem, 'JUD.', '',1,1,1)) loAdresa.judet = Getwordnum(m.lcItem, 2, ' ') && CONSTANTA Case m.lnItem = 2 && 'MUN.'$UPPER(lcItem) *!* lcLocalitate = ALLTRIM(STRTRAN(m.lcItem, 'MUN.', '',1,1,1)) IF LEFT(m.lcItem, 7) = "SECTOR " loAdresa.localitate = STRTRAN(m.lcItem, "SECTOR ", "BUCURESTI SECTORUL ") ELSE loAdresa.localitate = Getwordnum(m.lcItem, 2, ' ') && CONSTANTA ENDIF Case m.lnItem = 3 lcPrefix = Getwordnum(m.lcItem, 1, ' ') && STR. / BD. loAdresa.strada = ALLTRIM(STRTRAN(m.lcItem, m.lcPrefix, '',1,1,1)) && Getwordnum(m.lcItem, 2, ' ') && CRIZANTEMELOR Case m.lnItem = 4 loAdresa.nr = Alltrim(Strtran(m.lcItem, 'NR.', '', 1, 1, 1)) && 6 ENDCASE IF Left(Upper(m.lcItem), 3) = 'BL.' loAdresa.Bloc = Alltrim(Strtran(m.lcItem, 'BL.', '', 1, 1, 1)) && H1 ENDIF IF Left(Upper(m.lcItem), 3) = 'SC.' loAdresa.scara = Alltrim(Strtran(m.lcItem, 'SC.', '', 1, 1, 1)) && F ENDIF IF Left(Upper(m.lcItem), 3) = 'ET.' loAdresa.etaj = Alltrim(Strtran(m.lcItem, 'ET.', '', 1, 1, 1)) && 2 ENDIF IF Left(Upper(m.lcItem), 3) = 'AP.' loAdresa.apart = Alltrim(Strtran(m.lcItem, 'AP.', '', 1, 1, 1)) && 109 ENDIF IF Left(Upper(m.lcItem), 6) = 'CAMERA' lcCamera = Alltrim(Strtran(m.lcItem, 'CAMERA', '', 1, 1, 1)) && 2 ENDIF ENDFOR If !Empty(m.lcCamera) And !Empty(loAdresa.apart) loAdresa.apart = loAdresa.apart + ' C. ' + m.lcCamera Endif Endif && !empty Return loAdresa Endproc Enddefine && VerificareANAF *** WEBSITE ALTERNATIV PENTRU VERIFICARE PLATITOR TVA VIES Procedure VIES_VAT Lparameters tara, vat_id Local lResult lResult = .F. #Define HTTPSTATUS_OK 200 #Define HTTPSTATUS_CREATED 201 #Define HTTPSTATUS_ACCEPTED 202 #Define HTTPSTATUS_MULTISTATUS 207 #Define HTTPSTATUS_BADREQUEST 400 #Define HTTPSTATUS_UNAUTHORIZED 401 #Define HTTPSTATUS_FORBIDDEN 403 #Define HTTPSTATUS_NOTFOUND 404 #Define HTTPSTATUS_INTERNALSERVERERROR 500 Local oHTTP As "Microsoft.XMLHTTP", cURL oHTTP = Createobject("Microsoft.XMLHTTP") cURL = 'http://isvat.appspot.com/' + Upper(Trim(tara)) + '/' + Upper(Trim(vat_id)) + '/' Try oHTTP.Open("GET", cURL, .F.) oHTTP.Send() If oHTTP.Status = HTTPSTATUS_OK lResult = Iif(oHTTP.responseText = 'true', .T., .F.) Endif Catch lResult = .F. * error handling code here. Endtry Return lResult Endproc && VIES_VAT Procedure ONRC cCui = '1879855' oHTTP = Createobject('winhttp.winhttprequest.5.1') oHTTP.Open('POST', 'http://recom1-ssl.onrc.ro/cgi-bin/intguest.cgi', .F.) oHTTP.setRequestHeader("Content-Type", "application/x-www-form-urlencoded") oHTTP.setRequestHeader("Referrer", "http://recom1-ssl.onrc.ro/cgi-bin/recom.cgi?o7=1&l=R") oHTTP.setRequestHeader("Authorization", "Basic Z3Vlc3Q6Z3Vlc3Q") oHTTP.setRequestHeader("credentials", "guest:guest") oHTTP.Send("l=R&o=7&jud=99&cfiscalf=" + cCui + "&cauta=Selectie") cTable = Strextract(oHTTP.responseText, '', 5, 4) Messagebox(cTable) Endproc && ONRC *** FORMULAR INTRODUCERE COD KAPTCH MFINANTE Define Class IntroducereCod As Form Height = 140 Width = 393 DoCreate = .T. AutoCenter = .T. Caption = "Cod Siguranta Ministerul de Finante" WindowType = 1 cCod = "" _MemberData = [] ccodfile = "" Name = "Form1" ControlBox = .F. Add Object label1 As Label With ; BackStyle = 0, ; Caption = "Introduceti codul din imaginea de mai sus" + CRLF + "si apasati ENTER", ; Height = 40, ; Left = 39, ; Top = 84, ; Width = 234, ; Name = "Label1" Add Object text1 As TextBox With ; FontBold = .T., ; FontSize = 12, ; Height = 30, ; Left = 283, ; Top = 76, ; Width = 54, ; Name = "Text1" Add Object imagine As Image With ; Height = 53, ; Left = 83, ; Top = 12, ; Width = 200, ; Name = "Imagine" Procedure Init Lparameters tcCodFile This.ccodfile = m.tcCodFile Thisform.imagine.Picture = m.tcCodFile This.Icon = _Screen.Icon Endproc Procedure Unload Return This.cCod Endproc Procedure text1.Valid Thisform.cCod = Alltrim(This.Value) Thisform.Hide() Endproc Enddefine && IntroducereCod