ТИС документ ЧекККМ добавить типы оплаты, для обработки ФР Атолл
Подскажите, я совсем новичок в 1С, требуется шо бы при печати чека на ФР Атолл выходил тип оплаты. Как я понимаю если на форму Документ ЧекККМ кинуть флажок и например обозвать идетификатор ПризнакПластиковойКарты, и в коде моддуля формы Документ-ЧекККМ пишем:
Перем Пластик
Если ПризнакПластиковойКарты = 1 Тогда
Пластик = ТипОплаты1;
Иначе
Пластик = ТипОплаты2;
А дальше значение пластика передавать в обработку ??? или же не так.....
Перем Пластик
Если ПризнакПластиковойКарты = 1 Тогда
Пластик = ТипОплаты1;
Иначе
Пластик = ТипОплаты2;
А дальше значение пластика передавать в обработку ??? или же не так.....
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
1) Добавим реквизит в Модуль Форма-Документа.ЧекККМ и назовем его например: Безнал
в этом же модуле напишем в функции ПробитьЧекНаККМ ,отслеживаем доступность флага Безнал
Если Безнал >0 Тогда
ПолученоБезнал=1;
Иначе
ПолученоБезнал=0;
КонецЕсли;
далее эту муть (ПолученоБезнал) передаем и надо прописать
ЧекПробитККМ = глФРПечататьЧек(СписокТоваров, СуммаЧека, Получено, Скидка, ПризнВозврата, НомерСекции, НомерЧека, ПолученоБезнал)
2) в обработке fr_comm.ert добавляем в функции ПечататьЧек(Объект, Пароль, СписокТоваров, СуммаЧека, Получено, Скидка, ПризнВозврата, НомерСекции, НомерЧека, ДлинаСтроки, ПолученоБезНал)
и ниже добавляем
перед "Объект.Возврат();" (стр.188) добавляешь (иначе может не дать вернуть, если оплата/возврат были только по карточке, скажет, что наличных не хватает в кассе):
Если ПолученоБезНал > 0 Тогда
Объект.EnableCheckSumm = 0;
Иначе
Объект.EnableCheckSumm = 1;
КонецЕсли;
*****************************************************************
перед "Объект.Department = НомерСекции;" (стр.246) добавляешь код:
ПолученоНал = Получено - ПолученоБезНал;
Если ПолученоНал > 0 Тогда
Объект.Summ = ПолученоНал;
//тип закрытия - наличка
Объект.TypeClose = 0;
Объект.Payment();
Если Объект.ResultCode <> 0 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
Объект.CancelCheck();
ОтключитьсяОтФР(Объект, 0);
Возврат 0;
КонецЕсли;
КонецЕсли;
Если ПолученоБезНал > 0 Тогда
Объект.Summ = ПолученоБезНал;
//тип закрытия 1 из настроек ФР (прописываешь пластик)
Объект.TypeClose = 1;
Объект.Payment();
Если Объект.ResultCode <> 0 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
Объект.CancelCheck();
ОтключитьсяОтФР(Объект, 0);
Возврат 0;
КонецЕсли;
КонецЕсли;"<
МММ теперь подскажите правильно я передаю признак ПолученоБезнал, ну то есть состояние флажка??????
в этом же модуле напишем в функции ПробитьЧекНаККМ ,отслеживаем доступность флага Безнал
Если Безнал >0 Тогда
ПолученоБезнал=1;
Иначе
ПолученоБезнал=0;
КонецЕсли;
далее эту муть (ПолученоБезнал) передаем и надо прописать
ЧекПробитККМ = глФРПечататьЧек(СписокТоваров, СуммаЧека, Получено, Скидка, ПризнВозврата, НомерСекции, НомерЧека, ПолученоБезнал)
2) в обработке fr_comm.ert добавляем в функции ПечататьЧек(Объект, Пароль, СписокТоваров, СуммаЧека, Получено, Скидка, ПризнВозврата, НомерСекции, НомерЧека, ДлинаСтроки, ПолученоБезНал)
и ниже добавляем
перед "Объект.Возврат();" (стр.188) добавляешь (иначе может не дать вернуть, если оплата/возврат были только по карточке, скажет, что наличных не хватает в кассе):
Если ПолученоБезНал > 0 Тогда
Объект.EnableCheckSumm = 0;
Иначе
Объект.EnableCheckSumm = 1;
КонецЕсли;
*****************************************************************
перед "Объект.Department = НомерСекции;" (стр.246) добавляешь код:
ПолученоНал = Получено - ПолученоБезНал;
Если ПолученоНал > 0 Тогда
Объект.Summ = ПолученоНал;
//тип закрытия - наличка
Объект.TypeClose = 0;
Объект.Payment();
Если Объект.ResultCode <> 0 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
Объект.CancelCheck();
ОтключитьсяОтФР(Объект, 0);
Возврат 0;
КонецЕсли;
КонецЕсли;
Если ПолученоБезНал > 0 Тогда
Объект.Summ = ПолученоБезНал;
//тип закрытия 1 из настроек ФР (прописываешь пластик)
Объект.TypeClose = 1;
Объект.Payment();
Если Объект.ResultCode <> 0 Тогда
ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
Объект.CancelCheck();
ОтключитьсяОтФР(Объект, 0);
Возврат 0;
КонецЕсли;
КонецЕсли;"<
МММ теперь подскажите правильно я передаю признак ПолученоБезнал, ну то есть состояние флажка??????
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот