Obtener Tipo de cambio del día

[Jonatan E]

Alguien me puede ayudar cómo obtener el tipo de cambio al dia de hoy (el ultimito), muchas gracias

[Daniel Sánchez]

Llamas por teléfono a tu cambista y el te dará el último tipo de cambio del día.

El 4 de marzo de 2016, 8:57, Jonatan E <skan...@gmail.com> escribió:

Alguien me puede ayudar cómo obtener el tipo de cambio al dia de hoy (el ultimito), muchas gracias

--

Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
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.

[Jonatan E]

Excelente, te pasastes Daniel

Y en versión código para foxpro??? 

[Jean Pierre Adonis De La Cruz Garcia]

Si ves en la parte superior de esta Pagina dice, Buscar Temas, escribe hay lo que busca y veras que te dra un respuesta como pa brutos. jejejeje

Feliz viernes amigo.

[mapner]

Hola,

No se entiende la pregunta.

Consultas en como buscar el tipo de cambio del día en forma on line con algún web service o algo por el  estilo?

O como buscarlo en una tabla de tu sistemas y que te de que la cotización de acuerdo a una fecha determinada?

Si es por el por la primera opción, de acuerdo a tu país, averigua quienes brindan esa información on line con algún API Rest o SOAP.

Si es por lo segundo, tu sistema debiera tener una tabla de cotizaciones

CREATE TABLE COTIZACIONES (MONEDA_ID CHAR(5), FECHA_VIGENCIA DATE, VALOR NUMERIC(10,4))

y dada una moneda y una fecha por ej.:

m.cMoneda = 'USA'

m.dFecha = DATE()

SELECT TOP 1 VALOR FROM COTIZACIONES WHERE MONEDA_ID = m.cMONEDA AND m.dFecha >= FECHA_VIGENCIA ORDER BY FECHA_VIGENCIA DESC INTO CURSOR _COT

* Saludos

Saludos

[Luis Maria Guayan]

Cambio de hardware, cambio de software, cambio de tiempo, cambio de ropa .... ????

PFV :D

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

El 04/03/16 a las 10:57, Jonatan E escribió:

[Jonatan E]

En Perú tipo de cambio es la tasa de proporcion equivalente entre 2 monedas de distintos países(nose si habrá otro tipo de cambio en otro país), en mi caso preguntaba como obtener el tipo de cambio desde internet haciendo alguna consulta desde un boton de comando y obtener el del día actual. 

[Jonatan E]

Gracias Jean Pierre, tu si sabes XD

[mapner]

Mirá este link

http://stackoverflow.com/questions/3139879/how-do-i-get-currency-exchange-rates-via-an-api-such-as-google-finance

que te diviertas!

[Miguel Canchas]

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

 

De algún lado lo obtuve no recuerdo….

MK

[Allan Raúl Acuña]

La Tasa de que país necesitas?

Saludos cordiales.

Lic. Allan Raúl Acuña
Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft
            +(505) 8 999 8950

Managua, Nicaragua

Centroamérica

---

Date: Fri, 4 Mar 2016 07:52:20 -0800
From: skan...@gmail.com
To: publice...@googlegroups.com
Subject: [vfp] Re: Obtener Tipo de cambio del día

[Miguel Canchas]

Las tazas no son iguales en todos lados ¿?

 

Tazas de Café, de baño, de… J

 

 

MK

[Jonatan E]

De Perú, aunque ya lo saqué con un código que encontré por ahí y le hice algunos pequeños cambios, ahora si obtengo el tipo de cambio del día actual

[Allan Raúl Acuña]

Así es Miguel son iguales, pero en este caso el tema central esta en el titulo, por ende se puede omitir el termino CAMBIO.

Que bueno Jonatan, comparte para los colegas de tu pais PERU, incluyo el nombre del pais, jajajajaj.

Saludos cordiales.

Lic. Allan Raúl Acuña
Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft
            +(505) 8 999 8950

Managua, Nicaragua

Centroamérica

---

Date: Fri, 4 Mar 2016 09:19:05 -0800
From: skan...@gmail.com
To: publice...@googlegroups.com
Subject: Re: [vfp] Re: Obtener Tipo de cambio del día

[Jonatan E]

Asi es ALLAN R. ACUÑA.

Por cierto el codigo es de este mismo foro y le he agregado algunos pequeños ajustes para obtener del día actual,

aun se le puede seguir corrigiendo algunas cosas.

Aqui el código:

loIE = createobject("InternetExplorer.Application")

loIE.visible=.F.

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

    lcHTML=loIE.document.body.innerText

    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)+CHR(13),"")

    WAIT Clear

loIE.Quit()

RELEASE loIE

PUSH KEY CLEAR

CREATE CURSOR CurTCambio(DIA N(2),TC_COMPRA N(5,3),TC_VENTA N(5,3))

ln_Contador = 0

lc_Cadena = ""

fecha=DATE()

dia1 = DAY(fecha)

tc = 0

tv = 0

FOR K = 1 TO LEN(lc_Texto)

      IF SUBSTR(lc_Texto,K,1) = " " THEN

            ln_Contador = ln_Contador + 1     

            IF ln_Contador = 1 AND K <> LEN(lc_Texto) THEN

            IF VAL(lc_Cadena) = dia1 THEN 

               SELECT CurTCambio

               APPEND BLANK

               REPLACE CurTCambio.DIA WITH VAL(lc_Cadena) 

           ENDIF                                 

            ENDIF

            IF ln_Contador = 2 THEN

            IF CurTCambio.DIA = dia1 AND tc = 0 THEN 

                  SELECT CurTCambio

                  REPLACE CurTCambio.TC_COMPRA WITH VAL(lc_Cadena) 

                  tc = 1

                ENDIF                                 

            ENDIF      

            IF ln_Contador = 3 THEN

            IF CurTCambio.DIA = dia1 AND tv = 0 THEN 

                  SELECT CurTCambio

                  REPLACE CurTCambio.TC_VENTA WITH VAL(lc_Cadena)

                  tv = 1

                ENDIF

                ln_Contador = 0

            ENDIF     

            lc_Cadena =""

      ELSE

            lc_Cadena = lc_Cadena + SUBSTR(lc_Texto,K,1)

      ENDIF                        

NEXT

SELECT CurTCambio

tcompra = CurTCambio.TC_COMPRA

tventa = CurTCambio.TC_VENTA

Y ahí tienen las 2 variables (tcompra y tventa) que llevan los valores respectivos para poder mostrarlos donde deseen,

en mi caso en 2 textbox.

Provecho y saludos.

Desde PERÚ

PD: Aún tienen que chequear para los días que no se cuenten con tipo de cambio publicado y ver que pasa o cómo solucionarlo (aún no lo he probado en ese caso).

[Jonatan E]

Por cierto hay un tiempo de retardo mientras va leyendo la información desde la página oficial, lo pueden disimular al iniciar el 1er formulario y/o agregar otras cosas XD, los datos lo envían al formulario deseado (estos datos: tcompra y tventa).

Saludos desde PERÚ

[Antonio Meza]

Allan!!

El problema es que últimamente ya hasta flojera tienen para redactar la duda que tienen y que bueno que en broma le dan a entender que explique bien lo que quiere y no puede hacer, porque todavía que se les ayuda (hablo en general) se tiene que ADIVINAR que es lo que quieren decir.

Incluso en vez de BUSCAR en el foro se les hace mas cómodo preguntar y mas cómodo que se les adivine que quieren.

saludos

Antonio Meza

[Miguel Canchas]

Esto lo hace en menos tiempo y es menos código. :

 

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.innerText

 

strtofile(lcHTML,"temp.txt")

 

loIE = .NULL.

 

RELEASE loIE

 

CREATE CURSOR tipo( dia1 c(2), compra1 c(5), venta1 c(6), ;

                             dia2 c(2), compra2 c(5), venta2 c(6), ;

                             dia3 c(2), compra3 c(5), venta3 c(6), ;

                             dia4 c(2), compra4 c(5), venta4 c(6)  )

                            

APPEND FROM temp.txt DELIMITED WITH BLANK

 

DELETE FROM tipo WHERE EMPTY(dia1)

DELETE FROM tipo WHERE dia1 = '1.'

DELETE FROM tipo WHERE dia1 = '2.'

DELETE FROM tipo WHERE dia1 = '3.'

DELETE FROM tipo WHERE dia1 = 'No'

DELETE FROM tipo WHERE dia1 = 'Ma'

DELETE FROM tipo WHERE dia1 = 'Ti'

DELETE FROM tipo WHERE dia1 = 'Dí'

 

SELECT * FROM tipo WHERE !DELETED() INTO CURSOR l

SELECT tipo

ZAP

APPEND FROM DBF("l")

GO bottom

 

FOR i = 1 TO 4

     

      oDia = "DIA" + ALLTRIM(STR(i))

     

      IF EMPTY(&oDia)

           

            oDia = "DIA" + ALLTRIM(STR(i-1))

            oCompra = "Compra" + ALLTRIM(STR(i-1))

            oVenta  = "Venta" + ALLTRIM(STR(i-1))

            WAIT WINDOW &oDia + &oCompra + &oVenta

            EXIT

      ELSE

            IF i = 4

                  oCompra = "Compra" + ALLTRIM(STR(i))

                  oVenta  = "Venta" + ALLTRIM(STR(i))

                  WAIT WINDOW &oDia + '   ' +  &oCompra + '   ' + &oVenta

            ENDIF      

      ENDIF

     

ENDFOR

 

MK

 

De: publice...@googlegroups.com [mailto:publice...@googlegroups.com] En nombre de Jonatan E

Enviado el: viernes, 04 de marzo de 2016 12:32 p.m.
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>

[Jonatan E]

Gracias Miguel Canchas, lo chequearé

Se agradece

[Jonatan E]

Al parecer Miguel C. no se obtienen los valores deseados (oCompra y oVenta ), no están mostrando lo deseado.

Tambien en la linea :

loIE.visible=.T.

sería mejor:

loIE.visible=.F.

Se agradece

[Miguel Canchas]

Se obtiene el valor actual del tipo de cambio…Lo paso de nuevo corregido con menos código…

 

loIE=createobject("InternetExplorer.Application")

loIE.visible=.F.

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

 

lcHTML=loIE.document.body.innerText

 

strtofile(lcHTML,"temp.txt")

 

loIE.Quit()

 

CREATE CURSOR tipo( dia1 c(2), compra1 c(5), venta1 c(6), ;

                             dia2 c(2), compra2 c(5), venta2 c(6), ;

                             dia3 c(2), compra3 c(5), venta3 c(6), ;

                             dia4 c(2), compra4 c(5), venta4 c(6)  )

                            

APPEND FROM temp.txt DELIMITED WITH BLANK

 

DELETE FROM tipo WHERE EMPTY(dia1)  OR dia1 = '1.' OR dia1 = '2.' OR dia1 = '3.' OR ;

dia1 = 'No' or dia1 = 'Ma' or dia1 = 'Ti' or dia1 = 'Dí'

 

SELECT * FROM tipo WHERE !DELETED() INTO CURSOR l

SELECT tipo

ZAP

APPEND FROM DBF("l")

GO bottom

 

FOR i = 1 TO 4

     

      oDia = "DIA" + ALLTRIM(STR(i))

     

      IF EMPTY(&oDia)

           

            oDia = "DIA" + ALLTRIM(STR(i-1))

            oCompra = "Compra" + ALLTRIM(STR(i-1))

            oVenta  = "Venta" + ALLTRIM(STR(i-1))

            EXIT

      ELSE

            IF i = 4

                  oCompra = "Compra" + ALLTRIM(STR(i))

                  oVenta  = "Venta" + ALLTRIM(STR(i))

            ENDIF      

      ENDIF

     

ENDFOR

 

?&oCompra

?&oVenta

 

MK

 

De: Jonatan E [mailto:skan...@gmail.com]
Enviado el: viernes, 04 de marzo de 2016 01:03 p.m.
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
CC: Miguel Canchas <mcan...@ximesa.com>
Asunto: Re: [vfp] Re: Obtener Tipo de cambio del día

 

Al parecer Miguel C. no se obtienen los valores deseados (oCompra y oVenta ), no están mostrando lo deseado.

[Jonatan E]

Por alguna extraña razón las variables oCompra y oVenta se llenan de "Compra2" y "Venta2" respectivamente.

Y lo que se muestra en pantalla es a lo mucho (y a lo que alcanzo a ver) el número 1997 y algún dato que sale fuera de mi pantalla principal (formulario de inicio) :/

Gracias, Miguel Canchas

Pd: sería bueno que no al inicio no se muestren esas 2 pantallas adjuntas:

[Luis Maria Guayan]

Te paso un conversor de divisas utilizando la API de Google Finance

? ConvertirDivisa(1, "USD", "ARS") && Dólar EEUU a Peso Argentino
? ConvertirDivisa(1, "EUR", "ARS") && Euro a Peso Argentino
? ConvertirDivisa(1, "ARS", "USD") && Peso Argentino a Dólar EEUU

FUNCTION ConvertirDivisa(pnMonto, plFrom, plTo)
  LOCAL lc, lcUrl, la(1)
  DECLARE LONG URLDownloadToFile IN URLMON.DLL ;
    LONG, STRING, STRING, LONG, LONG
  ERASE "cambio.txt"
  lcURL = "https://www.google.com/finance/converter?a="+TRANSFORM(pnMonto)+"&from="+ plFROM +"&to=" + plTO
  IF 0 = URLDownloadToFile(0, lcURL, "cambio.txt", 0, 0)
    TRY
      INKEY(1)
      lc = FILETOSTR("cambio.txt")
      ALINES(la,lc,1,"<span class=bld>")
      lc=la(2)
      ALINES(la,lc,1,"</span>")
      lc = la(1)
    CATCH
      lc =  "Error de divisas"
    ENDTRY
  ELSE
    lc =  "No hay conexion"
  ENDIF
  RETURN lc
ENDFUNC

Los códigos válidos de las distintas divisas están en la siguiente tabla:

AED = United Arab Emirates Dirham (AED)
AFN = Afghan Afghani (AFN)
ALL = Albanian Lek (ALL)
AMD = Armenian Dram (AMD)
ANG = Netherlands Antillean Guilder (ANG)
AOA = Angolan Kwanza (AOA)
ARS = Argentine Peso (ARS)
AUD = Australian Dollar (A$)
AWG = Aruban Florin (AWG)
AZN = Azerbaijani Manat (AZN)
BAM = Bosnia-Herzegovina Convertible Mark (BAM)
BBD = Barbadian Dollar (BBD)
BDT = Bangladeshi Taka (BDT)
BGN = Bulgarian Lev (BGN)
BHD = Bahraini Dinar (BHD)
BIF = Burundian Franc (BIF)
BMD = Bermudan Dollar (BMD)
BND = Brunei Dollar (BND)
BOB = Bolivian Boliviano (BOB)
BRL = Brazilian Real (R$)
BSD = Bahamian Dollar (BSD)
BTC = Bitcoin (฿)
BTN = Bhutanese Ngultrum (BTN)
BWP = Botswanan Pula (BWP)
BYR = Belarusian Ruble (BYR)
BZD = Belize Dollar (BZD)
CAD = Canadian Dollar (CA$)
CDF = Congolese Franc (CDF)
CHF = Swiss Franc (CHF)
CLF = Chilean Unit of Account (UF) (CLF)
CLP = Chilean Peso (CLP)
CNH = CNH (CNH)
CNY = Chinese Yuan (CN¥)
COP = Colombian Peso (COP)
CRC = Costa Rican Colón (CRC)
CUP = Cuban Peso (CUP)
CVE = Cape Verdean Escudo (CVE)
CZK = Czech Republic Koruna (CZK)
DEM = German Mark (DEM)
DJF = Djiboutian Franc (DJF)
DKK = Danish Krone (DKK)
DOP = Dominican Peso (DOP)
DZD = Algerian Dinar (DZD)
EGP = Egyptian Pound (EGP)
ERN = Eritrean Nakfa (ERN)
ETB = Ethiopian Birr (ETB)
EUR = Euro (€)
FIM = Finnish Markka (FIM)
FJD = Fijian Dollar (FJD)
FKP = Falkland Islands Pound (FKP)
FRF = French Franc (FRF)
GBP = British Pound (£)
GEL = Georgian Lari (GEL)
GHS = Ghanaian Cedi (GHS)
GIP = Gibraltar Pound (GIP)
GMD = Gambian Dalasi (GMD)
GNF = Guinean Franc (GNF)
GTQ = Guatemalan Quetzal (GTQ)
GYD = Guyanaese Dollar (GYD)
HKD = Hong Kong Dollar (HK$)
HNL = Honduran Lempira (HNL)
HRK = Croatian Kuna (HRK)
HTG = Haitian Gourde (HTG)
HUF = Hungarian Forint (HUF)
IDR = Indonesian Rupiah (IDR)
IEP = Irish Pound (IEP)
ILS = Israeli New Sheqel (₪)
INR = Indian Rupee (Rs.)
IQD = Iraqi Dinar (IQD)
IRR = Iranian Rial (IRR)
ISK = Icelandic Króna (ISK)
ITL = Italian Lira (ITL)
JMD = Jamaican Dollar (JMD)
JOD = Jordanian Dinar (JOD)
JPY = Japanese Yen (¥)
KES = Kenyan Shilling (KES)
KGS = Kyrgystani Som (KGS)
KHR = Cambodian Riel (KHR)
KMF = Comorian Franc (KMF)
KPW = North Korean Won (KPW)
KRW = South Korean Won (₩)
KWD = Kuwaiti Dinar (KWD)
KYD = Cayman Islands Dollar (KYD)
KZT = Kazakhstani Tenge (KZT)
LAK = Laotian Kip (LAK)
LBP = Lebanese Pound (LBP)
LKR = Sri Lankan Rupee (LKR)
LRD = Liberian Dollar (LRD)
LSL = Lesotho Loti (LSL)
LTL = Lithuanian Litas (LTL)
LVL = Latvian Lats (LVL)
LYD = Libyan Dinar (LYD)
MAD = Moroccan Dirham (MAD)
MDL = Moldovan Leu (MDL)
MGA = Malagasy Ariary (MGA)
MKD = Macedonian Denar (MKD)
MMK = Myanmar Kyat (MMK)
MNT = Mongolian Tugrik (MNT)
MOP = Macanese Pataca (MOP)
MRO = Mauritanian Ouguiya (MRO)
MUR = Mauritian Rupee (MUR)
MVR = Maldivian Rufiyaa (MVR)
MWK = Malawian Kwacha (MWK)
MXN = Mexican Peso (MX$)
MYR = Malaysian Ringgit (MYR)
MZN = Mozambican Metical (MZN)
NAD = Namibian Dollar (NAD)
NGN = Nigerian Naira (NGN)
NIO = Nicaraguan Córdoba (NIO)
NOK = Norwegian Krone (NOK)
NPR = Nepalese Rupee (NPR)
NZD = New Zealand Dollar (NZ$)
OMR = Omani Rial (OMR)
PAB = Panamanian Balboa (PAB)
PEN = Peruvian Nuevo Sol (PEN)
PGK = Papua New Guinean Kina (PGK)
PHP = Philippine Peso (Php)
PKG = PKG (PKG)
PKR = Pakistani Rupee (PKR)
PLN = Polish Zloty (PLN)
PYG = Paraguayan Guarani (PYG)
QAR = Qatari Rial (QAR)
RON = Romanian Leu (RON)
RSD = Serbian Dinar (RSD)
RUB = Russian Ruble (RUB)
RWF = Rwandan Franc (RWF)
SAR = Saudi Riyal (SAR)
SBD = Solomon Islands Dollar (SBD)
SCR = Seychellois Rupee (SCR)
SDG = Sudanese Pound (SDG)
SEK = Swedish Krona (SEK)
SGD = Singapore Dollar (SGD)
SHP = St. Helena Pound (SHP)
SKK = Slovak Koruna (SKK)
SLL = Sierra Leonean Leone (SLL)
SOS = Somali Shilling (SOS)
SRD = Surinamese Dollar (SRD)
STD = São Tomé &amp; Príncipe Dobra (STD)
SVC = Salvadoran Colón (SVC)
SYP = Syrian Pound (SYP)
SZL = Swazi Lilangeni (SZL)
THB = Thai Baht (THB)
TJS = Tajikistani Somoni (TJS)
TMT = Turkmenistani Manat (TMT)
TND = Tunisian Dinar (TND)
TOP = Tongan Paʻanga (TOP)
TRY = Turkish Lira (TRY)
TTD = Trinidad &amp; Tobago Dollar (TTD)
TWD = New Taiwan Dollar (NT$)
TZS = Tanzanian Shilling (TZS)
UAH = Ukrainian Hryvnia (UAH)
UGX = Ugandan Shilling (UGX)
USD = US Dollar ($)
UYU = Uruguayan Peso (UYU)
UZS = Uzbekistani Som (UZS)
VEF = Venezuelan Bolívar (VEF)
VND = Vietnamese Dong (₫)
VUV = Vanuatu Vatu (VUV)
WST = Samoan Tala (WST)
XAF = Central African CFA Franc (FCFA)
XCD = East Caribbean Dollar (EC$)
XDR = Special Drawing Rights (XDR)
XOF = West African CFA Franc (CFA)
XPF = CFP Franc (CFPF)
YER = Yemeni Rial (YER)
ZAR = South African Rand (ZAR)
ZMK = Zambian Kwacha (1968–2012) (ZMK)
ZMW = Zambian Kwacha (ZMW)
ZWL = Zimbabwean Dollar (2009) (ZWL)

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

El 04/03/16 a las 12:50, Jonatan E escribió:

[Esteban H]

Muy bueno Luis, faltaría q diera tb los centavos.

 

Saludos.

 

Esteban.

[Luis Maria Guayan]

A mi si me muestra los centavos. Mira tu configuración de SET DECIMALS


 

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

El 04/03/16 a las 17:03, Esteban H escribió:

[Esteban H]

Si sí funciona, perdón…

[Miguel Canchas]

SET SAFETY OFF

tcompra = &oCompra

tventa = &oVenta

 

Aquí están tus 2 valores de acuerdo a las variables que manejas…

 

MK

 

De: Jonatan E [mailto:skan...@gmail.com]
Enviado el: viernes, 04 de marzo de 2016 02:32 p.m.
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
CC: Miguel Canchas <mcan...@ximesa.com>
Asunto: Re: [vfp] Re: Obtener Tipo de cambio del día

 

Por alguna extraña razón las variables oCompra y oVenta se llenan de "Compra2" y "Venta2" respectivamente.

[Jonatan E]

tcompra = &oCompra (se llena de "vacio")

tventa = &oVenta (se llena del numero 1997)

Por alguna razón al cargar y leer de la página web se demora unos 5 a 8 segundos

[Jean Pierre Adonis De La Cruz Garcia]

Ya anteriormente habia yo trabajo con esos tipos de cambios, pero en el caso de Peru, para los que llevan la contabiliad, debe ser de la misma pagina de la Sunat, ya que son distitnos los valores, 

Tipo de Cambio de Hoy segun la SUNAT PERU

http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias

Tipo de Cambio segun Google

https://www.google.com/finance/converter?a=1&from=USD&to=PEN&meta=ei%3DJ_bZVuLiKISYmAGRlLh4

En nuestro caso, debemos de usar el mismo tip de cambio por que cambia los valores en la contabiliad y es muy bravo cuando son centimos y mas de mi registros.

[Miguel Canchas]

Raro…

El mío carga rápido y bota los valores correctos de cambio y venta… L

 

MK

 

De: Jonatan E [mailto:skan...@gmail.com]
Enviado el: viernes, 04 de marzo de 2016 03:35 p.m.
Para: Comunidad de Visual Foxpro en Español <publice...@googlegroups.com>
CC: Miguel Canchas <mcan...@ximesa.com>
Asunto: Re: [vfp] Re: Obtener Tipo de cambio del día

 

tcompra = &oCompra (se llena de "vacio")

[Jonatan E]

Si, muy raro, debe ser cosa de VIERNES, pero que se va a hacer XD