ACBRBOLETO : Tratamento das Rejeições

[AnDes Sistemas]

Companheiros

Gostaria de solicitar sua ajuda novamente!

Estou desenvolvendo no nosso Erp o Recurso de envio Automático das Duplicatas à Receber para registro nas APIs dos Bancos ( utilizando o AcbrBoleto ).

Restou-me 1 dúvida que gostaria de compartilhar com os senhores :

Na sequência da utilização do Método : Enviar, é necessário tratar os retornos do AcbrBoleto.

Assim , na sequência ao envio, confome sugerido pelo Programa Exemplo do AcbrBoleto eu procedo da seguinte forma :
a)-Se : ACBrBoleto.ListaRetornoWeb[i].HTTPResultCode igual a 400,401,403 ou 500 :
- Exibo mensagem de Erro de Envio
- Gravo o Log do Erro de Envio

b)-Se : ACBrBoleto.ListaRetornoWeb[i].HTTPResultCode diferente a 400,401,403 ou 500 :
Eu considero a Duplicata como Aceita na Cobrança ( equivalente ao Código de Ocorrência '02-Entrada Confirmada') e Gravo o Log.

Porém, me ocorreu uma dúvida : 
E se o banco , por algum motivo, não aceitar a Duplicata na Cobrança ?
Na Cobrança Bancária via arquivo-texto o banco retorna :
- Código de Ocorrência : 03-Entrada Rejeitada 
- E nas Sub-Ocorrências exibe Código das Mensagens de Erro que explicam a Rejeição

Assim, gostaria de saber se tem como implementar também um controle para tratar as Rejeições e em quais propriedades do AcbrBoleto eu poderia encontrar estas informações.

Grato
 

[Diego Foliene]

Boa tarde!

Entendo que as propriedades lidas seriam as mesmas.

Você dividiria sua rotina em duas etapas.

Usei o comando para fazer o registro do boleto online e recebi o retorno.

Na primeira etapa valido o código HTTPResultCode como você já faz para conferir se a comunicação ocorreu com sucesso junto a API ou se houve falha.

Se não houve falha no processo, então você valida os códigos de ocorrências dos retornos.

No programa de exemplo, este é um trecho retirado e adaptado  do exemplo de leitura do retorno ao registrar boleto online.

ACBrBoleto.Configuracoes.WebService.Operacao := tpInclui;
ACBrBoleto.Enviar;

if ACBrBoleto.TotalListaRetornoWeb > 0 then
begin
  for i := 0 to Pred(ACBrBoleto.TotalListaRetornoWeb) do
  begin
    for j := 0 to Pred(ACBrBoleto.ListaRetornoWeb[i].ListaRejeicao.Count) do
    begin
      ACBrBoleto.ListaRetornoWeb[i].ListaRejeicao[j].Ocorrencia;
      ACBrBoleto.ListaRetornoWeb[i].ListaRejeicao[j].Mensagem;
      //Demais propriedades...
    end;
    ACBrBoleto.ListaRetornoWeb[i].XXXX
  end;
end;

Se estiver trabalhando com CNAB, na rotina do botão LerRetorno é o que você deve se basear.

 

[Daniel InfoCotidiano]

@AnDes Sistemas
Bom dia
Apenas complementando
vc pode simular em seu ambiente, por exemplo enviar uma data invalida retroativa, valor do titulo zerado.
alguns bancos tem ambiente de homologacao como o BB que controla até se ja foi incluso nosso numero, entao se vc tentar incluir outro titulo com o mesmo numero tera rejeição.
assim vc consegue alguns retornos para saber como é devolvido.
Lembrando que o programa exemplo é funcional, vc pode ver como é devolvido e tratado retorno da API

[AnDes Sistemas]

Srs. Daniel e Diego

Bom Dia!

Entendi como devo proceder !

Estou quase conseguindo desenvolver o recurso completo para Registro Automático das Duplicatas nos Bancos utilizando o AcbrBoleto.

Aproveitando a oportunidade queria parabenizar a todos do Projeto Acbr pela qualidade técnica fantástica dos Atendimentos, dos Serviços e das Bibliotecas de Componentes.

Muito obrigado novamente por sua ajuda !

Por favor, podem fechar este tópico.

Carlos 

Andes Informática - Franca-Sp

[antonio.carlos]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.