Bom dia.
Recentemente foi feita uma correção baseada no tipo de cobrança da carteira...seus fontes estão com as seguintes linhas na geração do cabeçalho do arquivo:
if aCarteira = '1' then // Cobranca Registrada
begin
Parte2 :=
CalcularFatorVencimento(Vencimento) +
IntToStrZero(Round(ValorDocumento * 100), 10) +
copy(padR(NossoNumero, 13, '0'),3,11) +
padR(ACBrBoleto.Cedente.Agencia, 4, '0') +
padR(ACBrBoleto.Cedente.Conta, 7, '0') +
'00';
end
else // 'CNR' Cobranca Nao Registrada
begin
Parte2 :=
CalcularFatorVencimento(Vencimento) +
IntToStrZero(Round(ValorDocumento * 100), 10) +
padR(ACBrBoleto.Cedente.CodigoCedente, 7, '0') +
padR(NossoNumero, 13, '0') +
DataToJuliano(Vencimento);
end;
Acredito que um ajuste parecido resolva o problema, se possível efetue a implementação e caso o arquivo seja gerado corretamente, anexe aqui a unit alterada.
Att