|
5
RomaH
naïve
20.11.12
✎
09:41
|
я смотрю в сторону типовых механизмов
Процедура ПечатьРезультатовОсмотров(МассивОбъектов, ОбъектыПечати ,КоллекцияПечатныхФорм, ПараметрыВывода)
СсылкаНаОбъект = МассивОбъектов[0];
Для Каждого Осмотр Из СсылкаНаОбъект.Состав Цикл
Если ТипЗнч(Осмотр.ДокументОсмотра) = Тип("ДокументСсылка.ДанныеОсмотраХирурга") Тогда
//КоллекцияПечатныхФорм.Очистить();
СтрКоллекции = КоллекцияПечатныхФорм.Добавить();
СтрКоллекции.ИмяМакета = "РезультатыОсмотраХирурга";
СтрКоллекции.ИмяВРЕГ = ВРег(СтрКоллекции.ИмяМакета);
СтрКоллекции.Экземпляров = 1;
МассивОбъектовОсмотра = Новый Массив;
МассивОбъектовОсмотра.Добавить(Осмотр.ДокументОсмотра);
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
КоллекцияПечатныхФорм,
"РезультатыОсмотраХирурга", "Результаты осмотра хирурга",
Документы.ДанныеОсмотраХирурга.ПечатьРезультатовОсмотра(МассивОбъектовОсмотра, ОбъектыПечати), ,
);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
но че-то не выходит
|
|