Base de Conocimientos (KB)
Facturación Electrónica : SUNAT > Help Desk : VFPS CPE > Base de Conocimientos (KB)

Ayuda de búsqueda:


Consulta de DNI directamente con RENIEC

Solución

Solución para realizar consultas de DNI directamente con RENIEC.

  1. No se requiere colocar CAPTCHA
  2. No se usa programas adicionales de conversión de imágenes
  3. Se consulta directamente en el webservice de RENIEC
  4. Embebible a cualquier lenguaje de desarrollo
  5. El uso es totalmente FREE

Para el uso se requiere que envié un correo a webmaster@vfpsteambi.solutions para que se le genere un TOKEN de uso personalizado con la siguiente información:

  • Nombre de empresa o razón social
  • Contacto
  • Email
  • Número de RUC o DNI
  • Teléfono

 

Ejemplo de uso en Visual FoxPro

LOCAL lcDNI,lcToken
 
lcToken  = "87290E49D50B519"  &&SOLICITAR SU TOKEN PERSONALIZADO
lcDNI    = "72398649"         &&NUMERO DE DNI
 
IF !VFPs_Consultar_DNI(lcDNI,lcToken)
   RETURN .F.
ENDIF
 
*!* CONSULTA REALIZADA CON EXITO
? _SCREEN.lcDni_lcNombres
? _SCREEN.lcDni_lcApe_Paterno
? _SCREEN.lcDni_lcApe_Materno
? _SCREEN.lcDni_lcNombres + " " + _SCREEN.lcDni_lcApe_Paterno + " " + _SCREEN.lcDni_lcApe_Materno
? _SCREEN.lcDni_lcCod_Verificacion
? _SCREEN.lcDni_lcTelefono
? _SCREEN.lcDni_lcDomicilio
 
*!* FUNCIÓNES
FUNCTION VFPs_Consultar_DNI (lcDNI,lcToken)
      
       IF TYPE("lcDNI") = "L" .OR. TYPE("lcToken") = "L"
          RETURN .F.
       ENDIF          
 
       LOCAL lnEstado,lcURL,loHTTP,lcResult,laDatos,lnError,lcToken,lcDNI
       DIMENSION laDatos[1]
 
       lnError  = 0
       lnEstado = -1
       lcURL    = "http://www.facturacionsunat.com/vfpsws/vfpsconsbsapi.php?dni=" + ALLTRIM(lcDNI) + "&token=" + ALLTRIM(lcToken)
 
       TRY
         loHTTP = CREATEOBJECT("MSXML2.XMLHTTP")
         loHTTP.Open("GET", lcURL, .F.)
         loHTTP.Send ()
         lnEstado = loHTTP.Status
        CATCH TO loError
         TRY
           loHTTP = CREATEOBJECT("Microsoft.XMLHTTP")
           IF TYPE("loHTTP") <> "O"
              RETURN .F.
           ENDIF
          
           loHTTP.Open("GET", lcURL, .F.)
           loHTTP.Send ()
           lnEstado = loHTTP.Status
          CATCH TO loError
           *!* ERROR NO EXISTEN LOS OBJETOS XML
           lnEstado = -1
           MESSAGEBOX("No se puede instanciar los objetos XMLHTTP. Verificar!!!",48,"VFPSTEAM BI")
         ENDTRY  
       ENDTRY
 
       IF lnEstado <> 200
          RETURN .F.
       ENDIF
       _SCREEN.MousePointer = 0
      
       lcResult = loHTTP.ResponseText
       lcResult = ALLTRIM(STRTRAN(lcResult,"</br >",CHR(13) + CHR(10)))
       lnLines  = ALINES(laDatos,lcResult)
       loHTTP   = .F.
      
       IF lnLines = 1
       MESSAGEBOX(lcResult + ". Verificar!!!",48,"VFPSTEAM BI")
       RETURN .F.
    ENDIF
   
    *!* LLENAMOS LOS RESULTADOS EN PROPIEDADES DEL _SCREEN
    _SCREEN.AddProperty ("lcDni_lcNombres",ALLTRIM(STRTRAN(laDatos[2],"Nombres:","")))
    _SCREEN.AddProperty ("lcDni_lcApe_Paterno",ALLTRIM(STRTRAN(laDatos[3],"Ape. Paterno:","")))
    _SCREEN.AddProperty ("lcDni_lcApe_Materno",ALLTRIM(STRTRAN(laDatos[4],"Ape. Materno:","")))
    _SCREEN.AddProperty ("lcDni_lcCod_Verificacion",ALLTRIM(STRTRAN(laDatos[5],"Verificacion:","")))
    _SCREEN.AddProperty ("lcDni_lcTelefono",ALLTRIM(STRTRAN(laDatos[6],"telefono:","")))
    _SCREEN.AddProperty ("lcDni_lcDomicilio",ALLTRIM(STRTRAN(laDatos[7],"domicilio:","")))
   
    RETURN .T.   
ENDIF  
 

Ejemplo otros lenguajes formato JSON

Para otros lenguajes se devuelve en formato JSON
 
http://www.facturacionsunat.com/vfpsws/vfpsconsbsapi.php?dni=41632913&token=87290E49D50B519&format=json
 
 
Nota.- Es muy importante solicitar su propio TOKEN
 
 
VFPSTEAM BI SOLUTIONS
 
¿Le ha sido útil este artículo? si / no
Detalles del artículo
ID de artículo: 58
Categoria: Knowledgebase
Fecha de alta: 2017-07-20 19:20:46
Vistas: 38947
valoración (Votar): valoración del artículo 3.4/5.0 (134)

 
« Volver atras

 
Powered by Help Desk Software HESK, brought to you by SysAid