Имя: Пароль:
1C
1С v8
КАК установить параметры програмно в СКД
,
0 lite777
 
25.03.22
09:31
Здравствуйте ,1С Розница модуль формы выбора заказа в Обработке РМК,
Как установить параметры для СКД програмно-

    СКД = Обработки.РМКУправляемыйРежим.ПолучитьМакет("МакетВыбораЗаказа");
    Настройки = СКД.НастройкиПоУмолчанию;
1 lite777
 
25.03.22
09:34
Далее идет-
        КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетКомпоновки = КомпоновщикМакета.Выполнить(
        СКД,Настройки,,,
        Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
    ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки);
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
2 lite777
 
25.03.22
09:55
Эксперты есть ?
3 Запасной
 
25.03.22
09:58
ВнешниеНаборыДанных = Новый Структура;
    ВнешниеНаборыДанных.Вставить("ТЗ", МояТаблица);
    
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
    МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, КомпоновщикНастроек.ПолучитьНастройки(), ДанныеРасшифровки);
    ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновки.Инициализировать(МакетКомпоновки,ВнешниеНаборыДанных,ДанныеРасшифровки);
    ДокументРезультат.Очистить();
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
    ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
    ПроцессорВывода.Вывести(ПроцессорКомпоновки);
4 acht
 
25.03.22
09:58
Нет. Никто не знает.
5 lite777
 
25.03.22
10:29
(3) Где тут параметры ?
6 lite777
 
25.03.22
10:34
Пробую так -СКД.Параметры.Установить(0,КонецДня(ТекущаяДата())) ;   но метод не обнаружен Установить
7 Запасной
 
25.03.22
10:36
(3) ВнешниеНаборыДанных
8 SnowBarsCloud
 
25.03.22
10:38
(6)
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
    Настройки = КомпоновщикНастроек.Настройки;
    ЭД = Настройки.ПараметрыДанных.Элементы.Найти("ИмяПараметраСКД1");
    ЭД.Значение = ЗначениеПараметра1;
    ЭД.Использование = Истина;
КонецПроцедуры
9 lite777
 
25.03.22
10:40
(8) Спасибо должно сработать!
10 Вафель
 
25.03.22
10:43
(8) проще
ПараметрыДанных.УстановитьЗначениеПараметра
11 SnowBarsCloud
 
25.03.22
10:45
(10) надо попробовать, не часто работал с программым заполнением реквизитов. Спасибо:)
12 hhhh
 
25.03.22
11:05
еще доолжна быть функция в общих модулях, которая помогант.