И для открытия через форму документа ЧекККМ нужно на ней дополнительно добавить:
//Для открытия денежного ящика
Перем мФУ;
Перем мВидФУ;
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
//Для открытия денежного ящика
ПолучитьСерверТО().ПодключитьКлиента(ЭтаФорма);
Запрос = Новый Запрос("
|ВЫБРАТЬ
| НастройкиПользователей.Значение
|ИЗ
| РегистрСведений.НастройкиПользователей КАК НастройкиПользователей
|ГДЕ
| НастройкиПользователей.Пользователь = &Пользователь
| И НастройкиПользователей.Настройка = &Настройка
|");
Запрос.УстановитьПараметр("Пользователь", ПараметрыСеанса.ТекущийПользователь);
Запрос.УстановитьПараметр("Настройка" , ПланыВидовХарактеристик.НастройкиПользователей.ОсновнаяКассаККМ);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
КассаККМ = Выборка.Значение;
КонецЕсли;
МассивФР = ПолучитьСерверТО().ПолучитьСписокУстройств(
Перечисления.ВидыТорговогоОборудования.ФискальныйРегистратор,
КассаККМ);
МассивККТ = ПолучитьСерверТО().ПолучитьСписокУстройств(
Перечисления.ВидыТорговогоОборудования.ККТ,
КассаККМ);
МассивФУ = Новый Массив();
ОбщегоНазначенияКлиентСервер.ДополнитьМассив(МассивФУ, МассивФР);
ОбщегоНазначенияКлиентСервер.ДополнитьМассив(МассивФУ, МассивККТ);
КоличествоФУ = МассивФУ.Количество();
Если КоличествоФУ = 0
И Не КассаККМ.ФормироватьНефискальныеЧеки Тогда
Предупреждение("Фискальный регистратор не подключен!");
Отказ = Истина;
Возврат;
ИначеЕсли КоличествоФУ = 1 Тогда
мФУ = МассивФУ[0];
ИначеЕсли КоличествоФУ > 1 Тогда
СписокФУ = РаботаСТорговымОборудованием.ПолучитьСписокУстройствТОДляВыбора(МассивФУ);
мФУ = СписокФУ.ВыбратьЭлемент("Необходимо выбрать фискальный регистратор:");
Если мФУ = Неопределено Тогда
Предупреждение("Выбор фискального регистратора не был осуществлен.
|Продолжение работы невозможно.");
Отказ = Истина;
Возврат;
КонецЕсли;
мФУ = мФУ.Значение;
КонецЕсли;
мВидФУ = ПолучитьСерверТО().ПолучитьВид(мФУ);
Если УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ПарольАдминистратораФискальногоРегистратора") <> 0 Тогда
ЭлементыФормы.НадписьТекущийПользователь.Заголовок = "Администратор: " + глЗначениеПеременной("глТекущийПользователь");
ИначеЕсли УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ПарольКассираФискальногоРегистратора") <> 0 Тогда
ЭлементыФормы.НадписьТекущийПользователь.Заголовок = "Кассир: " + глЗначениеПеременной("глТекущийПользователь");
КонецЕсли;
КонецПроцедуры // ПередОткрытием()
Показать