IE2017

Настройка списка параметров

Программирование - Инструментарий

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

Обработка позволяет настроить ряд дополнительных параметров и/или реквизитов без размещения их на форме.
Вызывается по кнопке или другим способом (щелчок в таблице, начало выбора значения...)
Для вызова используется следующий алгоритм (пример)

ПараметрыЗапуска=СоздатьОбъект("СписокЗначений");
Параметры  =СоздатьОбъект("ТаблицаЗначений");
Параметры.НоваяКолонка("Флаг",   "Число" ,1,0);
Параметры.НоваяКолонка("Пометка",  "Число" ,1,0);
//Параметры.НоваяКолонка("Значение");
Параметры.НоваяКолонка("Идентификатор", "Строка",100);
Параметры.НоваяКолонка("Тип",   "Строка",100);
Параметры.НоваяКолонка("Длина",   "Число" ,2,0);
Параметры.НоваяКолонка("Точность",  "Число" ,2,0);
Параметры.НоваяКолонка("Заголовок",  "Строка",300);

 Параметры.НоваяСтрока();
 Параметры.Флаг   =0;
 Параметры.Пометка  =НеИспользоватьАвтоЗаказ;
 //Параметры.Значение =;
 Параметры.Идентификатор ="НеИспользоватьАвтоЗаказ";
 Параметры.Тип   ="Число";
 Параметры.Длина   =1;
 Параметры.Точность  =0;
 Параметры.Заголовок  ="Исключить позицию из автоформирования заказа поставщику";
 
 Параметры.НоваяСтрока();
 Параметры.Флаг   =0;
 Параметры.Пометка  =УчитыватьМинОстатокПриЗаказе;
 //Параметры.Значение =;
 Параметры.Идентификатор ="УчитыватьМинОстатокПриЗаказе";
 Параметры.Тип   ="Число";
 Параметры.Длина   =1;
 Параметры.Точность  =0;
 Параметры.Заголовок  ="Учитывать мин.остаток при автоматическом заказе товара";

ПараметрыЗапуска.Установить("Параметры",Параметры);
ОткрытьФормуМодально("Обработка.НастройкаСпискаПараметров",ПараметрыЗапуска);
 
Попытка
 Кнопка=ПараметрыЗапуска.Получить("Кнопка");
 Если Кнопка="ОК" Тогда
  Параметры=ПараметрыЗапуска.Получить("Параметры");
  Параметры.ВыбратьСтроки();
  Пока Параметры.ПолучитьСтроку() = 1 Цикл
   Стр=Шаблон("[Присвоить("+СокрЛП(Параметры.Идентификатор)+",?(Параметры.Флаг=0,Параметры.Пометка,Параметры.Значение))]")
  КонецЦикла
 Иначе
  //Сообщить("Чего-то нажато, но не «ОК»")
 КонецЕсли;
Исключение
 //Сообщить("Закрыто не по «ОК»")
КонецПопытки;

 

Многое конечно можно и усовершенствовать, писал давно, но пока использую как есть.

Скачать файлы

Наименование Файл Версия Размер
НастройкаСпискаПараметров.ert
.ert 184,50Kb
22.10.14
69
.ert 184,50Kb 69 Скачать

См. также

Комментарии
1. Александр Рытов (Арчибальд) 2660 01.07.10 10:03 Сейчас в теме
2. Neman Entorin (ne_en) 49 01.07.10 11:24 Сейчас в теме
Оставьте свое сообщение