14 янв. 2018 г.

Сохранить значения формы

&НаСервере
Процедура СохранитьЗначенияФормы()
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("ДатаВыгрузки", Объект.ДатаВыгрузки);
ПараметрыФормы.Вставить("rrc", Объект.rrc);

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

&НаСервере
Процедура ВосстановитьЗначенияФормы()
ПараметрыФормы = ХранилищеОбщихНастроек.Загрузить("ВыгрузкаВРозетку","ПараметрыФормы");

Если ПараметрыФормы = Неопределено Тогда 
            Возврат; 
КонецЕсли; 
Если ПараметрыФормы.Свойство("ДатаВыгрузки ") Тогда
Объект.Товары.Загрузить(ПараметрыФормы.Товары);
КонецЕсли;  
Если ПараметрыФормы.Свойство("rrc") Тогда
Объект.rrc = ПараметрыФормы.rrc;
КонецЕсли;
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПриЗакрытии()
СохранитьЗначенияФормы();
КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
            ВосстановитьЗначенияФормы();
КонецПроцедуры


 

CopyPaste Copyright © 2017 - |- Шаблон создан O Pregador - |- Отредактирован myr4ik07