Сохранение/восстановление настроек на форме обработки.
Добрый день. Написала сохранение настроек по текущему пользователю. При открытии обработки должны восстановиться значения 4х полей. 3 из них отлично восстанавливаются, одна - никак. В чем может быть проблема?
Код на сохранение настроек:
код на восстановление настроек:
Проблема с полем "Отпустил".
Код на сохранение настроек:
Процедура СохранитьНастройки()
ПараметрыПредварительнойФормы = Новый Структура;
ПараметрыПредварительнойФормы.Вставить("СвойствоТипСтруктурногоПодразделения", СвойствоТипСтруктурногоПодразделения);
ПараметрыПредварительнойФормы.Вставить("ЗначениеТипСтруктурногоПодразделения", ЗначениеТипСтруктурногоПодразделения);
ПараметрыПредварительнойФормы.Вставить("ЧерезКого" , ЧерезКого);
ПараметрыПредварительнойФормы.Вставить("Затребовал", Затребовал);
ПараметрыПредварительнойФормы.Вставить("Отпустил" , Отпустил);
ПараметрыПредварительнойФормы.Вставить("Получил" , Получил);
//ВладелецНастройки = Справочники.Пользователи.ПустаяСсылка();
ВладелецНастройки = ПараметрыСеанса.ТекущийПользователь;
СтруктураНастройки = Новый Структура;
СтруктураНастройки.Вставить("Пользователь", ВладелецНастройки);
СтруктураНастройки.Вставить("ИмяОбъекта", "МАГНИТ_ВнешняяПечатнаяФорма_ВнешняяПечатнаяФормаМ11");
СтруктураНастройки.Вставить("НаименованиеНастройки", "Основная");
СтруктураНастройки.Вставить("СохраненнаяНастройка", ПараметрыПредварительнойФормы);
Результат = СохранитьНастройку(СтруктураНастройки);
КонецПроцедуры
Функция СохранитьНастройку(СтруктураНастройки) Экспорт
Если ТипЗнч(СтруктураНастройки) <> Тип("Структура") Тогда
Возврат Ложь;
КонецЕсли;
НаборЗаписей = РегистрыСведений.СохраненныеНастройки.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Пользователь.Значение = СтруктураНастройки.Пользователь;
НаборЗаписей.Отбор.Пользователь.Использование = Истина;
НаборЗаписей.Отбор.ИмяОбъекта.Значение = СтруктураНастройки.ИмяОбъекта;
НаборЗаписей.Отбор.ИмяОбъекта.Использование = Истина;
НаборЗаписей.Отбор.НаименованиеНастройки.Значение = СтруктураНастройки.НаименованиеНастройки;
НаборЗаписей.Отбор.НаименованиеНастройки.Использование = Истина;
ЗаписьНабора = НаборЗаписей.Добавить();
ЗаписьНабора.Пользователь = СтруктураНастройки.Пользователь;
ЗаписьНабора.ИмяОбъекта = СтруктураНастройки.ИмяОбъекта;
ЗаписьНабора.НаименованиеНастройки = СтруктураНастройки.НаименованиеНастройки;
ЗаписьНабора.СохраненнаяНастройка = Новый ХранилищеЗначения(СтруктураНастройки.СохраненнаяНастройка, Новый СжатиеДанных(9));
НаборЗаписей.ОбменДанными.Получатели.АвтоЗаполнение = Ложь;
НаборЗаписей.ОбменДанными.Получатели.Очистить();
Попытка
НаборЗаписей.Записать();
Исключение
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(СтрШаблон("Ошибка при сохранении настройки. %1", ОписаниеОшибки()));
Возврат Ложь;
Конецпопытки;
Возврат Истина;
КонецФункции
Показатькод на восстановление настроек:
Процедура ВосстановитьНастройки()
//ВладелецНастройки = Справочники.Пользователи.ПустаяСсылка();
ВладелецНастройки = ПараметрыСеанса.ТекущийПользователь;
СтруктураНастройки = Новый Структура;
СтруктураНастройки.Вставить("Пользователь", ВладелецНастройки);
СтруктураНастройки.Вставить("ИмяОбъекта", "МАГНИТ_ВнешняяПечатнаяФорма_ВнешняяПечатнаяФормаМ11");
СтруктураНастройки.Вставить("НаименованиеНастройки", "Основная");
Результат = УниверсальныеМеханизмы.ПолучитьНастройку(СтруктураНастройки);
Если Результат Тогда
ПараметрыПредварительнойФормы = Неопределено;
Если СтруктураНастройки.Свойство("СохраненнаяНастройка", ПараметрыПредварительнойФормы) Тогда
Если ТипЗнч(ПараметрыПредварительнойФормы) = Тип("Структура") Тогда
ПараметрыПредварительнойФормы.Свойство("СвойствоТипСтруктурногоПодразделения", СвойствоТипСтруктурногоПодразделения);
ПараметрыПредварительнойФормы.Свойство("ЗначениеТипСтруктурногоПодразделения", ЗначениеТипСтруктурногоПодразделения);
ПараметрыПредварительнойФормы.Свойство("ЧерезКого" , ЧерезКого);
ПараметрыПредварительнойФормы.Свойство("Затребовал", Затребовал);
ПараметрыПредварительнойФормы.Свойство("Отпустил" , Отпустил);
ПараметрыПредварительнойФормы.Свойство("Получил" , Получил);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
ПоказатьПроблема с полем "Отпустил".
По теме из базы знаний
- Ava: Универсальный журнал документов (8.2, управляемые формы) с возможностью создания пользовательских колонок, интеграция с механизмом доп. реквизитов и сведений
- Отчеты по списку сохраненных настроек - обработка, подключаемая к отчету на основе универсального
- Обработка "Командер 1С"
- Обработка для выгрузки и загрузки данных XML 8.3. С отбором, предпросмотром данных и сохранением настроек
- Групповая печать выбранных документов с сохранением (восстановлением) настроек отбора для ERP 2, КА 2, УТ 11
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот