Tasa dolar Paralelo en Venezuela

[JoseAlvarez]

Saludos amigos,

Alguien de Venezuela ha encontrado la manera de obtener desde código FW la tasa del dólar paralelo?

He hecho el intento con varias API pero unas están caídas, otras ya son de pago y para sumarle algo, soy nulo en la materia de esto de las API.

Alguna Ayuda?

Agradecido de antemano.

[albeiroval]

Hola jose, yo uso este codigo

Code: Select all  Expand view  RUN

function Tasa_Bcv( nTipo, lShow )
    Local cText, cCur
  Local aRates := {}
  Local ntasa  := 0
   
  DEFAULT nTipo := 1
  DEFAULT lShow := .F.

  cText := WebPageContents( "https://www.bcv.org.ve/" )
 
  for each cCur in { "EUR", "CNY", "TRY", "RUB", "USD" }
     AAdd( aRates, GetRate( cCur, cText ) )
  next
 
  if lShow
    // XBROWSER aRates SETUP oBrw:aCols[ 2 ]:cEditPicture := "999.999999"
    ? "EUR : " + Str(aRates[1,2],6,2),;
        "CNY : " + Str(aRates[2,2],6,2),;
      "TRY : " + Str(aRates[3,2],6,2),;
      "RUB : " + Str(aRates[4,2],6,2),;
      "USD : " + Str(aRates[5,2],6,2)
  endif

  if nTipo == 1
    nTasa := aRates[5,2]
  else
    nTasa := aRates[1,2]
  endif    

return nTasa

//-------------------------------------------------

static function GetRate( ccur, cText )
    local aRate  := { cCur, 0 }
  local c, n

  if ( n := At( cCur, cText ) ) > 0
     c     := SubStr( cText, n, 200 )
     c     := AllTrim( AfterAtNum( "<strong>", BeforAtNum( "</strong>", c, 1 ) ) )
     c     := CharRepl( ",", c, "." )
     aRate[ 2 ]  := Val( c )
  endif

return aRate

 

[JoseAlvarez]

Hola jose, yo uso este codigo

Code: Select all  Expand view  RUN

function Tasa_Bcv( nTipo, lShow )
    Local cText, cCur
  Local aRates := {}
  Local ntasa  := 0
   
  DEFAULT nTipo := 1
  DEFAULT lShow := .F.

  cText := WebPageContents( "https://www.bcv.org.ve/" )
 
  for each cCur in { "EUR", "CNY", "TRY", "RUB", "USD" }
     AAdd( aRates, GetRate( cCur, cText ) )
  next
 
  if lShow
    // XBROWSER aRates SETUP oBrw:aCols[ 2 ]:cEditPicture := "999.999999"
    ? "EUR : " + Str(aRates[1,2],6,2),;
        "CNY : " + Str(aRates[2,2],6,2),;
      "TRY : " + Str(aRates[3,2],6,2),;
      "RUB : " + Str(aRates[4,2],6,2),;
      "USD : " + Str(aRates[5,2],6,2)
  endif

  if nTipo == 1
    nTasa := aRates[5,2]
  else
    nTasa := aRates[1,2]
  endif    

return nTasa

//-------------------------------------------------

static function GetRate( ccur, cText )
    local aRate  := { cCur, 0 }
  local c, n

  if ( n := At( cCur, cText ) ) > 0
     c     := SubStr( cText, n, 200 )
     c     := AllTrim( AfterAtNum( "<strong>", BeforAtNum( "</strong>", c, 1 ) ) )
     c     := CharRepl( ",", c, "." )
     aRate[ 2 ]  := Val( c )
  endif

return aRate

 

Hola albeiro, saludos...
gracias por el aporte,

ese codigo ya lo tengo, sacado de aqui mismo del grupo, pero me da las tasas del BCV, necesito la tasa paralela tambien,

Agradecido por la ayuda amigo!

[karinha]

Buenos días José, creo que es casi imposible que lo consigas. Por ejemplo, es prácticamente imposible acceder a páginas de la querida Venezuela, ya que el dictador Maduro se encuentra en "guerra" declarada contra el presidente de Brasil: "Lula". Probablemente Maduro ordenó bloquear el acceso a Internet.

Suerte,

Regards, saludos.

[JoseAlvarez]

Buenos días José, creo que es casi imposible que lo consigas. Por ejemplo, es prácticamente imposible acceder a páginas de la querida Venezuela, ya que el dictador Maduro se encuentra en "guerra" declarada contra el presidente de Brasil: "Lula". Probablemente Maduro ordenó bloquear el acceso a Internet.

Suerte,

Regards, saludos.

Saludos estimado amigo joao, como estas?

Son muchos los obstaculos que debemos sortear a diario en nuestro amado pais.

¡ Hemos aprendido a luchar con ellos !

Por los momentos todavía disponemos de internet desde aca adentro, con algunas limitaciones claro.

¡Aquí seguimos!

¡Gracias por tu apoyo !