Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
16 апр 2024, 22:13

Как доработать обработку frATOL54_comm.ert что бы на чеке печатался тип платежа электронно?

Автор Azelle, 20 апр 2017, 13:00

0 Пользователей и 1 гость просматривают эту тему.

Azelle

Подскажите пожалуйста! Имеем на фирме ТИС 7.7 и  кассу АТОЛ 30Ф, отдельно стоит терминал для оплаты по карточкам, терминал и касса никак не связаны. Для электронной оплаты в 1с установлен отдел отличный от оплаты наличными. Как доработать обработку frATOL54_comm.ert что бы на чеке печатался тип платежа электронно, в зависимости от выбранного отдела в чеке 1С? Раньше такая доработка была сделана в обработке fr_comm.ert для старых касс.

Azelle

В общем удалось разобраться, ответ такой, в обработке есть параметры XMLPayments

XMLPayments   = XMLCheckPackage.СоздатьПодчиненныйЭлемент("Payments");
   Атрибут(XMLPayments, "Cash", Макс(СуммаЧека, Получено));
   Атрибут(XMLPayments, "CashLessType1", "0");
   Атрибут(XMLPayments, "CashLessType2", "0");
   Атрибут(XMLPayments, "CashLessType3", "0");
XMLДанныеЧека.Записать(КаталогПользователя() + "FRAtol_001.xml");

Cash - это наличные, CashLessType1 - тип оплаты 1, который можно настроить в драйвере, CashLessType2 - это 2 тип оплаты, CashLessType3 - это третий.
   
Пример кода:
   Если НомерСекции = 5 Тогда  //оплата электронными 
      XMLPayments   = XMLCheckPackage.СоздатьПодчиненныйЭлемент("Payments");
      Атрибут(XMLPayments, "Cash", "0");
      Атрибут(XMLPayments, "CashLessType1", Макс(СуммаЧека, Получено));
      Атрибут(XMLPayments, "CashLessType2", "0");
      Атрибут(XMLPayments, "CashLessType3", "0");
      XMLДанныеЧека.Записать(КаталогПользователя() + "FRAtol_001.xml");
    Иначе  //оплата наличными
      XMLPayments   = XMLCheckPackage.СоздатьПодчиненныйЭлемент("Payments");
      Атрибут(XMLPayments, "Cash", Макс(СуммаЧека, Получено));
      Атрибут(XMLPayments, "CashLessType1", "0");
      Атрибут(XMLPayments, "CashLessType2", "0");
      Атрибут(XMLPayments, "CashLessType3", "0");
      XMLДанныеЧека.Записать(КаталогПользователя() + "FRAtol_001.xml");
    КонецЕсли;
   

Похожие темы (5)

Рейтинг@Mail.ru

Поиск