autollenar web form SUNAT

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
edufloriv
Posts: 169
Joined: Thu Nov 08, 2012 3:42 am
DBs Used: DBF, MariaDB
Location: PERU
Has thanked: 8 times
Been thanked: 6 times

autollenar web form SUNAT

Post by edufloriv » Thu Jul 04, 2019 2:42 pm

Saludos amigos,

Necesito validar los CPE de nuestros proveedores a través de la página de SUNAT (Perú), no tengo mucha experiencia con esto, la página es esta:

https://e-consulta.sunat.gob.pe/ol-ti-i ... aliCpe.htm

sunat-cpe.jpg
sunat-cpe.jpg (247.43 KiB) Viewed 499 times
Como puedo autollenar ese formulario y obtener el resultado en un archivo que pueda leer a través de código. Ya tengo el TESSERACT y tengo código que bajé del foro:

Code: Select all

FUNCTION ConsRUC( cRuc )

LOCAL lOk := .T.
LOCAL oHttp
LOCAL cHtml
LOCAL qHtml
LOCAL cCaptcha := ''
   // Create TIp object with URL
   oHttp:= TIpClientHttp():new( "http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/captcha?accion=image" )
   // Connect to the HTTP server
   IF oHttp:open()
      cHtml   := oHttp:readAll()
      Memowrit( "captcha.jpg" , cHtml )
      oHttp:close()
      // Convierto foto en texto
      cFile := "captcha.txt"
      CaptchaToTxt() //hb_run( "c:\tes\tesseract.exe captcha.jpg captcha -psm 7")
      // Leo el TXT
      IF file( cFile )
         cCaptcha := hb_MemoRead( cFile )
         cCaptcha := ALLTRIM( cCaptcha )
         cCaptcha := UPPER( LEFT(cCaptcha,4) )
      ELSE
         Alert(cfile+' no existe')
      ENDIF
      // Obtengo los datos de la URL
      cWebPoint := "http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?accion=consPorRuc&nroRuc="+cRuc+"&codigo="+cCaptcha+"&tipdoc=1"
      getdataruc(cWebPoint)
/*
      // Armo la consulta del RUC y Connect to the HTTP server
      qHttp:= "http://e-consultaruc.sunat.gob.pe/cl-ti-itmrconsruc/jcrS00Alias?accion=consPorRuc&nroRuc="+cRuc+"&codigo="+cCaptcha+"&tipdoc=1"
      Memowrit( "query.txt" , qHttp )
      oHttp:= TIpClientHttp():new( qHttp )
      IF oHttp:open()
         // download de la pagina de respuesta con los datos del RUC
         cHtml := oHttp:readAll()
         Memowrit( "rucinfo.html" , cHtml )
         oHttp:close()
      ELSE
         Alert( "Error de Conexión:; " + oHttp:lastErrorMessage() )
         RETURN .F.
      ENDIF
*/
   ELSE
      Alert( "Error de Conexión:; " + oHttp:lastErrorMessage() )
   ENDIF

RETURN lOk
El tema es que no sé por donde empezar, agradeceré una mano.


Cordiales saludos a todos.

Eduardo Flores Rivas


LIMA - PERU

ASESORMIX
Posts: 110
Joined: Thu Oct 25, 2012 8:08 pm
Location: Bqto, Venezuela
Been thanked: 6 times

Post by ASESORMIX » Fri Jul 05, 2019 4:01 pm

Hola.
No soy my ducho en el tema.
Pero creo que aqui hay algo que te puede dar ideas...

https://groups.google.com/forum/?hl=ca# ... %5B1-25%5D

ASESORMIX
Posts: 110
Joined: Thu Oct 25, 2012 8:08 pm
Location: Bqto, Venezuela
Been thanked: 6 times

Post by ASESORMIX » Fri Jul 05, 2019 4:03 pm

Hola.
No soy muy ducho en el tema.
Pero creo que aqui hay algo que te puede dar ideas...

https://groups.google.com/forum/?hl=ca# ... %5B1-25%5D

ASESORMIX
Posts: 110
Joined: Thu Oct 25, 2012 8:08 pm
Location: Bqto, Venezuela
Been thanked: 6 times

Post by ASESORMIX » Fri Jul 05, 2019 4:25 pm

En el portal de fivewin forum tambien se consigue informacion al respecto...

En el "search" de esta pagina coloca la palabra sunat y aparecen algunas soluciones, ejemplo:

https://forums.fivetechsupport.com/view ... 00#p213075
http://forums.fivetechsupport.com/viewt ... 33#p178709
https://forums.fivetechsupport.com/view ... 00#p208059
http://forums.fivetechsupport.com/viewt ... at#p177467

Post Reply