Codigo de barras

[dpaulabh]

Preciso gerar um codigo de barra para qualquer numeracao:

Exemplo

123456

12345467891123

123

Ja pesquisei o manual EPL2 e nao consegui localizar um tipo que atenda minha demanda. Alguem já fez isso? Algue sabe o tipo de código que gera para qualquer número?

Obrigado!

[giulianon]

Preciso gerar um codigo de barra para qualquer numeracao:

Exemplo

123456

12345467891123

123

Ja pesquisei o manual EPL2 e nao consegui localizar um tipo que atenda minha demanda. Alguem já fez isso? Algue sabe o tipo de código que gera para qualquer número?

Obrigado!

Eu gero codigos de barra EAN válidos para um número qualquer. Na verdade gero o dígito verificador. Não sei se é isso que você precisa.

Segue a rotina.

Function geraEAN13(Code: String): String;

var

  CheckSum, EANCode : String;

  Tmp2, Tmp, VerifyDigit : integer;

begin

  //EANCode := '613'+DupeString('0',9-length(intToStr(code)))+intToStr(code);

  EANCode := DupeString('0',12-length(code))+code;

  CheckSum := '131313131313';

  Tmp2 := 0;

  For Tmp := 1 to Length(EANCode) do

    Tmp2 := Tmp2 + (StrToInt (Copy (EANCode, Tmp, 1)) * StrToInt (Copy(CheckSum, Tmp, 1)));

  Tmp2 := Tmp2 mod 10;

  Tmp2 := 10 - Tmp2;

  VerifyDigit := StrToInt (Copy (IntToStr(Tmp2), Length(IntToStr(Tmp2)),1));

  EanCode := StringReplace(TrimLeft(StringReplace(EanCode,'0',' ',[rfReplaceAll	])),' ','0',[rfReplaceAll]);

  result := EANCode + intToStr(Verifydigit);

end;