ACBrPagFor não está gerando Registro Trailer de Lote para o Banco do Bradesco.

[Diego A. Folieni]

Boa tarde!

Estou adicionando em nosso sistema opção para que usando o ACBrPagFor gere arquivos com registros para o serviço de Pagamento de Tributos com Código de Barras.
Mas me deparei com um problema!
Para o banco do Bradesco a procedure GeraRegistro5 da Unit ACBrPagForGravarTxt tem uma condição quando o Banco é Bradesco para que só gere o Trailer de Lote se a forma de lançamento do Header do Lote for algumas específicas.

pagBradesco:
begin
  wregistro := wregistro + FormatFloat('000000', FQtdeRegistrosLote);
  if (FPagFor.Lote.Items[I].Registro1.Servico.FormaLancamento in [flLiquidacaoTitulosProprioBanco, flLiquidacaoTitulosOutrosBancos,
                                                                  flDocTed, flPIXTransferencia, flPIXQRCode,flCreditoContaCorrente])then
  begin
    wregistro := wregistro + FormatFloat('000000000000000000', FPagFor.Lote.Items[I].Registro5.Valor * 100);
    wregistro := wregistro + FormatFloat('000000000000000000', FPagFor.Lote.Items[I].Registro5.QtdeMoeda * 100000); // 5 casas decimais
    wregistro := wregistro + '000000';
    wregistro := wregistro + Space(165);
    wregistro := wregistro + Space(10);
  end;
end;

A forma de lancamento para o Pagamento de Tributos com Código de Barras nos manuais que estou usando é 11, que para o ACBr traduz como flPagamentoContas. Logo a condição não é atendida, o Trailer do Lote não é gerado por completo e da erro na geração do arquivo.
Existe alguma razão para ter essa condição delimitando quais os serviços? O Segmento correspondente para esse serviço é o Segmento O e o mesmo consta no manual.

Não consigo anexar os manuais em PDF pois ambos excedem 2MB, mas os consegui nos seguintes links
* Manual Bradesco  https://banco.bradesco/assets/pessoajuridica/pdf/jun-19-layout-multipag.pdf
* Manual Febraban https://cmsarquivos.febraban.org.br/Arquivos/documentos/PDF/Layout padrao CNAB240 V 10 09 - 14_10_21.pdf

Editado 3 Junho, 2022 por Diego A. Folieni

[Italo Giurizzato Junior]

Boa tarde Diego,

Já inclui na minha lista para analisar o caso. TK-2748

[Italo Giurizzato Junior]

Bom dia Diego,

Favor atualizar os fontes e faça novos testes.

[Diego A. Folieni]

Não está compilando @Italo Giurizzato Junior, não esta encontrando a Unit ACBrPagForInterface na Unit ACBrPagForArquivo.pas
Linha do log n a instalação.

"..\ACBr\Fontes\ACBrPagFor\ACBrPagForArquivo.pas(103) Fatal: F2613 Unit 'ACBrPagForInterface' not found."

ACBr foi atualizado hoje ainda a pouco.

Editado 7 Junho, 2022 por Diego A. Folieni

[Juliana Tamizou]

Boa tarde,

Possível correção enviada ao svn, favor testar.

At.

[Diego A. Folieni]

22 horas atrás, Juliana Tamizou disse:

Boa tarde,

Possível correção enviada ao svn, favor testar.

At.

O problema de não gerar o Trailer de Lote quando Segmento O foi resolvido.
O validador (https://banco.bradesco/html/pessoajuridica/solucoes-integradas/outros/layout-de-arquivo.shtm)ainda apontou alguns(poucos e dos quais alguns nem fazer sentido ao meu ver) problemas, mas isso acredito que seja assunto para outro tópico.
Muito obrigado, pode fechar esse aqui, por favor.

[Juliana Tamizou]

Obrigado por reportar.

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