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.
Image

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