Pessoal,
Realizei mais alguns ajustes na unit ACBrBancoBanrisul.pas enviada acima pelo Moroni, segue abaixo as alterações e a nova Unit, favor avaliar e realizar o Commit.
//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