Процедура Печать()
Работа = 0; ПечататьРаботуВНакладной = 0;
Если глПечатьДокументовСписком = 0 Тогда
спПечатныхФорм = глПолучитьСписокПечатныхФорм("Документ."+Вид());
Если СчетВзаиморасчетов.Валютный = 1 Тогда
глУдалитьЗначение(спПечатныхФорм,"РасходнаяНакладная_М20");
глУдалитьЗначение(спПечатныхФорм,"РасходнаяНакладная_1ТН");
КонецЕсли;
Если ОдинВидТМЦ > 0 Тогда//по одному виду ТМЦ
Если ВидТМЦ.ВидТМЦ <> Перечисление.ВидыТМЦ.Работа Тогда
глУдалитьЗначение(спПечатныхФорм,"РасходнаяНакладная_Акт");
Иначе
Работа = 1;
КонецЕсли;
Иначе//по многим видам ТМЦ
тз = СоздатьОбъект("ТаблицаЗначений");
ВыгрузитьТабличнуюЧасть(тз,"ВидТМЦвСтроке");
тз.Свернуть("ВидТМЦвСтроке",);
тз.ВыбратьСтроки();
Пока тз.ПолучитьСтроку() = 1 Цикл
Если тз.ВидТМЦвСтроке.ВидТМЦ = Перечисление.ВидыТМЦ.Работа Тогда
Работа = 1;
КонецЕсли;
КонецЦикла;
Если Работа = 0 Тогда
глУдалитьЗначение(спПечатныхФорм,"РасходнаяНакладная_Акт");
КонецЕсли;
КонецЕсли;
РежимПечати = глПечать(Контекст,"Документ." + Вид(), спПечатныхФорм);
Если ПустоеЗначение(РежимПечати) = 1 Тогда
Возврат;
КонецЕсли;
Иначе
РежимПечати = глРежимПечатиСписком;
КонецЕсли;
Если (РежимПечати = "РасходнаяНакладнаяФакс") или (РежимПечати = "РасходнаяНакладнаяПечать") или
(РежимПечати = "РасходнаяНакладная_Акт") Тогда
глПараметрыТаблицы(,1);
ИначеЕсли (РежимПечати = "РасходнаяНакладная_М20") или (РежимПечати = "РасходнаяНакладная_1ТН") Тогда
глПараметрыТаблицы(,2);
КонецЕсли;
Если глУстановкаПараметровПечати(РежимПечати) = 0 Тогда Возврат КонецЕсли;
//Сформировать(РежимПечати);
Если ((РежимПечати = "РасходнаяНакладнаяФакс") или (РежимПечати = "РасходнаяНакладнаяПечать")) и
(Работа = 1) Тогда
ПечататьРаботуВНакладной = Вопрос("Включати роботи в документ ?",4);
КонецЕсли;
Интересует гжде можно поправить форму из РежимПечати = "РасходнаяНакладнаяПечать". Никак не могу найти.