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