Page 1 of 1
Consultar DNI o CUIT en Argentina (Solucionado)
Posted: Tue Nov 26, 2019 12:55 pm
by caducca
Hola Foro: Quisiera saber si hay alguna forma de consultar on-line los DNI de una persona o CUIT de una empresa en Argentina.
En la AFIP me dijeron que podría consultar el Padrón Constancia de Inscripción por medio de WebServices, pero ahí solo podría consultar los que están inscriptos en la AFIP.
Alguna sugerencia?
Gracias
Re: Consultar DNI o CUIT en Argentina
Posted: Tue Nov 26, 2019 8:19 pm
by postinelli
Yo hago así
y funciona con el 99% de las personas
primero debes calcular el cuil, sabiendo si es femenino o masculino lo haces
con el cuil
xCuit:='27943597818'
https://www.dateas.com/es/persona/a-b-'+xCuil
luego con oHttp:ResponseBody
encontras los datos que vos queres
lo hago hace años y funciona incluso con DNIs 49xxxxxx ( son niños )
cualquier cosa a tus ordenes
Re: Consultar DNI o CUIT en Argentina
Posted: Tue Nov 26, 2019 11:03 pm
by caducca
Ok, gracias por el dato. Lo voy a probar y aviso.
Re: Consultar DNI o CUIT en Argentina
Posted: Wed Nov 27, 2019 2:48 pm
by caducca
Hola Postinelli
parece que no encuentra la página. Este es una parte del archivo de respuesta.
Este sitio es de pago?, debo registrarme para obtener la información?
Gracias
Re: Consultar DNI o CUIT en Argentina
Posted: Wed Nov 27, 2019 2:49 pm
by caducca
Me olvide de poner el código que es el siguiente:
Code: Select all
cCuit:=XY+cDNI+Str(Z,1)
Try
oHttp := CreateObject( "winhttp.winhttprequest.5.1" )
oHttp:Open( "POST", "https://www.dateas.com/es/persona/a-b-'+"+cCuit, .F. ) // oHttp:Open("GET", cUrl, .f. )
oHttp:Send()
cResp := oHttp:ResponseBody()
// MsgAlert(cResp)
memowrit( "cResp", oHttp:ResponseBody())
Catch
MsgStop( "Error" )
Return cResp
End Try
Re: Consultar DNI o CUIT en Argentina
Posted: Wed Nov 27, 2019 2:59 pm
by postinelli
intenta
rlink:="
https://www.dateas.com/es/persona/-"+xCuil
de todas formas el link que te pasé anteriormente a mi me funciona
pon el link en el navegador que utilices
Re: Consultar DNI o CUIT en Argentina (Solucionado)
Posted: Thu Nov 28, 2019 1:05 am
by caducca
Gracias Postinelli, lo pude solucionar con tus indicaciones.
Ahora tengo que ver de recuperar esa info que me trae como página web en transformarlo en XLM o TXT.
Re: Consultar DNI o CUIT en Argentina (Solucionado)
Posted: Thu Nov 28, 2019 10:23 pm
by postinelli
asi lo hago yo
quizas te sirve para apuntar directamente allí
If '<tr class="odd"><th>Nombre</th>' $ cTextoHTML
DatNom=allTrim( substr( cTextoHTML, at( '<tr class="odd"><th>Nombre</th><td>', cTextoHTML )+34,100 ))
// MsgAlert('DatNom1: '+DatNom)
DatNom=alltrim( substr( DatNom, at('>',DatNom)+1, 50 ) )
// MsgAlert('DatNom2: '+DatNom)
DatNom=alltrim( substr( DatNom, 1, at('<',DatNom)-1 ) )
// MsgAlert('DatNom3: '+DatNom)
DatApe=alltrim( substr( DatNom, 1 , at(' ',DatNom)-1 ) )
// MsgAlert('DatNom4: '+DatNom)
//DatCui=allTrim( substr( cTextoHTML, rat( '<h2>CUIT: ', cTextoHTML )+10,50 ))
//DatCui=alltrim( substr( DatCui, 1 , at('</h2>',DatCui)-1 ) )
DatCui=xxCuil
//MsgAlert('DatNom: '+DatNom)
//MsgAlert('DatCui: '+DatCui)
//MsgAlert('DatApe: '+DatApe)
Else
MsgAlert('No Valida Datos Internet')
MsgStop('Verifique')
Return NIL
EndIf