Arquivo de Remessa Bradesco

suportemds · 3 Julho, 2017

Encontrei um pequeno problema na rotina de remessa 400 do Bradesco:

Fonte:
ACBrBancoBradesco

Método GerarRegistroTransacao400 possui uma função para retorno da instrução das mensagens DoMontaInstrucoes1, que no ultimo Result está da seguinte forma:

Result := Result +
space(45) + // COMPLEMENTO DO REGISTRO
aCarteira +
aAgencia +
aConta +
Cedente.ContaDigito +
NossoNumero + DigitoNossoNumero +
IntToStrZero( aRemessa.Count + 2, 6); // Nº SEQÜENCIAL DO REGISTRO NO ARQUIVO

Alterei para utilizar a variavel ANossoNumero, que respeita as definições do leiaute conforme ao tipo de emissão do boleto(Pelo banco, pela empresa Etc.) ficando da sequinte forma:

Result := Result +
space(45) + // COMPLEMENTO DO REGISTRO
aCarteira +
aAgencia +
aConta +
Cedente.ContaDigito +
ANossoNumero + DigitoNossoNumero +
IntToStrZero( aRemessa.Count + 2, 6); // Nº SEQÜENCIAL DO REGISTRO NO ARQUIVO

Gostaria de saber os procedimentos corretos para incluir istó nas correções, obrigado!

ACBrBancoBradesco.pas