Re: OT - Tipo de Cambio SUNAT (GRATIS)

[Leonardo N.]

Excelente aporte. Solo que el T/C SUNAT para hoy 04/07/2018 no es el correcto.  Tener presente que la SUNAT publica el T/C a partir de las 8:AM. (solo dias habiles. Sabado, domingo y feriados no publica)- El tipo de cambio que publica es el T/C que el dia anterior a las 5 PM ya lo publicó la SBS.

El miércoles, 4 de julio de 2018, 8:50:56 (UTC-5), Jean Pierre Adonis De La Cruz Garcia escribió:

Aca dejo un pequeño aporte gratuito para que realicen la consulta del tipo de cambio desde el Servidor de SUNAT y lo puedan adaptar a sus sistemas en forma rapida.

Proceso para consumirlo en JSON, lo unico que deben hacer es cambiar la fecha de la consulta a realizar

http://www.contamaxperu.com.pe/tcambio.php?token=GRATIS&fecha=2018-07-04

Esta programado para que puedan consultar los tipos de Cambios a partir del 01 de Enero del 2010 hasta la fecha, el sistema se actualiza por si solo a partir del mismo servidor de la SUNAT, cualquier consulta adicional me la pueden hacer saber, en unos dias estare publicando algunos serrvicios mas.

Atte.

Jean Pierre Adonis De la Cruz Garcia

Cel. Whatapps: +51 956888831

web: www.contamaxperu.com.pe

email: elconsultor...@gmail.com

[Daniel Sánchez]

Se agradece el aporte, y disponibilidad del servicio por cuanto tiempo estará para su uso, porque no vayan implementarlo en sus sistemas y los dejas en el aire al cerrarse el servicio.

Saludos

El mié., 4 jul. 2018 a las 8:50, Jean Pierre Adonis De La Cruz Garcia (<elconsultor...@gmail.com>) escribió:

Aca dejo un pequeño aporte gratuito para que realicen la consulta del tipo de cambio desde el Servidor de SUNAT y lo puedan adaptar a sus sistemas en forma rapida.

Proceso para consumirlo en JSON, lo unico que deben hacer es cambiar la fecha de la consulta a realizar

http://www.contamaxperu.com.pe/tcambio.php?token=GRATIS&fecha=2018-07-04

Esta programado para que puedan consultar los tipos de Cambios a partir del 01 de Enero del 2010 hasta la fecha, el sistema se actualiza por si solo a partir del mismo servidor de la SUNAT, cualquier consulta adicional me la pueden hacer saber, en unos dias estare publicando algunos serrvicios mas.

Atte.

Jean Pierre Adonis De la Cruz Garcia

Cel. Whatapps: +51 956888831

web: www.contamaxperu.com.pe

email: elconsultor...@gmail.com

--

Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software SAC
Móvil +051-949398047 RPM 948615385
Trujillo - Perú

P  Sugerimos no imprimir este e-mail a menos que sea absolutamente necesario. Protejamos el medio ambiente.

[hernan copacondori RPC-957452704]

este codigo, lo extraje del foro hace años atras, no recuerdo quien lo presento, pero lo he personalizado.

crea tu propia codigo. Suerte.

function fx_tipo_cambio_xml

PARAMETERS p_nMes, p_nAnio, p_lUltimo

LOCAL lcMes, lcAnio, lcHttp, loXmlHttp, lcHTML, ln_PosIni, ln_PosFin, lc_Texto

lcMes  = PADL(ALLTRIM(STR(p_nMes)), 2, '0')

lcAnio = ALLTRIM(STR(p_nAnio, 4, 0))

lcHttp = "http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias?mes=" + lcMes + "&anho=" + lcAnio

loXmlHttp = Createobject("Microsoft.XMLHTTP")

loXmlHttp.Open("POST" , lcHttp, .F.)

loXmlHttp.Send

Do While loXmlHttp.readyState<>4 Or loXmlHttp.Status <>200

***

Enddo

lcHTML = loXmlHttp.Responsetext

ln_PosIni  = AT("Día",lcHTML)

ln_PosFin  = AT("Para efectos",lcHTML)

lc_Texto  = SUBSTR(lcHTML,ln_PosIni,ln_PosFin - ln_PosIni)

ln_PosIni  = RAT("Venta",lc_Texto)

lc_Texto  = CHRTRAN(ALLTRIM(SUBSTR(lc_Texto,ln_PosIni + 6)) + " ",CHR(10),"")

IF p_lUltimo

j   = OCCURS('class="H3"', lc_Texto)

lc_Texto  = SUBSTR(lc_Texto, at('class="H3"', lc_Texto, j), 1000)

endif

RETURN lc_texto

Hernan R. Copacondori C.

Sistemas Inform??ticos Integrados

Asesoria y Ventas

?? RPC 957452704

hc45...@hotmail.com;hc45...@yahoo.es;

hc45...@gmail.com

Arequipa - Per??

??
??

---

De: publice...@googlegroups.com <publice...@googlegroups.com> en nombre de Daniel Sánchez <resets...@gmail.com>
Enviado: miércoles, 4 de julio de 2018 16:38
Para: Comunidad de Visual Foxpro en Español
Asunto: Re: [vfp] OT - Tipo de Cambio SUNAT (GRATIS)