Newsgroup: it.comp.appl.access
Titolo: [DEMO] Controllo PIva da Agenzia Entrate

Carissimi, ho avuto questa esigenza e ho fatto il controllo... la
condivido con voi... magari vi serve per le anagrafiche dei clienti:
 
Form: 
ControlloPI
 
Campi:
cmp_PI (campo in cui digitare la Partita Iva)
cmp_Esito (campo in cui sarà riportato il risultato della verifica)
cmd_Controlla (pulsante da cui avviare la procedura)
 
Nel codice della maschera, incollare quanto segue:
 
Option Compare Database
 
Dim xxEEsito As String
 
Private Sub cmd_Controlla_Click()
 
Dim txtRequestString    As String
    Dim oHttp               As Object
 
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
 
    txtRequestString =
"
http://www1.agenziaentrate.it/servizi/vies/transazione.htm?s=IT&p=
" &
Me.cmp_PI
 
    oHttp.Open "GET", txtRequestString, False
    oHttp.Send
 
    Call ParseFile(oHttp.ResponseText, "<div id=" & Chr(34) &
"vies_boxr2" & Chr(34) & ">")
 
    xxEEsito = Replace(xxEEsito, Chr(10), "")
    xxEEsito = Replace(xxEEsito, "</table>", "")
    xxEEsito = Replace(xxEEsito, "</tr>", "")
    xxEEsito = Replace(xxEEsito, "</td>", "")
    xxEEsito = Replace(xxEEsito, "</th>", "")
    xxEEsito = Replace(xxEEsito, "</strong>", "")
    xxEEsito = Replace(xxEEsito, "<strong>", "")
    xxEEsito = Replace(xxEEsito, "<tr>", Chr(10))
    xxEEsito = Replace(xxEEsito, "<td>", "")
    xxEEsito = Replace(xxEEsito, "<th>", "")
    xxEEsito = Replace(xxEEsito, "<p>", "")
    xxEEsito = Replace(xxEEsito, "</p>", "")
    xxEEsito = Replace(xxEEsito, "&agrave;", "à")
    xxEEsito = Replace(xxEEsito, "&egrave;", "è")
    xxEEsito = Replace(xxEEsito, "  ", "")
    xxEEsito = Replace(xxEEsito, "<div id=" & Chr(34) & "vies_boxr3" &
Chr(34) & ">", "")
    xxEEsito = Replace(xxEEsito, "<table summary=" & Chr(34) &
"Dettaglio della partita IVA" & Chr(34) & ">", "")
    xxEEsito = Replace(xxEEsito, "</div>", "")
    xxEEsito = Replace(xxEEsito, "<p class=" & Chr(34) & "vies_ok" &
Chr(34) & ">", "")
    xxEEsito = Replace(xxEEsito, "<p class=" & Chr(34) & "vies_er" &
Chr(34) & ">", "")
 
 
    Me.cmp_Esito.Value = xxEEsito
    DoEvents
 
End Sub
 
 
 
Private Sub ParseFile(xurl As String, yParola As String)
On Error GoTo err:
 
    Dim xPosizioneParola    As Long
    xPosizioneParola = 1
 
    Dim xlink               As String
    Dim i                   As Long
    i = 1
giro:
    xPosizioneParola = InStr(xPosizioneParola, xurl, yParola)
 
    If xPosizioneParola > 1 Then
        For i = 0 To Len(xurl)
            If Right(Mid(xurl, xPosizioneParola + Len(yParola), i), 8) =
"</table>" Then
                xxEEsito = Mid(xurl, xPosizioneParola + Len(yParola), i)
                GoTo fine:
            End If
        Next i
    Else
        GoTo fine:
    End If
 
fine:
Exit Sub
 
err:
MsgBox err.Number & " - " & err.Description
 
End Sub
 
Salvare il tutto... e provare ;)
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 
TheSpaceCowboy : 
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12
 

Maurizio... il Titolo che hai usato non è per tutti... "AGENZIA
ENTRATE" cos'è....?
 
Almeno il 70% delle persone non la conosce... ;-)
 
@Alex
 
 
 

 Almeno il 70% delle persone non la conosce... ;-)
 
lol hai ragione... se dicevo Equitalia ero sicuramente piu' alla moda! :D
 
Ale, ne approfitto... conosci Web Service da interrogare (
dot.net
) per
voli aerei, hotels, treni ????


 Pablitomf
 
Spiacente... ma ultimamente sono completamente MORTO...
Conosco il risotto con la salsiccia... ;-)
 
Tutto bene...? Spero di si.
 
mi2
 
@Alex

 Tutto bene...? Spero di si.
 
si si, sull'NG morto anche io ormai... :)
 
tu ti sei dato alla cucina?


 tu ti sei dato alla cucina?
 
Magari... mi sono dato e basta...
Giochicchio con net, ma faccio fatica a fare cose semplici... ho
pochissimo tempo libero e poi la voglia non è più quella di una volta.
 
@Alex
 
 

 condivido con voi... magari vi serve per le anagrafiche dei clienti:
 
[cut]
 
Grazie!!!
 
Finalmente ho trovato il tempo di provarla (stanotte).
Funziona bene ed è veramente utile.
 
Grazie.
 
Ciao
 
Silvio 
 
 

Silvio ha scritto:

bene, mi fa piacere... ovviamente il parse dell'html lo si puo' curare
decisamente meglio ottenendo risultati migliori... ma per i "fiocchetti"
lascio a voi libero arbitrio... PS, ovviamente questo sistema controlla
anche le P.IVA non italiane... basta aggiungere un altro campo alla form
con la lista (sigle) degli stati, e darne il valore in pasto al link al
posto di "IT" (io l'ho dato di default perche' mi interessano solo quelle
italiane)... ;)
 
-- 
 
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

     xxEEsito = Replace(xxEEsito, "&egrave;", " ")

Saluti a tutti, scusate.....
ho provato ad usarla anche io ma mi da sempre come risultato:
 
CODICE IVA NON VALIDO/NON CORRETTO
Partita IVA: ????????????????? (ovviamente per la privacy non ho
postato il numero di Piva)
Denominazione: ---
Indirizzo: ---
Data di inizio validit : ---
Data di fine validit : ---
 
Il codice naturalmente non mi da errore, dove ho sbagliato?
Oppure è possibile consultare soltanto alcune partite iva?
Oppure non ho capito un tubo?
Ancora saluti

 Ancora saluti
 
il codice prende i dati dal sito delle agenzie delle entrate e te lo
ripropone in una variabile... per cui se vai sul sito
(
http://www1.agenziaentrate.it/servizi/vies/vies.htm?p=&s=IT
), e inserisci
la partita iva indicata, il risultato � lo stesso. Sei sicuro che la P.Iva
sia corretta e censita?... prova con altre P.Iva (sicuramente valide...
cercale online tipo telecom e roba simile) e verificane i risultati.



Ok funziona....
Grazie 1000
Saluti
M7a1x

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
 
 
 
Saluti a tutti
Funziona sì ma con riserva......
nel senso che funziona solo con determinate p.iva; a tal proposito nel
sito dell'agenzia delle entrate si parla di operatori commerciali
titolari di una partita IVA che effettuano cessioni intracomunitarie;
quindi se provate a cercare la partita iva del titolare del bar dove
la mattiana fate colazione vi da (fino a prova contraria) come
risultato: CODICE IVA NON VALIDO/NON CORRETTO.
Saluti
M7a1x
 

 M7a1x
 
uhm... mi sa che hai ragione... devo contattare l'agenzia delle entrate
allora... cosi' mi faccio dire un po' cosa interrogare per averle tutte.



Il fatto che nel sito non ci sia un'area dedicata credo che sia già
una risposta....
Credo che rispondano in senso negativo; l'interrogazione delle banche
dati (Agenzia delle Entrate nel caso specifico) è prerogativa delle
forze di polizia (in questo caso sopratutto Guardia di Finanza).
In attesa puoi cambiare intestazione al post visto che trattasi di
sole partite iva comunitarie.
Distinti Saluti
M7a1x

Aggiorno questo vecchio post per segnalare che attualmente sono disponibili web service per controllare P.IVA e C.F. italiane (anche non iscritte al VIES).

 
 
"..sono disponibili.." ?
Dove?
Per controllare, intendi dire verificare se esiste la partita Iva o 
farti anche restituire i dati della ditta?

 
 
senza capcha da inserire?
esci il link :-)
 
grazie!

BFS pretended :

https://telematici.agenziaentrate.gov.it/VerificaPIVA/Scegli.do?parameter=verificaPiva
 
 
Nihil novi sub sole.
 
Bruno


ma c'è sempre il capcha da inserire quindi inutile
 
:-/


Fanno il riconoscimento targhe, come mai e' cosi' complesso fare un 
programma per il riconoscimento captha?
Mi sembra incredibbole che a qualcuno non gli siano girate tipo 
ventilatore e non si sia messo a creare un anti-captcha

 
 
Gentilissimo sig. 
nine...@gmail.com
 , sono interessato alle procedure 
indicate nel 3d
E' possibile saperne qualcosa di piu' ?
Cordiali saluti
 


riconoscere una targa è una boiata rispetto a riconoscere un capcha 
visto che cambiano sempre sfondo, font, posizioni delle lettere etc
mentre la targa ha sempre proporzioni fisse e caratteri chiari
 
quello che non capisco è perchè non permettino di farlo agli utenti 
autenticati sul sito
 
bah
BFS