FiveTech Software tech support forums

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

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

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

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

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

Code: Select all  Expand view

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

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

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.

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

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.