Показано с 1 по 2 из 2

Тема: Формирование номера электронной очереди в чеке

  1. #1
    Разбирающийся
    Регистрация
    07.02.2018
    Адрес
    Ижевск
    Сообщений
    130
    Поблагодарил(а)
    45
    Благодарностей: 13 (сообщений: 12)

    Post Формирование номера электронной очереди в чеке

    Есть необходимость печатать в чеке номер в очереди крупным шрифтом, например вот так:

    QIP Shot - Screen 202.png

    В макете есть скрипт который организует данное преобразование https://dropmefiles.com/uP4YD

    Сам скрипт:

    PHP код:
    var iiinteger;    jjinteger;beginif memo3.tag=0 thenbeginchnum0:=IntTostr(([System.Кассовыйсервер.Идентификатор] and $ffffshl 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,1of    '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 
    Вставляю скрипт в свой макет чека, ничего не печатает, пустая строка, принтер Атол. При импорте исходного макета, тоже номер не печатается. Есть инфа что с Атолами данный скрипт не работает. У кого нить получилось сие реализовать?

  2. #2
    Разбирающийся
    Регистрация
    07.02.2018
    Адрес
    Ижевск
    Сообщений
    130
    Поблагодарил(а)
    45
    Благодарностей: 13 (сообщений: 12)
    Сам себе отвечу Принтер не понимает эту строку <AnyHex FB> заменил на #.

    Пример:

    QIP Shot - Screen 203.png

    Работает, но нужно в свойствах макета поставить галку на "два прохода", иначе несколько номеров в одном чеке печатает. Так же нужно объявлять переменные chnum, chnum0, resstr, либо в свойствах макета или в скрипте через var.

  3. 2 пользователей сказали cпасибо pixnet за это полезное сообщение:

    Leon44 (16.10.2020),sibgaba (26.10.2020)

Похожие темы

  1. Ответов: 0
    Последнее сообщение: 19.03.2020, 19:33
  2. Очистка очереди печати
    от manager в разделе Сервис-печать в R-Keeper 7
    Ответов: 2
    Последнее сообщение: 09.03.2018, 17:15
  3. Нетиповая задача по использованию электронной очереди.
    от Мишка на сервере в разделе Киоски самообслуживания, электронная очередь
    Ответов: 11
    Последнее сообщение: 23.11.2015, 00:01
  4. формирование отчета стоимости товара
    от Карибы в разделе Дизайнер отчетов, печатные формы Storehouse
    Ответов: 3
    Последнее сообщение: 19.11.2015, 18:44
  5. Формирование сличительной ведомости
    от michal3003 в разделе StoreHouse
    Ответов: 1
    Последнее сообщение: 28.10.2015, 15:59

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •