Универсальное сохранение элементов форм (Поле ввода, флажок, табличное поле) для 8.х

23.12.11

Разработка - Механизмы платформы 1С

Как же надоело каждый раз заполнять поля ввода, ставил галочки и заполнять табличные поля для своих обработок(отчетов).
Вот и написал универсальный алгоритм который сохраняет значения всех полей ввода, флажков и табличных полей.

Просто создадим в любой форме две кнопки "Сохранить", "Открыть". И создадим события при нажатии.


// Процедура сохранения

Процедура кнСохранить(Кнопка)



   
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);



   
ДиалогВыбораФайла.Фильтр = "Файл сохраненной настройки (*.sav)|*.sav";

   
ДиалогВыбораФайла.Заголовок = "Выберите файл";

   
ДиалогВыбораФайла.ПредварительныйПросмотр = Ложь;

   
ДиалогВыбораФайла.Расширение = "sav";

   
ДиалогВыбораФайла.ИндексФильтра = 0;

   
ДиалогВыбораФайла.ПроверятьСуществованиеФайла = Ложь;



    Если
ДиалогВыбораФайла.Выбрать() Тогда

       
ИмяФайла = ДиалогВыбораФайла.ПолноеИмяФайла;

    Иначе

        Возврат;

    КонецЕсли;

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

    Для Каждого
Стр Из ЭлементыФормы Цикл

        Если
Строка(Стр)="ПолеВвода" Тогда

           
Настройка.Вставить(Стр.Имя, Стр.Значение);

        КонецЕсли;

        Если
Строка(Стр)="Флажок" Тогда

           
Настройка.Вставить(Стр.Имя, Стр.Значение);

        КонецЕсли;

        Если
Строка(Стр)="ТабличноеПоле" Тогда

           
ТП_ДляСохранения = Новый ТаблицаЗначений;

            Для Каждого
Кол Из Стр.Колонки Цикл

               
ТП_ДляСохранения.Колонки.Добавить(Кол.Имя);

            КонецЦикла;



            Для Каждого
аа Из Стр.Значение Цикл

               
вв=ТП_ДляСохранения.Добавить();

                Для Каждого
Кол Из Стр.Колонки Цикл

                   
вв[Кол.Имя]=аа[Кол.Имя];

                КонецЦикла;



            КонецЦикла;

           
Настройка.Вставить(Стр.Имя, ТП_ДляСохранения);

        КонецЕсли;

    КонецЦикла;





    Если НЕ
ЗначениеВФайл(ИмяФайла, Настройка) Тогда

       
Предупреждение("Настройка не сохранена!!!");

    КонецЕсли;

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



//Процедура Открытия

Процедура кнОткрыть(Кнопка)

   
ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);



   
ДиалогВыбораФайла.Фильтр = "Файл сохраненной настройки (*.sav)|*.sav";

   
ДиалогВыбораФайла.Заголовок = "Выберите файл";

   
ДиалогВыбораФайла.ПредварительныйПросмотр = Ложь;

   
ДиалогВыбораФайла.Расширение = "sav";

   
ДиалогВыбораФайла.ИндексФильтра = 0;

   
ДиалогВыбораФайла.ПроверятьСуществованиеФайла = Истина;



    Если
ДиалогВыбораФайла.Выбрать() Тогда

       
ИмяФайла = ДиалогВыбораФайла.ПолноеИмяФайла;

    Иначе

        Возврат;

    КонецЕсли;

   
Настройка = ЗначениеИзФайла(ИмяФайла);

    Для Каждого
Стр Из ЭлементыФормы Цикл

        Если
Строка(Стр)="ПолеВвода" Тогда

            Попытка

               
Стр.Значение = Настройка[Стр.Имя];

            Исключение



            КонецПопытки;

        КонецЕсли;

        Если
Строка(Стр)="Флажок" Тогда

            Попытка

               
Стр.Значение = Настройка[Стр.Имя];

            Исключение



            КонецПопытки;

        КонецЕсли;

        Если
Строка(Стр)="ТабличноеПоле" Тогда

            Попытка

               
Стр.Значение.Очистить();

               
ТП_ДляОткрытия = "";

               
ТП_ДляОткрытия = Настройка[Стр.Имя];

                Для Каждого
Стп Из ТП_ДляОткрытия Цикл

                   
СС=Стр.Значение.Добавить();

                    Для Каждого
Кол Из Стр.Колонки Цикл

                        Попытка

                           
СС[Кол.Имя]=Стп[Кол.Имя];

                        Исключение



                        КонецПопытки;

                    КонецЦикла;

                КонецЦикла;

            Исключение



            КонецПопытки;

        КонецЕсли;

    КонецЦикла;



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

См. также

Поинтегрируем: сервисы интеграции – новый стандарт или просто коннектор?

Обмен между базами 1C Администрирование СУБД Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

В платформе 8.3.17 появился замечательный механизм «Сервисы интеграции». Многие считают, что это просто коннектор 1С:Шины. Так ли это?

11.03.2024    4583    dsdred    53    

73

Как готовить и есть массивы

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Все мы используем массивы в своем коде. Это один из первых объектов, который дают ученикам при прохождении обучения программированию. Но умеем ли мы ими пользоваться? В этой статье я хочу показать все методы массива, а также некоторые фишки в работе с массивами.

24.01.2024    5303    YA_418728146    25    

63

Планы обмена VS История данных

Обмен между базами 1C Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Вы все еще регистрируете изменения только на Планах обмена и Регистрах сведений?

11.12.2023    6429    dsdred    36    

112

1С-ная магия

Механизмы платформы 1С Бесплатно (free)

Язык программирования 1С содержит много нюансов и особенностей, которые могут приводить к неожиданным для разработчика результатам. Сталкиваясь с ними, программист начинает лучше понимать логику платформы, а значит, быстрее выявлять ошибки и видеть потенциальные узкие места своего кода там, где позже можно было бы ещё долго медитировать с отладчиком в поисках источника проблемы. Мы рассмотрим разные примеры поведения кода 1С. Разберём результаты выполнения и ответим на вопросы «Почему?», «Как же так?» и «Зачем нам это знать?». 

06.10.2023    18494    SeiOkami    46    

118

Дефрагментация и реиндексация после перехода на платформу 8.3.22

Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Начиная с версии платформы 8.3.22 1С снимает стандартные блокировки БД на уровне страниц. Делаем рабочий скрипт, как раньше.

14.09.2023    12102    human_new    27    

74

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8845    YA_418728146    6    

141

Внешние компоненты Native API на языке Rust - Просто!

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Внешние компоненты для 1С можно разработывать очень просто, пользуясь всеми преимуществами языка Rust - от безопасности и кроссплатформенности до удобного менеджера библиотек.

20.08.2023    6284    sebekerga    54    

94

Все скопируем и вставим! (Буфер обмена в 1С 8.3.24)

Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Рассмотрим новую возможность 8.3.24 и как её можно эффективно использовать

27.06.2023    16003    SeiOkami    31    

103
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Serj1C 483 23.12.11 12:29 Сейчас в теме
Велосипед. Реализовано на уровне платформы. У формы надо выставить свойство "Сохранять значения", "Восстанавливать значения при открытии" и указать список сохраняемых значений. Далее в командной панели "Действия формы" появятся (при автозаполнении) кнопки "Сохранить значения" и "Загрузить значения".
2. tormozit 7138 23.12.11 12:43 Сейчас в теме
(1) Ну строго говоря это немного не то. Ты описал механизм сохранения значений реквизитов основного реквизита формы и самой формы, а не элементов формы. Если форма не имеет основного реквизита, то описанный тобой платформенный механизм вообще не работает.
3. Andruykha 178 23.12.11 13:16 Сейчас в теме
(1) Serj1C, смею возразить, на уровне платформы сохраняет только для текущего пользователя. И настройки можно потом использовать на копиях базыю
8. Andrey1957 06.02.12 11:29 Сейчас в теме
(1) Кстати, у платформеной реализации обнаружился еще один глюк: при всех выше указанных взведенных опциях, 1С-ка не сохраняет настроек, пока пользователь хотя бы один раз не нажмет на кнопку: "сохранить настройки" и не выберет в открывшемся окне поименованную настройку для сохранения и не взведет в этом окне галку "сохранять автоматически". Без этого - хоть расшибись: при отсутствии хотя бы одной сохраненной настройки все сформированные настройки сохраняться не будут, равно как и не будет создаваться новой. По-хорошему, при взведении в конфигураторе на форме свойства "Сохранять значения" 1С-ка должна была бы в режиме работы 1С-Предприятие автоматически, после успешного формирования отчета (после нажатия кнопки "Сформировать") или, в крайнем случае, при закрытии формы, не только обновлять существующую настройку, но и создавать новую, если таковой не было. Увы, она этого не делает. Приходится пользователям писать в инструкциях, чтобы свою первую настройку они обязательно сохранили по кнопке "Сохранить настройки", что не есть хорошо.
nick-max; +1 Ответить
4. SiAl 76 24.12.11 22:26 Сейчас в теме
5. Andruykha 178 25.12.11 11:36 Сейчас в теме
(4) SiAl, усовершенствованный и универсальный велосипед.
6. maxpostal 06.01.12 00:54 Сейчас в теме
7. AlexO 135 07.01.12 22:03 Сейчас в теме
А что, действительно оригинально и просто.
за это плюс.
Но вопрос:
а что мешало сохранять в реквизиты все поля, а галочки по-умолчанию при загрузке формы выставлять?
Оставьте свое сообщение