do while loIE.readystate<>4
A que se debe ? interesante función que me puede servir para que ya no llenen a mano los datos del tipo de cambio...
MK
-----Mensaje original-----
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de cesarz
Enviado el: jueves, 24 de marzo de 2011 03:03 p.m.
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Re: Para sacar tipo de cambio de sunat (Peru)
Ahi va de nuevo
loIE=createobject("InternetExplorer.Application")
loIE.visible=.T.
loIE.navigate("http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias")
do while loIE.readystate<>4
wait window "Waiting for web page..." timeout 1
enddo
do while type("loIE.document.body.innerhtml")<>"C"
*loop till it's a character... sometimes it's just not quite ready
enddo
*lcHTML=loIE.document.body.innerhtml
lcHTML=loIE.document.body.innerText
strtofile(lcHTML,"temp.txt")
modify command temp.txt
Marzo - 2011
Tipo de cambio publicado al :
DíaCompraVentaDíaCompraVentaDíaCompraVentaDíaCompraVenta
1 2.774 2.775 2 2.777 2.778 3 2.774 2.775 4 2.770 2.771
5 2.769 2.770 8 2.768 2.770 9 2.770 2.771 10 2.769 2.770
11 2.770 2.770 12 2.769 2.769 15 2.769 2.770 16 2.769 2.770
17 2.769 2.770 18 2.768 2.769 19 2.767 2.767 22 2.780 2.781
23 2.782 2.782 24 2.778 2.778
Para efectos del Impuesto a la Renta, se deberá tomar el tipo de cambio de cierre, al 31 de Diciembre del ejercicio correspondiente.
Mes Enero Febrero Marzo Abril Mayo Junio Julio Agosto Setiembre Octubre Noviembre Diciembre Año 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011
Descargar Email: Enviar Correo
Para cualquier sugerencia sobre el sitio web, por favor comuníquese con:
Webm...@sunat.gob.pe
Copyright © SUNAT 1997 - 2011
Esto es todo lo que me arroja, alguna idea para poderlo pasar a datos legibles...??
MK
-----Mensaje original-----
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Miguel Canchas
Enviado el: jueves, 24 de marzo de 2011 03:21 p.m.
Para: publice...@googlegroups.com
Asunto: RE: [vfp] Re: Para sacar tipo de cambio de sunat (Peru)
Renuevo contador.
En borrador..
-----Mensaje original-----
De: publice...@googlegroups.com
[mailto:publice...@googlegroups.com] En nombre de Miguel Canchas
Enviado el: Jueves, 24 de Marzo de 2011 03:25 p.m.
Esta muy interesante la función....
Mk
-----Mensaje original-----
De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de cesarz
Enviado el: jueves, 24 de marzo de 2011 03:31 p.m.
Ahi va de nuevo loIE=createobject("InternetExplorer.Application") loIE.visible=.T. loIE.navigate("http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias") do while loIE.readystate<>4 wait window "Waiting for web page..." timeout 1 enddo do while type("loIE.document.body.innerhtml")<>"C" *loop till it's a character... sometimes it's just not quite ready enddo *lcHTML=loIE.document.body.innerhtml lcHTML=loIE.document.body.innerText strtofile(lcHTML,"temp.txt") modify command temp.txt On 24 mar, 14:15, ZeRoberto <zeroha...@gmail.com> wrote:
Walter Cordova N.
Sistemas TQC
348-1103 Anx 147