ACBrBancoBrasil

[wpereira]

Bom dia.

Verificando o arquivo remessa (GerarRegistroTransacao400)
no comando toRemessaAlterarPrazoLimiteRecebimento
está gerando o registro com 397 caracteres.
No manual:

Citar

d) Quando o campo “Comando” (22.7) for igual “38” ou “39”:
Posição Conteúdo
174 a 176 Prazo Limite para Recebimento de Título Vencido
- Código/Comando de Remessa for igual “38”, informar zeros;
- Código/Comando de Remessa for igual “39”, informar a quantidade de dias após o vencimento do título a ser observado pelo Banco para recebimento dos boletos de cobrança vencidos. Após o período determinado, o boleto somente poderá ser liquidado junto a própria empresa.
177 a 192 Preencher com Zeros

A unit está ignorando as posições 177 a 192.

Fiz a alteração aqui na linha 1131:

if ATipoOcorrencia = '39' then
     begin
       Instrucao1:= '00';
       Instrucao2:= '00';
       AInstrucao:= '0000';
       aDataDesconto:= sDiasBaixa + '000';    <-------
     end;

Funcionou. Confirme aí.

Wanderson
 

[Juliana Tamizou]

Boa tarde,

Obrigada pelo interesse em contribuir, queira por favor anexar a unit alterada.

At.

[wpereira]

Juliana, bom dia.

Em anexo a unit alterada na linha 1131

Wanderson

ACBrBancoBrasil.pas

[Juliana Tamizou]

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

TK-2320

[José M. S. Junior]

Atualizado no SVN. Obrigado pela contribuição!