Consultar DNI o CUIT en Argentina (Solucionado)

[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

[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

[caducca]

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

[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

[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

[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

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

[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