нужна печатная форма или часть кода который высчитывает по формуле 13 цифру контрольную
и добавляет ее 13 символом к 12 значному штрих коду
Описание расчета контрольной суммы внизу страницы по это ссылке
http://magenta.su/articles/18.html
Контрольная цифра в EAN13
-
- Сообщения: 32
- Зарегистрирован: Чт апр 13, 2017 1:10 pm
Re: Контрольная цифра в EAN13
Вот процедура на 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 КБ) 869 скачиваний
-
- Сообщения: 32
- Зарегистрирован: Чт апр 13, 2017 1:10 pm
1500 позиций в печатной форме
в ассортименте если выделено больше 1500 позиций то выходит ошибка на фото
как это исправить?
как это исправить?
Вернуться в «Аналитика и отчеты в Меркурий-ERP»
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и 3 гостя