¡ Hola !
Tengo que validar el CAI de los comprobantes manuales. Para ello tengo una clase creada en la que debe devolver si el CAI es válido o no. Pero el problema es que hoy la AFIP no devuelve el resultado en la misma ventana, sino que redirecciona el resultado a otra dirección web con el texto obtenido.
Transcribo lo que tengo hasta ahora:
PARAMETERS rCUIT, rCAI, rFecha, rTipo, rSucur, rNumComp
LOCAL rBrowser, rPar, rRespuesta, rPagina
rBrowser=CREATEOBJECT("internetExplorer.application")
if type("rBrowser")="O"
rBrowser.navigate("
http://www.afip.gov.ar/genericos/im....asp")
this.Espera(rBrowser)
rPagina=rBrowser.Document.Body.OuterHTML
if at("fnro_comprob",rPagina)#00
rBrowser.Document.Forms(0).fcuit.Value = STRTRAN(rCUIT,"-","")
rBrowser.Document.Forms(0).fcai.Value = STR(rCAI,14)
rBrowser.Document.Forms(0).fdia.Value = STRTRAN(STR(DAY(rFecha),02)," ","0")
rBrowser.Document.Forms(0).fmes.Value = STRTRAN(STR(MONTH(rFecha),02)," ","0")
rBrowser.Document.Forms(0).fanio.Value = STRTRAN(STR(YEAR(rFecha),04)," ","0")
rBrowser.Document.Forms(0).fnro_comprob.Value = " "+STRTRAN(STR(rTipo,02)," ","0")
rBrowser.Document.Forms(0).fpvta.Value = ALLTRIM(STR(rSucur,04))
rBrowser.Document.Forms(0).fnumero.Value = ALLTRIM(STR(rNumComp,08))
rBrowser.Document.Forms(0).Submit
this.Espera(rBrowser)
* Acá debería hacer el click en la imagen que simula ser el botón "Consultar" para
* que envíe los datos y muestre el resultado en
*
http://www.afip.gov.ar/genericos/im...ER_CAI.ASP
do case
case at("Los datos ingresados coinciden",rPagina)#00
rRespuesta=01
case at("obligatorio",rPagina)#00
rRespuesta=03
other
rRespuesta=02
endcase
else
rRespuesta=02
endif
else
rRespuesta=04
endif
release rBrowser
return(rRespuesta)
Mi problema, creo, es que no hay un botón para enviar la información, sino que en su lugar hay una imágen que simula ser un botón. Y además no sé cómo hacer el paso a la última dirección.
Mi idea es que el usuario sólo vea un messagebox donde le diga si el CAI es correcto o no.
Alguna sugerencia? Muchas gracias!