"версия 8.1<br>релиз 1.6.24.7<br><br><br>Код:<br>// Функция формирует печатную форму документа МБ-7<br>//<br>Функция ПечатьМБ7()Экспорт<br><br> Запрос = Новый Запрос;<br> <br> Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);<br> <br> Запрос.Текст = <br> "ВЫБРАТЬ<br> | Номер КАК НомерДокумента,<br> | Дата КАК ДатаДокумента,<br> | Дата КАК ДатаСоставления,<br> | Организация КАК Организация,<br> | Склад КАК Склад,<br> | ПодразделениеОрганизации КАК Подразделение<br> |ИЗ<br> | Документ.ПередачаМатериаловВЭксплуатацию КАК ПередачаМатериаловВЭксплуатацию<br> |<br> |ГДЕ<br> | ПередачаМатериаловВЭксплуатацию.Ссылка = &ТекущийДокумент";<br><br> Шапка = Запрос.Выполнить().Выбрать();<br> Шапка.Следующий();<br><br> Запрос = Новый Запрос;<br> Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);<br> Запрос.УстановитьПараметр("Организация", Шапка.Организация);<br> Запрос.УстановитьПараметр("Дата", Шапка.ДатаДокумента);<br><br> Запрос.Текст =<br> "ВЫБРАТЬ<br> | Спецодежда.НомерСтроки КАК НомерПП,<br> | Спецодежда.Номенклатура.Код КАК НоменклатурныйНомер,<br> | ВЫРАЗИТЬ(Спецодежда.Номенклатура.НаименованиеПолное КАК СТРОКА(1000)) КАК ТоварНаименование,<br> | Спецодежда.Номенклатура.БазоваяЕдиницаИзмерения.Код КАК ЕдиницаИзмеренияКод,<br> | Спецодежда.Номенклатура.БазоваяЕдиницаИзмерения.Наименование КАК ЕдиницаИзмеренияНаименование,<br> | Спецодежда.Количество КАК Количество,<br> | Спецодежда.ФизЛицо КАК Сотрудник,<br> | РаботникиОрганизацийСрезПоследних.ТабельныйНомер,<br> | Спецодежда.Ссылка.Дата КАК ДатаДокумента,<br> | Спецодежда.НазначениеИспользования.СрокПолезногоИспользования КАК СрокСлужбы<br> |ИЗ<br> | Документ.ПередачаМатериаловВЭксплуатацию.Спецодежда КАК Спецодежда<br> | ЛЕВОЕ СОЕДИНЕНИЕ <br> | (ВЫБРАТЬ <br> | РаботникиОрганизацийСрезПоследних.Сотрудник.Код КАК ТабельныйНомер,<br> | РаботникиОрганизацийСрезПоследних.Сотрудник.ФизЛицо КАК ФизЛицо,<br> | РаботникиОрганизацийСрезПоследних.Должность КАК Должность,<br> | РаботникиОрганизацийСрезПоследних.ПодразделениеОрганизации КАК ПодразделениеОрганизации<br> | ИЗ<br> | РегистрСведений.РаботникиОрганизаций.СрезПоследних(&Дата, Организация = &Организация) КАК РаботникиОрганизацийСрезПоследних<br> | ГДЕ<br> | РаботникиОрганизацийСрезПоследних.ПричинаИзмененияСостояния <> ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение)<br> | ) КАК РаботникиОрганизацийСрезПоследних<br> | ПО Спецодежда.ФизЛицо = РаботникиОрганизацийСрезПоследних.Физлицо <br> |ГДЕ<br> | Спецодежда.Ссылка = &ТекущийДокумент<br> |<br> |УПОРЯДОЧИТЬ ПО<br> | НомерПП";<br> ВыборкаПоСтрокам = Запрос.Выполнить().Выбрать();<br><br> ТабДокумент = Новый ТабличныйДокумент;<br> ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПередачаМатериаловВЭксплуатацию_МБ7";<br> <br> // Вывод заголовка<br> Макет = ПолучитьМакет("МБ7");<br> Область = Макет.ПолучитьОбласть("Заголовок");<br> Область.Параметры.Заполнить(Шапка);<br> <br> СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента);<br><br> Область.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации);<br> Область.Параметры.ПредставлениеПодразделения = Шапка.Подразделение;<br> Область.Параметры.ОрганизацияПоОКПО = СведенияОбОрганизации.КодПоОКПО;<br> <br> ТабДокумент.Вывести(Область);<br><br> Пока ВыборкаПоСтрокам.Следующий() Цикл<br><br> Область = Макет.ПолучитьОбласть("Строка");<br> Область.Параметры.Заполнить(ВыборкаПоСтрокам);<br> Область.Параметры.ТоварНаименование = СокрЛП(ВыборкаПоСтрокам.ТоварНаименование);<br> ТабДокумент.Вывести(Область);<br><br> КонецЦикла;<br><br> // Вывод подвала<br> Область = Макет.ПолучитьОбласть("Подписи");<br> ТабДокумент.Вывести(Область);<br><br> Возврат ТабДокумент;<br><br>КонецФункции // ПечатьМБ7()<br><br><br><br><br><br>// Процедура осуществляет печать документа. Можно направить печать на <br>// экран или принтер, а также распечатать необходмое количество копий.<br>//<br>// Название макета печати передается в качестве параметра,<br>// по переданному названию находим имя макета в соответствии.<br>//<br>// Параметры:<br>// НазваниеМакета - строка, название макета.<br>//<br>Функция Печать(ИмяМакета, КоличествоЭкземпляров = 1, НаПринтер = Ложь, НепосредственнаяПечать = Ложь) Экспорт<br> <br> // Получить экземпляр документа на печать<br> Если ИмяМакета = "МБ7" Тогда<br> ТабДокумент = ПечатьМБ7();<br> ИначеЕсли ИмяМакета = "М11" Тогда<br> ТабДокумент = ПечатьМ11();<br> <br> КонецЕсли;<br> <br> УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(СсылкаНаОбъект.Ссылка), НепосредственнаяПечать);<br> <br>КонецФункции // Печать()<br>"