Формирование номера электронной очереди в чеке
Есть необходимость печатать в чеке номер в очереди крупным шрифтом, например вот так:
QIP Shot - Screen 202.png
В макете есть скрипт который организует данное преобразование https://dropmefiles.com/uP4YD
Сам скрипт:
Вставляю скрипт в свой макет чека, ничего не печатает, пустая строка, принтер Атол. При импорте исходного макета, тоже номер не печатается. Есть инфа что с Атолами данный скрипт не работает. У кого нить получилось сие реализовать?PHP код:var ii: integer; jj: integer;beginif memo3.tag=0 thenbeginchnum0:=IntTostr(([System.Кассовыйсервер.Идентификатор] and $ffff) shl 16 or ([Порядковыйномер] mod 10000));memo3.tag:=Length(chnum0); chnum:=Chr(([Чеки.Станцияпечати.Код])+65-1)+'-'+copy((chnum0),length(chnum0)-1,2);for jj:=1 to 7 dobegin resstr:=''; for ii:=1 to memo3.tag do begin case copy(chnum,ii,1) of '1': begin if jj=1 then resstr:=resstr+' <AnyHex FB> '; if jj=2 then resstr:=resstr+' <AnyHex FB><AnyHex FB> '; if jj=3 then resstr:=resstr+' <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB> '; if jj=5 then resstr:=resstr+' <AnyHex FB> '; if jj=6 then resstr:=resstr+' <AnyHex FB> '; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB>'; end; '2': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB>'; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB> '; if jj=6 then resstr:=resstr+' <AnyHex FB> '; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; end; '3': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB>'; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; end;'4': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB> '; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB> '; if jj=3 then resstr:=resstr+' <AnyHex FB> <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB> '; if jj=6 then resstr:=resstr+' <AnyHex FB> '; if jj=7 then resstr:=resstr+' <AnyHex FB> '; end;'5': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> '; if jj=3 then resstr:=resstr+' <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; end;'6': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; end;'7': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB> '; if jj=5 then resstr:=resstr+' <AnyHex FB> '; if jj=6 then resstr:=resstr+' <AnyHex FB> '; if jj=7 then resstr:=resstr+' <AnyHex FB> '; end;'8': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; end;'9': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; end;'0': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=4 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; end;'A': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; end; 'B': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB> '; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB> '; if jj=5 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB> '; end; 'C': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB> '; if jj=5 then resstr:=resstr+' <AnyHex FB> '; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; end; 'D': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB> '; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=4 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB> '; end; 'E': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> '; if jj=3 then resstr:=resstr+' <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB> '; if jj=5 then resstr:=resstr+' <AnyHex FB> '; if jj=6 then resstr:=resstr+' <AnyHex FB> '; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; end; 'F': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> '; if jj=3 then resstr:=resstr+' <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB> '; if jj=5 then resstr:=resstr+' <AnyHex FB> '; if jj=6 then resstr:=resstr+' <AnyHex FB> '; if jj=7 then resstr:=resstr+' <AnyHex FB> '; end; 'G': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB> '; if jj=5 then resstr:=resstr+' <AnyHex FB> <AnyHex FB><AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; end; 'H': begin if jj=1 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=3 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=5 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; if jj=7 then resstr:=resstr+' <AnyHex FB> <AnyHex FB>'; end; 'I': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> '; if jj=3 then resstr:=resstr+' <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB> '; if jj=5 then resstr:=resstr+' <AnyHex FB> '; if jj=6 then resstr:=resstr+' <AnyHex FB> '; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB>'; end; 'J': begin if jj=1 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=2 then resstr:=resstr+' <AnyHex FB> '; if jj=3 then resstr:=resstr+' <AnyHex FB> '; if jj=4 then resstr:=resstr+' <AnyHex FB> '; if jj=5 then resstr:=resstr+' <AnyHex FB> '; if jj=6 then resstr:=resstr+' <AnyHex FB> <AnyHex FB> '; if jj=7 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB> '; end; '-': begin if jj=1 then resstr:=resstr+' '; if jj=2 then resstr:=resstr+' '; if jj=3 then resstr:=resstr+' '; if jj=4 then resstr:=resstr+' <AnyHex FB><AnyHex FB><AnyHex FB>'; if jj=5 then resstr:=resstr+' '; if jj=6 then resstr:=resstr+' '; if jj=7 then resstr:=resstr+' '; end; end; end; memo3.content.add(resstr);end;
memo3.tag:=length(trim(chnum0))-1;END;end
Ответить с цитированием