Ajustes Remessa Cnab400 Acbrbancobanrisul.pas

[guilhermeurutun]

Boa Tarde;

 

Realizei alguns ajustes no ACBrBancoBanrisul.pas para arquivo remessa cnab 400. Não sei como funciona para que seja avaliado aqui no Fórum, mas segue as alterações abaixo e a Unit em anexo.

 

//Adicionado SeuNumero na Procedure GerarRegistroTransacao400, onde havia somente a instrução de espaços

 

padL(SeuNumero, 25, ' ')                  + //  id do título para o cedente (usado no arquivo de retorno)

 

//Adicionado Tipo de Boleto Escritual - '06'

 

{Pegando Tipo de Boleto}

case ACBrBoleto.Cedente.ResponEmissao of

  tbCliEmite           : TipoBoleto:='08';  //Cobrança credenciada Banrisul

  tbBancoEmite     : TipoBoleto:='06';  //Cobrança Escritural   ******Linha Adicionada******   

  tbBancoReemite : TipoBoleto:='04';  //Cobrança Direta

else

  TipoBoleto:='08'; //Cobrança credenciada Banrisul

end;

 

 

ACBrBancoBanrisul.pas