Ir para conteúdo
  • Cadastre-se

dev botao

ACBRValidador função Modulo11


Matheus
  • Este tópico foi criado há 3295 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3295 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.