Gerar arquivo remessa banco do Brasil

[Fernando Rodrigo]

caros amigos, estou começando agora a minha implementação do cnab240 utiisando ACBr e estou tendo algumas dificuldades abaixo.

Estou iniciando da seguinte forma, passando os parametros para o componente

Carteira                    := '17';
ACBrBoleto.Cedente.Convenio :=  '2969169';
SeuNumero                   := '00000123';

NossoNumero  := '0000010';

Na função no acbr SetNossoNumero, a carteira mesmo informando esta vindo em branco, quando passa o primeiro registros, no segundo para frente ele ja vem preenchido normal

procedure TACBrTitulo.SetNossoNumero ( const AValue: String ) ;
var
   wTamNossoNumero: Integer;
   wNossoNumero: String;
begin
   wNossoNumero:= OnlyNumber(AValue);
   with ACBrBoleto.Banco do
   begin
      wTamNossoNumero:= CalcularTamMaximoNossoNumero(Carteira, wNossoNumero,
                                                     ACBrBoleto.Cedente.Convenio);

      if Length(trim(wNossoNumero)) > wTamNossoNumero then
         raise Exception.Create( ACBrStr('Tamanho Máximo do Nosso Número é: '+ IntToStr(wTamNossoNumero) ));

      fNossoNumero := PadLeft(wNossoNumero,wTamNossoNumero,'0');
   end;
end;

 

Depois de preencher o componente no fechamento ele diz conforme anexo que a carteira tem que ser informada antes do nosso numero, mas isso ja esta sendo feito conforme acima

 

 

 

acbr.tif