Consultar DNI o CUIT en Argentina (Solucionado)

Posts: 104

Joined: Wed Mar 08, 2006 02:24 PM

Consultar DNI o CUIT en Argentina (Solucionado)
Posted: Tue Nov 26, 2019 12:55 PM

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

postinelli

Posts: 150

Joined: Tue Jul 15, 2008 07:12 PM

Re: Consultar DNI o CUIT en Argentina
Posted: Tue Nov 26, 2019 08:19 PM

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

caducca

Posts: 104

Joined: Wed Mar 08, 2006 02:24 PM

Re: Consultar DNI o CUIT en Argentina
Posted: Tue Nov 26, 2019 11:03 PM

Ok, gracias por el dato. Lo voy a probar y aviso.

caducca

Posts: 104

Joined: Wed Mar 08, 2006 02:24 PM

Re: Consultar DNI o CUIT en Argentina
Posted: Wed Nov 27, 2019 02:48 PM

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

caducca

Posts: 104

Joined: Wed Mar 08, 2006 02:24 PM

Re: Consultar DNI o CUIT en Argentina
Posted: Wed Nov 27, 2019 02:49 PM

Me olvide de poner el código que es el siguiente:

Code (fw): Select all Collapse

 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

postinelli

Posts: 150

Joined: Tue Jul 15, 2008 07:12 PM

Re: Consultar DNI o CUIT en Argentina
Posted: Wed Nov 27, 2019 02:59 PM

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

caducca

Posts: 104

Joined: Wed Mar 08, 2006 02:24 PM

Re: Consultar DNI o CUIT en Argentina (Solucionado)
Posted: Thu Nov 28, 2019 01:05 AM

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.

postinelli

Posts: 150

Joined: Tue Jul 15, 2008 07:12 PM

Re: Consultar DNI o CUIT en Argentina (Solucionado)
Posted: Thu Nov 28, 2019 10:23 PM

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

Guest

Posts: 0

Joined: unknown

Re: Consultar DNI o CUIT en Argentina (Solucionado)
Posted: Fri Jun 24, 2022 09:14 PM

Hola buenas tardes, de esta forma se puede recuperar el nombre, existe alguna manera de obtener el domicilio

Y como es para los cuit 30 en más

Saludos
Jorge.

FiveTech Support Forums

Continue the discussion