Validador EAN ou GTIN

[Helio Beltrao Jr.]

Bom dia,

Gostaria de saber se tem ou se tem previsao para colocar um validador de EAN ou GTIN no ACBRMONITORPLUS ?

[Helio Beltrao Jr.]

Boa tarde,

Nao sabia porque tem o ACBR SAC e o FREE por isso que postei aqui no SAC 

Desculpe 

[Juliana Tamizou]

Boa tarde. 

 Não entendi sua segunda postagem, de qualquer forma ainda não tem nada nos planos de curto prazo para essa implementação.

Att.

[Helio Beltrao Jr.]

Boa tarde,

Foi porque postei em outro lugar e o Felipe Resende reclamou mais nao sabia ok

 

[Felipe E. Resende Mesquita]

35 minutos atrás, Helio Beltrao Jr. disse:

Boa tarde,

Foi porque postei em outro lugar e o Felipe Resende reclamou mais nao sabia ok

 

Boa tarde, Helio Beltrao Jr..

Eu não reclamei, só realizei os procedimentos básicos, conforme as regras do fórum, peço desculpas e que não entenda como uma advertência.

[Daniel Simoes]

A validação do GTIN é uma rotina bem simples... Veja:

procedure TACBrValidador.ValidarGTIN;
var
  DigOriginal, DigCalculado, Codigo: String;

  function CalcularDV(ACodigoGTIN: String): String;
  var
    Dig, I, DV: Integer;
  begin
    DV := 0;
    Result := '' ;

    // adicionar os zeros a esquerda, se não fizer isso o cálculo não bate
    // limite = tamanho maior codigo (gtin14) - 1 (digito)
    ACodigoGTIN := PadLeft(ACodigoGTIN, 13, '0');

    for I := Length(ACodigoGTIN) downto 1 do
    begin
      Dig := StrToInt(ACodigoGTIN[I]);
      DV  := DV + (Dig * IfThen(odd(I), 3, 1));
    end;

    DV := (Ceil(DV / 10) * 10) - DV ;
    Result := IntToStr(DV);
  end;

begin
  if not StrIsNumber(fsDocto) then
  begin
    fsMsgErro := 'Código GTIN inválido, o código GTIN deve conter somente números.' ;
    Exit;
  end;

  if not(Length(fsDocto) in [8, 12, 13, 14]) then
  begin
    fsMsgErro := 'Código GTIN inválido, o código GTIN deve ter 8, 12, 13 ou 14 caracteres.' ;
    Exit;
  end;

  Codigo       := Copy(fsDocto, 1, Length(fsDocto) - 1);
  DigOriginal  := fsDocto[Length(fsDocto)];
  DigCalculado := CalcularDV(Codigo);

  fsDigitoCalculado := DigCalculado;
  if DigOriginal <> DigCalculado then
  begin
   fsMsgErro := 'Código GTIN inválido.' ;

   if fsExibeDigitoCorreto then
     fsMsgErro := fsMsgErro + ' Dígito calculado: ' + fsDigitoCalculado ;
  end;
end; 

Creio que algo semelhante seja facilmente adaptado para outras linguagens...

[Helio Beltrao Jr.]

Boa noite, Felipe

Beleza valeu

Boa noite,

Valeu Daniel vou ver se consigo adaptar ao meu sistema