Clipper On Line • Ver Tópico - Cotação via Banco Central
Mudar para estilo Clássico
Discussão sobre a Xailer
Postar uma resposta

Cotação via Banco Central

06 Nov 2015 15:37

Boa tarde,

Estou começando a estudar Clipper, Harbour, xHarbour, Xailer e afins.
Claramente o Clipper é uma linguagem bastante poderosa. A maior diferença
que encontrei em relação ao Object Pascal, que já conhecia, foi o fato de
ser dinamicamente tipada. Quanto ao Xailer, como conhecia um pouco de Delphi,
estou me adaptando com certa facilidade.

Segue anexo um arquivo contendo duas funções que desenvolvi para acessar e extrair
o valor da cotação de moedas a partir do site do Banco Central.
Obs: Ainda estou engatinhando com a linguagem, então tenho optado pelos caminhos
menos complexos.
Qualquer dica ou crítica será bem-vinda.

Obrigado,

André Corrêa
Anexos
CotacaoViaBancoCentral.PRG
Busca cotações de moedas no site do Banco Central
(1.27 KiB) Baixado 187 vezes

Cotação via Banco Central

07 Nov 2015 12:57

Olá!

Seja bem-vindo ao fórum André!

Agradecemos sua contribuição e desejamos a você sucesso em seus estudos relacionados a xBase.

Se precisar, conte com os amigos daqui.

Cotação via Banco Central

07 Nov 2015 22:33

Legal, seja bem vindo....

O q puder ajudarmos estamos a disposição...

O q eu teria de sugestão seria passar um exemplo de como utilizar e cria um valor default pra caso não informado a data... exemplo...

default cData to DToS(Date()) // '20151106' além de informar q a data tem q ser passada no formado aaaammdd

depois no final da função para obter o fechamento chamar a função para buscar o valor mostrando o mesmo no LOGDEBUG do Xailer q mostra o resultado na IDE, qdo o modo DEBUG esta ativado.

Exemplo:

LogDebug( 'Valor', BuscaValor(hArq, ';540;') ) // Resultado obtido: Valor 5,73190000

Parabéns pela função não conhecia e achei interessante.

[]´s

Cotação via Banco Central

09 Nov 2015 16:22

Obrigado alxsts e fladimir pelos retornos.

fladimir, incluí suas sugestões para o valor default de cData, o resultado do LogDebug.
Também comentei o código com o site para obter a lista completa de séries e a informação sobre o formato da data.
Estou enviando o projeto completo. Utilizei um TDatePicker e um TRadioMenu para o usuário selecionar a data e a série.
Esse arquivo CSV obtido pela URL do Banco Central contém todas as séries disponíveis. Seria possível utilizar um TCombobox
para acessar qualquer uma delas, mas preferi adicionar apenas algumas no TRadioMenu.
Anexos
CotacaoCSV.zip
(45.03 KiB) Baixado 172 vezes

Cotação via Banco Central

09 Nov 2015 22:25

A título de curiosidade Fladimir...

default cData to DToS(Date()) // '20151106' além de informar q a data tem q ser passada no formado aaaammdd


Esse comando default eu não consigo assimilar ele muito bem.
Não seria a mesma coisa de
cData := DToS(Date())

Qual a diferença de declara de uma forma ou de outra ?

Obg

Rubens

Cotação via Banco Central

10 Nov 2015 00:10

Rubens não tem muita diferença, seria mais a nível de clareza... explico

Antes eu fazi assim

Código:
function CalcJuros(nValor, nDias)

.... ai colocava...

   if nDias == NIL
     nDias := 30
   endif

... ao invés de fazer isso uso o "default" tipo uma tradução

   default nDias to 30

... signifca a mesma coisa do meu if antigo, tipo se nDias for NIL atribui o valor 30


Não sei se ficou claro, qualquer coisa vai postando ai q vamos vendo.

[]´s

Cotação via Banco Central

10 Nov 2015 12:18

Boa tarde,

Ainda sobre a opção de se fazer a cotação diretamente do Banco Central, que é um canal oficial,
existe um webservice em https://www3.bcb.gov.br/sgspub/JSP/sgsgeral/FachadaWSSGS.wsdl.

Esse webservice possui os seguintes métodos:

getUltimoValorVO - Recupera o último valor de uma determinada série e retorna um objeto do tipo WSSerieVO.

Parâmetros: long codigoSerie – Código da série. Retorno: WSSerieVO – Objeto série.

GetUltimoValorXML - Recupera o último valor de uma determinada série e retorna o resultado em formato XML.

Parâmetros: long codigoSerie – Código da série. Retorno: String – String contendo o resultado da consulta em formato XML.

getValor - Recupera o valor de uma série em uma determinada data (dd/MM/aaaa).

Parâmetros: long codigoSerie – Código da série. String data – String contendo a data (dd/MM/aaaa) do valor a ser pesquisado. Retorno: BigDecimal – Objeto contendo o valor.

getValorEspecial - Recupera o valor de uma série especial em um período.

Parâmetros: long codigoSerie – Código da série. String data – String contendo a data (dd/MM/aaaa) inicial. String dataFim – String contendo a data (dd/MM/aaaa) final. Retorno: BigDecimal – Objeto contendo o valor.

getValoresSeriesXML - Recupera os valores de uma ou mais séries dentro de um determinado período.O resultado da consulta é devolvido ao cliente em formato XML.

Parâmetros: long[] codigosSeries – Lista(array) dos códigos das séries. String dataInicio – String contendo a data (dd/MM/aaaa) inicial. String dataFim – String contendo a data (dd/MM/aaaa) final. Retorno: String – String contendo o resultado da consulta em formato XML.

getValoresSeriesVO - Recupera os valores de uma ou mais séries dentro de um determinado período e retorna o resultado em forma de Array de objetos do tipo WSSerieVO.

Parâmetros: long[] codigosSeries – Lista(array) dos códigos das séries. String dataInicio – String contendo a data (dd/MM/aaaa) inicial. String dataFim – String contendo a data (dd/MM/aaaa) final. Retorno: WSSerieVO – Lista(array) de objeto série.

Cotação via Banco Central

10 Nov 2015 21:08

Legal André... eu peguei teu exemplo e no OnChange do RadioButton coloquei pra chamar o Click do Botão assim: Button1Click()

Parabéns ficou legal teu exemplo.

[]´s
Postar uma resposta