Не сохраняются настройки принтера этикеток

&ИзменениеИКонтроль("СформироватьПечатныеФормыЭтикетокИЦенниковТоваров")
Процедура СТ_СформироватьПечатныеФормыЭтикетокИЦенниковТоваров1(ДанныеПечати, ОбъектыПечати, КоллекцияПечатныхФормБСП)

    ИсходныеДанные = ПолучитьИзВременногоХранилища(ДанныеПечати.Товары);

    НужноПечататьЭтикетки = Ложь;
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФормБСП, "ЭтикеткаТовары") Тогда
        НужноПечататьЭтикетки = Истина;
        КоллекцияПечатныхФормБСП.Удалить(КоллекцияПечатныхФормБСП.Найти(ВРег("ЭтикеткаТовары"), "ИмяВРЕГ"));
    КонецЕсли;

    НужноПечататьЦенники = Ложь;
    Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФормБСП, "ЦенникТовары") Тогда
        НужноПечататьЦенники = Истина;
        КоллекцияПечатныхФормБСП.Удалить(КоллекцияПечатныхФормБСП.Найти(ВРег("ЦенникТовары"), "ИмяВРЕГ"));
    КонецЕсли;

    СтруктураНастроек = СтруктураНастроек();
    СтруктураНастроек.ОбязательныеПоля.Добавить("КоличествоЦенниковДляПечати");
    СтруктураНастроек.ОбязательныеПоля.Добавить("КоличествоЭтикетокДляПечати");
    СтруктураНастроек.ОбязательныеПоля.Добавить("ШаблонЦенникаДляПечати");
    СтруктураНастроек.ОбязательныеПоля.Добавить("ШаблонЭтикеткиДляПечати");
    СтруктураНастроек.ОбязательныеПоля.Добавить("Номенклатура");
    Если ПолучитьФункциональнуюОпцию("ИспользоватьХарактеристикиНоменклатуры") Тогда
        СтруктураНастроек.ОбязательныеПоля.Добавить("Характеристика");
    КонецЕсли;
    Если ПолучитьФункциональнуюОпцию("ИспользоватьУпаковкиНоменклатуры") Тогда
        СтруктураНастроек.ОбязательныеПоля.Добавить("Упаковка");
    КонецЕсли;

    СтруктураНастроек.ИмяМакетаСхемыКомпоновкиДанных = "ПоляШаблонаПечатьТовары";

    // Собираем используемые поля из шаблонов.
    СоответствиеШаблонов = Новый Соответствие;
    Для Каждого СтрокаТЧ Из ИсходныеДанные Цикл
        Если ЗначениеЗаполнено(СтрокаТЧ.ШаблонЭтикетки) И СтрокаТЧ.КоличествоЭтикеток > 0 И НужноПечататьЭтикетки Тогда
            СоответствиеШаблонов.Вставить(СтрокаТЧ.ШаблонЭтикетки);
        КонецЕсли;
        Если ЗначениеЗаполнено(СтрокаТЧ.ШаблонЦенника) И СтрокаТЧ.КоличествоЦенников > 0 И НужноПечататьЦенники Тогда
            СоответствиеШаблонов.Вставить(СтрокаТЧ.ШаблонЦенника);
        КонецЕсли;
    КонецЦикла;
    Если ДанныеПечати.Свойство("СтруктураМакетаШаблона") И ЗначениеЗаполнено(ДанныеПечати.СтруктураМакетаШаблона) Тогда
        СоответствиеШаблонов.Вставить(Справочники.ШаблоныЭтикетокИЦенников.ПустаяСсылка());
    КонецЕсли;

    // Заполняем коллекцию обязательных полей и формируем соответствие шаблонов.
    Для Каждого КлючИЗначение ИЗ СоответствиеШаблонов Цикл

        ШаблонЭтикетокИЦенников = КлючИЗначение.Ключ;

        Если ЗначениеЗаполнено(ШаблонЭтикетокИЦенников) Тогда
            СтруктураШаблона = КлючИЗначение.Ключ.Шаблон.Получить();
        Иначе
            СтруктураШаблона = ДанныеПечати.СтруктураМакетаШаблона;
        КонецЕсли;

        // Структура шаблонов.
        СтруктураНастроек.СоответствиеШаблоновИСтруктурыШаблонов.Вставить(ШаблонЭтикетокИЦенников, СтруктураШаблона);

        // Добавляем в массив обязательных полей поля, присутствующие в печатной форме ценника.
        Для Каждого Элемент Из СтруктураШаблона.ПараметрыШаблона Цикл
            СтруктураНастроек.ОбязательныеПоля.Добавить(Элемент.Ключ);
        КонецЦикла;

    КонецЦикла;

    СтруктураНастроек.ПараметрыДанных.Вставить("Организация", ДанныеПечати.Организация);

    СтруктураНастроек.ПараметрыДанных.Вставить("ПравилоОбмена",                 ДанныеПечати.ПравилоОбмена);
    СтруктураНастроек.ПараметрыДанных.Вставить("МаксимальныйКодВесовогоТовара", ДанныеПечати.МаксимальныйКодВесовогоТовара);
    СтруктураНастроек.ПараметрыДанных.Вставить("ПравилоВыгрузкиВВесы",          ДанныеПечати.ПравилоВыгрузкиВВесы);

    СтруктураНастроек.ПараметрыДанных.Вставить("ВидЦены",       ДанныеПечати.ВидЦены);
    СтруктураНастроек.ПараметрыДанных.Вставить("Дата",          ДанныеПечати.Дата);

    СтруктураНастроек.ПараметрыДанных.Вставить("ВидЦеныДополнительно", ДанныеПечати.ВидЦеныДополнительно);
    СтруктураНастроек.ПараметрыДанных.Вставить("ДатаДополнительно",    ДанныеПечати.ДатаДополнительно);

    СтруктураНастроек.ИсходныеДанные = ИсходныеДанные;

    #Область ПодготовкаСтруктурыДанныхШаблона

    СтруктураРезультата = ПодготовитьСтруктуруДанных(СтруктураНастроек, "Товары");

    #КонецОбласти

    #Область ФормированиеТабличногоДокумента

    Эталон = Обработки.ПечатьЭтикетокИЦенников.ПолучитьМакет("Эталон");
    КоличествоМиллиметровВПикселе = Эталон.Рисунки.Квадрат100Пикселей.Высота / 100;

    // Подготовка коллекции печатных форм.
    КоллекцияПечатныхФорм = Новый ТаблицаЗначений;
    КоллекцияПечатныхФорм.Колонки.Добавить("ИмяМакета");
    КоллекцияПечатныхФорм.Колонки.Добавить("СинонимМакета");
    КоллекцияПечатныхФорм.Колонки.Добавить("ТабличныйДокумент");
    КоллекцияПечатныхФорм.Колонки.Добавить("ИмяКолонкиКоличество");
    КоллекцияПечатныхФорм.Колонки.Добавить("ИмяКолонкиШаблон");
    КоллекцияПечатныхФорм.Колонки.Добавить("Шаблон");

    Для Каждого КлючИЗначение Из СтруктураНастроек.СоответствиеШаблоновИСтруктурыШаблонов Цикл

        Если ((ЗначениеЗаполнено(КлючИЗначение.Ключ) И КлючИЗначение.Ключ.Назначение = Перечисления.НазначенияШаблоновЭтикетокИЦенников.ЭтикеткаДляТоваров) ИЛИ Не ЗначениеЗаполнено(КлючИЗначение.Ключ))
            И НужноПечататьЭтикетки Тогда

            ПечатнаяФорма = КоллекцияПечатныхФорм.Добавить();
            ПечатнаяФорма.ИмяМакета            = "Этикетка: "+КлючИЗначение.Ключ;
            ПечатнаяФорма.СинонимМакета        = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Этикетка: %1';
            |en = 'Label: %1'"), КлючИЗначение.Ключ);
            ПечатнаяФорма.ИмяКолонкиКоличество = "КоличествоЭтикетокДляПечати";
            ПечатнаяФорма.ИмяКолонкиШаблон     = "ШаблонЭтикеткиДляПечати";
            ПечатнаяФорма.Шаблон = КлючИЗначение.Ключ;

        КонецЕсли;

        Если ((ЗначениеЗаполнено(КлючИЗначение.Ключ) И КлючИЗначение.Ключ.Назначение = Перечисления.НазначенияШаблоновЭтикетокИЦенников.ЦенникДляТоваров) ИЛИ Не ЗначениеЗаполнено(КлючИЗначение.Ключ))
            И НужноПечататьЦенники Тогда

            ПечатнаяФорма = КоллекцияПечатныхФорм.Добавить();
            ПечатнаяФорма.ИмяМакета            = "Ценник: " + КлючИЗначение.Ключ;
            ПечатнаяФорма.СинонимМакета        = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Ценник: %1';
            |en = 'Price tag: %1'"), КлючИЗначение.Ключ);
            ПечатнаяФорма.ИмяКолонкиКоличество = "КоличествоЦенниковДляПечати";
            ПечатнаяФорма.ИмяКолонкиШаблон     = "ШаблонЦенникаДляПечати";
            ПечатнаяФорма.Шаблон = КлючИЗначение.Ключ;

        КонецЕсли;

    КонецЦикла;

    Для Каждого ПечатнаяФорма Из КоллекцияПечатныхФорм Цикл

        НомерКолонки = 0;
        НомерРяда = 0;

        Для Каждого СтрокаТовары Из СтруктураРезультата.Таблица Цикл

            Если СтрокаТовары[ПечатнаяФорма.ИмяКолонкиКоличество] > 0 И СтрокаТовары[ПечатнаяФорма.ИмяКолонкиШаблон] = ПечатнаяФорма.Шаблон Тогда

                СтруктураШаблона = СтруктураНастроек.СоответствиеШаблоновИСтруктурыШаблонов.Получить(СтрокаТовары[ПечатнаяФорма.ИмяКолонкиШаблон]);

                Если ПечатнаяФорма.ТабличныйДокумент = Неопределено Тогда
                    ПечатнаяФорма.ТабличныйДокумент = Новый ТабличныйДокумент;
                КонецЕсли;

                Область = СтруктураШаблона.МакетЭтикетки.ПолучитьОбласть(СтруктураШаблона.ИмяОбластиПечати);

                // Применение настроек табличного документа.
                ЗаполнитьЗначенияСвойств(ПечатнаяФорма.ТабличныйДокумент, СтруктураШаблона.МакетЭтикетки, , "ОбластьПечати");

                Для каждого ПараметрШаблона Из СтруктураШаблона.ПараметрыШаблона Цикл
                    Если ОбщегоНазначенияУТКлиентСервер.ЕстьРеквизитОбъекта(Область.Параметры, ПараметрШаблона.Значение) Тогда
                        НаименованиеКолонки = СтруктураРезультата.СоответствиеПолейСКДКолонкамТаблицы.Получить(Справочники.ШаблоныЭтикетокИЦенников.ИмяПоляВШаблоне(ПараметрШаблона.Ключ));
                        Если НаименованиеКолонки <> Неопределено Тогда
                            Область.Параметры[ПараметрШаблона.Значение] = СтрокаТовары[НаименованиеКолонки];
                        КонецЕсли;
                    КонецЕсли;
                КонецЦикла;

                Для каждого Рисунок Из Область.Рисунки Цикл

                    Если СтрНайти(Рисунок.Имя, Справочники.ШаблоныЭтикетокИЦенников.ИмяПараметраШтрихкод()) = 1 Тогда

                        ЗначениеШтрихкода = СтрокаТовары[СтруктураРезультата.СоответствиеПолейСКДКолонкамТаблицы.Получить(Справочники.ШаблоныЭтикетокИЦенников.ИмяПараметраШтрихкод())];
                        Если ЗначениеЗаполнено(ЗначениеШтрихкода) Тогда
                            ЗначениеШтрихкодаДляКомпоненты = ЗначениеШтрихкода;
                            ПечатьЭтикетокИЦенниковЛокализация.ПриОпределенииЗначенияШтрихкодаДляКомпоненты(
                            ЗначениеШтрихкодаДляКомпоненты, СтруктураШаблона.ТипКода);

                            Если СтруктураШаблона.Свойство("УровеньЧеткости") Тогда
                                УровеньЧеткости = СтруктураШаблона.УровеньЧеткости;
                            Иначе
                                УровеньЧеткости = 1;
                            КонецЕсли;

                            ПараметрыШтрихкода = Новый Структура;
                            ПараметрыШтрихкода.Вставить("Ширина",           Окр(Рисунок.Ширина / КоличествоМиллиметровВПикселе) * УровеньЧеткости);
                            ПараметрыШтрихкода.Вставить("Высота",           Окр(Рисунок.Высота / КоличествоМиллиметровВПикселе) * УровеньЧеткости);
                            ПараметрыШтрихкода.Вставить("Штрихкод",         СокрЛП(ЗначениеШтрихкодаДляКомпоненты));
                            ПараметрыШтрихкода.Вставить("ТипВходныхДанных", 0); // Штрихкод - это строка
                            ПараметрыШтрихкода.Вставить("ТипКода",          СтруктураШаблона.ТипКода);
                            ПараметрыШтрихкода.Вставить("ОтображатьТекст",  СтруктураШаблона.ОтображатьТекст);
                            ПараметрыШтрихкода.Вставить("РазмерШрифта",     СтруктураШаблона.РазмерШрифта * УровеньЧеткости);

                            Если СтруктураШаблона.Свойство("GS1DatabarКоличествоСтрок") Тогда
                                ПараметрыШтрихкода.Вставить("GS1DatabarКоличествоСтрок", СтруктураШаблона.GS1DatabarКоличествоСтрок);
                            КонецЕсли;
                            Если СтруктураШаблона.Свойство("ТипШрифта") Тогда
                                ПараметрыШтрихкода.Вставить("ТипШрифта", СтруктураШаблона.МонохромныйШрифт);
                            КонецЕсли;
                            Если СтруктураШаблона.Свойство("УголПоворота") Тогда
                                ПараметрыШтрихкода.Вставить("УголПоворота", СтруктураШаблона.УголПоворота);
                            КонецЕсли;
                            Если СтруктураШаблона.Свойство("МонохромныйШрифт") Тогда
                                ПараметрыШтрихкода.Вставить("МонохромныйШрифт", СтруктураШаблона.МонохромныйШрифт);
                            КонецЕсли;
                            Если СтруктураШаблона.Свойство("Масштабировать") Тогда
                                ПараметрыШтрихкода.Вставить("Масштабировать", СтруктураШаблона.Масштабировать);
                            КонецЕсли;
                            Если СтруктураШаблона.Свойство("СохранятьПропорции") Тогда
                                ПараметрыШтрихкода.Вставить("СохранятьПропорции", СтруктураШаблона.СохранятьПропорции);
                            КонецЕсли;
                            Если СтруктураШаблона.Свойство("ВертикальноеВыравнивание") Тогда
                                ПараметрыШтрихкода.Вставить("ВертикальноеВыравнивание", СтруктураШаблона.ВертикальноеВыравнивание);
                            КонецЕсли;

                            Рисунок.Картинка = МенеджерОборудованияВызовСервера.ПолучитьКартинкуШтрихкода(ПараметрыШтрихкода);

                        КонецЕсли;

                    КонецЕсли;

                    Если СтрНайти(Рисунок.Имя, "ЗнакВалюты") = 1 Тогда
                        ЗначениеКодаВалюты = СтрокаТовары[СтруктураРезультата.СоответствиеПолейСКДКолонкамТаблицы.Получить(Справочники.ШаблоныЭтикетокИЦенников.ИмяПараметраКодВалюты())];
                        Попытка
                            Рисунок.Картинка = Новый Картинка(Справочники.ШаблоныЭтикетокИЦенников.ПолучитьМакет("ЗнакВалюты" + ЗначениеКодаВалюты), Истина);
                        Исключение
                            Рисунок.Картинка = Новый Картинка;
                        КонецПопытки;
                    КонецЕсли;

                КонецЦикла;

                Для Инд = 1 По СтрокаТовары[ПечатнаяФорма.ИмяКолонкиКоличество] Цикл // Цикл по количеству экземпляров

                    НомерКолонки = НомерКолонки + 1;

                    Если НомерКолонки = 1 Тогда

                        НомерРяда = НомерРяда + 1;

                        ПечатнаяФорма.ТабличныйДокумент.Вывести(Область);

                    Иначе

                        ПечатнаяФорма.ТабличныйДокумент.Присоединить(Область);

                    КонецЕсли;

                    Если НомерКолонки = СтруктураШаблона.КоличествоПоГоризонтали И НомерРяда = СтруктураШаблона.КоличествоПоВертикали Тогда

                        НомерРяда    = 0;
                        НомерКолонки = 0;

                        ПечатнаяФорма.ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();

                    ИначеЕсли НомерКолонки = СтруктураШаблона.КоличествоПоГоризонтали Тогда

                        НомерКолонки = 0;

                    КонецЕсли;

                КонецЦикла; // Цикл по количеству экземпляров

            КонецЕсли;

        КонецЦикла; // Цикл по строкам таблицы товаров

    КонецЦикла;

    #КонецОбласти

    #Удаление
    Для Каждого ПечатнаяФорма Из КоллекцияПечатныхФорм Цикл
        Если ПечатнаяФорма.ТабличныйДокумент <> Неопределено Тогда
            НоваяСтрока = КоллекцияПечатныхФормБСП.Добавить();

            НоваяСтрока.ИмяМакета = ПечатнаяФорма.ИмяМакета;
            НоваяСтрока.ИмяВРЕГ   = ВРег(ПечатнаяФорма.ИмяМакета);
            НоваяСтрока.Экземпляров = 1;

            НоваяСтрока.ТабличныйДокумент = ПечатнаяФорма.ТабличныйДокумент;
            НоваяСтрока.СинонимМакета = ПечатнаяФорма.СинонимМакета;
        КонецЕсли;
    КонецЦикла;
    #КонецУдаления
    #Вставка
    // Заполнение принтера из регистра шаблонов
    МЗ = РегистрыСведений.СТ_ШаблоныЗаполненияПринтеров.СоздатьМенеджерЗаписи();
    МЗ.Пользователь = ПараметрыСеанса.ТекущийПользователь;
    
    Для Каждого ПечатнаяФорма Из КоллекцияПечатныхФорм Цикл
        Если ПечатнаяФорма.ТабличныйДокумент <> Неопределено Тогда
            НоваяСтрока = КоллекцияПечатныхФормБСП.Добавить();

            НоваяСтрока.ИмяМакета = ПечатнаяФорма.ИмяМакета;
            НоваяСтрока.ИмяВРЕГ   = ВРег(ПечатнаяФорма.ИмяМакета);
            НоваяСтрока.Экземпляров = 1;

            НоваяСтрока.ТабличныйДокумент = ПечатнаяФорма.ТабличныйДокумент;
            НоваяСтрока.СинонимМакета = ПечатнаяФорма.СинонимМакета;
            
            ИмяКомпьютераКлиента = СТ_ОбщийСервер.ПолучитьИмяКомпьютераКлиента();
            Если НЕ ЗначениеЗаполнено(ИмяКомпьютераКлиента) Тогда
                Продолжить;
            КонецЕсли;
            
            МЗ.ИмяКомпьютера = ИмяКомпьютераКлиента;
            МЗ.ШаблонЭтикетки = ПечатнаяФорма.Шаблон;
            МЗ.Прочитать();
            Если НЕ МЗ.Выбран() Тогда
                Продолжить;
            КонецЕсли;
            
            НоваяСтрока.ТабличныйДокумент.ИмяПринтера = МЗ.ИмяПринтера;
        КонецЕсли;
    КонецЦикла;
    #КонецВставки

КонецПроцедуры

Функция ПолучитьИмяКомпьютераКлиента() Экспорт
    
    НомерСеанса = НомерСеансаИнформационнойБазы();
    Сеансы = ПолучитьСеансыИнформационнойБазы();
    Для Каждого Сеанс Из Сеансы Цикл
        Если Сеанс.НомерСеанса = НомерСеанса Тогда
            Возврат Сеанс.ИмяКомпьютера;
        КонецЕсли;
    КонецЦикла;
    
    Возврат "";
    
КонецФункции