Составление одного файла Exel из разных отчетов

[Vseslovur]

Платформа 8.2

Конфа БП 2.0.25.5

Если не вдаваться в подробности, то нужен отчет по определенному дописанному регистру. При этом в отчете фигурируют разные промежутки времени (с15.09.10 по 15.10.10; с 15.10.10 по 15.12.10 ; с 15.12.10 по 15.02.11; с 15.02.11 по 15.06.11)

Пытаемся решить следующим образом:

С помощью универсального отчета формируем отчет за первый промежуток, пишем в файл, потом за второй промежуток, дописываем в тот же файл, и т. д. После последнего сохраняем файл в Exel и открываем.

Но вот как ни бейся второй отчет не пристыковывается к первому справа, а дописывается под ним(( голову сломал, не знаю как решить.



Все три шага реализуются нажатием на разные кнопки в форме отчета.


Шаг 1.

Код: (1C v8)

//Пишем первый отчет в файл

ТабДок = ЭлементыФормы.Результат;
 ТабДок.Записать("C:\temp\123",типфайлатабличногодокумента.mxl);

Шаг 2.

Код: (1C v8)

//Дописываем

ТабДок = ЭлементыФормы.Результат;

//Убираем столбец с контрагентами, так как он уже есть
 Область = ТабДок.Область("R4C1:R500C1");
 Смещать = ТипСмещенияТабличногоДокумента.ПоГоризонтали;
 ТабДок.УдалитьОбласть(Область, Смещать);



ТабДокСтар = Новый ТабличныйДокумент;
 ИмяФайла = "C:\temp\123";
 ТабДокСтар.Прочитать(ИмяФайла);
 ТабДокСтар.Присоединить(ТабДок);
ТабДокСтар.Записать(ИмяФайл,типфайлатабличногодокумента.mxl);

Шаг 3.

Код: (1C v8)

//Указываем куда все это сохранить и открываем

ТабДокФин = Новый ТабличныйДокумент;
 ТабДокСтар = Новый ТабличныйДокумент;
 ИмяФайла = "C:\temp\123";
 ТабДокСтар.Прочитать(ИмяФайла);
 ИмяФайла2 = ПолучитьИмяФайлаExcel(); //Эта функция работает нормально, здесь ее код не привожу
 ТабДокФин.Записать(ИмяФайла2,типфайлатабличногодокумента.xls);
 ЗапуститьПриложение(ИмяФайла2);

[Kivals]

"пристыковывается" - это присодиняется справа?
Попробуй при этой операции добиться того, чтобы области у тебя были одной высоты, т.е. определи максимум строк отчета.
Кроме того попробуй писать области в новый документ.
В итоге должно быть что-то вроде:

Код: (1C v8)

ТабДок = Новый ТабличныйДокумент;

ТабДокРезультат = ЭлементыФормы.Результат;
Область = ТабДокРезультат.Область("R4C1:R500C1");

ТабДокСтар = Новый ТабличныйДокумент;
ИмяФайла = "C:\temp\123";
ТабДокСтар.Прочитать(ИмяФайла);
ОбластьСтар = ТабДокСтар.Область("R4C1:R500C1");

ТабДок.Вывести(ОбластьСтар)
ТабДок.Присоединить(Область);
ТабДок.Записать(ИмяФайл, типфайлатабличногодокумента.mxl);

[Vseslovur]

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

Но точное число устанавливать нельзя, так как могут отобрать только по группе контрагентов, а могут по всем..

[Kivals]

Главное - чтобы ты читал области одной высоты из твоих таблиц, т.е. возможно Присоединить() неверное работает с областями разной высоты.
Кроме того - возможно проблема в отм, что ты пытаешься присоединить в существующий файл - попробуй изучить мой код и сделать выводы.
То, что одинаковый отбор в отчетах еще не означает одинаковое количество строк результата: например за выбранный период у контрагента еще могло не быть оборотов и в отчет он не попадет (конечно - это зависит еще от отчета: можно написать отчет так, что попадет с нулевыми данными)

[Vseslovur]

Несоответствие типов((
Область = ТабДокРезультат.Область("R4C1:R500C1"); 
"Возвращаемое значение:

Тип: ОбластьЯчеекТабличногоДокумента; РисунокТабличногоДокумента."

ТабДок.Вывести(ОбластьСтар)
ТабДок.Присоединить(Область);

"Синтаксис:

Присоединить(<Таблица>, <Уровень>, <ИмяГруппы>, <Открыта>)
Параметры:

<Таблица> (обязательный)

Тип: ТабличныйДокумент; ПолеТабличногоДокумента. "

ТабДок.Вывести то же самое...



Но смысл понял, спасибо. сейчас буду пробовать еще...

Добавлено через 1 день, 13 часов, 10 минут и 15 секунд:
Можно по-подробнее, как сделать так, что бы попал контрагент с нулевыми данными?
С остальным вроде разобрался, как будет готовый результат, выложу.

[Kivals]

Два запроса (один по контрагентам, второй по данным отчета) объединить с использованием СОЕДИНЕНИЕ (если запрос по контрагентам первый - то ЛЕВОЕ СОЕДИНЕНИЕ) и для получения корректных результатов использовать ЕСТЬNULL():

Код:

"ВЫБРАТЬ
|	Контрагенты.Ссылка КАК Контрагент,
|	ЕСТЬNULL(ВзаиморасчетыСКонтрагентамиОстатки.СуммаВзаиморасчетовОстаток, 0) КАК СуммаВзаиморасчетов
|ИЗ
|	Справочник.Контрагенты КАК Контрагенты
|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ВзаиморасчетыСКонтрагентами.Остатки КАК ВзаиморасчетыСКонтрагентамиОстатки
|		ПО ВзаиморасчетыСКонтрагентамиОстатки.Контрагент = Контрагенты.Ссылка
|ГДЕ
|	Контрагенты.Ссылка В ИЕРАРХИИ(&ГруппаКонтрагентов)
|	И ВзаиморасчетыСКонтрагентамиОстатки.Контрагент В ИЕРАРХИИ(&ГруппаКонтрагентов)"

P.S. Второе условие вроде не обязательно...

[Vseslovur]

Два запроса (один по контрагентам, второй по данным отчета) объединить с использованием СОЕДИНЕНИЕ (если запрос по контрагентам первый - то ЛЕВОЕ СОЕДИНЕНИЕ) и для получения корректных результатов использовать ЕСТЬNULL():

Код:

"ВЫБРАТЬ
|	Контрагенты.Ссылка КАК Контрагент,
|	ЕСТЬNULL(ВзаиморасчетыСКонтрагентамиОстатки.СуммаВзаиморасчетовОстаток, 0) КАК СуммаВзаиморасчетов
|ИЗ
|	Справочник.Контрагенты КАК Контрагенты
|		ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ВзаиморасчетыСКонтрагентами.Остатки КАК ВзаиморасчетыСКонтрагентамиОстатки
|		ПО ВзаиморасчетыСКонтрагентамиОстатки.Контрагент = Контрагенты.Ссылка
|ГДЕ
|	Контрагенты.Ссылка В ИЕРАРХИИ(&ГруппаКонтрагентов)
|	И ВзаиморасчетыСКонтрагентамиОстатки.Контрагент В ИЕРАРХИИ(&ГруппаКонтрагентов)"

P.S. Второе условие вроде не обязательно...

Огромное спасибо, буду пробовать)

Добавлено через 53 минуты и 50 секунд:
"Не задано значение параметра "ГруппаКонтрагентов""
Вроде поле ввода в форме сделал, данные - ГруппаКонтрагентов (из реквизитов формы), а все равно не задано(((

[Kivals]

Читать в синтакс-помощнике про параметры запроса и смотреть там пример для метода УстановитьПараметр()