5
ptiz
08.11.11
✎
16:24
|
просто обходишь макеты объекта метаданных
Для Каждого ЭлементМакет Из Макеты Цикл
Если ЭтоПечатнаяФорма(ЭлементМакет.Имя, ТипМакета) Тогда
и проверяешь
&НаСервереБезКонтекста
Функция ЭтоПечатнаяФорма(ИмяМакета, ТипМакета = "")
Позиция = Найти(ИмяМакета, "ПФ_DOC");
Позиция = ?(Позиция = 0, Найти(ИмяМакета, "ПФ_ODT"), Позиция);
Позиция = ?(Позиция = 0, Найти(ИмяМакета, "ПФ_MXL"), Позиция);
Если Позиция = 0 Тогда
Возврат Ложь;
Иначе
ТипМакета = Сред(ИмяМакета, Позиция + 3, 3);
Возврат Истина;
КонецЕсли;
КонецФункции
|
|