Membros Pro Desenv. AT Info Sistemas Postado 26 Setembro Membros Pro Postado 26 Setembro 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 ACBrBoletoRet_Caixa.pas
Consultores Júlio Cavalcanti Postado 26 Setembro Consultores Postado 26 Setembro 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.
Membros Pro Desenv. AT Info Sistemas Postado 2 Outubro Autor Membros Pro Postado 2 Outubro Boa tarde! Alguma previsão para liberar as correções?
Consultores Júlio Cavalcanti Postado 8 Outubro Consultores Postado 8 Outubro 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.
Consultores Victor H. Gonzales - Panda Postado 16 Outubro Consultores Postado 16 Outubro 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'); Victor H Gonzales - Pandaaa Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 Desenv. AT Info Sistemas Postado 16 Outubro Autor Membros Pro Postado 16 Outubro 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.
Membros Pro Desenv. AT Info Sistemas Postado 16 Outubro Autor Membros Pro Postado 16 Outubro Enviei o log junto e nele pode verificar que as tags que mostram o erro de autenticação são outras que não estavam sendo lidas.
Consultores Solution Victor H. Gonzales - Panda Postado 18 Outubro Consultores Solution Postado 18 Outubro 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 Victor H Gonzales - Pandaaa Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (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 Desenv. AT Info Sistemas Postado 18 Outubro Autor Membros Pro Postado 18 Outubro Boa tarde! Vou atualizar e testar. Obrigado
Membros Pro Desenv. AT Info Sistemas Postado 30 Outubro Autor Membros Pro Postado 30 Outubro Bom dia! Tive que fazer mais uma alteração, a seção "PAGAMENTO" deve ser informada mesmo sendo boleto hibrido. Segue o manual atualizado. Obrigado MO38239012.dot ACBrBoletoW_Caixa.pas
Membros Pro MagoSchmidt Postado 6 Novembro Membros Pro Postado 6 Novembro (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 6 Novembro por MagoSchmidt
Moderadores Juliomar Marchetti Postado 7 Novembro Moderadores Postado 7 Novembro 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 Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br
Recommended Posts