Имя: Пароль:
1C
1С v8
Примеры ПолучитьИсполняемуюСхемуКомпоновкиДанных для 8.3.6+
0 Ns33
 
07.05.15
11:24
Накидал два рабочих примера вывода данных динамического списка, ибо на форуме примеры не рабочие. Может кому пригодится.

1. В Таб. док.

    Схема = Элементы.Список.ПолучитьИсполняемуюСхемуКомпоновкиДанных();
    Настройки = Элементы.Список.ПолучитьИсполняемыеНастройкиКомпоновкиДанных();
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных();
    МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, Настройки);
    ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
    
    ТабДок=Новый ТабличныйДокумент;
    
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент ;
    ПроцессорВывода.УстановитьДокумент(ТабДок);
    
    ПроцессорВывода.НачатьВывод();
    
    ЭлементРезультат=   ПроцессорКомпоновки.Следующий();
    Пока ЭлементРезультат <> Неопределено Цикл
        ПроцессорВывода.ВывестиЭлемент(ЭлементРезультат);
        ЭлементРезультат=   ПроцессорКомпоновки.Следующий();    
    КонецЦикла;
    
    ПроцессорВывода.ЗакончитьВывод();
    
2. В ТЗ.

    Схема = Элементы.Список.ПолучитьИсполняемуюСхемуКомпоновкиДанных();
    Настройки = Элементы.Список.ПолучитьИсполняемыеНастройкиКомпоновкиДанных();
    КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных();
    МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, Настройки,,,Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
    ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
    ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
    
    ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений ;
    
    ТЗ=  Новый ТаблицаЗначений;
    ПроцессорВывода.УстановитьОбъект(ТЗ);
    ПроцессорВывода.Вывести(ПроцессорКомпоновки);
1 degot
 
07.05.15
11:32
ништяк, проверим
Ошибка? Это не ошибка, это системная функция.