v8: Cохранение значений реквизитов формы в файл
Ключевые слова: форма, файл, сохранение формы, реквизиты формы в файл, сохранение формы в файл,
Cохранение значений реквизитов формы в файл - таблицу значений тоже сохраняет.
Код следующий:
Процедура СохранитьЗначенияФормы()
СтруктураЭлементов = Новый Структура;
Для Каждого ЭлементФормы Из ЭлементыФормы Цикл
Если ЗначениеЗаполнено(ЭлементФормы.Данные) Тогда
ЗнВСтр = ЗначениеВСтрокуВнутр(ЭлементФормы.Значение);
СтруктураЭлементов.Вставить(ЭлементФормы.Имя, ЗнВСтр);
КонецЕсли;
КонецЦикла;
ЗначениеВФайл("O:\Load Upload (1c data authomat exchange)\Buh\PoFirmam.sav", СтруктураЭлементов);
КонецПроцедуры
Процедура ВосстановитьЗначенияФормы()
СтруктураЭлементов = Новый Структура;
СтруктураЭлементов = ЗначениеИзФайла("O:\Load Upload (1c data authomat exchange)\Buh\PoFirmam.sav");
Для Каждого ЭлементФормы Из ЭлементыФормы Цикл
Попытка
ЭлементФормы.Значение = ЗначениеИзСтрокиВнутр(СтруктураЭлементов[ЭлементФормы.Имя])
Исключение
КонецПопытки;
КонецЦикла;
КонецПроцедуры
Авторство: SuperMario (http://www.forum.mista.ru/users.php?id=10887)
Ссылка на статью с кодом: http://www.itdepartament.ru/index.php/archives/35 |