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

[Алифов Эльчин]

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

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

[admin]

Вот процедура на 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;


И в качестве примера использования - печатная форма для справочника ассортимента.

[Алифов Эльчин]

в ассортименте если выделено больше 1500 позиций то выходит ошибка на фото

photo_2017-06-12_22-31-03.jpg (96.2 КБ) 27004 просмотра

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