ACBRValidador função Modulo11

[Matheus]

Bom dia..

Estou utilizando a funcao modulo11 do fonte ACBRValidador e ela não esta funcionando corretamente, debugando o código aqui vi que na função a propriedade Documento não está sendo carregada para a propriedade fsDocto da classe TACBrValidador. Para resolver tive que alterar o nome do parametro da funcao para um nome diferente de "Documento", ou ainda pode ser retirado o with deixando ela da seguinte maneira:

function Modulo11(const Documento: string; const Peso: Integer;
  const Base: Integer): String;
Var
  ACBrVal : TACBrValidador ;
begin
  ACBrVal := TACBrValidador.Create(nil);
  try
    ACBrVal.Modulo.Documento            := Documento ;
    ACBrVal.Modulo.MultiplicadorInicial := Peso  ;
    ACBrVal.Modulo.MultiplicadorFinal   := Base ;
    ACBrVal.Modulo.FormulaDigito        := frModulo11 ;
    ACBrVal.Modulo.Calcular ;
    Result := IntToStr( ACBrVal.Modulo.DigitoFinal ) ;
  finally
    ACBrVal.Free;
  end;
end;

Estou utilizando o componente no Delphi XE7.

Se puderem avaliar e colocar no repositório a alteração.

[Daniel Simoes]

poderia por favor anexar a unit modificada ?

 

[Matheus]

segue...

ACBrValidador.pas

[Daniel Simoes]

Obrigado, já enviei para o SVN