Здравствуйте!
Имеется самописная конфа.
Не могу вывести в печатную форму подчиненный элемент табличной части. (Инвентарный номер)
В таблице в форме получилось добавить этот элемент в таблицу, а вывести в макет не получается (вложения)
На данный момент имеется такой запрос:
Кликните здесь для просмотра всего текста
1C |
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
| Процедура ПечатьПриложений(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(ПечатьПриложений)
Макет = Документы.ДоговорОтветствХран.ПолучитьМакет("ПечатьПриложений");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЦЗН.ДиректорЦЗНсокр,
| ДоговорОтветствХран.Дата,
| ДоговорОтветствХран.ДоговорНом,
| ДоговорОтветствХран.ЦЗНполн,
| ДоговорОтветствХран.ИнвСписок.(
| НомерСтроки,
| НаименованиеТех.ИнвНом, //ВОТ ТУТ ПРОБЛЕМА, вот это надо вывести
| НаименованиеТех
| ),
| ДоговорОтветствХран.ИнвСписокБН.(
| НомерСтроки,
| НаименованиеТехБН,
| Количество
| )
|ИЗ
| Справочник.ЦЗН КАК ЦЗН,
| Документ.ДоговорОтветствХран КАК ДоговорОтветствХран
|ГДЕ
| ДоговорОтветствХран.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьИнвСписокШапка = Макет.ПолучитьОбласть("ИнвСписокШапка");
ОбластьИнвСписок = Макет.ПолучитьОбласть("ИнвСписок");
ОбластьИнвСписокБНШапка = Макет.ПолучитьОбласть("ИнвСписокБНШапка");
ОбластьИнвСписокБН = Макет.ПолучитьОбласть("ИнвСписокБН");
Подвал = Макет.ПолучитьОбласть("Подвал");
Подвал.Параметры.ДиректорФскр = Константы.РуководительФсокр.Получить();
//Поля страницы
ТабДок.Автомасштаб=истина;
ТабДок.ПолеСлева=30;
ТабДок.ПолеСправа=15;
ТабДок.ПолеСверху=20;
ТабДок.ПолеСнизу=20;
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
//ТабДок.Вывести(ОбластьЗаголовок);
//первая таблица
НомерПП=1;
Шапка.Параметры.НомерПП=НомерПП;
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьИнвСписокШапка);
ВыборкаИнвСписок = Выборка.ИнвСписок.Выбрать();
Пока ВыборкаИнвСписок.Следующий() Цикл
ОбластьИнвСписок.Параметры.Заполнить(ВыборкаИнвСписок);
ТабДок.Вывести(ОбластьИнвСписок, ВыборкаИнвСписок.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
//вторая таблица
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
НомерПП=2;
Шапка.Параметры.НомерПП=НомерПП;
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьИнвСписокБНШапка);
ВыборкаИнвСписокБН = Выборка.ИнвСписокБН.Выбрать();
Пока ВыборкаИнвСписокБН.Следующий() Цикл
ОбластьИнвСписокБН.Параметры.Заполнить(ВыборкаИнвСписокБН);
ТабДок.Вывести(ОбластьИнвСписокБН, ВыборкаИнвСписокБН.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры |
|