Acbrvalidador Com Bug Para Gerar Digito De Codigo De Barras

[luciano_f]

  Pessoal o AcbrValidade não gera um digitoVerificador correto para esse numero

 

  205344800000

 

 Ele está gerando  "6"  o correto seria  "0"

 

  Porém se eu usar essa função abaixo vai gerar um digito correto e o ACBR consegue validar o codigo 100%  e vou conseguir imprimir e ler por qualquer Scanner

 

  Function CalculaDigEAN13(Cod: String): String;
  // Passe os 12 primeiros codigos de barras que ele retorna o codigo verificador...
   Function Par(Cod: Integer): Boolean;
   Begin
    Result := Cod Mod 2 = 0;
   End;

  Var I, SomaPar, SomaImpar: Integer;
  Begin
   SomaPar := 0;
   SomaImpar := 0;
   For I := 1 To 12 Do
    If Par(I) Then
     SomaPar := SomaPar + StrToInt(Cod)
    Else
     SomaImpar := SomaImpar + StrToInt(Cod);
   SomaPar := SomaPar * 3;
   I := 0;
   While I < (SomaPar + SomaImpar) Do
    Inc(I, 10);
   Result := IntToStr(I - (SomaPar + SomaImpar));
  End;

 

Detalhe se testei esse codigo "205344800000"

no site abaixo e também validou o mesmo e gerou digito "0"

 

http://www.gs1pt.org/servicos/digito-controlo/3/76/calculo-digito-de-controlo

 

Então acredito que deva ter algum problema com a função que gerar o digito verificador

ps  eu estou usando a ultima versão do ACBR.

Editado 4 Outubro, 2013 por luciano_f

[André Ferreira de Moraes]

O componente ACBrValidador é usado para VALIDAR e não para gerar o dígito.

 

Se vc informa um código com menos dígitos do que o esperado ele completa adicionando zeros no início da string e por isso dá que o dígito calculado é 6 e não 0. Se vc informar o código com 13 dígitos  o DV será calculado corretamente.

[luciano_f]

 Testa ai para você ver se colocar um código assim "2053448000000"  ele não vai me trazer o digito verificador

 

  deveria trazer "0"  mais não traz nada

[André Ferreira de Moraes]

Lógico, o dígito esperado é o 0, então não será exibida nenhuma exceção, coloque qualquer outro número diferente de 0 no final e ele irá exibir o dígito correto.

 

Como já disse, o ACBrValidador é para VALIDAR informações e não para gerar dígitos, vc pode alterá-lo pra sua necessidade, mas ele não foi desenvolvido com essa finalidade.

[luciano_f]

 Deixa eu ver se entendi ele só exibe o digito caso o código de barras seja invalido caso contrario ele só valida e não exibe o digito 

 

 então porque a propriedade para exibir o digito ?  para mim que ele iria exibir o digito em qualquer situação

[EMBarbosa]

Só há necessidade de exibir o dígito caso ele tenha sido inserido de forma incorreta. Caso o dígito tenha sido válido, você já sabe qual é e não há necessidade do componente lhe dizer novamente.

[luciano_f]

 Colegas muito grato pela atenção e me desculpem pela minha ignorancia

 

 que vergonha.

 

 rs rs rs rs rs rs

Editado 4 Outubro, 2013 por luciano_f