stie cineva cum se verifica PRIN PROGRAM daca un cod de inregistrare in scopuri de tva,un RO.........., este valid ?

Multumesc,

Codul este (era) extrem de simplu dar spre surprinderea mea nu mai functioneaza. Cei de la EC au schimbat modul de interogare in Java, iar la asta nu ma pricep.

Vechiul cod care functiona 100% era:

Function VERIFVAT
Parameters CIF
lcURL="http://ec.europa.eu/taxation_customs/vies/cgi-bin/viesquer?MS=RO&Lang=EN&VAT="+CIF
lcWebContent = ReadURL(lcURL)
If Occurs('Yes, valid VAT number',lcWebContent)>0
 CORECT=.T.
Else
 CORECT=.F.
Endif
Return CORECT

Functia ReadUrl cred ca o au toti foxistii. Daca nu... o dau.  Poate gaseste cineva noua formula de aflare a validitatii VAT

Noul site se afla la adresa: http://ec.europa.eu/taxation_customs/vies/vieshome.do?selectedLanguage=EN

Daca introduci cod fiscal =27 nu iti da eroare si nici declaratia 394 nu spune ca este eroare la verificare din fisier extern sau la introducere in programul lor . Codul fiscal nu trebuie sa contina intre  6 si  10 cifre?

Da, dar sunt de parere ca mai intai tb sa verifici  daca codul cif este valid (vezi discutiile anterioare). Daca rezultatul este corect (clientul ti-a dat informatia corecta atunci cand a cumparat) atunci poti face validarea de VAT. Prin acelasi algoritm se poate verifica si denumirea si adresa societatii pt cei ce-i intereseaza.

Cred ca functia asta-i mai buna

Pe www.validari.ro/cui.html nu scrie de restrictie de lungime! Personal am vazut cif de lungime 5

FUNCTION VerificareCIF(tcCif)
 LOCAL llOk, i, lcCheie, lcControl, lnSuma, lcVerif
 llOk = .t.
 tcCif = AllTrim(tcCif)
 IF ! BetWeen(Len(tcCif), 1, 10)
  llOk = .f.
 ELSE
  i = 1
  DO WHILE IsDigit(SubStr(tcCif,i,1)) AND (i<=Len(tcCif))
   i = i + 1
  ENDDO
  IF i <= Len(tcCif)
   llOk = .f.
  ELSE
   lcCheie  = "235712357"
   tcCif    = Inversare(tcCif)
   lcControl = Left(tcCif,1)
   tcCif  = Right(tcCif, Len(tcCif) - 1)
   lnSuma  = 0
   FOR i = 1 TO Len(tcCif)
    lnSuma = lnSuma+ Round(Val(SubStr(tcCif,i,1)) * Val(SubStr(lcCheie,i,1)),0)
   ENDFOR
   lcVerif  = AllTrim(Str(Mod(10 * lnSuma, 11)))
   llOk   = lcControl == Right(lcVerif,1)
  ENDIF
 ENDIF
 RETURN llOk
ENDFUNC

FUNCTION Inversare(tcStr)
 IF Empty(tcStr)
  RETURN ""
 ELSE
  RETURN SubStr(tcStr, Len(tcStr), 1) + Inversare(Left(tcStr, Len(tcStr) - 1))
 ENDIF
ENDFUNC

Singurul drwback la solutia ta e daca pica cionectivitatea cu url-ul ala nu mai poti consuma serviciul de web in rest nice totul dupa cum spuneam in postul ala legat de programatporii finantisti ar trebuie sa se orienteze catre serviciile de web e viitorul

http://www.mfinante.ro/contribuabili/link.jsp?body=/contribuabili/agenti_nume.htm

Multumesc! Super incantat! De cand caut asa ceva!

Eu cred ca CIF = CUI = COD FISCAL (CIF = cod de identificare fiscala, CUI = cod unic de inregistrare). Contabila mi-a spus ca denumirea CUI este perimata.

Lumea crede ca, daca are RO in fata, acea firma este platitoare de TVA. Nu stiu ce sa cred, RO vine de la ROmania ....

Cu ajutorul unui prieten ,specialist in web , am facut o mica modificare programului verifvat , o versiune "din topor" ,dar care va permite sa faceti validare codurilor fiscale (daca sunt platitori de TVA sau nu) si o actualizare a denumirilor si adreselor partenerilor.Ideea este ca orice cerere trimisa la un URL retuneaza raspunsul in acelasi loc(atita timp cit nu se modifica poza paginii returnate).

Parameters CIF

&&lcURL="http://ec.europa.eu/taxation_customs/vies/cgi-bin/viesquer?MS=RO&Lang=EN&VAT="+CIF

STRTOFILE(lcwebcontent,'raspuns.txt')

CREATE TABLE rasp (cimp c(240))

APPEND FROM raspuns.txt sdf

IF 'Yes, valid VAT number' $ cimp

? 'Tara '+ALLTRIM(cimp)

? 'Nume firma '+ALLTRIM(cimp)

? 'Adresa '+ALLTRIM(cimp)

? 'Societate nu este platitoare de TVA'

wait''

If Occurs('Yes, valid VAT number',lcWebContent)>0

CORECT=.F.

Return CORECT

** restul programului este nemodificat

posteaza-l te rog

N U am inteles ce treaba mai ai cu comul in dot net .E suficient sa adugi referinta la serviciu de web ti se genereaza clasa proxy si prin metodele ai apelezi metodele serviciului de web ,ea face un invoke transparent la metodele reale ale serviciului

N U am inteles ce treaba mai ai cu comul in dot net .E suficient sa adugi referinta la serviciu de web ti se genereaza clasa proxy si prin metodele ai apelezi metodele serviciului de web ,ea face un invoke transparent la metodele reale ale serviciului

Serviciul ala web de la VIES foloseste un type complex care nu e pe placul SOAP (are variabile by ref, output,...). Asa ca nu se poate folosi direct din VFP (eu nu am reusit, poate se poate, totusi). Asta creat cu NET si COM Interop e ok.

Pornind de la ideea de a pune la dispozitia utilizatorului (printr-o aplicatie vfp ) cursul valutar zilnic de pe site-ul bnr.ro  ( e ok, merge ); am incercat ceva asemanator si pt verificarea codului fiscal ( CUI ) direct pe site-ul mfinante.ro (chiar daca exista si acea formula de verificare - similara cu cea pt verificarea CNP-lui). Astfel s-ar putea face inclusiv verificarea existentei atributului pt platitorii de TVA, dar si a altor date asociate firmelor  ce sunt accesibile pe site-ul mfinante.ro ( de exemplu adresa ) . Problema e ca NU am reusit inca sa determin care este link-ul catre mfinante.ro pt fiecare cod fiscal in parte; am doar link-ul general ( indiferent ce cod fiscal am selectat :    www.mfinante.ro/contribuabili/link.jsp?body=/cod.do ). Stie cineva  care este expresia pt aceste adrese ???? 

multumesc . o sa studiez raspunsul tau in urmatoarele zile ( n-am avut timp, fiind plecat ). eu am incercat cu  WGET.exe , dar nu am reusit sa obtin returnarea informatiei la nivel de cod fiscal.