Internet.Application y el envío de información a otra dirección.

05/07/2011 - 16:52 por mcf-ar | Informe spam
¡ 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!
 

Preguntas similares