ACBrBancoUnicredES - Nosso Numero

[FabianoCunha]

Gostaria de propor uma pequena alteração no método de montar o retorno do Nosso número.  A leitura do  nosso número no arquivo de retorno esta correta deve ser feito a copia de 17 posições, e não 11 como é na maioria dos bancos.

Porém a função a baixo ao retornar, devolve os 17 dígitos (NossoNumero + DigVerificador),  E concatena um novo digito verificador, o que pra min, leva a um NossoNúmero final errado. 

Ex: A variavel "ACBrTitulo.NossoNumero" contém: 00000000000000027 e quando executa o CalcularDigitoVerificador acrescenta o novo digito verificador.

Para manter a compatibilidade, eu sugiro colocar a propriedade de LerNossoNumeroCompleto, para retornar as 11 posições (NossoNumero + DigVerificador). 

Código alterado:  unit ACBrBancoUnicredES
function TACBrBancoUnicredES.MontarCampoNossoNumero (  const ACBrTitulo: TACBrTitulo ) : String;
begin
   if (ACBrBanco.ACBrBoleto.LerNossoNumeroCompleto) then
   begin
       Result := RightStr(ACBrTitulo.NossoNumero,11);
   end
   else
      Result := ACBrTitulo.NossoNumero + '-'+ CalcularDigitoVerificador(ACBrTitulo);
end;

 

Rotina Original unit ACBrBancoUnicredES;

function TACBrBancoUnicredES.MontarCampoNossoNumero (
   const ACBrTitulo: TACBrTitulo ) : String;
begin
   Result := ACBrTitulo.NossoNumero + '-'+ CalcularDigitoVerificador(ACBrTitulo);
end;

[Juliana Tamizou]

Bom dia,

Por favor anexe a unit alterada.

At.