7.7 Печать документов за период

Код:

//*******************************************
Перем Таб;
//*******************************************
Процедура Печать(Докум, Устройство=0, КолвоКопий=1)
СтатусВозврата(0);
Таб.ВывестиСекцию("Шапка");  
// Печать строк документа.
Докум.ВыбратьСтроки();
Ном=0;
Пока Докум.ПолучитьСтроку()=1 Цикл
Ном=Ном+1;
Если ТипЗначения(Докум.Товар) = 1 Тогда
Наименование = Докум.Товар;
ИначеЕсли Докум.Товар.Вид() = "Номенклатура" Тогда
Наименование = ?(ПустаяСтрока(Докум.Товар.ПолнНаименование)=1, Докум.Товар.Наименование, Докум.Товар.ПолнНаименование);
Количество = Докум.Количество;
Масса = Докум.Товар.Вес*Количество;
НомШтабеля = Докум.НомШтабеля;
Влажность  = Докум.Влажность;
Сорность   = Докум.Сорность;
КонецЕсли;	
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
КонецПроцедуры
//*******************************************
Процедура ПечатьСПовторением(Докум, Устройство=0, КолвоКопий=1)
СтатусВозврата(0);
Таб1 = СоздатьОбъект("Таблица");
Таб1.ИсходнаяТаблица("Справка");
Таб1.ВывестиСекцию("Шапка");  
// Печать строк документа.
Докум.ВыбратьСтроки();
Ном=0;
Пока Докум.ПолучитьСтроку()=1 Цикл
Ном=Ном+1;
//Если ТипЗначения(Докум.Товар) = 2 Тогда
//Наименование = Докум.Товар;
Таб1.ВывестиСекцию("Строка");
КонецЦикла;
Таб1.ВывестиСекцию("Подвал");
Таб1.Опции(0, 0, 0, 0, "ОпцииПечатиПриказ", "ОкноПриказ");
Таб1.ПовторятьПриПечатиСтроки( 15, 16 );
Таб1.ТолькоПросмотр(1);
Таб1.ПараметрыСтраницы(1,,,,,,,,,1,,);
Таб1.Показать("Печать Справка","");
КонецПроцедуры
//******************************************************************************
// Предопределенная процедура
Процедура ПриОткрытии()
Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
Докум      = Форма.Параметр.Получить("Контекст");
Устройство = Форма.Параметр.Получить("Устройство");
КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");
Печать(Докум, Устройство, КолвоКопий);
Статусвозврата(0);
Возврат;
КонецЕсли;
КонецПроцедуры // ПриОткрытии()
//******************************************************************************
Процедура Выполнить()
Г=0;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Справка");
СФ=СоздатьОбъект("Документ.Приказ");
СФ.ВыбратьДокументы(НачДата,КонДата);
Пока СФ.ПолучитьДокумент()=1 Цикл
Если СФ.Вид()<>"Справка" Тогда
Продолжить;
КонецЕсли;
Г=Г+1;
Если Г>1 Тогда
Таб.НоваяСтраница();
КонецЕсли;
Если СФ.КоличествоСтрок()>4 Тогда
Сообщить("Внимание! В "+СокрЛП(СФ.ТекущийДокумент())+" слишком много строк, выведен на печать отдельно!");
ПечатьСПовторением(СФ.ТекущийДокумент());
Иначе
Печать(СФ.ТекущийДокумент());
КонецЕсли;
КонецЦикла;
Таб.Опции(0, 0, 0, 0, "ОпцииПечатиСправка", "ОкноСправка	//Таб.ПовторятьПриПечатиСтроки( 15, 15 );
Таб.ТолькоПросмотр(1);
Таб.ПараметрыСтраницы(1,,,,,,,,,1,,);
Таб.Показать("Печать Справка","");
КонецПроцедуры
//******************************************************************************
</span>

</FONT></FONT></pre>

Спасибо. Я Написал вот такой код. Табличная часть и документы за период выводятся на печать как надо, но я немогу вывести на печать нетабличные реквизиты. Как их прописать. Чтобы выводилась дата и все остальное.
[/quote]

Вставил реквизит Срок

Код:

Процедура Печать(Докум, Устройство=0, КолвоКопий=1)
СтатусВозврата(0);
Таб.ВывестиСекцию("Шапка");          
Срок = Докум.Срок;
Докум.ВыбратьСтроки();

В таблице в ячейке <Срок>, стоит Тип-Выражение. Но при печати на принтер пусто.
Если можно пример на реквизите Дата и т.д. Спасибо.
[/quote]

Нашел сам ответ. Прописал в ячейке <Докум.Срок> и все заработало. Спасибо еще раз.

Все реквизиты выводит, а вот дату не хочет.
<[СокрЛ(Докум.НомерДок)] от [?(ДатаЧисло(ДатаДок)<10,"0","")+Формат(ДатаДок ,"Д ДДММММГГГГ")]> НомерДок выводит, а Дату нет. В чем ошибка?

Точно. Спасибо.