Дополнительная информация в чеке (Штрих-М)

Тема в разделе "Торговое оборудование в 1С", создана пользователем Сергей Ленский, 13 дек 2018.

  1. TopicStarter Overlay
    Сергей Ленский
    Offline

    Сергей Ленский Опытный в 1С

    Регистрация:
    17 окт 2017
    Сообщения:
    104
    Симпатии:
    1
    Баллы:
    29
    Добрый день, дорогие однофорумчане!

    Кто знает, как реализовать печать дополнительной информации с отрезкой в конце чека? ККТ Штрих-М, 1С УТ 10.3 (8.1)? Т.е. Печатается стандартный чек, отрезается, печатается определенный штрих-код, отрезается. Как без отрезки и шк сделать, я знаю, а остальное хз...
  2. Victor031
    Offline

    Victor031 Опытный в 1С

    Регистрация:
    25 янв 2016
    Сообщения:
    63
    Симпатии:
    1
    Баллы:
    29
    Здравствуйте, Сергей! Я Знаю!
    Буквально на днях делал. Вот кусок готового кода:

    МояСтрока= МенеджерОборудованияКлиентСервер.ПараметрыТекстовойСтрокиЧека();
    МояСтрока.Текст = "
    |__________________________________
    |СКИДКА
    |35%
    |на все джинсы
    |
    |
    |Предъявите купон
    |С 1 мая по 31 мая 2019 г.
    |И получите скидку 35% на джинсы
    |";
    МояСтрока.ПереносСтроки = Ложь;
    МояСтрока.Выравнивание = "Центр";
    ПозицииЧека.Добавить(МояСтрока);

    МояСтрокаШтрихКод = МенеджерОборудованияКлиентСервер.ПараметрыШтрихкодВСтрокеЧека("EAN13","123456");
    ПозицииЧека.Добавить(МояСтрокаШтрихКод);

    МояСтрока= МенеджерОборудованияКлиентСервер.ПараметрыТекстовойСтрокиЧека();
    МояСтрока.Текст = "
    |
    |
    |__________________________________" ;
    МояСтрока.ПереносСтроки = Ложь;
    МояСтрока.Выравнивание = "Центр";
    ПозицииЧека.Добавить(МояСтрока);

    мДокументов.Добавить(ПозицииЧека);

    МассивСтрок = новый Массив;
    МассивСтрок.Добавить(ПозицииЧека);

    СтрокаДляПечати = "";
    Для Каждого СтрокаТекста Из МассивСтрок Цикл
    СтрокаДляПечати = СтрокаДляПечати + СтрокаТекста + Символы.ПС;
    КонецЦикла;

    мВходныеПараметры.Очистить();
    мВходныеПараметры.Добавить(мДокументов);
    мПараметрыУстройства = ПараметрыКассыККМ;

    РезультатВыполнения = ПодключаемоеОборудованиеУниверсальныйДрайверКлиент.ВыполнитьКоманду("PrintTextDocument",
    мВходныеПараметры, мВыходныеПараметры, ОбъектДрайвера, мПараметрыУстройства, ПараметрыПодключения);
    --- Объединение сообщений, 30 апр 2019 ---
    Весь смысл в том, что бы послать подключаемому оборудованию команду PrintTextDocument
    Сергей Ленский нравится это.
  3. TopicStarter Overlay
    Сергей Ленский
    Offline

    Сергей Ленский Опытный в 1С

    Регистрация:
    17 окт 2017
    Сообщения:
    104
    Симпатии:
    1
    Баллы:
    29
    Огонь. Огромнейшее спасибо!!!!
  4. TopicStarter Overlay
    Сергей Ленский
    Offline

    Сергей Ленский Опытный в 1С

    Регистрация:
    17 окт 2017
    Сообщения:
    104
    Симпатии:
    1
    Баллы:
    29
    Что-то у меня пошло не так...

    Переменная ПозицииЧека откуда берется? По факту нам хотелось так: нажал кнопку в 1С, а у тебя из кассы вылез купон на скидку.