Correção Na Montagem Do Nosso Numero Do Banrisul

[Reginaldo Costa]

Cara, Juliana Tamizou,

 

gostaria que arrumasse a montagem do nosso numero do banco banrisul, toda vez que atualizo o ACBr, tenho que arrumar isso:

 

versão que ta no SVN:

 

function TACBrBanrisul.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string;

begin

  Result:=copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 2, 4)+'-'+

         copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 5, 1)+ ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+

         copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,1,6) + '.' +

         copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,7,1) + '.' +

         copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,8,2);

end;

 

correção:

 

function TACBrBanrisul.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string;

begin

  Result:=copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, {>>>2<<<<<muda para 1} 1, 4)+'-'+

       

 {>>>>sai copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 5, 1) <<<<<}

         

        + ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+

         copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,1,6) + '.' +

         copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,7,1) + '.' +

         copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,8,2);

end;

 

ficando assim:

 

function TACBrBanrisul.MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): string;

begin

  Result:=copy(ACBrTitulo.ACBrBoleto.Cedente.Agencia, 1, 4)+'-'+

         ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+

         copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,1,6) + '.' +

         copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,7,1) + '.' +

         copy(ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente,8,2);

end;

 

 

atenciosamente,

Reginaldo Costa.

 

 

[Reginaldo Costa]

ops:  falha nossa: é codigo do cedente e nao nosso numero. desculpe.

 

Reginaldo Costa.

[Juliana Tamizou]

Bom dia.

 

Correção no svn.

 

Att.

[Reginaldo Costa]

obrigado, abraços...