"Там вот такой код<br>Процедура Печать()<br> Таб = СоздатьОбъект("Таблица");<br> Таб.ИсходнаяТаблица("М-11");<br> <br> ПодразделениеПолучатель = """";<br> Если ВидПеремещения = 0 Тогда<br> КорСчет = СчетЗатрат.Код;<br> Для СчетчикЦикла = 1 По СчетЗатрат.КоличествоСубконто() Цикл <br> Субконто = ПолучитьАтрибут("Субконто" + СчетчикЦикла);<br> Если Субконто.Вид() = "Подразделения" Тогда<br> ПодразделениеПолучатель = Субконто;<br> Прервать;<br> КонецЕсли;<br> КонецЦикла;<br> Иначе<br> ПодразделениеПолучатель = МестоХраненияПриемник;<br> КонецЕсли; <br> ПодразделениеОтправитель = МестоХранения;<br> <br><br> Если Проведен() = 0 Тогда<br> НомерПовторяемойСтроки = 16;<br> ТекстПредупреждения = "Для непроведенного документа графы """"Цена"""" и """"Сумма"""" не заполняются.";<br> Таб.ВывестиСекцию("Предупреждение");<br> Таб.ВывестиСекцию("Шапка");<br> <br> ВыбратьСтроки();<br> Пока ПолучитьСтроку() = 1 Цикл<br> Субсчет = ?(Материал.Вид() = "Материалы",Материал.СубСчет10,"43");<br> Если Материал.Выбран() = 1 Тогда<br> МатЦенность = Материал;<br> Код = Материал.Код;<br> ЕдиницаИзмерения = Материал.ЕдиницаИзмерения;<br> ЕдиницаИзмеренияКод = Материал.ЕдиницаИзмерения.Код;<br> МатериалСумма = 0;<br> МатериалЦенаБезНДС = 0;<br> КонецЕсли;<br> Таб.ВывестиСекцию("Строка");<br> Состояние("Выведено строк: " + НомерСтроки);<br> КонецЦикла;<br> <br> ИначеЕсли Модифицированность() = 1 Тогда<br> Предупреждение("Для печати документ необходимо перепровести.");<br> Возврат;<br> <br> Иначе<br> НомерПовторяемойСтроки = 15;<br> Таб.ВывестиСекцию("Шапка");<br><br> ВыбратьСтроки();<br> Пока ПолучитьСтроку() = 1 Цикл<br> Если Материал.Выбран() = 1 Тогда<br> Субсчет = ?(Материал.Вид() = "Материалы",Материал.СубСчет10,"43");<br> МатЦенность = Материал;<br> Код = Материал.Код;<br> ЕдиницаИзмерения = Материал.ЕдиницаИзмерения;<br> ЕдиницаИзмеренияКод = Материал.ЕдиницаИзмерения.Код;<br> МатериалСумма = Сумма;<br> МатериалЦенаБезНДС = Сумма / КоличествоОтпущено;<br> КонецЕсли;<br> Таб.ВывестиСекцию("Строка");<br> Состояние("Выведено строк: " + НомерСтроки);<br> КонецЦикла;<br> КонецЕсли;<br><br> Таб.ВывестиСекцию("Подвал");<br> Таб.Опции(0, 0, ?(Проведен() = 0, 1, 0), 0, "ОпцииПечатиМ11", "ОкноМ11");<br> Таб.ОбластьПечати(?(Проведен() = 0, 2, 1), 2,,);<br> Таб.ПовторятьПриПечатиСтроки(НомерПовторяемойСтроки, НомерПовторяемойСтроки);<br> Таб.ТолькоПросмотр(1);<br> Таб.Показать("Требование-накладная (форма №М-11)");<br>КонецПроцедуры // Печать"