romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
5c8a201438b0d12b0e8063566bfd83c85881c723
comun/programe/validare.prg
Marius Mutu 5c8a201438 Cache ANAF: verificarea in masa a codurilor fiscale, pe transe (SVN r17935) 
Verificarea "in masa" (VerificaListaCIF ... 'MASA') pica pe ORA-01795 peste 1000
de coduri, iar esecul trimitea tot lotul la ANAF, cu pauze de o secunda la fiecare
100 de coduri. Pe langa asta, fiecare rand servit din cache era salvat inapoi in
istoric si logat separat.

- programe/validare.prg: CitesteIstoricPentruCoduri citeste pe transe de maxim
  1000 de coduri legate cu OR in aceeasi interogare (fara obiecte noi in baza,
  compatibil cu Oracle 10g); plasa de siguranta cere codurile neacoperite o
  singura data, nu cod cu cod; SalveazaIstoricDinCursor sare peste randurile cu
  sursa CACHE*; bucla de log per rand devine o singura linie cu totalul.
- clase/overificari.vc2: completarea tabelului de parteneri foloseste index pe
  codul normalizat si SEEK in loc de LOCATE cu UDF (era patratic).
- utile/Teste/cache_anaf/: harness-uri de masurare si non-regresie pentru
  timpii de mai jos.

Masurat pe MARIUSM_AUTO, cu ANAF blocat: 1000 de coduri 5,1 s -> 0,318 s;
1001 coduri 16,6 s cu ORA-01795 -> 0,553 s fara eroare; 3000 de coduri 1,565 s;
200 de coduri din cache 3,93 s -> 0,05 s, cu 0 randuri noi in istoric;
completarea tabelului pentru 2000 de parteneri 11,97 s -> 0,028 s.
Randurile intoarse si verdictele raman identice.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01JCzVWfqscv1xyo5uvJiWiW
2026-08-02 07:27:42 +03:00

2991 lines
115 KiB
Plaintext
Raw Blame History

*!* 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
*!* 31.07.2026
*!* marius.mutu
*!* VerificareANAF: cache ANAF pe ISTORIC_CODURI_FISCALE (SalveazaIstoricDinCursor/CitesteIstoricPentruCoduri/
*!* OrdineCache/ZileCache/NormalizeazaCoduriCursor); VerificaListaCIF si ANAF_VerificaCuiSingle salveaza
*!* rezultatele ANAF in istoric; VerificaListaCIF primeste al patrulea parametru optional tcTraseu
*!* ('UNIC'/'MASA', implicit MASA) si citeste ordinea cu OrdineCache(tcTraseu), cu plasa de siguranta la
*!* tacere din istoric si provenienta (sursa/data_sursa) marcata in crsANAF si logata; VERIFICARE_CIF
*!* trimite si tvaincasare/splittva/inactiv la salvare; sursa/data_sursa ajung si pana la obiectul
*!* intors de VERIFICARE_CIF (GetEmptyMfinObj, Procedure ANAF, cursorul cVerificareCod)
*!* 01.08.2026
*!* marius.mutu
*!* VerificaListaCIF, ramura CACHE,ANAF: apelul ramas catre ANAF_SincronWebService_PlatitorTva foloseste
*!* acum un alias temporar (mergeuit apoi in crsANAF), ca randurile deja citite din cache sa nu mai fie
*!* sterse si reetichetate gresit CACHE_INDISP; plus golire explicita a aliasului la intrarea in
*!* VerificaListaCIF, ca sa nu mai acumuleze intre apeluri succesive cu alias implicit (Procedure ANAF) -
*!* defecte gasite la revizia de ansamblu dupa transa cache ANAF
*!* 01.08.2026
*!* marius.mutu
*!* SalveazaIstoricDinCursor trimite acum provenienta randului (sursa) la save_istoric_cod_fiscal, al
*!* 27-lea parametru pnDinCache; pachetul Oracle nu mai improspateaza DATAORAV_ANAF cand randul vine
*!* din cache (CACHE/CACHE_INDISP) - doar cand vin efectiv date noi de la ANAF - dar DATAORAV/ID_UTILV
*!* (urma de audit "cine si cand a verificat partenerul") se actualizeaza in continuare, indiferent de
*!* provenienta; altfel cache-ul isi reseta singur ceasul de prospetime la fiecare citire si nu mai
*!* expira niciodata
*!* 02.08.2026
*!* marius.mutu
*!* SalveazaIstoricDinCursor sare peste randurile provenite din cache - au fost deja salvate cand au
*!* ajuns prima data din ANAF; VerificaListaCIF lasa o singura linie in goLog cu totalul randurilor
*!* completate din cache (CACHE si CACHE_INDISP), in loc de o linie per rand; CitesteIstoricPentruCoduri
*!* interogheaza codurile pe transe de maxim 1000, legate cu OR in aceeasi interogare (peste 1000
*!* elemente "in (...)" da ORA-01795); plasa de siguranta din VerificaListaCIF aduna codurile ramase
*!* fara raspuns si cere istoricul intr-un singur apel, in loc de un apel Oracle per cod
*!* 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, lcSqlIstoric, lcSursa, ldDataSursa
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.
lcSursa = ''
ldDataSursa = {}
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, sursa C(20), data_sursa D)
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
lcSursa = Nvl(loMFIN.sursa, 'ANAF')
ldDataSursa = Nvl(loMFIN.data_sursa, {})
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
lcSursa = Nvl(loMFIN.sursa, 'ANAF')
ldDataSursa = Nvl(loMFIN.data_sursa, {})
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, sursa, data_sursa) ;
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, m.lcSursa, m.ldDataSursa)
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, ;
pnInactiv, pnTvaIncasare, pnSplitTva
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)
pnInactiv = Iif(m.llInactiv, 1, 0)
pnTvaIncasare = Iif(m.llTVAIncasare, 1, 0)
pnSplitTva = Iif(m.llSplitTVA, 1, 0)
If !Empty(m.pcFirma)
*!* 02.08.2026 marius.mutu: tnDinCache = 2 - salvare fara date de interval, nu marcheaza prospetime de cache
lcSqlIstoric = "begin pack_parteneri.save_istoric_cod_fiscal(?pcCodFiscal,?pcFirma,?pcAdresa,?pcJudet,?pcRegCom,?pcCodPostal,?pcTelefon,?pcFax,?pcDataTvamfin,?pnPlatitorTvaMfin,?pcStare," + ;
"?pnPlatitorTvaVies,?pnInterogareVies,?gnIdUtil,?pnInactiv,?pnTvaIncasare,?pnSplitTva,tnDinCache=>2); end;"
lnSucces = goExecutor.oExecuta(m.lcSqlIstoric)
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
*!* 01.08.2026 marius.mutu: verificare unui singur CIF cerut manual - traseu UNIC (ANAF intai), nu implicitul MASA
lcCursorVerificareANAF = loVerificareANAF.VerificaListaCIF(m.lcCodFiscal, m.ldData, , 'UNIC')
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
loMFIN.sursa = Nvl(sursa, 'ANAF')
loMFIN.data_sursa = Nvl(data_sursa, {})
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 <table>
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
<s:Envelope xmlns:s='http://schemas.xmlsoap.org/soap/envelope/'>
<s:Body>
<checkVat xmlns='urn:ec.europa.eu:taxud:vies:services:checkVat:types'>
<countryCode><<m.lcCodTara>></countryCode>
<vatNumber><<m.tcCodFiscal>></vatNumber>
</checkVat>
</s:Body>
</s:Envelope>
ENDTEXT
loHTTP.Send(lcValues)
lnStatus = loHTTP.Status
If lnStatus = 200 && OK
lcXML = loHTTP.responseText
llPlatitorTVA = (STREXTRACT(m.lcXML, [<valid>],[</valid>],1,1) = 'true') && true/false
lcFirma = STRTRAN(STREXTRACT(m.lcXML, [<name>],[</name>],1,1), '-','',1,10,1)
lcAdresa = STRTRAN(STREXTRACT(m.lcXML, [<address>],[</address>],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)), '<TABLE', '</TABLE>'))
lcRand = Strextract( cTable, "<TR", "</TR>", lnRand )
lcReturn = Strextract( lcRand, [SIZE="2">], "</FONT>", 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)), '<TABLE', '</TABLE>', 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, '&nbsp;', ' ', 1, 1000, 1)
lcTable = Strtran(m.lcTable, '&amp;', '&', 1, 1000, 1)
*!* lcTable = STREXTRACT(m.lcResponse,'<table','table>',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), "&nbsp;", "", 1, 1000, 1)), Chr(9), ""))
laInfo(I, 2) = Alltrim(Strtran(Alltrim(Strtran(laInfo(I, 2), "&nbsp;", "", 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, '<table', 'table>', 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), "&nbsp;", "", 1, 10, 1)), Chr(9), ""))
laInfo(I, 2) = Alltrim(Strtran(Alltrim(Strtran(laInfo(I, 2), "&nbsp;", "", 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('<td', Lower(tcTable))
lcCell = Strextract(tcTable, '<td', 'td>', 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.)
AddProperty(loMFIN, "sursa", '')
AddProperty(loMFIN, "data_sursa", {})
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)
loVerificareANAF.SalveazaIstoricDinCursor(m.lcAliasTemp, gnIdUtil)
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)
*!* 01.08.2026 marius.mutu: pozitionare explicita - apelantul poate lasa cursorul pe EOF
Go Top
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
*!* 01.08.2026 marius.mutu: ultimul esec ANAF de pe traseul batch - se arata o singura data, la final, doar daca raman coduri neacoperite
cMesajANAF = ''
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))
*** Ordinea ANAF/cache vine din OrdineCache(tcTraseu) - tcTraseu optional ('UNIC'/'MASA'), implicit 'MASA'
*** cand lipseste sau e gol; pe CACHE,ANAF codurile cu rand proaspat in istoric nu se mai trimit la ANAF;
*** indiferent de ordine, codurile ramase fara raspuns (tacere) se completeaza din istoric drept plasa de
*** siguranta - codul gasit explicit "notFound" de ANAF nu atinge cache-ul, pentru ca primeste deja un
*** rand in crsANAF (denumire goala) si nu mai e considerat "tacere"
*************************************
Function VerificaListaCIF
Lparameters tcListaCIF, tdData, tcAlias, tcTraseu
* tcListaCIF: lista coduri fiscale sau numele unui cursor cu coduri fiscale
* tcTraseu: optional, 'UNIC' sau 'MASA' (vezi OrdineCache); implicit 'MASA' cand lipseste - apelantii
* existenti (fara al patrulea parametru) raman pe comportamentul de azi
Local llUsed, lcCursorListaCIF, lnRec, lnRecs, lcAlias
*!* 31.07.2026 marius.mutu: al patrulea parametru tcTraseu forteaza OrdineCache(tcTraseu) in loc de 'MASA' fix
Local lcOrdine, ldData, lcAliasNorm, lcListaCoduriN, lcCursorRamas, lnCuiCurent, lcCodFiscalCurent, ldDataCurenta, llGasitCache, lcCursorAnafTemp, loRandAnaf, lnFaraRaspuns, lnCache, lnCacheIndisp, lcListaCoduriRamase
lcCursorListaCIF = ""
llUsed = .F.
lcAlias = ""
lnFaraRaspuns = 0
This.cMesajANAF = ''
goLog.Log('tcListaCIF: ' + tcListaCIF, 'VerificaListaCIF')
If Used(tcListaCIF)
* cursor
lcCursorListaCIF = m.tcListaCIF
llUsed = .T.
Else
* lista
*!* 01.08.2026 marius.mutu: nume unic - "cListaCIFTemp" colida cu variabila locala din overificari.vc2:2734
lcCursorListaCIF = "crsListaCIFIntern"
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
ldData = Iif(!Empty(m.tdData) And Type('tdData') = "D", m.tdData, Date())
lcAlias = Iif(!Empty(m.tcAlias) And Type('tcAlias') = "C", m.tcAlias, "crsANAF")
*!* 01.08.2026 marius.mutu: golire explicita la intrare - dupa fixul de mai jos, nimic altceva nu mai garanteaza un alias curat pe niciun traseu
Use In (Select(m.lcAlias))
lcOrdine = This.OrdineCache(Iif(Empty(m.tcTraseu), 'MASA', Upper(Alltrim(m.tcTraseu))))
lcAliasNorm = This.NormalizeazaCoduriCursor(m.lcCursorListaCIF, m.ldData)
If Left(m.lcOrdine, 5) == 'CACHE'
* CACHE,ANAF: codurile cu rand proaspat in istoric nu se mai trimit la ANAF
lcListaCoduriN = ''
Select (m.lcAliasNorm)
Scan For cui_n <> 0
lcListaCoduriN = m.lcListaCoduriN + Iif(Empty(m.lcListaCoduriN), '', ',') + Alltrim(Str(cui_n))
Select (m.lcAliasNorm)
Endscan
This.CitesteIstoricPentruCoduri(m.lcListaCoduriN, m.ldData, m.lcAlias, 'CACHE')
lcCursorRamas = 'crsListaRamasANAF'
Use In (Select(m.lcCursorRamas))
Create Cursor (m.lcCursorRamas) (cod_fiscal c(30) Null, data D null)
Select (m.lcAliasNorm)
Scan
lnCuiCurent = cui_n
lcCodFiscalCurent = cod_fiscal
ldDataCurenta = data
llGasitCache = .F.
If m.lnCuiCurent <> 0 And Used(m.lcAlias) And Reccount(m.lcAlias) > 0
Select (m.lcAlias)
Locate For cui = m.lnCuiCurent
llGasitCache = Found()
Endif
If !m.llGasitCache
Insert Into (m.lcCursorRamas) (cod_fiscal, data) Values (m.lcCodFiscalCurent, m.ldDataCurenta)
Endif
Select (m.lcAliasNorm)
Endscan
If Reccount(m.lcCursorRamas) > 0
*!* 01.08.2026 marius.mutu: alias temporar - ANAF_SincronWebService_PlatitorTva goleste neconditionat aliasul primit (:2025), iar aici e deja populat din cache
lcCursorAnafTemp = 'crsAnafBatchTemp'
Use In (Select(m.lcCursorAnafTemp))
lcCursorAnafTemp = This.ANAF_SincronWebService_PlatitorTva(m.lcCursorRamas, m.tdData, m.lcCursorAnafTemp)
If Used(m.lcCursorAnafTemp) And Reccount(m.lcCursorAnafTemp) > 0
Select (m.lcCursorAnafTemp)
Scan
Scatter Name loRandAnaf Memo
Insert Into (m.lcAlias) FROM NAME loRandAnaf
Select (m.lcCursorAnafTemp)
Endscan
Endif
Use In (Select(m.lcCursorAnafTemp))
Endif
Use In (Select(m.lcCursorRamas))
Else
* ANAF,CACHE: comportamentul de azi, ANAF intai pentru toate codurile
lcAlias = This.ANAF_SincronWebService_PlatitorTva(m.lcCursorListaCIF, m.tdData, m.lcAlias)
Endif
If !m.llUsed
Use In (Select(lcCursorListaCIF))
Endif
* plasa de siguranta la tacere, indiferent de ordine: codurile fara rand in crsANAF (nici din ANAF,
* nici din cache) se completeaza acum din istoric, marcate CACHE_INDISP; un rand deja prezent
* (raspuns ANAF gasit sau notFound, sau deja servit din cache mai sus) nu e atins
lcListaCoduriRamase = ''
Select (m.lcAliasNorm)
Scan For cui_n <> 0
lnCuiCurent = cui_n
llGasitCache = .F.
If Used(m.lcAlias) And Reccount(m.lcAlias) > 0
Select (m.lcAlias)
Locate For cui = m.lnCuiCurent
llGasitCache = Found()
Endif
If !m.llGasitCache
lcListaCoduriRamase = m.lcListaCoduriRamase + Iif(Empty(m.lcListaCoduriRamase), '', ',') + Transform(m.lnCuiCurent)
Endif
Select (m.lcAliasNorm)
Endscan
Use In (Select(m.lcAliasNorm))
If !Empty(m.lcListaCoduriRamase)
This.CitesteIstoricPentruCoduri(m.lcListaCoduriRamase, m.ldData, m.lcAlias, 'CACHE_INDISP')
lnRecs = Getwordcount(m.lcListaCoduriRamase, ',')
For lnRec = 1 To m.lnRecs
lnCuiCurent = Val(Getwordnum(m.lcListaCoduriRamase, m.lnRec, ','))
llGasitCache = .F.
If Used(m.lcAlias) And Reccount(m.lcAlias) > 0
Select (m.lcAlias)
Locate For cui = m.lnCuiCurent
llGasitCache = Found()
Endif
lnFaraRaspuns = m.lnFaraRaspuns + Iif(m.llGasitCache, 0, 1)
Endfor
Endif
*!* 01.08.2026 marius.mutu: un singur mesaj la final, doar cand au ramas coduri fara verdict (nici de la ANAF, nici din cache)
If m.lnFaraRaspuns > 0 And !Empty(This.cMesajANAF)
AMESSAGEBOX(This.cMesajANAF + Chr(13) + Chr(10) + Alltrim(Str(m.lnFaraRaspuns)) + ' coduri fiscale nu au putut fi verificate.', 0 + 48, _Screen.Caption)
Endif
If Used(m.lcAlias) And Reccount(m.lcAlias) > 0
This.SalveazaIstoricDinCursor(m.lcAlias, gnIdUtil)
Endif
* criteriul 9: totalul randurilor completate din cache (CACHE si CACHE_INDISP), o singura linie in goLog
If Used(m.lcAlias) And Reccount(m.lcAlias) > 0
Select (m.lcAlias)
lnCache = 0
lnCacheIndisp = 0
Scan For Left(Nvl(sursa, ''), 5) == 'CACHE'
If Upper(Alltrim(sursa)) == 'CACHE_INDISP'
lnCacheIndisp = m.lnCacheIndisp + 1
Else
lnCache = m.lnCache + 1
Endif
Select (m.lcAlias)
Endscan
If m.lnCache + m.lnCacheIndisp > 0
goLog.Log('cache total=' + Transform(m.lnCache + m.lnCacheIndisp) + ' cache=' + Transform(m.lnCache) + ' cache_indisp=' + Transform(m.lnCacheIndisp), 'VerificaListaCIF')
Endif
Endif
Return m.lcAlias
Endfunc && AnafPlatitorTVA
*************************************
*** Normalizeaza codurile fiscale dintr-un cursor in forma tcCursorListaCIF (cod_fiscal C(30)[, data D]),
*** dupa acelasi tipar ca ANAF_SincronWebService_PlatitorTva (cod tara RO, doar cifre, <=10 caractere).
*** Cand sursa nu are coloana data (ex. orapoarte.prg:1994/2311, cursor doar cu cod_fiscal), se
*** foloseste tdData pentru toate randurile - acelasi fallback ca llDataCursor din functia de mai sus
*** Intoarce un cursor nou (cod_fiscal, data, cui_n N(13)) - cui_n = 0 cand codul nu e un CUI RO valid
*************************************
Function NormalizeazaCoduriCursor
Lparameters tcCursorListaCIF, tdData
Local loVerificareCod As "VerificareCod", lcCodFiscal, lcCodTara, lcCodFiscalFRO, lcAliasNorm, lcSelect, llDataCursor, ldDataRand, ldDataImplicit
lcSelect = Select()
lcAliasNorm = 'crsCoduriNormalizate'
Use In (Select(m.lcAliasNorm))
Create Cursor (m.lcAliasNorm) (cod_fiscal C(30), data D, cui_n N(13))
ldDataImplicit = Iif(Type('tdData') = 'D' And !Empty(m.tdData), m.tdData, Date())
llDataCursor = (Type(m.tcCursorListaCIF + '.data') = 'D')
loVerificareCod = Createobject("VerificareCod")
Select (m.tcCursorListaCIF)
Scan
*!* 01.08.2026 marius.mutu: cursoarele sursa au cod_fiscal/data nullable - fara Nvl, insertul de mai jos pica pe coloanele not null
lcCodFiscal = Alltrim(Nvl(cod_fiscal, ''))
lcCodTara = loVerificareCod.GetCodTara(m.lcCodFiscal)
lcCodFiscalFRO = Strtran(m.lcCodFiscal, m.lcCodTara, '')
lcCodFiscalFRO = Strtran(Strtran(Strtran(m.lcCodFiscalFRO, ' ', ''), 'RO', ''), 'R', '')
ldDataRand = Iif(m.llDataCursor And !Empty(Nvl(data, {})), Nvl(data, {}), m.ldDataImplicit)
Insert Into (m.lcAliasNorm) (cod_fiscal, data, cui_n) Values ;
(m.lcCodFiscal, m.ldDataRand, Iif(m.lcCodTara = 'RO' And Isdigit(m.lcCodFiscalFRO) And Len(m.lcCodFiscalFRO) <= 10, Int(Val(m.lcCodFiscalFRO)), 0))
Select (m.tcCursorListaCIF)
Endscan
Select (m.lcSelect)
Return m.lcAliasNorm
Endfunc && NormalizeazaCoduriCursor
*
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
This.cMesajANAF = loEx.Message
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')
*!* 31.07.2026 marius.mutu: procesarea raspunsului (status+corp) mutata in ProceseazaRaspunsHTTP, mai jos
Try
loHTTP.Open('POST', lcServer, .F.) && !!! POST e blocat de furnizor
loHTTP.setRequestHeader("Content-Type", "application/json;")
loHTTP.Send(lcSend)
lcAlias = This.ProceseazaRaspunsHTTP(loHTTP.Status, loHTTP.responseText, m.tcAlias)
Catch To loEx
This.cMesajANAF = loEx.Message
Endtry
*
If m.lnGrup < m.lnGrupuri
INKEY(m.lnWaitSeconds)&& astept o secunda intre interogari
ENDIF
Endfor && lnGrup
*
Return m.lcAlias
Endfunc && ANAF_SincronWebService_PlatitorTva
*************************************
*** Proceseaza UN raspuns HTTP deja primit pe calea batch (status + corp), separat de trimiterea
*** cererii ca sa poata fi testat direct, cu status+corp fabricate, fara transport HTTP real.
*** Corpul se citeste indiferent de status (nu doar pe 200) - ANAF poate intoarce si 404 cu corp
*** JSON complet cand toate codurile din grup sunt inexistente (masurat 27.07.2026), la fel ca pe
*** calea single-CUI (ANAF_VerificaCuiSingle). Un raspuns e considerat inteles cand are structura
*** found/notFound, chiar daca found e gol (lot integral notFound); altfel ramane tacere - cursorul
*** nu se modifica, deci codurile din grup raman fara rand in crsANAF, ca la o cadere reala de serviciu
*************************************
Function ProceseazaRaspunsHTTP
Lparameters tnStatus, tcResponseText, tcAlias
Local lcAlias, lcJsonString, loJsonObject, loEx As Exception, lcMesaj, llRaspunsInteles
lcAlias = Iif(!Empty(m.tcAlias) And Type('tcAlias') = "C", m.tcAlias, "crsANAF")
lcJsonString = Alltrim(Nvl(m.tcResponseText, ''))
goLog.Log('tnStatus: ' + Transform(m.tnStatus) + ' lcJsonString: ' + m.lcJsonString, 'ANAF_SincronWebService_PlatitorTva')
If Empty(m.lcJsonString) Or Left(m.lcJsonString, 1) <> '{'
If !Empty(m.lcJsonString)
IF 'mentenanta'$LOWER(m.lcJsonString)
This.cMesajANAF = 'Serviciul web ANAF este in mentenanta!'
ELSE
This.cMesajANAF = 'Serviciul web ANAF nu a intors un raspuns corespunzator.'
ENDIF
Endif
Return m.lcAlias && tacere: fara corp folosibil, cursorul ramane neschimbat
Endif
Try
loJsonObject = nfjsonread(m.lcJsonString) && nfJson from http://vfpx.codeplex.com/
llRaspunsInteles = (Type('loJsonObject') = 'O' And Pemstatus(m.loJsonObject, 'found_vfpsafe_', 5))
If m.llRaspunsInteles
lcAlias = This.ParseJsonANAFv8(m.loJsonObject, m.tcAlias)
Else
lcMesaj = 'Serviciul web ANAF a intors mesaj de eroare: ' + IIF(TYPE('loJsonObject.message') = 'C', loJsonObject.message, '')
This.cMesajANAF = m.lcMesaj
Endif
Catch To loEx
This.cMesajANAF = loEx.Message
Endtry
Return m.lcAlias
Endfunc && ProceseazaRaspunsHTTP
*************************************
*** 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), ;
sursa C(20), data_sursa D)
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
loDate.sursa = 'ANAF'
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
loDate.sursa = 'ANAF'
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
*************************************
*** Parcurge un cursor in forma crsANAF si salveaza fiecare rand in ISTORIC_CODURI_FISCALE
*** prin pack_parteneri.save_istoric_cod_fiscal (26 parametri); commit din 100 in 100 si la final
*** Sare peste randurile provenite din cache (sursa incepe cu 'CACHE') - au fost deja salvate
*** Intoarce numarul de randuri salvate cu succes
*************************************
Function SalveazaIstoricDinCursor
Lparameters tcAlias, tnIdUtil
Local lnSalvate, lcSelect, lcSqlIstoric, lnRecnoInit
Private pcCodFiscal, pcFirma, pcAdresa, pcJudet, pcRegCom, pcCodPostal, pcTelefon, pcFax, pcDataTvamfin, ;
pnPlatitorTvaMfin, pcStare, pnPlatitorTvaVies, pnInterogareVies, pnIdUtil, ;
pnInactiv, pnTvaIncasare, pnSplitTva, ;
pdInceputScpTva, pdSfarsitScpTva, pdAnulImpScpTva, pdInceputTvaInc, pdSfarsitTvaInc, ;
pdInactivare, pdReactivare, pdInceputSplitTva, pdAnulareSplitTva, pnDinCache
lnSalvate = 0
If Empty(m.tcAlias) Or !Used(m.tcAlias)
Return m.lnSalvate
Endif
lcSelect = Select()
pnIdUtil = m.tnIdUtil
Select (m.tcAlias)
lnRecnoInit = Recno()
Scan For cui <> 0 And Left(Nvl(sursa, ''), 5) <> 'CACHE'
pcCodFiscal = Transform(cui)
pcFirma = Nvl(firma, '')
pcAdresa = Nvl(adresa, '')
pcJudet = Nvl(judet, '')
pcRegCom = Nvl(nrRegCom, '')
pcCodPostal = ''
pcTelefon = ''
pcFax = ''
pcDataTvamfin = ''
pnPlatitorTvaMfin = 0
pcStare = ''
pnPlatitorTvaVies = 0
pnInterogareVies = 0
pnInactiv = Iif(Nvl(inactiv, .F.), 1, 0)
pnTvaIncasare = Iif(Nvl(tvaincasare, .F.), 1, 0)
pnSplitTva = Iif(Nvl(splittva, .F.), 1, 0)
pdInceputScpTva = data_inceput_ScpTVA
pdSfarsitScpTva = data_sfarsit_ScpTVA
pdAnulImpScpTva = data_anul_imp_ScpTVA
pdInceputTvaInc = dataInceputTvaInc
pdSfarsitTvaInc = dataSfarsitTvaInc
pdInactivare = dataInactivare
pdReactivare = dataReactivare
pdInceputSplitTva = dataInceputSplitTVA
pdAnulareSplitTva = dataAnulareSplitTVA
*!* 01.08.2026 marius.mutu: pnDinCache=1 cand randul vine din cache - opreste improspatarea DATAORAV_ANAF pe ecoul din cache, jos in pachet
pnDinCache = Iif(Left(Nvl(sursa, ''), 5) == 'CACHE', 1, 0)
lcSqlIstoric = "begin pack_parteneri.save_istoric_cod_fiscal(?pcCodFiscal,?pcFirma,?pcAdresa,?pcJudet,?pcRegCom,?pcCodPostal,?pcTelefon,?pcFax,?pcDataTvamfin,?pnPlatitorTvaMfin,?pcStare," + ;
"?pnPlatitorTvaVies,?pnInterogareVies,?pnIdUtil,?pnInactiv,?pnTvaIncasare,?pnSplitTva,?pdInceputScpTva,?pdSfarsitScpTva," + ;
"?pdAnulImpScpTva,?pdInceputTvaInc,?pdSfarsitTvaInc,?pdInactivare,?pdReactivare,?pdInceputSplitTva,?pdAnulareSplitTva,?pnDinCache); end;"
If goExecutor.oExecuta(m.lcSqlIstoric)
lnSalvate = m.lnSalvate + 1
If Mod(m.lnSalvate, 100) = 0
goExecutor.oExecuta('COMMIT')
Endif
Endif
Select (m.tcAlias)
Endscan
If m.lnSalvate > 0
goExecutor.oExecuta('COMMIT')
Endif
*!* 01.08.2026 marius.mutu: Scan lasa pointerul pe EOF - il pun la loc, ca sa nu afectez apelantul
Select (m.tcAlias)
Try
Go m.lnRecnoInit
Catch
Go Top
Endtry
Select (m.lcSelect)
Return m.lnSalvate
Endfunc && SalveazaIstoricDinCursor
*************************************
*** Citeste din ISTORIC_CODURI_FISCALE ultima verificare proaspata (pe DATAORAV_ANAF) pentru
*** codurile din tcListaCoduriN (normalizate, numerice, separate prin virgula) si calculeaza
*** in SQL, la tdData, verdictele din intervale (platitor TVA, TVA la incasare, split TVA, inactiv)
*** Adauga randurile in tcAlias (cursor in forma crsANAF + sursa/data_sursa), creandu-l daca lipseste
*** tcSursa (optional, implicit 'CACHE') eticheteaza randurile inserate - 'CACHE' sau 'CACHE_INDISP'
*** Un rand NU se intoarce cand tdData e inainte de inceputul unui interval cunoscut (scpTVA/TVAINC/
*** inactivare) - ANAF intoarce o singura perioada, nu istoricul complet, deci pentru o data anterioara
*** primei perioade memorate cache-ul nu poate afirma "nu era" - codul ramane netratat, merge la ANAF
*** Intoarce numele cursorului; ramane gol, fara eroare, cand nu gaseste nimic
*************************************
Function CitesteIstoricPentruCoduri
Lparameters tcListaCoduriN, tdData, tcAlias, tcSursa
Local lcAlias, lcCursorIstoric, lcSql, ldData, lnZileCache, lcSelect, lcSursa, lcCondCod, lnTotalCod, lnTranse, lnTransa, lnI, lcTransa
*!* 30.07.2026 marius.mutu: pdDataCache/pnZileCache Private, nu Local, ca sa fie vizibile in goExecutor.oExecuta la bind
Private pdDataCache, pnZileCache
lcAlias = Iif(!Empty(m.tcAlias) And Type('tcAlias') = "C", m.tcAlias, "crsANAF")
ldData = Iif(Type('tdData') = 'D' And !Empty(m.tdData), m.tdData, Date())
lcSursa = Iif(!Empty(m.tcSursa) And Type('tcSursa') = 'C', Upper(Alltrim(m.tcSursa)), 'CACHE')
pdDataCache = m.ldData
lcSelect = Select()
If !Used(m.lcAlias)
*!* 31.07.2026 marius.mutu: aceeasi forma ca crsANAF din ParseJsonANAFv8 - Null pe cele 9 campuri de data muta problema in ParseJsonANAFv8 (SCATTER/aritmetica pe date); NULL-ul din Oracle e tratat cu Nvl la Insert Into, mai jos
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), ;
sursa C(20), data_sursa D)
Endif
If Empty(m.tcListaCoduriN)
Select (m.lcSelect)
Return m.lcAlias
Endif
lnZileCache = This.ZileCache()
pnZileCache = m.lnZileCache
lcCursorIstoric = 'crsIstoricCacheTemp'
Use In (Select(m.lcCursorIstoric))
*!* 02.08.2026 marius.mutu: transe de maxim 1000 coduri legate cu OR - peste 1000 elemente "in (...)" da ORA-01795
lnTotalCod = Getwordcount(m.tcListaCoduriN, ',')
lnTranse = Ceiling(m.lnTotalCod / 1000)
lcCondCod = ''
For lnTransa = 1 To m.lnTranse
lcTransa = ''
For lnI = (m.lnTransa - 1) * 1000 + 1 To Min(m.lnTransa * 1000, m.lnTotalCod)
lcTransa = m.lcTransa + Iif(Empty(m.lcTransa), '', ',') + Getwordnum(m.tcListaCoduriN, m.lnI, ',')
Endfor
lcCondCod = m.lcCondCod + Iif(Empty(m.lcCondCod), '', ' or ') + 'cod_fiscal_n in (' + m.lcTransa + ')'
Endfor
If m.lnTranse > 1
lcCondCod = '(' + m.lcCondCod + ')'
Endif
*!* 01.08.2026 marius.mutu: v_tvainc - margine exclusiva (data_sfarsit_tvainc - 1), aliniata cu pack_roartvai; ground truth rtvai_istoric confirma [inceput,sfarsit)
TEXT To lcSql TEXTMERGE Noshow
select cod_fiscal_n, firma, adresa, judet, regcom, dataorav_anaf,
data_inceput_scptva, data_sfarsit_scptva, data_anul_imp_scptva,
data_inceput_tvainc, data_sfarsit_tvainc, data_inactivare, data_reactivare,
data_inceput_splittva, data_anulare_splittva,
case when ?pdDataCache between data_inceput_scptva and nvl(data_sfarsit_scptva, to_date('29991231','yyyymmdd')) then 1 else 0 end as v_scptva,
case when ?pdDataCache between data_inceput_tvainc and nvl(data_sfarsit_tvainc - 1, to_date('29991231','yyyymmdd')) then 1 else 0 end as v_tvainc,
case when ?pdDataCache between data_inceput_splittva and nvl(data_anulare_splittva, to_date('29991231','yyyymmdd')) then 1 else 0 end as v_splittva,
case when data_inactivare is not null and ?pdDataCache >= data_inactivare and (data_reactivare is null or ?pdDataCache < data_reactivare) then 1 else 0 end as v_inactiv
from (select i.*, row_number() over (partition by cod_fiscal_n order by id desc) as rn
from istoric_coduri_fiscale i
where <<m.lcCondCod>>
and dataorav_anaf is not null
and sysdate - dataorav_anaf <= ?pnZileCache)
where rn = 1
and (data_inceput_scptva is null or ?pdDataCache >= data_inceput_scptva)
and (data_inceput_tvainc is null or ?pdDataCache >= data_inceput_tvainc)
and (data_inactivare is null or ?pdDataCache >= data_inactivare)
ENDTEXT
If goExecutor.oExecuta(m.lcSql, m.lcCursorIstoric) And Used(m.lcCursorIstoric)
Select (m.lcCursorIstoric)
Scan
*!* 31.07.2026 marius.mutu: campurile din VALUES calificate cu alias literal crsIstoricCacheTemp - necalificat da eroare 12 (inghitita de ON ERROR), Insert Into ramanea mereu gol
Insert Into (m.lcAlias) (cui, data, denumire, firma, adresa, judet, nrRegCom, ;
data_inceput_ScpTVA, data_sfarsit_ScpTVA, data_anul_imp_ScpTVA, ;
dataInceputTvaInc, dataSfarsitTvaInc, dataInactivare, dataReactivare, ;
dataInceputSplitTVA, dataAnulareSplitTVA, ;
scpTVA, statusTvaIncasare, statusSplitTVA, statusInactivi, ;
tva, tvaincasare, splittva, inactiv, sursa, data_sursa) Values ;
(crsIstoricCacheTemp.cod_fiscal_n, m.ldData, Nvl(crsIstoricCacheTemp.firma, ''), Nvl(crsIstoricCacheTemp.firma, ''), Nvl(crsIstoricCacheTemp.adresa, ''), Nvl(crsIstoricCacheTemp.judet, ''), Nvl(crsIstoricCacheTemp.regcom, ''), ;
Nvl(crsIstoricCacheTemp.data_inceput_scptva, {}), Nvl(crsIstoricCacheTemp.data_sfarsit_scptva, {}), Nvl(crsIstoricCacheTemp.data_anul_imp_scptva, {}), ;
Nvl(crsIstoricCacheTemp.data_inceput_tvainc, {}), Nvl(crsIstoricCacheTemp.data_sfarsit_tvainc, {}), Nvl(crsIstoricCacheTemp.data_inactivare, {}), Nvl(crsIstoricCacheTemp.data_reactivare, {}), ;
Nvl(crsIstoricCacheTemp.data_inceput_splittva, {}), Nvl(crsIstoricCacheTemp.data_anulare_splittva, {}), ;
(crsIstoricCacheTemp.v_scptva = 1), (crsIstoricCacheTemp.v_tvainc = 1), (crsIstoricCacheTemp.v_splittva = 1), (crsIstoricCacheTemp.v_inactiv = 1), ;
(crsIstoricCacheTemp.v_scptva = 1), (crsIstoricCacheTemp.v_tvainc = 1), (crsIstoricCacheTemp.v_splittva = 1), (crsIstoricCacheTemp.v_inactiv = 1), m.lcSursa, crsIstoricCacheTemp.dataorav_anaf)
Endscan
Use In (Select(m.lcCursorIstoric))
Endif
Select (m.lcSelect)
Return m.lcAlias
Endfunc && CitesteIstoricPentruCoduri
*************************************
*** Citeste din OPTIUNI (per schema) ordinea traseelor de verificare ANAF/cache
*** tcTraseu: 'UNIC' (un singur cod) sau 'MASA' (lot); implicit cand randul lipseste din OPTIUNI:
*** 'ANAF,CACHE' pe UNIC, 'CACHE,ANAF' pe MASA
*************************************
Function OrdineCache
Lparameters tcTraseu
Local lcTraseu, lcVarName, lcImplicit, lcSql, lcCursor, lcOrdine, lcSelect
*!* 31.07.2026 marius.mutu: lcSelect salvat/restaurat - fara asta apelantul ramanea cu work area-ul schimbat
lcSelect = Select()
lcTraseu = Upper(Alltrim(Nvl(m.tcTraseu, '')))
lcImplicit = Iif(m.lcTraseu == 'MASA', 'CACHE,ANAF', 'ANAF,CACHE')
lcVarName = 'ANAFCACHEORDINE_' + Iif(m.lcTraseu == 'MASA', 'MASA', 'UNIC')
lcCursor = 'crsOptiuneOrdineCache'
lcOrdine = ''
lcSql = "select varvalue from optiuni where varname = '" + m.lcVarName + "'"
If goExecutor.oExecuta(m.lcSql, m.lcCursor) And Used(m.lcCursor)
If Reccount(m.lcCursor) > 0
lcOrdine = Upper(Strtran(Alltrim(Nvl(&lcCursor..varvalue, '')), ' ', ''))
Endif
Use In (Select(m.lcCursor))
Endif
Select (m.lcSelect)
Return Iif(Empty(m.lcOrdine), m.lcImplicit, m.lcOrdine)
Endfunc && OrdineCache
*************************************
*** Citeste din OPTIUNI (per schema) vechimea maxima a cache-ului, in zile, masurata pe DATAORAV_ANAF
*** Implicit cand randul lipseste din OPTIUNI: 30
*************************************
Function ZileCache
Local lcCursor, lcSql, lnZile, lcSelect
*!* 31.07.2026 marius.mutu: lcSelect salvat/restaurat - acelasi defect ca la OrdineCache
lcSelect = Select()
lcCursor = 'crsOptiuneZileCache'
lnZile = 30
lcSql = "select varvalue from optiuni where varname = 'ANAFCACHEZILE'"
If goExecutor.oExecuta(m.lcSql, m.lcCursor) And Used(m.lcCursor)
If Reccount(m.lcCursor) > 0 And !Empty(Alltrim(Nvl(&lcCursor..varvalue, '')))
lnZile = Val(Alltrim(&lcCursor..varvalue))
Endif
Use In (Select(m.lcCursor))
Endif
If m.lnZile <= 0
lnZile = 30
Endif
Select (m.lcSelect)
Return m.lnZile
Endfunc && ZileCache
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, '<table', 'table>', 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 = [<VFPData><memberdata name="ccod" display="cCod"/><memberdata name="ccodfile" display="cCodFile"/></VFPData>]
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
Reference in New Issue View Git Blame Copy Permalink