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
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
Cordiales saludos a todos.