Проблема при подключение фискального регистратора

Вот Процедура запуска
Процедура ЗапускИнтерфейсаКассира(глТекущийПользователь, ВключенИнтерфейсКассира)
ПользовательИБ = ПользователиИнформационнойБазы.ТекущийПользователь();

Если ПользовательИБ <> Неопределено
И ПользовательИБ.ОсновнойИнтерфейс <> Неопределено
И ПользовательИБ.ОсновнойИнтерфейс.Имя = "ИнтерфейсКассира" Тогда //Задействуем интерфейс кассира

ВключенИнтерфейсКассира = Истина;
Администратор = Ложь;
Кассир = Ложь;

Для каждого ТекИнтерфейс Из ГлавныйИнтерфейс Цикл
ТекИнтерфейс.Переключаемый = Ложь;
ТекИнтерфейс.Видимость = Ложь;
КонецЦикла;
ИнтерфейсКассира = ГлавныйИнтерфейс.ИнтерфейсКассира;
ИнтерфейсКассира.Переключаемый = Истина;
ИнтерфейсКассира.Видимость = Истина;

Если РольДоступна("АдминистраторККМ") Тогда //Администратор

Администратор = Истина;

ИначеЕсли РольДоступна("ОператорККМ") Тогда //Кассир

Кассир = Истина;

КонецЕсли;

Отказ = Ложь;
Причина = "";
КассаККМ = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, "ОсновнаяКассаККМ");
Если КассаККМ = Справочники.КассыККМ.ПустаяСсылка() Тогда
Предупреждение("Для пользователя """+ глТекущийПользователь +""" не выбрана касса по умолчанию!");
Отказ = Истина;
Причина = "Не выбрана касса по умолчанию";
КонецЕсли;

Склад = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глТекущийПользователь, "ОсновнойСклад");
Если Склад = Неопределено
Или Склад = Справочники.Склады.ПустаяСсылка() Тогда
Предупреждение("Для пользователя """+ глТекущийПользователь +""" не выбран склад по умолчанию!");
Отказ = Истина;
Причина = "Не выбран склад по умолчанию";
КонецЕсли;
ФР = Неопределено;

Если Не Отказ Тогда
МассивФР = ПолучитьСерверТО().ПолучитьСписокУстройств(Перечисления.ВидыТорговогоОборудования.ФискальныйРегистратор, КассаККМ);

Если МассивФР.Количество() <> 0 Тогда
Если Склад.НомерСекции = 0 Тогда
Предупреждение("У склада: """ + Склад + """не указан номер секции!");
Отказ = Истина;
Причина = "У склада не указан номер секции";
КонецЕсли;

Иначе
Предупреждение("У кассы: """ + КассаККМ + """, для компьютера: """ + ПолучитьСерверТО().ПолучитьИмяКомпьютераТО() + """, фискальный регистратор не установлен!");
Отказ = Истина;
Причина = "У кассы не установлен ФР";
КонецЕсли;
КонецЕсли;

//Проверка если разрешено подключать интерефейс без подключённого ФР то пускай подключает
Если Отказ И (Причина = "У кассы не установлен ФР") И (УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ПодключатьИнтерефейсКассираБезПодключённогоФР")) Тогда
Отказ = Ложь;
КонецЕсли;

Если Не Отказ Тогда

Документы.ЧекККМ.СоздатьДокумент().ПолучитьФорму("ФормаРегистрацииПродаж",).Открыть();

ИначеЕсли Администратор Тогда

Предупреждение("Зайдите с правами администратора кассы.");
Если Причина = "ФР не подключен"
Или Причина = "ТО не подключено"
Или Причина = "У кассы не установлен ФР" Тогда
ФормаПодключенияОборудования = Обработки.ТОНастройка.ПолучитьФорму();
ФормаПодключенияОборудования.Открыть();
КонецЕсли;
ЗавершитьРаботуСистемы();

ИначеЕсли Кассир Тогда

Если Причина = "ФР не подключен"
Или Причина = "ТО не подключено"
Или Причина = "У кассы не установлен ФР" Тогда
Предупреждение("Зайдите с правами администратора кассы.");
КонецЕсли;

ЗавершитьРаботуСистемы();

КонецЕсли;
КонецЕсли;
КонецПроцедуры