Ir para conteúdo
  • Cadastre-se

dev botao

Ajuste no Retorno da Api da Caixa


Ver Solução Respondido por Victor H. Gonzales - Panda,

Recommended Posts

  • Consultores
Postado
1 hora atrás, Desenv. AT Info Sistemas disse:

Bom dia, 

Comecei os testes com a API da Caixa e me deparei com erros de autorização.

Então fiz uma melhoria no Retorno par gravar a mensagem correta do erro.

Segue o fonte alterado e o Log.

ArqBoletoWS.log 2.06 kB · 0 downloads

ACBrBoletoRet_Caixa.pas 15.69 kB · 0 downloads

Obrigado pela contribuição! Foi criada a TK-6021 para análise.
Você será notificado aqui quando concluirmos esta análise.

  • Consultores
Postado
Em 02/10/2024 at 16:15, Desenv. AT Info Sistemas disse:

Boa tarde!

Alguma previsão para liberar as correções?

 

Está em nossa fila de análise. Assim que concluirmos, vamos notificá-lo aqui no tópico.

  • 2 semanas depois ...
  • Consultores
Postado
Em 26/09/2024 at 09:56, Desenv. AT Info Sistemas disse:

Bom dia, 

Comecei os testes com a API da Caixa e me deparei com erros de autorização.

Então fiz uma melhoria no Retorno par gravar a mensagem correta do erro.

Segue o fonte alterado e o Log.

 

ArqBoletoWS.log 2.06 kB · 1 download

ACBrBoletoRet_Caixa.pas 15.69 kB · 0 downloads

Boa tarde, A informação não está sendo lida de  ??

if leitor.rExtrai(2, 'CONSULTA_BOLETO') <> '' then
          begin
            if leitor.rExtrai(3, 'TITULO') <> ''  then

               ControleNegocial.Retorno := Leitor.rCampo(tcStr, 'SITUACAO');

 

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Membros Pro
Postado

Boa tarde,

Essa alteração que fiz é para o erro que acontece ainda na autenticação, antes de enviar ou consultar o boleto.

Quando tenta autorizar da erro autenticação, e para o erro vem nessa tag que fiz a alteração e assim  conseguir mostrar para o usuário o erro correto.

 

  • Consultores
  • Solution
Postado

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • 2 semanas depois ...
  • Membros Pro
Postado (editado)

Pessoal, achei um pequeno problema na parte dos descontos no arquivo AcbrBoletoW_Caixa.pas:

// if Integer(TipoDesconto) <> 1 then // Isto aqui parece incorreto!

procedure TBoletoW_Caixa.GerarDescontos;
begin
  if Assigned(ATitulo) then
    with ATitulo do
    begin
      if (ValorDesconto > 0) then
      begin
        Gerador.wGrupo('DESCONTOS');

          Gerador.wGrupo('DESCONTO');
          Gerador.wCampo(tcDat, '#33', 'DATA', 10, 10, 1, DataDesconto, DSC_DATA_DESCONTO);

          // if Integer(TipoDesconto) <> 1 then // Isto aqui parece incorreto!

          if TipoDesconto in [tdValorFixoAteDataInformada, tdValorAntecipacaoDiaCorrido, tdValorAntecipacaoDiaUtil] then
            Gerador.wCampo(tcDe2, '#34', 'VALOR     ', 01, 15, 1, ValorDesconto, DSC_VALOR_DESCONTO)
          else
            Gerador.wCampo(tcDe4, '#35', 'PERCENTUAL', 01, 15, 1, ValorDesconto, DSC_VALOR_DESCONTO);

          Gerador.wGrupo('/DESCONTO');

        if ((ValorDesconto2 > 0) and (not Boleto.Cedente.CedenteWS.IndicadorPix)) then
        begin
           Gerador.wGrupo('DESCONTO');
          Gerador.wCampo(tcDat, '#33', 'DATA', 10, 10, 1, DataDesconto2, DSC_DATA_DESCONTO2);

          if TipoDesconto in [tdValorFixoAteDataInformada, tdValorAntecipacaoDiaCorrido, tdValorAntecipacaoDiaUtil] then
            Gerador.wCampo(tcDe2, '#34', 'VALOR     ', 01, 15, 1, ValorDesconto2, DSC_VALOR_DESCONTO2)
          else
            Gerador.wCampo(tcDe4, '#35', 'PERCENTUAL', 01, 15, 1, ValorDesconto2, DSC_VALOR_DESCONTO2);

          Gerador.wGrupo('/DESCONTO');

        end;

        Gerador.wGrupo('/DESCONTOS');

      end;
    end;

end;

 

Editado por MagoSchmidt
  • Moderadores
Postado
11 horas atrás, MagoSchmidt disse:

Pessoal, achei um pequeno problema na parte dos descontos no arquivo AcbrBoletoW_Caixa.pas:

// if Integer(TipoDesconto) <> 1 then // Isto aqui parece incorreto!

procedure TBoletoW_Caixa.GerarDescontos;
begin
  if Assigned(ATitulo) then
    with ATitulo do
    begin
      if (ValorDesconto > 0) then
      begin
        Gerador.wGrupo('DESCONTOS');

          Gerador.wGrupo('DESCONTO');
          Gerador.wCampo(tcDat, '#33', 'DATA', 10, 10, 1, DataDesconto, DSC_DATA_DESCONTO);

          // if Integer(TipoDesconto) <> 1 then // Isto aqui parece incorreto!

          if TipoDesconto in [tdValorFixoAteDataInformada, tdValorAntecipacaoDiaCorrido, tdValorAntecipacaoDiaUtil] then
            Gerador.wCampo(tcDe2, '#34', 'VALOR     ', 01, 15, 1, ValorDesconto, DSC_VALOR_DESCONTO)
          else
            Gerador.wCampo(tcDe4, '#35', 'PERCENTUAL', 01, 15, 1, ValorDesconto, DSC_VALOR_DESCONTO);

          Gerador.wGrupo('/DESCONTO');

        if ((ValorDesconto2 > 0) and (not Boleto.Cedente.CedenteWS.IndicadorPix)) then
        begin
           Gerador.wGrupo('DESCONTO');
          Gerador.wCampo(tcDat, '#33', 'DATA', 10, 10, 1, DataDesconto2, DSC_DATA_DESCONTO2);

          if TipoDesconto in [tdValorFixoAteDataInformada, tdValorAntecipacaoDiaCorrido, tdValorAntecipacaoDiaUtil] then
            Gerador.wCampo(tcDe2, '#34', 'VALOR     ', 01, 15, 1, ValorDesconto2, DSC_VALOR_DESCONTO2)
          else
            Gerador.wCampo(tcDe4, '#35', 'PERCENTUAL', 01, 15, 1, ValorDesconto2, DSC_VALOR_DESCONTO2);

          Gerador.wGrupo('/DESCONTO');

        end;

        Gerador.wGrupo('/DESCONTOS');

      end;
    end;

end;

 

anexe a unit alterada

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...