Search Forum Home   Visual FoxPro  Visual FoxPro in general  verificare cod ...  verificare cod fiscal mf    5/25/2011 11:20:37 PM laurentiu1951 6 posts verificare cod fiscal mf  (N/A) Am lucrat pe acest program. Cand ma uit pe pagina este ca si cum n-am dat enter pe vizualizare(nu-mi intra pe pagina cu firma respectiva. E ceva in vfp9 care trebuie setat? am facut multe incercari dar nu-mi dau seama cu ce gresesc de obtin mereu pagina cu vizualizare. Va multumesc anticipat. Am descoperit in sfarsit un site super o.k. Felicitari pentru tinuta si informatiile vehiculate. Laurentiu CLEAR *oIE = Newobject('InternetExplorer.Application') *cserver='http://voes.mfinante.ro/codfiscal/pjuridice.html' *do while oIE.ReadyState <> 4 *wait '' timeout 0.1 *enddo cCui='11495576' &&codul fiscal al agentului *cCui=' ' &&codul fiscal al agentului *cServer='http://voes.mfinante.ro/codfiscal/agenticod.html?cap=11495576' &&adresa paginii web. MF o schimba din cand in cand cServer='http://voes.mfinante.ro/codfiscal/agenticod.html' ohttp=CREATEOBJECT('winhttp.winhttprequest.5.1') ohttp.Open('POST',cserver,.f.) ohttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded") *ohttp.SetTimeouts(1000, 1000, 10000, 10000) ohttp.Send('cap='+cCui+'&submit=11495576') *ohttp.send(CHR(13)) *cServer='http://www.mfinante.ro/infocodfiscal.html' &&adresa paginii web. MF o schimba din cand in cand *cServer='http://www.mfinante.ro/agenticod.html?pagina=domenii&cap=-501418653' *cServer='http://voes.mfinante.ro/codfiscal/codfiscal.html' *ohttp=CREATEOBJECT('winhttp.winhttprequest.5.1') *ohttp.Open('POST',cserver,.f.) *ohttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded") *ohttp.Send('cod='+cCui+'&cap=null&B1=VIZUALIZARE') *** oHttp.responsetext contine pagina html returnata de server *** din pagina se extrage tabelul html in care sunt datele societatii IF FILE("c:\pagina.htlm") = .T. DELETE FILE ("c:\pagina.htlm") ENDIF gnHTMLFile=FCREATE("c:\pagina.html") =FWRITE(gnHTMLFile, ohttp.ResponseText) =FCLOSE(gnHTMLFile)  5/27/2011 10:52:21 PM Daniel Buduru 2332 posts Re: verificare cod fiscal mf  (N/A) MF a schimbat de mai multa ori atat adresele paginilor, cat si parametrii transmisi de odata cu codul fiscal. Desi n-am verificat, nu cred ca mai functioneaza vreun cod postat pe acel thread. In acest moment, interogarea de mf functioneaza astfel: - Se deschide pagina http://www.mfinante.ro/pjuridice.html?pagina=domenii - Pagina instaleaza un session cookie, generat de server. - In aceasta pagina, adresa paginii http://www.mfinante.ro/agenticod.html?pagina=domenii&cap=-1052336501 are adaugat un cod, care se schimba de la o sesiune la alta (e valabil atat vreme cat este valabil si cookie) Daca se foloseste com-um winhttprequest pentru deschiderea paginii, cookie se poate afla astfel (considerand ohttp instantierea winhttprequest): ccookie=ohttp.GetRequestHeader('Set-Cookie') Codul se poate obtine din ohttp.ResponseText, cautand '/agenticod.html'. Stringul ce se gaseste acum in pagina este acesta: "/agenticod.html?pagina=domenii&cap=XXXXXXXXXX" Codul este cel de dupa cap=. Daca in ohttp.SetRequestHeader se seteaza acel cookie,  se pune adresa serverului www.mfinante.ro/infocodfiscal.html, iar in metoda post se foloseste codul obtinut anterior, se obtine pagina cu informatiile agentului economic. Daniel Buduru  5/30/2011 10:23:30 PM mgabi 135 posts Re: verificare cod fiscal mf  (N/A) Pornind de la cele semnalate de Daniel, iata ce a functionat: (eu n-am avut nevoie sa setez acel acel cookie, mai trebuie testat putin si "periat") Mi-a mers asa: ohttp=CREATEOBJECT('winhttp.winhttprequest.5.1') ohttp.Open('GET','http://www.mfinante.ro/pjuridice.html?pagina=domenii',.f.)   &&& pagina intermediara ... cautare dupa cod/denumire ohttp.Send() xpg2=STREXTRACT(ohttp.ResponseText,'<a href="/agenticod.html?pagina=domenii&cap=','"',1,3)   &&& extrag doar link-ul pentru interogare dupa cod fiscal xnrcap=STRTRAN(xpg2,'<a href="/agenticod.html?pagina=domenii&cap=','')    &&& extrag nr interogarii - cookie-ul xnrcap=STRTRAN(xnrcap,'"','') ohttp.Open('POST','http://www.mfinante.ro/infocodfiscal.html',.f.)   &&& interogarea propriu-zisa ohttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded") ohttp.Send('cod='+cCui+'&cap='+xnrcap+'&B1=VIZUALIZARE') ... si in ohttp.ResponseText este informatia toata.  5/31/2011 6:07:51 AM Daniel Buduru 2332 posts Re: verificare cod fiscal mf  (N/A) Session cookie este creat in memorie. Cata vreme nu este inchisa sesiunea, cookie este prezent in requestheader . Daca se utilizeaza o alta instanta winhttprequest pentru trimiterea codului decat cea in care s-a deschis pagina, e necesara setarea si a acestui header. Daniel Buduru  Page 1 of 1   Visual FoxPro  Visual FoxPro in general  verificare cod ... Flat View Tree View Oldest To Newest Newest To Oldest