Alterações em Units do ACBrPagFor para o Banco do Bradesco

[Diego A. Folieni]

Prezados, bom dia.
Utilizando o validador de arquivos do site do Bradesco para o serviço de Pagamento a Fornecedores disponível neste link https://banco.bradesco/html/pessoajuridica/solucoes-integradas/outros/layout-de-arquivo.shtm
Realizei as seguintes alterações em Units do ACBrPagFor.

• ACBrPagForGravarTXT.pas
  • Alterei a procedure GeraRegistro1 para que quando o banco seja o Bradesco e o lote correspondente for de segmentos O preencha o Layout do Lote como 012.
  • Modifiquei a procedure GeraRegistro1 para que quando o banco seja o Bradesco e o lote correspondente for de segmentos O preencha o indicativo de forma de pagamento (P014 no manual) como 01.
  • Modifiquei o case da procedure GeraSegmentoO para que quando o banco for Bradesco gere o Segmento conforme é para o Santander, Sicredi e Safra, colocando 20 posições para o Nosso Número(conforme é no manual) ao invés de 19.
• ACBrPagForLerTXT.pas
  • Adicionei um no Case da procedure LerSegmentoO uma opção específica para o Bradesco.
• ACBrPagForConversao.pas
  • Alterei na procedure BancoToDesc para que o resultado quando Bradesco seja BANCO BRADESCO S.A;
  • Adicionei uma procedure DescricaoRetornoBancoBradesco.

As coloco a disposição da comunidade para validação e possível inclusão.

ACBrPagForConversao.pas ACBrPagForGravarTxt.pas ACBrPagForLerTxt.pas

[Diego A. Folieni]

2 horas atrás, Diego A. Folieni disse:

Prezados, bom dia.
Utilizando o validador de arquivos do site do Bradesco para o serviço de Pagamento a Fornecedores disponível neste link https://banco.bradesco/html/pessoajuridica/solucoes-integradas/outros/layout-de-arquivo.shtm
Realizei as seguintes alterações em Units do ACBrPagFor.

• ACBrPagForGravarTXT.pas
  • Alterei a procedure GeraRegistro1 para que quando o banco seja o Bradesco e o lote correspondente for de segmentos O preencha o Layout do Lote como 012.
  • Modifiquei a procedure GeraRegistro1 para que quando o banco seja o Bradesco e o lote correspondente for de segmentos O preencha o indicativo de forma de pagamento (P014 no manual) como 01.
  • Modifiquei o case da procedure GeraSegmentoO para que quando o banco for Bradesco gere o Segmento conforme é para o Santander, Sicredi e Safra, colocando 20 posições para o Nosso Número(conforme é no manual) ao invés de 19.
• ACBrPagForLerTXT.pas
  • Adicionei um no Case da procedure LerSegmentoO uma opção específica para o Bradesco.
• Linha 14 - Trailer de Arquivo. Caracteres, espaços ou mais de uma linha após Trailer.ACBrPagForConversao.pas
  • Alterei na procedure BancoToDesc para que o resultado quando Bradesco seja BANCO BRADESCO S.A;
  • Adicionei uma procedure DescricaoRetornoBancoBradesco.

As coloco a disposição da comunidade para validação e possível inclusão.

ACBrPagForConversao.pas 103 kB · 0 downloads ACBrPagForGravarTxt.pas 127 kB · 0 downloads ACBrPagForLerTxt.pas 97 kB · 0 downloads

Adiciono também a ACBrPagForArquivo onde setei para false a property TrailingLineBreak da TStringList ArquivoGerado na function Gravar da classe TRegistro para resolver o erro.
Linha 14 - Trailer de Arquivo. Caracteres, espaços ou mais de uma linha após Trailer.  apontado pelo validador do Bradesco.

ACBrPagForArquivo.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-2769

[Italo Giurizzato Junior]

Boa tarde Diego,

Favor atualizar os fontes, reinstale o ACBr e faça novos testes.

Note que foi realizado um Refactoring no componente.

 

[Diego A. Folieni]

29 minutos atrás, Italo Giurizzato Junior disse:

Boa tarde Diego,

Favor atualizar os fontes, reinstale o ACBr e faça novos testes.

Note que foi realizado um Refactoring no componente.

 

Timing ruim da minha parte kkkkkk.
Atualizei o ACBr nesta quarta-feira(08/06) antes de fazer as minhas alterações. Se eu tivesse esperado um pouco mais kkkk.
OK @Italo Giurizzato Junior eu farei como pediu.
Muito obrigado!

Editado 10 Junho, 2022 por Diego A. Folieni