3
aspect
03.02.12
✎
10:24
|
Сделал следующим образом, прекрасно работает:
Документ = ДокументОбъект.Ссылка;
ДеревоМакетовПечатиНакладной = УниверсальныеМеханизмы.ПолучитьДеревоМакетовПечати(Документы.РеализацияТоваровУслуг.СоздатьДокумент().Ссылка, Документы.РеализацияТоваровУслуг.СоздатьДокумент().ПолучитьСтруктуруПечатныхФорм(),,,Ложь);
МакетыНакладной = ПреобразоватьДеревоВСписок(ДеревоМакетовПечатиНакладной);
СтрМакета = ДеревоМакетовПечатиНакладной.Строки.Найти("Наименование", "Текст");
Если (СтрМакета<>Неопределено) И (СтрМакета.Расшифровка<>Неопределено) И (ТипЗнч(СтрМакета.Расшифровка)=Тип("Структура")) И (СтрМакета.Расшифровка.СсылкаНаВнешнююОбработку<>Неопределено) Тогда
ТабДокумент = УниверсальныеМеханизмы.НапечататьВнешнююФорму(Документ.Ссылка, СтрМакета.Расшифровка);
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, ПечататьНаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(Документ, Документ.Метаданные().Представление()), Документ.Ссылка);
Иначе
Документ.Печать(СтрМакета.Значение, КоличествоЭкземпляров, ПечататьНаПринтер);
КонецЕсли;
Функция ПреобразоватьДеревоВСписок(ИсходноеДерево)
СЗ = Новый СписокЗначений;
Для Каждого СтрокаДерева Из ИсходноеДерево.Строки Цикл
СЗ.Добавить(СтрокаДерева.Имя, СтрокаДерева.Текст);
СЗ.СортироватьПоПредставлению();
КонецЦикла;
Возврат СЗ;
КонецФункции // ПреобразоватьДеревоВСписок()
|
|