Контрольная цифра в EAN13

Обсуждение и вопросы по аналитической подсистеме Меркурий-ERP
Алифов Эльчин
Сообщения: 32
Зарегистрирован: Чт апр 13, 2017 1:10 pm

Контрольная цифра в EAN13

Сообщение Алифов Эльчин » Вт май 16, 2017 8:18 pm

нужна печатная форма или часть кода который высчитывает по формуле 13 цифру контрольную
и добавляет ее 13 символом к 12 значному штрих коду

Описание расчета контрольной суммы внизу страницы по это ссылке
http://magenta.su/articles/18.html

Аватара пользователя
admin
Site Admin
Сообщения: 123
Зарегистрирован: Ср апр 05, 2017 6:05 pm

Re: Контрольная цифра в EAN13

Сообщение admin » Ср май 17, 2017 2:10 pm

Вот процедура на FastReport, которая считает EAN13 контрольную цифру:

Код: Выделить всё

procedure Memo11OnBeforePrint(Sender: TfrxComponent);
var
  scan:string;
  hash:integer;
  s1:integer;
  s2:integer;                         
begin
scan:=<data4print."scancod_main">;                 
  if length(scan)=12 then
  begin
    s2:=strtoint(scan[2])+strtoint(scan[4])+strtoint(scan[6])+strtoint(scan[8])+strtoint(scan[10])+strtoint(scan[12]);
    s2:=s2*3;
    s1:=strtoint(scan[1])+strtoint(scan[3])+strtoint(scan[5])+strtoint(scan[7])+strtoint(scan[9])+strtoint(scan[11]);
    hash:=s1+s2;
    if hash<=99 then hash:=10-(hash-round((hash-5)/10)*10) else hash:=10-(hash-round((hash-5)/100)*100);
    memo11.Text:=scan+inttostr(hash);                               
  end else
  begin
    memo11.text:=scan;                                   
  end;           
end;


И в качестве примера использования - печатная форма для справочника ассортимента.
Вложения
Перечень наименований добавить КЦ.rar
(11.74 КБ) 846 скачиваний

Алифов Эльчин
Сообщения: 32
Зарегистрирован: Чт апр 13, 2017 1:10 pm

1500 позиций в печатной форме

Сообщение Алифов Эльчин » Пн июн 12, 2017 6:37 pm

в ассортименте если выделено больше 1500 позиций то выходит ошибка на фото
photo_2017-06-12_22-31-03.jpg
photo_2017-06-12_22-31-03.jpg (96.2 КБ) 12376 просмотров

как это исправить?


Вернуться в «Аналитика и отчеты в Меркурий-ERP»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 7 гостей