Boa tarde!
Homologando arquivo remessa cnab 240 para banco Sicoob - 756, o mesmo retorna com rejeição.
Configurado para emissão do boleto pelo banco e geração do nosso número também pelo banco, porem quando envio o nosso numero zerado, no momento da remessa o digito verificador do nosso numero esta sendo calculado. Fiz a alteração no fonte arquivo ACBrBancoBancoob, function GerarRegistroTransacao240, logo no inicio para que o mesmo não calcule digito de nosso numero zerado.
Original:
NossoNum := RemoveString('-', MontarCampoNossoNumero(ACBrTitulo))
Alterado:
if ACBrTitulo.NossoNumero <> PadLeft('', length(ACBrTitulo.NossoNumero), '0') then
NossoNum := RemoveString('-', MontarCampoNossoNumero(ACBrTitulo))
else
NossoNum := ACBrTitulo.NossoNumero;
Aproveitando quando processo o arquivo de retorno a linha 474 estoura um erro:
Cedente.Conta := PadLeft(IntToStr(StrToInt(Cedente.Conta)), 7, '0');
Retirei esta linha e observei que em arquivos de outros bancos esta linha já foi retirada, pois neste momento a conta ainda não foi atribuída.
Anexo o arquivo que alterei.
ACBrBancoBancoob.pas