gifts2017

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

Опубликовал Neman Entorin (ne_en) в раздел Программирование - Инструментарий

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

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

ПараметрыЗапуска=СоздатьОбъект("СписокЗначений");
Параметры  =СоздатьОбъект("ТаблицаЗначений");
Параметры.НоваяКолонка("Флаг",   "Число" ,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. Александр Рытов (Арчибальд) 01.07.10 10:03
2. Neman Entorin (ne_en) 01.07.10 11:24
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа