Сохранить значения реквизитов во внешних обработках 1с

Чтобы сохранить значения реквизитов внешней обработки нужно использовать КомпоновщикНастроекКомпоновкиДанных.

Создаем в обработке реквизит КомпоновщикНастроекКомпоновкиДанных

В форму обработки вставляем следующий код (Листинг):

#область СохранениеНастроек


&НаСервере
Процедура СохранитьДанныеВНастройках()
Настройки = Новый Соответствие;
ЗаполнитьНастройкиПриСохраненииНаСервере(Настройки);
ХранилищеНастроекДанныхФорм.Сохранить(ЭтаФорма.ИмяФормы,, Настройки);
КонецПроцедуры


&НаСервере
Процедура ЗаполнитьНастройкиПриСохраненииНаСервере(Настройки)

Если Настройки = Неопределено Тогда
Настройки = Новый Соответствие;
КонецЕсли;

//Сюда вставляем значения реквизитов которые нужно сохранить
//Настройки.Вставить(«», );
//Настройки.Вставить(«», );
//Настройки.Вставить(«», );


//Так сохраняем табличные части
//ТЗт = Новый ТаблицаЗначений;
//ТЗт.Колонки.Добавить(«»);
//ТЗт.Колонки.Добавить(«»);


//Для Каждого СТР ИЗ  Цикл
// НовСтр = ТЗт.Добавить();    
// НовСтр. = СТР.;
// НовСтр. = СТР.;
//КонецЦикла;
//Настройки.Вставить(«ТЗ», ТЗт);

ЗаписьXML = Новый ЗаписьXML();                              
ЗаписьXML.УстановитьСтроку();
ЗаписьXML.ЗаписатьНачалоЭлемента(«Отборы»);

СериализоватьОтбор(Объект.Компоновщик.Настройки.Отбор.Элементы, ЗаписьXML);

ЗаписьXML.ЗаписатьКонецЭлемента();
ХранилищеНастроек = ЗаписьXML.Закрыть();

Настройки.Вставить(«Отбор», ХранилищеНастроек);

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


&НаСервере
Процедура  ВосстановитьНастройки(Настройки)
Если ТипЗнч(Настройки) = Тип(«Соответствие») Тогда
//Данной конструкцией востанавливаем реквизиты
//Если Настройки.Получить(«СтатьиЗатрат») <> Неопределено Тогда
//
// СтатьиЗатрат = Настройки.Получить(«СтатьиЗатрат»);
//
//КонецЕсли;

//Этой конструкцией востанавливаем значения табличных частей
//Если Настройки.Получить(«СтатьиЗатрат») <> Неопределено Тогда
//
// Тч.Загрузить(Настройки.Получить(«СтатьиЗатрат»));
//
//КонецЕсли;

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


&НаСервере
Процедура  СериализоватьОтбор(пОтбор, ЗаписьXML) Экспорт 

Для Каждого цЭлементОтбора Из пОтбор Цикл

СериализаторXDTO.ЗаписатьXML(ЗаписьXML, цЭлементОтбора);

КонецЦикла;

КонецПроцедуры // СериализоватьОтбор()


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


&НаКлиенте
Процедура ПриЗакрытии(ЗавершениеРаботы)
СохранитьДанныеВНастройках();
КонецПроцедуры


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

18.10.11 — 11:13

САБЖ

1 — 18.10.11 — 11:15

КНОПКОЙ

2 — 18.10.11 — 11:15

в настройках пользователей

3 — 18.10.11 — 11:15

(1) Какой?:)

4 — 18.10.11 — 11:17

(2) А это как? Можешь дать пример кода?

5 — 18.10.11 — 11:21

а форма-то какая?

6 — 18.10.11 — 11:21

7 — 18.10.11 — 11:22

(5) Управляемая конечно

8 — 18.10.11 — 11:23

(7) А ты когда об этом собирался рассказать?

9 — 18.10.11 — 11:24

(6) В управляемых такого нет

(8) тупанул чуток)

Написал 8.2 а дальше не сообразил)))

10 — 18.10.11 — 11:24

чё-то старички сегодня жгут

11 — 18.10.11 — 11:25

(10) /потупив взор ковыряю ножкой в полу/

12 — 18.10.11 — 11:26

св-ва формыСохранениеДанныхВНастройках, АвтоматическоеСохранениеДанныхВНастройках

13 — 18.10.11 — 11:32

14 — 18.10.11 — 11:34

у мну работает

15 — 18.10.11 — 11:35

(14) Только с такими настройками и все? Или создавал хранилище настроек?

16 — 18.10.11 — 11:35

без хранилища работает, со списком

17 — 18.10.11 — 11:36

(16) Млять, что же блин ни так.

18 — 18.10.11 — 11:36

а что за ПутьКИнформационнойБазе  — я у себя такого не наблюдай в палитре св-в

19 — 18.10.11 — 11:38

(18) Да это я вставил то что было в буфере)

там должно было быть написано «АвтоматическоеСохранениеДанныхВНастройках»

)))

Скачу между мониторами тут, запутался.

20 — 18.10.11 — 11:39

ну у тебя хоть настройка твоя в списке появляется, или нет?

галочки на реквизитах нажал?

21 — 18.10.11 — 11:41

(20) Всё понял в чем косяк.

У меня все реквизиты это реквизиты Объекта.

Вынес эти реквизиты как реквизиты формы и стало сохраняться.

А реквизиты объекта получается не сохранить.

22 — 18.10.11 — 11:43

+ 21 нихрена. Галку на реквизите формы ставлю.

Все одно блин не сохраняет.

23 — 18.10.11 — 11:44

(20) «галочки» ты имел ввиду «Сохранять данные»?

24 — 18.10.11 — 11:44

(21) у мну сохраняет

25 — 18.10.11 — 11:45

(23) второе ТП, сверху справа

колонка «Сохранение»

26 — 18.10.11 — 11:46

(24) Всё. Теперь и у меня пошло.

27 — 18.10.11 — 11:46

(25) Да, а я ставил в самом реквизите.

Спасибо, разобрался)

28 — 18.10.11 — 11:47

а где в реквизите объекта галка сохранения?

29 — 18.10.11 — 11:49

(28) В реквизите формы

30 — 18.10.11 — 11:49

+ 29 «сохраняемые данные»

31 — 18.10.11 — 11:53

(30) дык это, батенька, совсем на другую тему песня

модифицированность, только просмотр и т.д.

32 — 18.10.11 — 11:54

(31) Уже понял)))))

33 — 18.10.11 — 11:55

(33) Спасибо, пригодится.

1С 8.3 : Реквизит ~ Как сохранять и восстанавливать значения Объектов и Реквизитов на форме УП?

 &НаСервере

Процедура ВосстановитьНастройки()

КлючОбъекта = "ЗагрузкаИЗPDF_All4CF.ru";

КлючНастроек = "ЗагрузкаИЗPDF_All4CF.ru";

ОписаниеНастроек = "ЗагрузкаИЗPDF_All4CF.ru";

ИмяПользователя = "";


ЗначениеНастроек = ХранилищеОбщихНастроек.Загрузить(КлючОбъекта, КлючНастроек, ОписаниеНастроек, ИмяПользователя);


Если ТипЗнч(ЗначениеНастроек) = Тип("Соответствие") Тогда

	Объект.Склад = ЗначениеНастроек.Получить("Склад");

	Объект.Организация = ЗначениеНастроек.Получить("Организация");	

	Объект.ПутьКPDF2TXT = ЗначениеНастроек.Получить("ПутьКPDF2TXT");

	Объект.ПутьКPDF = ЗначениеНастроек.Получить("ПутьКPDF");

КонецЕсли;

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



&НаКлиенте

Процедура ПриОткрытии(Отказ)

	 ВосстановитьНастройки();

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



&НаСервере

Процедура СохранитьНастройки()  

КлючОбъекта = "ЗагрузкаИЗPDF_All4CF.ru";

КлючНастроек = "ЗагрузкаИЗPDF_All4CF.ru";

ОписаниеНастроек = "ЗагрузкаИЗPDF_All4CF.ru";

ИмяПользователя = "";



  


                       
  






Настройки = Новый Соответствие;

Настройки.Вставить("ПутьКPDF2TXT", Объект.ПутьКPDF2TXT);

Настройки.Вставить("ПутьКPDF", Объект.ПутьКPDF);

Настройки.Вставить("Склад", Объект.Склад);

Настройки.Вставить("Организация", Объект.Организация);


ХранилищеОбщихНастроек.Сохранить(КлючОбъекта, КлючНастроек, Настройки, ОписаниеНастроек, ИмяПользователя);

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



&НаКлиенте

Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)

	  СохранитьНастройки();

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