Re: [linuxsalto] Resumen de correo con resúmenes de linuxsalto@googlegroups.com - 1 actualización en 1 tema

[Fermin Barboza]

Así queda en Harbour:

* _tipocot = 2225 = DOLAR USA BILLETE
*            9800 = UI
*            9900 = UR
*********************                                     && COTIZACION DEL DOLAR BCU POR WS
FUNCTION CotizBCU_XML(_fecha,_filetxt,_tipocot)
LOCAL _ws, _url, _soapaction
LOCAL cResp, cxml:=""
LOCAL _desdehasta
LOCAL oClient

DEFAULT _filetxt TO _pathtemp+"\CotBCU_"+DTOS(DATE())+".TXT",;
        _fecha TO DATE()-1,;
        _tipocot TO "2225"

_desdehasta:= TRANSFORM(YEAR(_fecha),"9999")+"-"+STRTRAN(TRANSFORM(MONTH(_fecha),"99")," ","0")+"-"+STRTRAN(TRANSFORM(DAY(_fecha),"99")," ","0")

_ws        := "awsbcucotizaciones"
_url       := "https://cotizaciones.bcu.gub.uy/wscotizaciones/servlet/"
_soapAction:= "Cotizaaction/AWSBCUCOTIZACIONES.Execute"

cxml := '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:cot="Cotiza">'
cxml += "<soapenv:Header/>"
cxml +=  "<soapenv:Body>"
cxml +=  "<cot:wsbcucotizaciones.Execute>"
cxml +=  "<cot:Entrada>"
cxml +=  "<cot:Moneda>"
cxml +=  "<cot:item>"+_tipocot+"</cot:item>"
cxml +=  "</cot:Moneda>"
cxml +=  "<cot:FechaDesde>"+_desdehasta+"</cot:FechaDesde>"
cxml +=  "<cot:FechaHasta>"+_desdehasta+"</cot:FechaHasta>"
cxml +=  "<cot:Grupo>2</cot:Grupo>"
cxml +=  "</cot:Entrada>"
cxml +=  "</cot:wsbcucotizaciones.Execute>"
cxml +=  "</soapenv:Body>"
cxml +=  "</soapenv:Envelope>"

oClient := TIpClientHttp():New( _url+_ws /* log ,T. */ )
IF !oClient:open()
   hb_gtAlert( "Imposible conectar con BCU"+HB_EOL()+HB_EOL()+oClient:lastErrorMessage(), {"Ok."} , , , 10 )
   RETURN(.F.)
ENDIF

oClient:Post( cxml )
cResp := S_GETTAG("TCV",oClient:read())

oClient:close()

_cotiz:=ALLTRIM(cResp)

IF VAL(_cotiz)#0
   hb_MEMOWRIT(_filetxt,_cotiz)  && Se escribe el archivo con el valor de la cotizacion
ENDIF

RETURN(VAL(_cotiz))

Fermín Barboza
099111954
www.byg.uy

[Juandy Ocampo]

Hola Fermín, por ignorancia te pregunto, además de la sintaxis, que tiene de diferente Harbour?

Porque x la sintaxis y lo poco q vi en la Wikipedia parece un visual basic con hacks.

Aunque me diste una idea de cómo mostrar las 3 cotizaciones en Python.

Saludos.

[Fermin Barboza]

Se te corrieron las agujas bo !

Igual te quiero ;-)

Fermín Barboza
099111954
www.byg.uy

El 1 de noviembre de 2017, 18:09, <linux...@googlegroups.com> escribió:

linux...@googlegroups.com

Grupos de Google

Resumen de temas de hoy
Ver todos los temas

• [linuxpay] IDP y Datos abiertos - 1 actualización

[linuxpay] IDP y Datos abiertos

Marcelo Zunino <marcelo...@infoprimo.com>: Nov 01 08:38AM -0300 Para los que no ven la lista de linuxpay, linda inciativa...   (y pensar que son de paysandú =-O )       -------- Forwarded Message -------- Subject: [linuxpay] IDP y Datos abiertos ...más

Volver al inicio

Has recibido este resumen porque estás suscrito a las actualizaciones de este grupo. Puedes modificar la configuración en la página de pertenencia al grupo. Para cancelar la suscripción a este grupo y dejar de recibir correos electrónicos, envía un correo electrónico a linuxsalto+unsubscribe@googlegroups.com.

[Marcelo Zunino]

On 01/11/17 18:19, Fermin Barboza wrote:
> Se te corrieron las agujas bo !
>
> Igual te quiero ;-)
>

eehhh... steee... ¿me podría repetir la preguntaaaa?