Fórum
Ver pergunta

Alterar taxa de cambio via API   

44 visualizações
« Back to Previous Page
Categoria::
0
♥ 0

Bom dia,

Venho pedir a vossa ajuda, pois estou a tentar criar uma aplicação através das APIs do Primavera para actualizar as taxas de cambio diariamente de forma automatica.

Já consigo obter as taxas de cambio, mas não estou a conseguir inserir as mesmas na Base de Dados, será que alguém me consegue ajudar?

João Diniz

Faça login para poder traduzir
Integração
V10
Marcado como spam
Criado há 5 anos e 5 meses jcdiniz
j
jcdiniz Iniciante
4 respostas
0
Resposta privada

Ficou assim para quem possa precisar:

Dim EURC As Double = 0
Dim EURV As Double = 0
With Ver.BNADados(varData, “EUR”)
EURC = .Compra
EURV = .Venda
End With

motor.Comercial.Moedas.ActualizaValorAtributo(“EUR”, “DataCambio”, varData)
motor.Comercial.Moedas.ActualizaValorAtributo(“EUR”, “Compra”, EURC)
motor.Comercial.Moedas.ActualizaValorAtributo(“EUR”, “Venda”, EURV)
Dim qEUR As New StdBEExecSql
qEUR.tpQuery = EnumTpQuery.tpINSERT
qEUR.Tabela = “MoedasHistorico”
qEUR.AddCampo(“Moeda”, “EUR”)
qEUR.AddCampo(“Data”, dtData.Value)
qEUR.AddCampo(“DataCambio”, varData)
qEUR.AddCampo(“Compra”, EURC)
qEUR.AddCampo(“Venda”, EURV)
motor.DSO.Plat.ExecSql.Executa(qEUR)

Faça login para poder traduzir
Marcado como spam
Criado há 5 anos e 5 meses jcdiniz
j
jcdiniz Iniciante
    0
    Resposta privada

    Ficou assim para quem possa precisar:

    Dim EURC As Double = 0
    Dim EURV As Double = 0
    With Ver.BNADados(varData, “EUR”)
    EURC = .Compra
    EURV = .Venda
    End With

    motor.Comercial.Moedas.ActualizaValorAtributo(“EUR”, “DataCambio”, varData)
    motor.Comercial.Moedas.ActualizaValorAtributo(“EUR”, “Compra”, EURC)
    motor.Comercial.Moedas.ActualizaValorAtributo(“EUR”, “Venda”, EURV)
    Dim qEUR As New StdBEExecSql
    qEUR.tpQuery = EnumTpQuery.tpINSERT
    qEUR.Tabela = “MoedasHistorico”
    qEUR.AddCampo(“Moeda”, “EUR”)
    qEUR.AddCampo(“Data”, dtData.Value)
    qEUR.AddCampo(“DataCambio”, varData)
    qEUR.AddCampo(“Compra”, EURC)
    qEUR.AddCampo(“Venda”, EURV)
    motor.DSO.Plat.ExecSql.Executa(qEUR)

    Faça login para poder traduzir
    Marcado como spam
    Criado há 5 anos e 5 meses jcdiniz
    j
    jcdiniz Iniciante
      Comentários

      Obrigado pela partilha.

      5 anos e 5 meses
      flavio-jardim
        0
        Resposta privada

        Tem razão, 1º coloquei a pergunta lá, mas como verifiquei que aqui é sobre perguntas de integração e como a pergunta que fiz, acho que se pode considerar como tal, achei por bem, colocar aqui também.

        Quanto à resposta, agradeço, pois já consigo definir o cambio, mas gostaria de o poder guardar como histórico, para que os possa consultar futuramente e fazer a confirmação dos mesmos.

        A forma colocada apenas me define o cambio sem que fique armazenado em Histórico. Como o poderei fazer?

        Faça login para poder traduzir
        Marcado como spam
        Criado há 5 anos e 5 meses jcdiniz
        j
        jcdiniz Iniciante
          Comentários

          Por isso mesmo que volto a recomendar a leitura das FAQ´s, porque uma pergunta bem feita, com o máximo de detalhes, clara e objetiva leva a respostas completas e assim conseguimos ajudar da melhor maneira possível.

          5 anos e 5 meses
          flavio-jardim
            -1
            Resposta privada

            Bom dia @jcdiniz

            Como reparei que colocou esta mesma questão no StackOverflow, recomendo a leitura das FAQ’s (https://developers.ila.cegid.com/faqs/) para melhorar perceber a dinâmica dos fóruns. Por exemplo esta questão podia ter o código de como obtém as taxas de cambio e neste caso seria uma boa pergunta para o StackOverflow. De qualquer das formas, penso que o que pretende será algo do género:

            bso.Comercial.Moedas.ActualizaValorAtributo "EUR", "Compra", 1
bso.Comercial.Moedas.ActualizaValorAtributo "EUR", "Venda", 1

             

             

             

            Faça login para poder traduzir
            Marcado como spam
            Criado há 5 anos e 5 meses flavio-jardim
            f
            flavio-jardim Iniciante
              « Back to Previous Page