![15[1].jpg](/upload/iblock/9fe/15[1].jpg "15[1].jpg")
![provodkirealmat[1].png](/upload/iblock/78c/provodkirealmat[1].png "provodkirealmat[1].png")
![image013[1].png](/upload/iblock/9a9/image013[1].png "image013[1].png")
![treb_nakl2-800x600[1].jpg](/upload/iblock/631/treb_nakl2-800x600[1].jpg "treb_nakl2-800x600[1].jpg")
![peremeshenie-zapasov-mx-18[1].png](/upload/iblock/b20/peremeshenie-zapasov-mx-18[1].png "peremeshenie-zapasov-mx-18[1].png")
Внешняя печатная форма "М-11" для типовой БУХГАЛТЕРИИ, ред.2.0 для Документов "ТребованиеНакладная", "ОтчетПроизводстваЗаСмену", "ПередачаМатериаловВЭксплуатацию", "ОтчетПроизводстваЗаСмену"выводится на печать "М11", "ТребованиеНакладная", "АктСписания", в зависимости от доп.параметров (имя "МАКЕТ", Значение - тпи "СТРОКА").
Вот с доп.пареметрами сложноватько - надо указать, что Макет и далее:
- "М11" - выводится на печать "М-11 ТребованиеНакладная"
- "ТребованиеНакладная" - выводится на печать "ТребованиеНакладная"
- "АктСписания" - выводится на печать "Печать_АктаСписания"
- без параметров выводится "М-11 ТребованиеНакладная"
Для НЕКУРЯЩИХ пользователей привожу код функции ПЕЧАТЬ():
Функция Печать() Экспорт
Если ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ТребованиеНакладная") Тогда
Если ДополнительныеПараметры.Макет = "М11" Тогда
ТабДокумент = ПечатьМ11_ТребованиеНакладная();
ИначеЕсли ДополнительныеПараметры.Макет = "ТребованиеНакладная" Тогда
ТабДокумент = Печать_ТребованиеНакладная();
ИначеЕсли ДополнительныеПараметры.Макет = "АктСписания" Тогда
ТабДокумент = Печать_АктаСписания(СсылкаНаОбъект);
Иначе
ТабДокумент = ПечатьМ11_ТребованиеНакладная();
Конецесли;
ИначеЕсли ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ОтчетПроизводстваЗаСмену") Тогда
Если ДополнительныеПараметры.Макет = "М11" Тогда
ТабДокумент = ПечатьМ11_ОтчетПроизводстваЗаСмену();
ИначеЕсли ДополнительныеПараметры.Макет = "АктСписания" Тогда
ТабДокумент = Печать_АктаСписания(СсылкаНаОбъект);
Иначе
ТабДокумент = ПечатьМ11_ОтчетПроизводстваЗаСмену();
КонецЕсли;
ИначеЕсли ТипЗнч(СсылкаНаОбъект) = Тип("ДокументСсылка.ПередачаМатериаловВЭксплуатацию") Тогда
ТабДокумент = ПечатьМ11_ПередачаМатериаловВЭксплуатацию();
Иначе
Возврат Неопределено;
Конецесли;
Возврат ТабДокумент;
КонецФункции
Кто подскажет как это автоматизировать - тому спасибо и бантик на макушку! :)
