Clipper On Line • Ver Tópico - Cotação via Banco Central
Página 1 de 1

Cotação via Banco Central

MensagemEnviado: 06 Nov 2015 15:37
por André Corrêa
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

Cotação via Banco Central

MensagemEnviado: 07 Nov 2015 12:57
por alxsts
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

MensagemEnviado: 07 Nov 2015 22:33
por fladimir
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

MensagemEnviado: 09 Nov 2015 16:22
por André Corrêa
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.

Cotação via Banco Central

MensagemEnviado: 09 Nov 2015 22:25
por rubens
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

MensagemEnviado: 10 Nov 2015 00:10
por fladimir
Rubens não tem muita diferença, seria mais a nível de clareza... explico

Antes eu fazi assim

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

MensagemEnviado: 10 Nov 2015 12:18
por André Corrêa
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

MensagemEnviado: 10 Nov 2015 21:08
por fladimir
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