Функция ПечатьСтеллажнаяКарточка(Док) Экспорт //гит
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СтеллажнаяКарточка_Новая";
Макет = УправлениеПечатью.ПолучитьМакет("Документ.УМО_ПоступлениеТоваров.СтеллажнаяКарточка");
Инд=0;
Для Каждого Стр Из Док.Товары Цикл
Инд=Инд+1;
Если Инд=9 Тогда
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
Инд=1;
КонецЕсли;
//Если НЕ Инд/2=Цел(Инд/2) Тогда
// Обл=Макет.ПолучитьОбласть("Строки");
//Иначе
Обл=Макет.ПолучитьОбласть("Строки|Колонки");
//КонецЕсли;
Обл.Параметры.Наим=Стр.Номенклатура;
Обл.Параметры.Цена=Стр.Цена;
Обл.Параметры.Серия=Стр.СерияНоменклатуры;
Обл.Параметры.Завод=Стр.Номенклатура.ЭлементКАТ.ФирмаПроизводитель;
Обл.Параметры.Поставщик=Док.Контрагент;
Обл.Параметры.Количество=Стр.Количество;
Обл.Параметры.ДатаПрихода=Формат(Док.Дата,"ДФ=dd.MM.yyyy");
Обл.Параметры.СрокГодности=Формат(Стр.СерияНоменклатуры.СрокГодности,"ДФ=dd.MM.yyyy");
Если НЕ Инд/2=Цел(Инд/2) Тогда
ТабДокумент.Вывести(обл);
Иначе
ТабДокумент.Присоединить(Обл);
КонецЕсли;
КонецЦикла;
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой