Search  
Saturday, February 11, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.
SearchForum Home
  Visual FoxPro  Visual FoxPro in general  verificare cod ...
 Re: Completare
 
 8/19/2010 2:49:06 PM
User is offlineDaniel Buduru
2141 posts
1st




Re: Completare
 (N/A)
Mai intai sa lamurim un lucru: la ce nivel esti ca "incepator"? ce stii sa faci in VFP?
Ce anume nu intelegi? Ce incerci sa faci si nu-ti merge?
Codul postat contine o functie , ReadURL, care mai apeleaza si ea o functie, retudata, precum si un exemplu de utilizare al codului.


Daniel Buduru
 8/19/2010 3:06:48 PM
User is offlineinfokam
18 posts


Re: Completare
 (Romania)
Am modificat putin prima parte pentru ca sa si afiseze ceva:
Pentru a rula codul va trebui sa copiezi tot codul intr-un .prg si sa rulezi programul.
Bineinteles inainte de toate va trebui sa pui un cod fiscal valid la variabila f_cif (chiar primul rand din program).

Pentru a integra totul intr-o aplicatie poti sa faci un form in care vei avea un textbox in care introduci cif-ul si un buton la care in metoda "click event" vei pune acest cod (mai putin prima linie, cea cu f_cif)
Dupa completarea cif-ului si click pe buton se va face verificarea si va apare un mesaj care va afisa rezultatul

f_cif='123456789' && Linia aceasta nu o inserezi in form
lcURL="http://ec.europa.eu/taxation_customs/vies/viesquer.do?ms=RO&iso=RO&vat="+f_cif
lcWebContent = ReadURL(lcURL)
DO CASE
CASE Occurs('Yes, valid VAT number',lcWebContent)>0
f_cif='RO '+f_cif
vies=.T. && Conectarea a fost reusita si agentul economic este inscris in Registrul Operatorilor Intracomunitari
MESSAGEBOX('Operatorul ESTE inscris in registrul operatorilor intracomunitari')
CASE Occurs('No, invalid VAT number',lcWebContent)>0
MESSAGEBOX('Operatorul NU ESTE inscris in registrul operatorilor intracomunitari')
vies=.T. && Conectarea a fost reusita dar agentul economic nu este inscris in Registrul Operatorilor Intracomunitari
OTHERWISE
vies=.F.
MESSAGEBOX('Conectarea nu a reusit')
ENDCASE
Return

Function ReadURL
Lparameters pcUrlName, pcOptFeedback, pnOptBuffSize, pcOptOutputFile
Declare Integer InternetOpen In wininet.Dll String sAgent, ;
INTEGER lAccessType, String sProxyName, ;
STRING sProxyBypass, Integer lFlags

Declare Integer InternetOpenUrl In wininet.Dll ;
INTEGER hInternetSession, String sUrl, String sHeaders, ;
INTEGER lHeadersLength, Integer lFlags, Integer lContext

Declare Integer InternetReadFile In wininet.Dll Integer hfile, ;
STRING @sBuffer, Integer lNumberofBytesToRead, Integer @lBytesRead

Declare short InternetCloseHandle In wininet.Dll Integer hInst
#Define INTERNET_OPEN_TYPE_PRECONFIG 0
#Define INTERNET_OPEN_TYPE_DIRECT 1
#Define INTERNET_OPEN_TYPE_PROXY 3
#Define SYNCHRONOUS 0
#Define INTERNET_FLAG_RELOAD 2147483648
Local lcAgent, lhInternetSession, lhUrlFile, llOk, lnOk, lcRetVal, lcReadBuffer, lnBytesRead, laDr[1], llCancel
If Vartype(pcOptFeedback)='C'
If Not ( At('(',pcOptFeedback)>0 And (At('(',pcOptFeedback) < At(')',pcOptFeedback) ) )
pcOptFeedback = .F.
Endif
Endif
lcAgent = "VFP"
lhInternetSession = InternetOpen( lcAgent, INTERNET_OPEN_TYPE_PRECONFIG, '', '', SYNCHRONOUS )
If lhInternetSession = 0
Wait Window "Internet session cannot be established" Time 2
Return .Null.
gasit=.F.
Endif
lhUrlFile = InternetOpenUrl( lhInternetSession, pcUrlName, '', 0, INTERNET_FLAG_RELOAD, 0 )

If lhUrlFile = 0
Return .Null.
gasit=.F.
Endif

lcRetVal = ""
llOk = .T.
llCancel = .F.
lnTotalBytesRead = 0
lnBytesRead = 0
lcReadBuffer = ''
If Vartype(pcOptFeedback)='C' && Call the feedback at the zero mark
=&pcOptFeedback
Endif


If Type('pcOptOutputFile')='C' And Adir(laDr,pcOptOutputFile)>0
Delete File (pcOptOutputFile)
Endif

Do While llOk And Not llCancel
lcReadBuffer = Space(Iif(Vartype(pnOptBuffSize)='N',pnOptBuffSize,32767))
lnBytesRead = 0
lnOk = InternetReadFile( lhUrlFile, @lcReadBuffer, Len(lcReadBuffer), @lnBytesRead)

lnTotalBytesRead = lnTotalBytesRead + lnBytesRead

If ( lnBytesRead > 0 )
If Type('pcOptOutputFile')='C'
Strtofile(Left(lcReadBuffer,lnBytesRead),pcOptOutputFile,.T.) && Add to file.
Else
lcRetVal = lcRetVal + Left( lcReadBuffer, lnBytesRead )
Endif
Endif
llOk = ( lnOk = 1 ) And ( lnBytesRead > 0 )

If Vartype(pcOptFeedback)='C'
If Not &pcOptFeedback
llCancel = .T.
Endif
Endif
Enddo

InternetCloseHandle( lhUrlFile )
InternetCloseHandle( lhInternetSession )

If Type('pcOptOutputFile')='C'
Return Not llCancel
Endif
Return lcRetVal


Function retudata
Parameters dData

oldCentury=Set("Century")
oldDataFormat=Set("Date")
oldDateMark=Set("Mark")
Set Century On
Set Date YMD
Set Mark To [/]
lcDate=Dtoc(dData)
Set Century &oldCentury
Set Date &oldDataFormat
Set Mark To &oldDateMark
Return lcDate
 8/19/2010 3:25:18 PM
User is offlineSilviu
130 posts
5th


Re: Completare
 (Romania)
Salut .
Acu chiar devin stresant, am pus codul totul e ok, dar din cate imi dau e seama codul extrage si datele de pe site in legat=ura cu agentul (sau ma insel), pe alea as vrea sa le folosesc.
Scuze pentru insistenta
 8/19/2010 3:51:02 PM
User is offlineinfokam
18 posts


Re: Completare
 (Romania)
Insereaza inainte de DO CASE urmatoarele comenzi:

result=STREXTRACT(lcWebcontent,'VAT number','REQUESTER',1,2)
MESSAGEBOX(result)

Eu ti-am extras toata bucata care contine datele dar tu poti sa filtrezi rezultatul, astfel incat programul sa-ti extraga in final doar datele relevante
 11/4/2010 3:45:21 PM
User is offlinecrylord85
11 posts


Re: Completare
 (N/A) Modified By crylord85 on 11/5/2010 11:04:34 AM)
1
 11/4/2010 3:47:25 PM
User is offlinecrylord85
11 posts


Re: Completare
 (N/A) Modified By crylord85 on 11/5/2010 11:03:24 AM)
 Daniel Buduru wrote
 infokam wrote
O alta sursa din care se pot prelua datele agentilor economici (din pacate mult mai putine decat cele de la MF) este http://recom1-ssl.onrc.ro/cgi-bin/recom.cgi
Pentru accesul gratuit este necesara introducerea unui user name si a unei parole. Ambele sunt "guest".



Codul urmator aduce datele de pe acest site. Din pacate, in aceasta baza de date nu exista informatia de platitor de tva.

cCui='123456789'

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)






Buna ziua , am si eu o intrebare ctable este o variabila de tip string ?
Cum accesez / vizualizez  variabila asta ctable ? in mod  normal ea trebuie sa contina informatiile despre firma cu cif-ul respectiv care e setat in cCui nu ? m-am uitat la strextract - returneaza o variabila sir de tip text
O vizualizez ca pe o variabila normala folosind '' ? ' sau cum ? / se poate salva intr-un dbf ...




Iti multumesc de ajutor anticipat si astept unele lamuriri referitor la asta ...
 11/4/2010 4:34:36 PM
User is offlineDaniel Buduru
2141 posts
1st




Re: Completare
 (N/A)
In primul rand, ai editat citatul si ai scos al doilea parametru din strextract, astfel incat functia e fara sens. Eu nu am scris asa ceva, si am pretentia ca, daca sunt citat, sa fiu citat asa cum am scris eu postul, si sa nu modifici.
In al doilea rand, in al doilea post dupa cel pe care l-ai citat, gasesti raspunsul la ambele intrebari pe care le-ai pus.
In al treilea rand, te sfatuiesc sa preiei datele de la ministerul de finante si nu din alta sursa. In acest thread sunt cateva exemple de cod care face acest lucru.
Daniel Buduru
 11/5/2010 11:12:44 AM
User is offlinecrylord85
11 posts


Re: Completare
 (N/A) Modified By crylord85 on 11/5/2010 11:21:35 AM)
 Daniel Buduru wrote
In primul rand, ai editat citatul si ai scos al doilea parametru din strextract, astfel incat functia e fara sens. Eu nu am scris asa ceva, si am pretentia ca, daca sunt citat, sa fiu citat asa cum am scris eu postul, si sa nu modifici.
In al doilea rand, in al doilea post dupa cel pe care l-ai citat, gasesti raspunsul la ambele intrebari pe care le-ai pus.
In al treilea rand, te sfatuiesc sa preiei datele de la ministerul de finante si nu din alta sursa. In acest thread sunt cateva exemple de cod care face acest lucru.


Scuze, am sters din greseala " cTable=STREXTRACT(ohttp.responsetext,'<table','table>',5,4)" din postul initial ,nu a fost intentionat .Am gasit  raspunsul si codul pe care-l cautam . Mersi frumos !

Ma intrebam altceva daca poti salva intr-o variabila cu functia strexctract direct rezultatul de pe http://voes.mfinante.ro/codfiscal/codfiscal.html . Asta era intrebarea mea ... adica sa te duca direct pe pagina de informatii la codul introdus.

Codul gasit aici este pe thread :


f_cif='1234567' && Presupunem ca acesta este CIF-ul, pentru testare se va inlocui cu un CIF "adevarat"
oIE = Newobject('InternetExplorer.Application')
oIE.Navigate("http://voes.mfinante.ro/codfiscal/agenticod.html")
do while oIE.ReadyState < 4
wait '' timeout 0.1
enddo
oIE.Document.forms[1].elements["cod"].Value = f_cif
oIE.Document.forms[1].Submit
x=0
*cTable=STREXTRACT(ohttp.responsetext,'<table','table>',5,4)
do while oIE.Busy AND x<100
wait '' timeout 0.1
x=x+1
enddo
do while oIE.ReadyState < 4
wait '' timeout 0.1
enddo
oIE.visible=.T. && Deschid IE pentru a vedea unde am ajuns

Cum pot modifica acest cod astfel incat sa pot salva intr-o variabila cu strextract() continutul paginii cu informatiile la cui-ul introdus ?
Sau macar o alta varianta ... de cod de tipul pe care l-a Daniel Buduru , doar ca accesul sa se faca la Mfinante

Multumesc anticipat
 11/5/2010 12:23:25 PM
User is offlineDaniel Buduru
2141 posts
1st




Re: Completare
 (N/A)

Functia STREXTRACT extrage un substring delimitat dintr-un string. Nu are vreo legatura cu salvarea continutului unei pagini de ...

Ai aici un cod care extrage datele de pe site MF. E acelasi (aproape) cu cel postat mai demult tot in acest thread, doar ca, intre timp, mf a schimbat iar pagina, probabil in acelasi spirit cu cel care a generat acest thread.
Poti folosi fie cTable - contine tabela HTML cu datele agentului, fie cList - aceeasi tabela, fara taguri, trecuta intr-o lista, fie vectorul al(2,n), care are in prima coloana explicata iar in cealalta valoarea.

cCui='123456' &&codul fiscal al agentului
cServer='http://voes.mfinante.ro/codfiscal/codfiscal.html' &&adresa paginii web. MF o schimba din cand in cand
ohttp=CREATEOBJECT('winhttp.winhttprequest.5.1')
ohttp.Open('POST',cserver,.f.)
ohttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
ohttp.Send('cod='+cCui+'&B1=VIZUALIZARE')
*** oHttp.responsetext contine pagina html returnata de server
*** din pagina se extrage tabelul html in care sunt datele societatii
cTable=STREXTRACT(ohttp.ResponseText,'<table','table>',1,4)
*** functia parsetable transforma tabelul html intr-o lista fara tag-uri
cList=parsetable(cTable)
*** se trece lista intr-un vector
ALINES(al, clist,1)
*** vectorul al se redimensioneaza la 2 coloane. Prima coloana contine explicatia, a doaua valoarea
DIMENSION al (ALEN(al)/2,2)
disp memo like al*

FUNCTION parsetable
LPARAMETERS tctable
#DEFINE CR CHR(13)
LOCAL lcList, lcCell, lcData, lnCell, lnTag
lclist=''
FOR lnCell=1 TO OCCURS('<td',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
NEXT lnCell
RETURN lclist

Daniel Buduru
 11/9/2010 3:55:35 PM
User is offlinecrylord85
11 posts


Re: Completare
 (N/A) Modified By crylord85 on 11/10/2010 8:29:24 AM)
 Daniel Buduru wrote

Functia STREXTRACT extrage un substring delimitat dintr-un string. Nu are vreo legatura cu salvarea continutului unei pagini de ...

Ai aici un cod care extrage datele de pe site MF. E acelasi (aproape) cu cel postat mai demult tot in acest thread, doar ca, intre timp, mf a schimbat iar pagina, probabil in acelasi spirit cu cel care a generat acest thread.
Poti folosi fie cTable - contine tabela HTML cu datele agentului, fie cList - aceeasi tabela, fara taguri, trecuta intr-o lista, fie vectorul al(2,n), care are in prima coloana explicata iar in cealalta valoarea.

cCui='123456' &&codul fiscal al agentului
cServer='http://voes.mfinante.ro/codfiscal/codfiscal.html' &&adresa paginii web. MF o schimba din cand in cand
ohttp=CREATEOBJECT('winhttp.winhttprequest.5.1')
ohttp.Open('POST',cserver,.f.)
ohttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
ohttp.Send('cod='+cCui+'&B1=VIZUALIZARE')
*** oHttp.responsetext contine pagina html returnata de server
*** din pagina se extrage tabelul html in care sunt datele societatii
cTable=STREXTRACT(ohttp.ResponseText,'',1,4)
*** functia parsetable transforma tabelul html intr-o lista fara tag-uri
cList=parsetable(cTable)
*** se trece lista intr-un vector
ALINES(al, clist,1)
*** vectorul al se redimensioneaza la 2 coloane. Prima coloana contine explicatia, a doaua valoarea
DIMENSION al (ALEN(al)/2,2)
disp memo like al*

FUNCTION parsetable
LPARAMETERS tctable
#DEFINE CR CHR(13)
LOCAL lcList, lcCell, lcData, lnCell, lnTag
lclist=''
FOR lnCell=1 TO OCCURS('
  lcCell=STREXTRACT(tcTable,'',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
NEXT lnCell
RETURN lclist




Multumesc pentru sfat! A functionat perfect , singura problema este ca atunci cand extragi informatii de pe voes.mfinante iti pune inaintea informatiei niste "patratele" care se afiseaza indiferent daca folosesc functia alltrim sau nu .... cum le fac sa dispara?
Am folosit functia parsetable cum ai spus .... a functionat, mi-a eliminat marea majoritate a codului.

Am atasat poza ca sa intelegeti ce vreau sa spun , problema ca nici de pe vies , nici pe registrul comertului nu face asa :), vreau sa va intreb daca exista vreo solutie pentru eliminarea lor ....

Mersi mult pentru ajutor!
info.JPG 
 11/10/2010 7:52:46 PM
User is offlineDaniel Buduru
2141 posts
1st




Re: Completare
 (N/A) Modified By Daniel Buduru on 11/10/2010 7:56:11 PM)
Patratelel alea sunt caractere netiparibile in fontul pe care il folosesti.
Pagina de la MF s-a schimbat de multe ori, pe vremea cand am testat codul nu am avut problerma asta.
Incearca sa scoti singur ce te deranjeaza din text, sau sa iei pagina html returnata in ohttp.responsetext si sa-ti extragi singur din ea ce anume iti trebuie.
Codul postat este "as is".

Daniel Buduru
 11/11/2010 9:36:13 AM
User is offlinecrylord85
11 posts


Re: Completare
 (N/A)
 Daniel Buduru wrote
Patratelel alea sunt caractere netiparibile in fontul pe care il folosesti.
Pagina de la MF s-a schimbat de multe ori, pe vremea cand am testat codul nu am avut problerma asta.
Incearca sa scoti singur ce te deranjeaza din text, sau sa iei pagina html returnata in ohttp.responsetext si sa-ti extragi singur din ea ce anume iti trebuie.
Codul postat este "as is".



Patratelele acelea nu au un cod ascii ? cum as putea sa-l aflu ce cod au ca sa pot folosi  functia strtrans , adica sa inlocuiesc caracterele netiparite cu spatii , sau imi poti da un sfat cum le pot elimina , eu ma gandeam sa le elimin direct din matricea (array-ul) folosit , dar cum daca nu stiu pe ce pozitie se gasesc (pozitia variaza in functie de datele de la mf)
 11/11/2010 10:55:07 AM
User is offlineEugen Gliga
1038 posts
1st




Re: Completare
 (N/A)
Sigur ca au, dar probabil ca sunt mai multe coduri netiparibile. O functie IsPrintable() nu exista in Fox. dar caracterele ascii tiparibile au codul intre 32 si 122. Deci ar trebui sa scanezi tot sirul si sa extragi toate caracterele netiparibile.
 11/11/2010 4:43:11 PM
User is offlinecrylord85
11 posts


Re: Completare
 (N/A) Modified By crylord85 on 11/11/2010 4:55:21 PM)
 Eugen Gliga wrote
Sigur ca au, dar probabil ca sunt mai multe coduri netiparibile. O functie IsPrintable() nu exista in Fox. dar caracterele ascii tiparibile au codul intre 32 si 122. Deci ar trebui sa scanezi tot sirul si sa extragi toate caracterele netiparibile.



Mersi foarte mult pentru indicatie , a functionat ce mi-ai zis tu, am scanat sirul de caractere , si am eliminat caracterele sub 32 si peste 122 , si am eliminat spatiile, desi mai raman :) vreo 2 spatii care ies cu alltrim :)) . Exact ce mi-am dorit !Plus ca era mult mai simplu sa iau datele firmei de la registrul comertului , e drept nu sunt chiar asa precise dar suficiente (loc. si judet).
O alta problema e cu site-ul mfinante, ca de cele mai multe ori functioneaza sub orice critica sau nu functioneaza deloc. :).
Cum fac ca in loc de celebra eroare 1428 cu oledispatch(mai pe scurt ca nu se poate conecta la server) sa-mi apara un alt mesaj care il doresc eu ?
 11/11/2010 10:29:08 PM
User is offlineGrigore Dolghin
3522 posts
www.class-software.eu
1st






Re: Completare
 (N/A)
Incadreaza codul intr-un try..catch:

Try
*- Codul tau aici (tot codul)
Catch To oException
MessageBox(oException.Message) && plus ce mai vrei sa afisezi
EndTry

Arunca un ochi si in help (sau aici: http://msdn.microsoft.com/en-us/library/z08sy19a%28VS.80%29.aspx)
Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
 11/12/2010 10:31:45 AM
User is offlinecrylord85
11 posts


Re: Completare
 (N/A)
Mersi frumos, a functionat fara nici o problema.
 11/19/2010 6:06:58 PM
User is offlineBodanIonescu
35 posts


Re: verificare cod fiscal
 (Romania)
Buna am inercat sa descarc arhiva si imi da eroare.
Poti sa o mai postezi odata?
 11/19/2010 7:15:39 PM
User is offlineBodanIonescu
35 posts


Re: verificare cod fiscal
 (Romania)
 BodanIonescu wrote
Buna am inercat sa descarc arhiva si imi da eroare.
Poti sa o mai postezi odata?

m-am descurcat - oricum cred ca nu se intelgea cui m-am adresat :-P
 11/24/2010 1:34:13 PM
User is offlinevaly.m
221 posts
4th


Re: verificare cod fiscal
 (N/A) Modified By valy.m on 11/24/2010 1:36:17 PM)
Postasem ceva, dar nu mai are rost! Scuze!
Valy Maties - Beginner programmer
 12/8/2010 10:54:14 AM
User is offlinecrylord85
11 posts


Re: verificare cod fiscal
 (N/A)
Stie careva care este noul site unde poti verificare o firma de la mfinante ca doar acolo iti spune daca o firma e platitoare de tva sau nu pe http://recom.onrc.ro/ iti da doar datele firmei si starea de functiune? inante era http://voes.mfinante.ro/codfiscal/agenticod.html acum ... ?

Multumesc anticipat
 12/9/2010 8:05:24 AM
User is offlinenae racaru
714 posts
www.rarom.ro
1st




Re: verificare cod fiscal
 (Romania)
http://voes.mfinante.ro/codfiscal/agenticod.html
VFP 6 si 9 + Oracle
 12/11/2010 4:08:45 PM
User is offlinecrylord85
11 posts


Re: verificare cod fiscal
 (N/A)
Este corect si nu este corect in acelasi timp http://voes.mfinante.ro/codfiscal/agenticod.html - incearca sa dai un cod fiscal corect si o sa iti arate:  "Eroare. Va rugam accesati informatiile despre contribuabili folosind pagina www.mfinante.ro sectiunea Informatii fiscale si bilanturi(persoane juridice)".

In acelasi timp daca incerci un cod pe site-ul http://voes.mfinante.ro/codfiscal/agenticod.html?cap=105421439 o sa mearga . Insa nu poti sa-l integrezi intr-o aplicatie , pentru ca am schimbat pagina din sursa lui Daniel de mai sus si nu merge,desi inainte mergea , problema e ca culege o pagina goala desi pagina e valida . Sa fi pus cei de la MF vreun cod de verificare in functie de ip ?

Va multumesc anticipat!
Astept idei si un mic ajutor ...
 12/14/2010 5:37:12 PM
User is offlineinfokam
18 posts


Re: verificare cod fiscal
 (Romania)
Diferenta dintre pagina veche a MF si cea noua este ca in versiunea veche exista o linie:
input type="hidden" name="cap" value="null"
iar in cea noua linia a devenit:
input type="hidden" name="cap" value="105421439"

Din pacate nu stiu cum ar trebui modificat codul de mai sus ca datele sa poata fi preluate.
 12/15/2010 5:45:26 PM
User is offlineclivius33
61 posts


Re: verificare cod fiscal
 (N/A)
Cei de aici http://ronua.ro/CS/forums/t/7997.aspx se pare ca au gasit o solutie, vorbesc ceva despre un cookie (o fi "cap=105421439" ?). Eu am incercat ceva dar n-a iesit nimic. Poate cineva care se pricepe la WEB ne ajuta si pe noi !
 12/16/2010 7:55:59 PM
User is offlineinfokam
18 posts


Re: verificare cod fiscal
 (Romania)
Am gasit si eu pagina de mai sus si la fel ca dvs, nu mi-a iesit nimic.
Am observat insa ca, daca folositi codul de mai sus pagina preia codul fiscal dupa care comanda "oHTTP.ResponseText" intoarce pagina in care a fost introdus cif-ul, deci se comporta ca si cum ar lipsi un click pe butonul "VIZUALIZARE" :(
Cei de pe pagina http://ronua.ro/CS/forums/t/7997.aspx au acolo o linie "www.Document.GetElementById("B1").InvokeMember("click");" dar nu stiu cum s-ar putea face asta in VFP (in mod normal "&B1=VIZUALIZARE" ar trebui sa faca asta dar se pare ca nu face).
 12/16/2010 8:55:08 PM
User is offlinestefan_JKSL
62 posts


Re: verificare cod fiscal
 (N/A) Modified By stefan_JKSL on 12/16/2010 9:34:22 PM)
eu am incercat codul colegului de mai sus si functioneaza la adresa http://www.mfinante.ro/codfiscal/codfiscal.html.
 12/16/2010 9:00:24 PM
User is offlineinfokam
18 posts


Re: verificare cod fiscal
 (Romania) Modified By Grigore Dolghin on 12/16/2010 11:43:31 PM)
M-am jucat putin si am observat ca daca intrii direct pe pagina aceea cu cap=105421439 nu functioneaza daaaaaaar, daca intrii prima data pe pagina precedenta (http://voes.mfinante.ro/codfiscal/pjuridice.html) merge.
Si am mai observat ca ajuta daca astepti putin pana cand "pagina" se incarca

Deci, iata un cod functional (cel putin pana cand cei de la MF mai schimba cate ceva):

oIE = Newobject('InternetExplorer.Application')
oIE.Navigate("http://voes.mfinante.ro/codfiscal/pjuridice.html")
do while oIE.ReadyState <> 4
wait '' timeout 0.1
enddo
oIE.Navigate("http://voes.mfinante.ro/codfiscal/agenticod.html?cap=105421439")
do while oIE.ReadyState <> 4
wait '' timeout 0.1
enddo
oIE.Document.forms[0].All["cod"].Value = fcif
oIE.Document.forms[0].Submit

do while oIE.ReadyState <> 4
wait '' timeout 0.1
enddo
m.cAnchorString = "AGENTUL ECONOMIC CU CODUL UNIC"
rezultat = Strextract( Substr(oIE.Document.Body.InnerHTML, Atc( m.cAnchorstring , oIE.Document.Body.InnerHTML)) , '')

Si aici (in rezultat) sunt datele !!!

Daca as stii care este comanda corecta la ceva de genul oHTTP.ReadyState probabil ca as face ceva si cu versiunea "oHTTP = CREATEOBJECT("winhttp.winhttprequest.5.1")" care merge mult mai repede.
Poate ne ajuta cineva, daca nu, ne mai chinuim...


edit by admin: erau niste taguri prin text si se strica formatarea paginii. Am refacut textul.
 12/16/2010 10:02:44 PM
User is offlineinfokam
18 posts


Re: verificare cod fiscal
 (N/A)
Da, in acest moment functioneaza pagina de la http://www.mfinante.ro/codfiscal/codfiscal.html (cu codul colegului de mai sus) dar pagina cu cap= este blocata.
 12/17/2010 8:47:14 AM
User is offlineinfokam
18 posts


Re: verificare cod fiscal
 (N/A)
S-a facut dimineata si am ajuns la concluzia ca intr-un anumit interval functioneaza pagina "http://www.mfinante.ro/codfiscal/codfiscal.html" iar in alt interval functioneaza pagina cu "cap=".
Exista momente in care nici una din pagini nu functioneaza sau se incarca deosebit de greu.
Probabil ca inca se lucreaza la site.
 1/11/2011 9:18:25 AM
User is offlinecrylord85
11 posts


Re: verificare cod fiscal
 (N/A) Modified By crylord85 on 1/11/2011 3:09:23 PM)
Mersi mult , la concluzia ca se lucreaza la site am ajuns si eu , pentru ca incarca deosebit de greu sau deloc , la faza cu "cap" este permanenta dar faza ciudata este ca daca folosesti codul lu daniel nu functioneaza modificand link-ul desi garantat 100% functiona inainte :
cCui=' ' &&codul fiscal al agentului
cServer='http://voes.mfinante.ro/codfiscal/agenticod.html?cap=105421439' &&adresa paginii web. MF o schimba din cand in cand
ohttp=CREATEOBJECT('winhttp.winhttprequest.5.1')
ohttp.Open('POST',cserver,.f.)
ohttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
ohttp.Send('cod='+cCui+'&B1=VIZUALIZARE')
*** oHttp.responsetext contine pagina html returnata de server
*** din pagina se extrage tabelul html in care sunt datele societatii
cTable=STREXTRACT(ohttp.ResponseText,'<table','table>',1,4)

Nu functioneaza, e ca si cand nu s-ar conecta la pagina decat daca accesezi site-ul : http://voes.mfinante.ro/codfiscal/pjuridice.html . Ciudat nu ?

De asemenea am observat ca in urma codului de mai sus(preluat de la infokam) rezultatul este sirul vid .. .deci nu se conecteaza si nu preia nici o data de pe site . Multumesc si astept sugestii .
 1/19/2011 10:59:30 AM
User is offlinemmarius28
125 posts
5th


Re: verificare cod fiscal
 (N/A) Modified By mmarius28 on 1/19/2011 11:00:10 AM)
Inca se lucreaza :) Merge foarte greu si din cate se pare tot trebuie sa treci prin pagina pjuridice.html

@infokam: Nu am mai facut/participat pana acum la o campanie de "agitare" a lucrurilor :)

Ai spus ceva de o petitie. Este vreun grup unde pot sa ma inscriu?
 1/26/2011 3:26:46 AM
User is offlinemuttleydo
2 posts


Re: verificare cod fiscal
 (N/A)
Am observat ca daca accesez mai inainte pagina "codfiscal/pjuridice.html" merge sa intru in cea cu "cap=". Daca schimb parametrul False pentru HttpReq.Open sau daca nu fac acestpas, imi da eroarea care ma trimite la pagina de start mfinante.ro. Mai jos codul (trebuie un pic modificat pt VFP, eu lucrez in VBA) HttpReq.Open "POST", "http://217.156.52.50/codfiscal/pjuridice.html", False HttpReq.Send HttpReq.Open "POST", "http://217.156.52.50/codfiscal/codfiscal.html?cap=105421439&cod=" & cCui, False HttpReq.Send varByteArray = HttpReq.ResponseBody
 1/26/2011 3:29:41 AM
User is offlinemuttleydo
2 posts


Re: verificare cod fiscal
 (N/A)
HttpReq.Open "POST", "http://217.156.52.50/codfiscal/pjuridice.html", False
HttpReq.Send
HttpReq.Open "POST", "http://217.156.52.50/codfiscal/codfiscal.html?cap=105421439&cod=" & cCui, False
HttpReq.Send
varByteArray = HttpReq.ResponseBody
 2/17/2011 8:20:40 PM
User is offlinemr_api
353 posts
3rd


Re: verificare cod fiscal
 (N/A)
Mai merge la cineva preluarea asta,vad ca cei de la finanate tot schimba adica ne baga bete in roate sa nu mai putem prelua,momentan am vazut ca nu mai merge,te pun sa intri pe mfinante.ro,de acolo ajungi la pagina  http://217.156.52.41/codfiscal/agenticod.html?cap=1649212780   cu partea numerica din coada mereu alta,linkul direct nu merge,stie cineva vreo metaoda?
ms
 3/3/2011 1:29:18 PM
User is offlinemr_api
353 posts
3rd


Re: verificare cod fiscal
 (N/A) Modified By mr_api on 3/3/2011 1:41:44 PM)
Revin cu problema preluarii datelor de pe mfinante.ro,mai merge la cineva?
In momentul acesta m-am blocat la completarea automata a casuteti cu codul fiscal de pe pagina,au schimbat ceva acolo si nu mai reusesc.
Ms pt orice sfat
 3/22/2011 9:27:31 AM
User is offlinestefan_JKSL
62 posts


Re: verificare cod fiscal
 (N/A) Modified By stefan_JKSL on 3/22/2011 9:27:57 AM)
eu am lucrat pe codul domnului Daniel Buduru care este mai eficient si mai rapid (parerea mea) numai ca cei de la www.mfinante.ro tot modifica site-ul.
acum datele se gasesc in al 5-lea tabel ca atare se modifica putin sintaxa :
cTable=STREXTRACT(ohttp.ResponseText,'<table','table>',5,4)

mai exact acum intregul cod care si functioneaza l-am modificat dupa cum urmeaza :

CLEAR

cCui='6900141' &&codul fiscal al agentului
cServer='http://www.mfinante.ro/infocodfiscal.html' &&adresa paginii web. MF o schimba din cand in cand
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)

cTable=STREXTRACT(ohttp.ResponseText,'<table','table>',5,4)
*** functia parsetable transforma tabelul html intr-o lista fara tag-uri
cList=parsetable(cTable)
*** se trece lista intr-un vector
ALINES(al, clist,1)
*** vectorul al se redimensioneaza la 2 coloane. Prima coloana contine explicatia, a doaua valoarea
DIMENSION al (ALEN(al)/2,2)
CREATE CURSOR info_firma CODEPAGE = 1250 ( descriere c(240), info c(240) )
FOR i = 1 TO ALEN(al,1)
    SELECT info_firma
    APPEND BLANK
    replace descriere WITH ALLTRIM(STRTRAN(ALLTRIM(STRTRAN(al(i,1),"&nbsp;","")),CHR(9),""))
    replace info      WITH ALLTRIM(STRTRAN(ALLTRIM(STRTRAN(al(i,2),"&nbsp;","")),CHR(9),""))
ENDFOR
SELECT info_firma
BROWSE
USE

FUNCTION parsetable
LPARAMETERS tctable
#DEFINE CR CHR(13)
LOCAL lcList, lcCell, lcData, lnCell, lnTag
lclist=''
FOR lnCell=1 TO OCCURS('<td',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
NEXT lnCell
RETURN lclist

*--------
problema mea e ca nu stiu inca sa-i setez timeout si cum sa se comporte obiectul winhttp.winhttprequest.5.1 la aparitia unei erori.
inca studiez. daca poate cineva sa ma ajute raman dator de cinste. multumesc anticipat.
 3/22/2011 11:19:43 AM
User is offlineDaniel Buduru
2141 posts
1st




Re: verificare cod fiscal
 (N/A) Modified By Daniel Buduru on 3/22/2011 11:21:35 AM)
Pentru timeout (valorile in milisecunde):
oHttp.SetTimeouts(ResolveTimeout, ConnectTimeout, SendTimeout, ReceiveTimeout)

In ceea ce priveste erorile, fie incerci cu Try - Catch - End Try sau cu On Error, fie creezi o interfata com pentru winhttprequest pe care o legi de ohttp cu Eventhandler.

Daniel Buduru
 6/2/2011 5:09:33 PM
User is offlineclivius33
61 posts


Re: verificare cod fiscal
 (N/A)
Il rog frumos pe d-nul Daniel Buduru daca poate sa detalieze procedura de verificare a codului fiscal pe site-ul actual al MF. Am citit intr-un alt post despre procedura, cum de pe prima pagina se afla cap-ul si cookie-ul si apoi se folosesc in header-ul interogarii finale, ma chinuiesc de vreo 10 zile si totusi nu reusesc. Mai exact, aflarea cap-ului de pe prima pagina (http://www.mfinante.ro/pjuridice.html?pagina=domenii) este simpla. Cum aflam insa cookie-ul ? Eu am incercat asa : lcookie = ohttp.GetResponseHeader("Set-Cookie"). Ceva se incarca in lcookie, nu stiu insa daca este corect. Apoi setarea header-ului : ohttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded") si oHttp.SetRequestHeader("Set-Cookie",lcookie). Urmeaza interogarea finala : ohttp.Send('cod=' + CUI + '&B1=VIZUALIZARE') Rezultatul este insa ca raman pe pagina de introducere a CUI-ului ca si cum nu se apasa butonul "Vizualizare". Oare unde este greseala ? Multumesc anticipat.
 6/2/2011 9:01:43 PM
User is offlineDaniel Buduru
2141 posts
1st




Re: verificare cod fiscal
 (N/A) Modified By Daniel Buduru on 6/2/2011 10:48:50 PM)
Motivul pentru care n-am mai postat pe acest thread a fost tonul posturilor unor utilizatori  ...
"Astept explicatii"este prea imperativ pentru mine pentru a-i da curs, si n-a fost numai asta.
Oricum, posturile cu pricina m-au determinat sa nu mai postez cod complet pe forum.
Nimeni nu est obligat sa fie politicos pe forum, daca nu considera ca trebuie sa fie, dupa cum nimeni nu este obligat sa raspunda intrebarilor puse pe forum.

In celalalt thread, mgabi a postat un cod care functioneaza.
Uite cum arata interogarea finala:
ohttp.Send('cod='+cCui+'&cap='+xnrcap+'&B1=VIZUALIZARE')

Later edit:
Inainte de send este un  http.open cu metoda post si adresa obtinuta din pagina a doua, abia apoi se seteaza header-ele si urmeaza ohttp.send

Daniel Buduru
 6/3/2011 12:01:53 PM
User is offlineclivius33
61 posts


Re: verificare cod fiscal
 (N/A)
 Daniel Buduru wrote
Motivul pentru care n-am mai postat pe acest thread a fost tonul posturilor unor utilizatori ...
"Astept explicatii"este prea imperativ pentru mine pentru a-i da curs, si n-a fost numai asta.
Oricum, posturile cu pricina m-au determinat sa nu mai postez cod complet pe forum.
Nimeni nu est obligat sa fie politicos pe forum, daca nu considera ca trebuie sa fie, dupa cum nimeni nu este obligat sa raspunda intrebarilor puse pe forum.

In celalalt thread, mgabi a postat un cod care functioneaza.
Uite cum arata interogarea finala:
ohttp.Send('cod='+cCui+'&cap='+xnrcap+'&B1=VIZUALIZARE')

Later edit:
Inainte de send este un http.open cu metoda post si adresa obtinuta din pagina a doua, abia apoi se seteaza header-ele si urmeaza ohttp.send

Multumesc mult, am reusit ! Se pare ca nu e nevoie de cookie, merge si fara.
 6/3/2011 12:22:58 PM
User is offlineDaniel Buduru
2141 posts
1st




Re: verificare cod fiscal
 (N/A) Modified By Daniel Buduru on 6/3/2011 11:23:14 AM)
Pagina html de la MF trimite acel cookie impreuna cu celelalte date - cap, cui, B1. Poate ca acum nu mai este verificat si cookie, ci doar acel cod cap.
Daniel Buduru
 6/3/2011 2:50:21 PM
User is offlineclivius33
61 posts


Re: verificare cod fiscal
 (N/A) Modified By clivius33 on 6/3/2011 1:52:25 PM)
Incerc acum sa citesc si informatiile despre bilant, dar nu prea imi iese. Am considerat ca trebuie facut mai intai un :
ohttp.Send('cod=' + ccif + '&cap=' + lcap + '&B1=VIZUALIZARE') si apoi :
ohttp.Send('cod=' + ccif + '&cap=' + lcap + '&an=' + pan + '&method.bilant="VIZUALIZARE"'), dar nu merge.
Am incercat si doar cu al doilea send() si degeaba. Va rog, poate cineva sa-mi sugereze o rezolvare si pentru aceasta problema ?
 6/3/2011 3:35:12 PM
User is offlineDaniel Buduru
2141 posts
1st




Re: verificare cod fiscal
 (N/A)
O interogare incepe cu o comanda Open
oHttp.Open('POST','http://www.mfinante.ro/infocodfiscal.html',.f.)
Pentru bilant, mai intai se alege anul - e o lista de optiuni in pagina, cu anii pentru care este disponibil bilantul.
Se seteaza din nou request headers
Apoi urmeaza comanda send
oHttp.Send([an=WEB_AN]+TRAN(lnAn)+[&cod=]+lcCui+[&cap=]+lcCap+[&method.bilant=VIZUALIZARE])
Daniel Buduru
 6/3/2011 4:07:50 PM
User is offlineclivius33
61 posts


Re: verificare cod fiscal
 (N/A)
 Daniel Buduru wrote
O interogare incepe cu o comanda Open
oHttp.Open('POST','http://www.mfinante.ro/infocodfiscal.html',.f.)
Pentru bilant, mai intai se alege anul - e o lista de optiuni in pagina, cu anii pentru care este disponibil bilantul.
Se seteaza din nou request headers
Apoi urmeaza comanda send
oHttp.Send([an=WEB_AN]+TRAN(lnAn)+[&cod=]+lcCui+[&cap=]+lcCap+[&method.bilant=VIZUALIZARE])


Sunteti extraordinar, a functionat imediat.
Partea cu open-ul era clara, nu stiam partea cu interogarea finala. Imi scapase complet din sintaxa chestia cu WEB_AN si de-aia nu mergea.
In final am lasat si cookie-ul ala in header (si la CIF si la Bilant) pt. ca mi s-a parut ca fara el erau momente cand nu mergea.

Multumesc din suflet !!!
 6/9/2011 11:47:16 PM
User is offlinevicos
137 posts
5th


Re: verificare cod fiscal
 (N/A)

Fa si tu upload la codul care a functionat, sa ne ne bucuram si noi!
 6/28/2011 12:29:19 PM
User is offlinemmarius28
125 posts
5th


Re: verificare cod fiscal
 (N/A)
 vicos wrote

Fa si tu upload la codul care a functionat, sa ne ne bucuram si noi!


Am incercat si eu in command window, si se pare ca merge destul de bine, si intre 2 sesiuni de VFP

Clear

Local loHTTP As "MSXML2.ServerXMLHTTP"
Local lcFileBilant, lcFileInfo, lcParameters, lnResponse
Local lcAn, lcCui, lcCap

lcAn = [2009]
lcCui = [11588780] && CARREFOUR S.A.
lcCap = ""
lcFileInfo = 'c:\mfin_info.html'
lcFileBilant = 'c:\mfin_bilant.html'

loHTTP = Createobject("MSXML2.ServerXMLHTTP")

*1 pagina pjuridice pentru obtinerea variabilei CAP
loHTTP.Open('POST','http://www.mfinante.ro/pjuridice.html',.F.)
loHTTP.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
loHTTP.Send([pagina=domenii])

lcCap = Strextract(loHTTP.responseText,[&cap=],["],1,1)
?lcCap

*2 pagina informatii societate
loHTTP.Open('POST','http://www.mfinante.ro/infocodfiscal.html',.F.)
loHTTP.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
lcParameters = [cod=] + lcCui + [&cap=] + lcCap + [&B1=VIZUALIZARE]
?lcParameters
lnResponse = loHTTP.Send([cod=] + lcCui + [&cap=] + lcCap + [&B1=VIZUALIZARE])

If File(lcFileInfo)
Delete File (lcFileInfo)
Endif
Strtofile(loHTTP.responseText, lcFileInfo)
OPEN_DEFAULT_APP(lcFileInfo)

*3 pagina bilant societate
loHTTP.Open('POST','http://www.mfinante.ro/infocodfiscal.html',.F.)
loHTTP.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded')
loHTTP.Send([an=WEB_AN] + lcAn + [&cod=]+lcCui+[&cap=]+lcCap+[&method.bilant=VIZUALIZARE])

If File(lcFileBilant)
Delete File (lcFileBilant)
Endif
Strtofile(loHTTP.responseText, lcFileBilant)
OPEN_DEFAULT_APP(lcFileBilant)


Procedure OPEN_DEFAULT_APP
Parameters tcfilename

Declare Integer ShellExecute In shell32.Dll ;
INTEGER hndWin, ;
STRING cAction, ;
STRING cFileName, ;
STRING cParams, ;
STRING cDir, ;
INTEGER nShowWin
cFileName = tcfilename
cAction = "open"
ShellExecute(0,cAction,cFileName,"","",1)

Endproc && OPEN_DEFAULT_APP
 7/2/2011 3:05:18 AM
User is offlinevicos
137 posts
5th


Re: verificare cod fiscal
 (N/A)
Si cum extrag informatiile din mfin_info.html intr-un cursor(tabel)?
 7/12/2011 10:21:40 AM
User is offlinemmarius28
125 posts
5th


Re: verificare cod fiscal
 (N/A)
 vicos wrote
Si cum extrag informatiile din mfin_info.html intr-un cursor(tabel)?


lcResponse = Upper(loHTTP.responseText)
InfoMfin2Array(m.lcResponse, @laMfin)

lcFirma = laMfin(1, 2)
lcAdresa = laMfin(2, 2)
lcAdresa = Strtran(Strtran(lcAdresa, Chr(13), ''), Chr(10), '') && fara CRLF
lcJudet = laMfin(3, 2)
lcRegCom = STRTRAN(laMfin(4, 2), ' ','') && fara spatii
lcCodpostal = laMfin(6, 2)
lcTelefon = laMfin(7, 2)
lcFax = laMfin(8, 2)

*** 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

lcTable = STREXTRACT(m.lcResponse,'',5,5)
*** functia parsetable transforma tabelul html intr-o lista fara tag-uri
lcList = This.ParseTable(m.lcTable)
*** se trece lista intr-un vector
lnLinii = ALINES(laInfo, lcList, 1)
*** vectorul laInfo se redimensioneaza la 2 coloane. Prima coloana contine explicatia, a doua valoarea
DIMENSION laInfo (lnLinii/2, 2)
FOR i = 1 TO ALEN(laInfo,1)
laInfo(i,1) = ALLTRIM(STRTRAN(ALLTRIM(STRTRAN(laInfo(i,1)," ","",1,10,1)),CHR(9),""))
laInfo(i,2) = ALLTRIM(STRTRAN(ALLTRIM(STRTRAN(laInfo(i,2)," ","",1,10,1)),CHR(9),""))
ENDFOR
ENDPROC && InfoMfin2Array
 7/12/2011 5:01:22 PM
User is offlineEmilSavu
66 posts


Re: verificare cod fiscal
 (N/A)
Uite un cod (adaptat putin) postat  de Dorin Vasilescu:

create table info_firma ( info c(60),descriere c(200) )

m.cAnchorString = "AGENTUL ECONOMIC CU CODUL UNIC"
m.cTable = Strextract( Substr(loHTTP.responseText, Atc( m.cAnchorstring , loHTTP.responseText)) , '<table','</table>')
m.ctable=STRTRAN(m.ctable,'&nbsp;',' ')
m.nRowcount = Occurs( '<tr' , m.cTable )
IF NOT USED("INFO_FIRMA")
 USE INFO_FIRMA IN 0 EXCLUSIVE
ENDIF
SELECT INFO_FIRMA
ZAP
for m.i = 1 to m.nRowcount
    cXML = [<?xml version="1.0"?><info><tr><td> ] ;
        + Strextract( Strextract( cTable , "<tr" , "</tr>" , m.i ) , 'face="Times New Roman">' , "</font>" , 1) ;
        + [</td></tr></info>]

    Xmltocursor( m.cXML , 'crs_info' )
    m.cDescriere =  Transform(crs_info.td)
  
    m.cXML = [<?xml version="1.0"?><info><tr><td> ] ;
        + Strextract( Strextract( m.cTable , "<tr" , "</tr>" , m.i ) , 'face="Times New Roman">' , "</font>" , 2) ;
        + [</td></tr></info>] 
    Xmltocursor(STRTRAN(M.CXML,'&','&amp;') , 'crs_info' )  && in denumirea firmei poate fi &
    m.cInfo =  STRTRAN(strtran(Transform(crs_info.td),CHR(10),''),CHR(9),'') && elimin TAB si LF
    insert into info_firma ( info,descriere  ) values ( m.cInfo ,  m.cDescriere  )
 next

Din tabela Info_Firma iti preiei datele in aplicatia ta
 7/13/2011 1:46:48 PM
User is offlinemr_api
353 posts
3rd


Re: verificare cod fiscal
 (N/A) Modified By mr_api on 7/13/2011 12:51:07 PM)
Salut, a reusit cineva sa faca preluarea acesta si din mediul .NET,ma refer la partea cu cookie-ul ?Poate posta un cod,multumesc !
 9/24/2011 4:09:01 PM
User is offlinemr_api
353 posts
3rd


Re: verificare cod fiscal
 (Romania)
Mai nou cei de la mf nu s-au lasat si au pus un cod captcha la accesarea datelor de pe pagina  :   http://www.mfinante.ro/agenticod.html?pagina=domenii
:( 
 10/1/2011 10:06:39 AM
User is offlinestefan_JKSL
62 posts


Re: verificare cod fiscal
 (N/A)
tipic romanesc : un lucru care mergea binisor poate fi facut, cu ceva efort (financiar), sa mearga prost sau foarte prost. era o solutie buna pentru declaratia 394 si pentru cei care fac vanzari cu taxare inversa... acum am cam ramas cu pantalonii in vine. am vazut ca unele firme de soft pun la dispozitia clientilor propria baza de date dar de unde iau aceasta baza de date? se poate cumpara baza de date de la finante? stie cineva alta solutie in afara de cea de la www.mfinante.ro? multumesc anticipat pentru orice raspuns. Cu respect, Stefan
 10/1/2011 12:36:04 PM
User is offlinemr_api
353 posts
3rd


Re: verificare cod fiscal
 (Romania)
Mai este vaianta asta,pana nu schimba si aici
http://voes.mfinante.ro/codfiscal/agenticod.html
 10/1/2011 2:23:57 PM
User is offlinemmarius28
125 posts
5th


Re: verificare cod fiscal
 (N/A)
 mr_api wrote
Mai este vaianta asta,pana nu schimba si aici
http://voes.mfinante.ro/codfiscal/agenticod.html


Nu cred mai merge nici asta :). Trebuie sa treci intai prin pagina cu captcha.

Alta posibilitate este sa parsezi pagina: http://www.firme.info/list_search.php?cui=11588780

Arata cam greoi de parsat, dar orice este posibil.

Doar daca website-ul in cauza nu se prinde ca are trafic prea mare si pune captcha :)
Caz in care ar trebui sa vorbim cu cineva de la MF sau la Registrul Comertului care sa puna la dispozitie o adresa pentru consultarea codurilor fiscale. Din pacate nu am nici o idee cum trebuie procedat.
 10/5/2011 4:48:14 PM
User is offlinemgabi
118 posts
5th


Re: verificare cod fiscal
 (N/A)
Functioneaza (inca) link-ul dat de mr_api. Testat.
 10/5/2011 4:53:47 PM
User is offlinemgabi
118 posts
5th


Re: verificare cod fiscal
 (N/A)
Scuze, acum am vazut, el nu a postat link-ul de origine. Deschizi intai http://voes.mfinante.ro/codfiscal/pjuridice.html
Identifici cap=.... si apoi citesti rezultatul de la http://voes.mfinante.ro/codfiscal/codfiscal.html

Adica ai cam 3 modificari de facut in procedura veche
 10/5/2011 11:16:48 PM
User is offlinemmarius28
125 posts
5th


Re: verificare cod fiscal
 (N/A)
 mgabi wrote
Scuze, acum am vazut, el nu a postat link-ul de origine. Deschizi intai http://voes.mfinante.ro/codfiscal/pjuridice.html
Identifici cap=.... si apoi citesti rezultatul de la http://voes.mfinante.ro/codfiscal/codfiscal.html

Adica ai cam 3 modificari de facut in procedura veche
Mie imi da Error 404: SRVE0190E: File not found: /pjuridice.htm
 10/8/2011 1:28:33 AM
User is offlinemgabi
118 posts
5th


http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
http://voes.mfinante.ro/codfiscal/pjuridice.html

este .html , nu .htm
Incearca pagina in browser direct, la mine apare OK pe firefox, IE, chrome si seamonkey.

Si bineinteles, din aplicatie merge fara probleme pana acum (este adevarat ca nu am testat pe multi clienti inca)
 10/8/2011 7:31:20 AM
User is offlinevicos
137 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
Nici mie nu-mi merge
Poti sa postezi codul?
Mersi
 10/8/2011 6:23:36 PM
User is offlinemgabi
118 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
cServer='http://voes.mfinante.ro/codfiscal/codfiscal.html'
ohttp=CREATEOBJECT('winhttp.winhttprequest.5.1')
ohttp.Open('GET','http://voes.mfinante.ro/codfiscal/pjuridice.html',.f.)
ohttp.Send()
xpag2=STREXTRACT(ohttp.ResponseText,'/agenticod.html?cap=','"',1,3)
xnrcap=STRTRAN(xpag2,'/agenticod.html?cap=','')
xnrcap=STRTRAN(xnrcap,'"','')
ohttp.Open('POST',cServer,.f.)
ohttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
ohttp.Send('cod='+cCui+'&cap='+xnrcap+'&B1=VIZUALIZARE')
rezultat=ohttp.ResponseText

....
iar de aici faci ce vrei cu rezultatul.

Daca va da acest cod eroare, dati de stire.
 10/13/2011 5:46:26 PM
User is offlinestefan_JKSL
62 posts


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
Eroare. Va rugam accesati informatiile despre contribuabili folosind pagina www.mfinante.ro sectiunea Informatii fiscale si bilanturi(persoane juridice)
 10/17/2011 11:30:19 PM
User is offlinemgabi
118 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
La care linie iti da raspunsul acesta?

Mie mi-a functionat pana acum . .. dar nu am testat pe win7 inca.
 10/20/2011 3:26:41 PM
User is offlinemmarius28
125 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A) Modified By mmarius28 on 10/20/2011 2:26:54 PM)
Am trimis un email la publicinfo@mfinante.gov.ro cu privire la gasirea unei solutii de automatizare a validarii codurilor fiscale.

Sa vad ce imi raspund :)
 10/24/2011 10:57:30 AM
User is offlineEMRE.RESIT
46 posts


Re: verificare cod fiscal
 (Romania) Modified By EMRE.RESIT on 10/24/2011 10:29:33 AM)
Eroare. Va rugam accesati informatiile despre contribuabili folosind pagina www.mfinante.ro sectiunea Informatii fiscale si bilanturi(persoane juridice)
acesta e mesajul care apare dupa accesare cu codul acesta. exista vreo linie de cod care ar trebui modificata??

am si eu o intrebare cum pot sa introduc eu codul fiscal in casutele respective manual din site iar raspunsul siteului sa fie salvat pe calculatorul meu iar apoi eu sa il import intro baza de date??
 10/24/2011 12:45:44 PM
User is offlinemmarius28
125 posts
5th


Re: verificare cod fiscal
 (N/A)
 EMRE.RESIT wrote
Eroare. Va rugam accesati informatiile despre contribuabili folosind pagina www.mfinante.ro sectiunea Informatii fiscale si bilanturi(persoane juridice)
acesta e mesajul care apare dupa accesare cu codul acesta. exista vreo linie de cod care ar trebui modificata??


Ultimul cod postat de mgabi pe 08.10.2011 l-am testat din nou acum si functioneaza:
cServer='http://voes.mfinante.ro/codfiscal/codfiscal.html' 
ohttp=CREATEOBJECT('winhttp.winhttprequest.5.1')
ohttp.Open('GET','http://voes.mfinante.ro/codfiscal/pjuridice.html',.f.)
ohttp.Send()
xpag2=STREXTRACT(ohttp.ResponseText,'/agenticod.html?cap=','"',1,3)
xnrcap=STRTRAN(xpag2,'/agenticod.html?cap=','')
xnrcap=STRTRAN(xnrcap,'"','')
ohttp.Open('POST',cServer,.f.)
ohttp.SetRequestHeader("Content-Type","application/x-www-form-urlencoded")
ohttp.Send('cod='+cCui+'&cap='+xnrcap+'&B1=VIZUALIZARE')
rezultat=ohttp.ResponseText


 EMRE.RESIT wrote
am si eu o intrebare cum pot sa introduc eu codul fiscal in casutele respective manual din site iar raspunsul siteului sa fie salvat pe calculatorul meu iar apoi eu sa il import intro baza de date??

Probabil te gandesti sa automatizezi Internet Explorer. Codul de mai sus realizeaza acelasi lucru ca si Internet Explorer, adica descarca paginile corespunzatoare.
 10/24/2011 1:15:02 PM
User is offlineEMRE.RESIT
46 posts


Re: verificare cod fiscal
 (Romania)
am inteles dar rezultatul apare numai in internet explorer?? nu de alta dar eu am setat mozilla ca default si nu mi se intampla nimic
 10/24/2011 1:17:12 PM
User is offlineEMRE.RESIT
46 posts


Re: verificare cod fiscal
 (Romania)
si am incercat si pe internet explorer ca default si nu imi apare nimic
unde apare acel response text???
 10/24/2011 2:07:18 PM
User is offlinemmarius28
125 posts
5th


Re: verificare cod fiscal
 (N/A)
 EMRE.RESIT wrote
si am incercat si pe internet explorer ca default si nu imi apare nimic
unde apare acel response text???

Codul respectiv nu are legatura cu IE sau cu Firefox.

ohttp.ResponseText este exact continutul paginii cu datele firmei pe care ai obtine-o cu orice browser.

Poti sa salvezi continutul variabilei rezultat intr-un fisier ca sa te convingi:

strtofile(ohttp.ResponseText, "c:\info.html")

Trebuie sa parcurgi continutul ohttp.ResponseText ca sa extragi numele, adresa, numarul de inregistrare la registrul comertului etc.

S-a postat in acest thread codul pentru parcurgerea acestui rezultat. Este posibil sa fi aparut mici modificari ale paginii rezultat, dar codul de parcurgere este acelasi in mare.
 10/24/2011 3:53:26 PM
User is offlineEMRE.RESIT
46 posts


Re: verificare cod fiscal
 (Romania) Modified By EMRE.RESIT on 10/25/2011 4:25:01 PM)
mersi ma lamurisem singur dar dadusem drumul la reply
am o alta intrebare
cum fac sa introduc codul fiscal si el sa mil verifice prin codul asta
mai am o intrebare am intrat pe adresa http://voes.mfinante.ro/codfiscal/pjuridice.html si am verificat un cod care zicea ca nu exista aici iar pe siteul http://www.mfinante.ro/ care are si capctha exista codul respectiv
 12/16/2011 9:35:25 AM
User is offlinemmarius28
125 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
 mmarius28 wrote
Am trimis un email la publicinfo@mfinante.gov.ro cu privire la gasirea unei solutii de automatizare a validarii codurilor fiscale.

Sa vad ce imi raspund :)


Am primit raspuns de la Ministerul de Finante dupa 2 luni in care imi spun exact ... nimic. Nici ca au analizat, nici ca au in planul de dezvoltare, nici ca au mai primit cererea asta de la altcineva, nici ca s-au gandit ei deja la problema asta pentru a usura munca oamenilor, nici de ce au pus captcha, exact nimic.

 Stimate domn,

Referitor la solicitarea dumneavoastra cu privire la automatizarea verificarilor datelor de identificare ale persoanelor juridice si a calitatii de platitor de TVA va comunicam urmatoarele:
Site-ul www.mfinante.ro contine foarte multe informatii de interes public, nu numai cele despre persoane juridice si bilanturi.
Informatiile oferite de site sunt destinate persoanelor care doresc sa obtina informatii din domeniul fiscal.
Avand in vedere solicitarea dumneavoastra vom analiza oportunitatea oferirii de servicii adaugate de tipul amintit de dumneavoastra si capacitatea de a aloca resurse acestor servicii.
Aceste servicii vor fi publicate pe site  in momentul si in masura in care ele vor fi implementate.


MINISTERUL FINANŢELOR PUBLICE
Biroul de informare şi relaţii publice
Str. Apolodor nr.17, sector 5, Bucureşti
Tel/Fax:  +40 21 319 96 83
E-mail: publicinfo@mfinante.gov.ro
 12/16/2011 10:04:42 AM
User is offlinemmarius28
125 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
Le-am mai trimis un email, in care mi-am exprimat nemultumirea :) si i-am rugat "respectuos" sa imi spuna care este procedura de escaladare a cererii mele.

Sa vad cand primesc un raspuns.
 12/16/2011 5:26:11 PM
User is offlinemgabi
118 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
Cred ca mai bine scriem la EU, poate ei reusesc sa-i conviga pe ai nostri ca este o necesitate, nicidecum un moft.
 12/16/2011 7:03:16 PM
User is offlineEmilSavu
66 posts


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
Pina sa ne ajute ei , ne ajutam singuri.Intradevar cei la la MF sunt "plini de energie" , si vor sa ne demonstreze PERMANENT  cit de priceputi sunt.Tocmai pentru ca modificarile lor sunt foarte dese trebuie o  solutie care sa "tina pasul" cu ei.Pentru ca vad ca sunteti interesati in rezolvarea problemei, iata cum vad eu lucrurile(100% Visual Foxpro).Pastrez intr-o tabela codul(efectiv prg) care rezolva problema,cod care se modifica atunci cind modifica ei ,si-l execut cu EXECSCRIPT sau cu ajutorul clase Codeblck a lui Randy Pearson pentru versiunile de Visual Fox in care nu exista EXECSCRIPT( eu am Visual 9, si nu stiu daca EXECSCRIPT exista si in versiunile precedente).Evident ca se poate face un EXE doar pentru partea asta de consultare MF,care sa fie apelat din aplicatia principala si cind modifica baieti , hop  un EXE nou, faca a reface intreaga aplicatiei.Ca orice in programare si rezolvarea acestei probleme se poate face in n variante.La mine n = 3, adica am rezolvat problema folosind : 1. un control Webbrowser  2. InternetExplorer.Application si 3 .Winhttp.winhttprequest.5.1. Cu variantele 1 si 2 raspunsul poate fi obtinut si in format text (parca mai usor de folosit, in special pentru cei care nu au cunostiinte avansate de HTML).Am inclus 2 metode de parsare (HTML si Text) prin care se incarca datele intr-o tabela ce poate fi preluata apoi in aplicatia proprie
Informatii_MF.rar 
 12/17/2011 1:50:05 AM
User is offlinemmarius28
125 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
Foarte dragut codul cu captcha. Am crezut ca s-a terminat povestea :)

Sunt foarte folositoare si instructive cele 3 coduri pentru obtinerea datelor. Am avut aceeasi idee, dar in loc de executabil am facut o pagina web care este apelata cu parametri in URL de tipul: http://SERVER_IP/verificarecod.aspx/verificarecod/verificare/CIF/11588780/MFINVIES,

unde verificarecod reprezinta numele unei clase dintr-un prg foxpro, verificare este numele metodei din clasa respectiva, iar restul CIF, 11588780, MFINVIES sunt parametri pentru verificarecod.verificare.
Am folosit framework-ul foxtrails (http://www.foxtrails.org/)

Metoda respectiva intoarce un xml:
     <cverificarecod>
        <valid>true</valid>
        <eroare/>
        <cod>11588780</cod>
        <firma>CARREFOUR ROMANIA S.A.</firma>
        <adresa>B-DUL TIMISOARA 26Z BUCURESTI</adresa>
        <judet>MUNICIPIUL BUCURESTI</judet>
        <regcom>J40/7766/2007</regcom>
        <codpostal>-</codpostal>
        <telefon>0212067400</telefon>
        <fax>0212067499</fax>
        <vies>true</vies>
        <platitortva>true</platitortva>
    </cverificarecod>
 1/20/2012 3:04:04 PM
User is offlinemmarius28
125 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A) Modified By mmarius28 on 1/20/2012 3:04:26 PM)
Navigarea prin pagina http://voes.mfinante.ro/codfiscal/pjuridice.html necesita extragerea doar a variabilei cap si folosirea ei in pagina http://voes.mfinante.ro/codfiscal/codfiscal.html, fara a fi nevoie de captcha.

Dar se pare ca baza de date VOES este in urma celei principale, pentru ca am depistat deja 2 cazuri in care in VOES nu este operata o luare evidenta la plata TVA din 06/2011, sau nu este inregistrata o firma infiintata in 08/2011.

Asa ca voi integra codul captcha al dnului Emil Savu postat mai sus.

 1/20/2012 5:09:54 PM
User is offlinencl
1 posts


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
Buna ziua tuturor,

Am studiat si eu mai atenta problema verificarii CUI-urilor online si concluzionez urmatoarele:
- mfinante nu mai putem folosi decat daca se verifica partenerii aproximativ manual;
- site-ul vies nu merge decat pentru partenerii inscrisi in Registrul Operatorilor Intracomunitari.

De unde rezulta ca sunt mari sanse pentru clientii nostri sa depuna declaratii incorecte. Nu sta nimeni sa verifice manual la fiecare declaratie daca un partener a devenit din platitor, neplatitor sau invers.
Concluzia concluziilor este ca cei de la finante in mod intentionat au blocat accesarea datelor, pentru a avea mai mari sanse sa amendeze firmele pentru depunere incorecta 394.

Un mail sau un telefon la ei nu rezolva mare lucru. Poate exista alte solutii sa-i constrangem.......

Daca ce spun eu nu e corect, m-as bucura sa ma lumineze cineva, numai problema CUI-urilor sa o vad rezolvata.
 1/20/2012 5:15:56 PM
User is offlineclivius33
61 posts


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
Ii multumesc si eu domnului Savu pt. codul postat, chestia aceea cu codul Captcha este foarte tare ! Intr-un viitor ma gandesc sa implementez si eu ideea dansului.
In alta ordine de idei am trimis ieri un mail la ANAF, pe adresa Admin.portal@mfinante.gov.ro  (am inteles ca asta este chiar de la Centrul lor de Calcul), in care le-am solicitat printre altele si o facilitate minimala si anume posibilitatea de a afla programatic, neinteractiv de pe site-ul ANAF daca un agent economic este sau nu este platitor de TVA ! Acest lucru este vital acum cand decl. 394 se va depune lunar (sau dupa caz, trimestrial) si care, dupa cum stim, trebuie sa contina doar agentii ec. inregistrati in scopuri de TVA ! Adica macar atat sa ne dea, daca am cateva zeci sau sute de firme in decl. 394 ce fac, ii verific de 'manuta' pe site-ul lor minunat dotat cu cod Captcha ? Ideal ar fi sa ne puna la dispozitie pt. un agent economic toate datele alea de pe site-ul lor intr-un fisier XML ! Dar din ce-am vorbit telefonic cu un IT-ist de la ei se pare ca desi exista ceva cereri in sensul asta, asa ceva nu vedem prea curand, n-au servere, banda sau ceva de genu' (vorbea neclar si se mai auzea si incet, nici nu prea am inteles ce zicea) !
Oricum, cine e interesat de subiect il invit sa trimita o astfel de cerere la adresa de mail de mai sus, daca o sa fim multi poate cine stie ?!
In mail-ul de raspuns automat de la ei sustin ca:  "Timpul estimat de raspuns este de 3 zile lucratoare", mi-au dat si numar de inregistrare dar deocamdata nu am mai primit nimic !
 1/20/2012 10:19:54 PM
User is offlinemmarius28
125 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)

Am mai testat o data codul captcha al dnului Savu. Nu stiu de ce am ramas prima data cu impresia ca nu necesita interventia utilizatorului (introducerea codului captcha) :(

De asemenea am incercat sa folosesc acelasi cod de captcha pentru mai multe interogari si nu merge.

Nu pot sa il oblig pe utilizator sa bage captcha pentru sute de clienti/furnizori :( Deocamdata voi ramane la baza de date de pe pagina VOES, desi nu are date actualizate.

In plus am o pagina web proxy pentru interogarea paginii de la mfinante si VIES (daca se schimba formatul paginilor respective, pot sa actualizez doar serviciul web si clientii nu vor observa problema). Dar, daca trebuie sa fac ceva interactiv (captcha), nu va mai merge pagina mea proxy.

Am trimis si eu un email la publicinfo@mfinante.gov.ro si s-au ostenit sa raspunda dupa 2 luni, fara sa-mi spuna nimic. http://www.profox.ro/Forum/tabid/55/forumid/12/threadid/18108/threadpage/9/scope/posts/Default.aspx#tblPostBody37763
 1/20/2012 10:30:04 PM
User is offlinemmarius28
125 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
 ncl wrote
Buna ziua tuturor,

Am studiat si eu mai atenta problema verificarii CUI-urilor online si concluzionez urmatoarele:
- mfinante nu mai putem folosi decat daca se verifica partenerii aproximativ manual;
- site-ul vies nu merge decat pentru partenerii inscrisi in Registrul Operatorilor Intracomunitari.

De unde rezulta ca sunt mari sanse pentru clientii nostri sa depuna declaratii incorecte. Nu sta nimeni sa verifice manual la fiecare declaratie daca un partener a devenit din platitor, neplatitor sau invers.
Concluzia concluziilor este ca cei de la finante in mod intentionat au blocat accesarea datelor, pentru a avea mai mari sanse sa amendeze firmele pentru depunere incorecta 394.

Un mail sau un telefon la ei nu rezolva mare lucru. Poate exista alte solutii sa-i constrangem.......

Daca ce spun eu nu e corect, m-as bucura sa ma lumineze cineva, numai problema CUI-urilor sa o vad rezolvata.

Nu trebuie verificat daca la momentul generarii D394, clientii sau furnizorii sunt platitori de TVA, ci daca erau in momentul emiterii facturilor. Asta inseamna ca trebuie verificat, ca la introducerea facturii sa se introduca clientul corect, cu codul fiscal care este pe factura cu sau fara atribut fiscal RO.

Este posibilitatea ca unii clienti, furnizori sa treaca de la neplatitori de TVA la platitori, si, mai nou, si invers. Daca un furnizor este 2 luni platitor de TVA si o luna nu, atunci trebuie declarate doar facturile emise cand era platitor de TVA. O idee buna este sa se verifice calitatea de platitor la introducerea facturii.

Un lucru interesant, de care nu mi-am dat seama pana acum, este ca, in pagina de la mfinante, apare "data luarii in evidenta pentru plata TVA". Daca este completata, atunci clientul/furnizorul este platitor de TVA.
 2/10/2012 9:27:54 AM
User is offlinemmarius28
125 posts
5th


Re: http://voes.mfinante.ro/codfiscal/pjuridice.htmlRe: verificare cod fiscal
 (N/A)
 mmarius28 wrote
Navigarea prin pagina http://voes.mfinante.ro/codfiscal/pjuridice.html necesita extragerea doar a variabilei cap si folosirea ei in pagina http://voes.mfinante.ro/codfiscal/codfiscal.html, fara a fi nevoie de captcha.

Dar se pare ca baza de date VOES este in urma celei principale, pentru ca am depistat deja 2 cazuri in care in VOES nu este operata o luare evidenta la plata TVA din 06/2011, sau nu este inregistrata o firma infiintata in 08/2011.

Asa ca voi integra codul captcha al dnului Emil Savu postat mai sus.

Pagina http://voes.mfinante.ro/codfiscal/pjuridice.html care nu necesita cod captcha nu mai raspunde :(

O sa caut alte pagini de unde pot lua macar numele firmei asociat unui cod fiscal.
 Page 2 of 2
NextPreviousNo Rating
Previous12 
  Visual FoxPro  Visual FoxPro in general  verificare cod ...
Search  Forum Home         

 Google Ads Minimize
    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement