1C Программирование и поддержка - [50] :: Прикладное программирование

Привет!

Помогите, пожалуйста. Нужен пример обработки со схемой компановки данных. Где схема только создана и не заполнена вручную. Все заполнение только программно. Набор данных объект - ТаблицаЗначений. Сам пробовал, не работает. Вот для примера мой код:
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ИсполнениеБюджетаОбороты.Проект КАК Проект,
| ИсполнениеБюджетаОбороты.СтатьяЗатрат КАК СтатьяЗатрат,
| ИсполнениеБюджетаОбороты.ДоговорКонтрагента КАК ДоговорКонтрагента,
| ЕСТЬNULL(ИсполнениеБюджетаОбороты.СуммаОборот, 0) КАК СуммаОборот
|ИЗ
| РегистрНакопления.ИсполнениеБюджета.Обороты КАК ИсполнениеБюджетаОбороты";

Результат = Запрос.Выполнить();
тз = Результат.Выгрузить();

// Схема компоновки данных

СхемаКомпоновкиДанных = ЭтотОбъект.ПолучитьМакет("ОсновнаяСКД");
// Источник данных

ИсточникДанных = СхемаКомпоновкиДанных.ИсточникиДанных.Добавить();
ИсточникДанных.Имя = "ИсточникДанных1";
ИсточникДанных.ТипИсточникаДанных = "Local";
// Добавим набор данных объект

НаборДанных = СхемаКомпоновкиДанных.НаборыДанных.Добавить(Тип("НаборДанныхОбъектСхемыКомпоновкиДанных"));
НаборДанных.Имя = "НаборДанных1";
НаборДанных.ИсточникДанных = ИсточникДанных.Имя;

НаборДанных = СхемаКомпоновкиДанных.НаборыДанных.Найти("НаборДанных1");
СтаршийИндексКолонки = тз.Колонки.Количество() - 1;
Для Инд = 0 По СтаршийИндексКолонки Цикл
Кол = тз.Колонки.Получить(Инд);
Если Найти(Кол.Имя, "Представление") > 0 Тогда
Продолжить;
КонецЕсли;
//Измерения

ПолеНабораДанных = НаборДанных.Поля.Добавить(Тип("ПолеНабораДанныхСхемыКомпоновкиДанных") );
ПолеНабораДанных.Поле = Кол.Имя;
ПолеНабораДанных.ПутьКДанным = Кол.Имя;
ПолеНабораДанных.Заголовок = Кол.Имя;
//Ресурсы

Если Кол.ТипЗначения = Новый ОписаниеТипов("Число,NULL") Тогда
Выражение = "Сумма(" + ПолеНабораДанных.ПутьКДанным + ")";
ПолеИтога = СхемаКомпоновкиДанных.ПоляИтога.Добавить();
ПолеИтога.ПутьКДанным = ПолеНабораДанных.ПутьКДанным;
ПолеИтога.Выражение = Выражение;
КонецЕсли;
КонецЦикла;

КомпоновщикНастроек.Инициализировать(Новый ИсточникДоступныхНастроекКомпоновкиДанных(СхемаКомпоновкиДанных));
КомпоновщикНастроек.ЗагрузитьНастройки(СхемаКомпоновкиДанных.НастройкиПоУмолчанию);

//Настройки

Настройки = ЭтотОбъект.КомпоновщикНастроек.Настройки;
ГруппировкаПроект = Настройки.Структура.Добавить(Тип ("ГруппировкаКомпоновкиДанных" ));
ГруппировкаПроект.Использование = Истина;

ПолеПроект = ГруппировкаПроект.ПоляГруппировки.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
ПолеПроект.Использование = Истина;

ПолеПроект.Поле = Новый ПолеКомпоновкиДанных("Проект");
ВыбранныеПоляДляПроекта = ГруппировкаПроект.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));
ВыбранныеПоляДляПроекта.Использование = Истина;

ГруппировкаСтатьяЗатрат = ГруппировкаПроект.Структура.Добавить(Тип ("ГруппировкаКомпоновкиДанных" ));
ГруппировкаСтатьяЗатрат.Использование = Истина;

ПолеСтатьяЗатрат = ГруппировкаСтатьяЗатрат.ПоляГруппировки.Элементы.Добавить(Тип("ПолеГруппировкиКомпоновкиДанных"));
ПолеСтатьяЗатрат.Использование = Истина;

ПолеСтатьяЗатрат.Поле = Новый ПолеКомпоновкиДанных("СтатьяЗатрат");
ВыбранныеПоляДляСтатьяЗатрат = ГруппировкаСтатьяЗатрат.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));
ВыбранныеПоляДляСтатьяЗатрат.Использование = Истина;
// Сформируем структуру, содержащую внешний набор данных:

ВнешниеНаборыДанных = Новый Структура;
ВнешниеНаборыДанных.Вставить("тз", тз);

ОтчетОбъект.КомпоновщикНастроек.Восстановить();
Схема = ОтчетОбъект.СхемаКомпоновкиДанных;
//Сгенерируем макет компоновки данных при помощи компоновщика макета

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;
МакетКомпоновки = КомпоновщикМакета.Выполнить(Схема, ОтчетОбъект.КомпоновщикНастроек.Настройки);

ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки, ВнешниеНаборыДанных);

После выполнения последнего оператора выдает ошибку:
{Форма.ФормаОтчетаСКД(96)}: Ошибка при вызове метода контекста (Инициализировать): Ошибка компоновки данных
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
по причине:
Ошибка компоновки данных
по причине:
Ошибка инициализации
по причине:
Ошибка создания набора данных "НаборДанных1"
по причине:
Не найден внешний набор данных

Модерирует : ShIvADeSt
ShIvADeSt (03-04-2009 02:03): Продолжение тут http://forum.ru-board.com/topic.cgi?forum=33&topic=10256#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100