Имя: Пароль:
1C
1С v8
КомпоновщикНастройкиОтбор , заполняю программно, пробую на клиенте, поле пустое. Где ошибк
0 SkillUp
 
06.03.19
10:52
КомпоновщикНастройкиОтбор , заполняю программно, пробую на клиенте, поле пустое. Где ошибка? При нажатии на кнопку

Конфигурация -на УФ.

Процедура №1:

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    
    // Настроить компоновщик
    ИнициализироватьНастройкиКомпоновщика();
    ТекПользователь = ОбщегоНазначенияВызовСервера.ПолучитьЗначениеПарметраСеанса("ТекущийПользователь");
    текНастройки = ОбщегоНазначенияВызовСервера.ХранилищеОбщихНастроекЗагрузить("ЗаданиеАктуализатору.УдалитьПоФильтру.НастройкиКомпоновщика",,,,СокрЛП(ТекПользователь));
    Если ЗначениеЗаполнено(текНастройки) Тогда
        Компоновщик.ЗагрузитьНастройки(текНастройки.Получить());
    КонецЕсли;

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

Процедура№2:

&НаСервере
Процедура ИнициализироватьНастройкиКомпоновщика()
    
    МассивКлиентов = Новый Массив;
    для каждого стрСп из спКлиентов цикл
        МассивКлиентов.Добавить(стрСп.Значение);
    КонецЦикла;
    
    Макет=ПолучитьОбщийМакет("ДополнительныйФильтрВЗадании");
    //Макет.Параметры["Рейтинг"].Значение = Объект.РейтингДляПечати;    
    //Макет.Параметры["Страна"].Значение = Объект.Страна;    
    Макет.Параметры["ПМ_Период"].Значение = ПМ_Период;    
    Макет.Параметры["СписокКлиентов"].Значение = МассивКлиентов;    
    
    АдресСхемы = ПоместитьВоВременноеХранилище(Макет,УникальныйИдентификатор);
    Компоновщик.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(АдресСхемы,Новый Структура("СписокКлиентов",МассивКлиентов)));
    Компоновщик.ЗагрузитьНастройки(Макет.НастройкиПоУмолчанию);
    //Компоновщик.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(Макет));
    
    //ПРейтинг =  Компоновщик.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Рейтинг"));
    //ПРейтинг.Значение = Объект.РейтингДляПечати;    ПРейтинг.Использование = Истина;
    ППериод =  Компоновщик.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ПМ_Период"));
    ППериод.Значение = ПМ_Период;    
    ППериод.Использование = Истина;
    

    ПСписокКлиентов =  Компоновщик.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("СписокКлиентов"));
    ПСписокКлиентов.Значение = МассивКлиентов;    
    ПСписокКлиентов.Использование = Истина;
    
    //ПМакетыДляПечати =  Компоновщик.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("МакетыДляПечати"));
    //ПМакетыДляПечати.Значение = ПолучитьСписокМакетов(); ПМакетыДляПечати.Использование = Истина;
КонецПроцедуры
1 SkillUp
 
06.03.19
11:00
Все разобрался, пардон...
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.