Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

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.

  • Este tópico foi criado há 3318 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.

The popup will be closed in 10 segundos...