Контрольная цифра в EAN13
Добавлено: Вт май 16, 2017 8:18 pm
Алифов Эльчин
нужна печатная форма или часть кода который высчитывает по формуле 13 цифру контрольную
и добавляет ее 13 символом к 12 значному штрих коду
Описание расчета контрольной суммы внизу страницы по это ссылке
http://magenta.su/articles/18.html
Re: Контрольная цифра в EAN13
Добавлено: Ср май 17, 2017 2:10 pm
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 позиций в печатной форме
Добавлено: Пн июн 12, 2017 6:37 pm
Алифов Эльчин
в ассортименте если выделено больше 1500 позиций то выходит ошибка на фото
- photo_2017-06-12_22-31-03.jpg (96.2 КБ) 12664 просмотра
как это исправить?