Remessa Sicoob - arquivo ACBrBancoBancoob

[SupraSoft]

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

[José M. S. Junior]

Boa tarde, adicionado para verificação. Obrigado.

[José M. S. Junior]

Favor atualizar os Fontes para testes.