Печать реестра сефтификатов

[Nikolya228]

Код Выделить Развернуть

Функция Печать() Экспорт

ТабДок        = Новый ТабличныйДокумент;
Макет         = ПолучитьМакет("Сертификат");
ОбластьШапки  = Макет.ПолучитьОбласть("Шапка");
ОбластьДанные = Макет.ПолучитьОбласть("Данные");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");

ОбластьШапки.Параметры.ТекстЗаголовка = "Приложение к расходной накладной № " + СсылкаНаОбъект.Номер;
ТабДок.Вывести(ОбластьШапки);


ОбластьДанные.Параметры.НомерСтроки =0;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Ссылка", СсылкаНаОбъект);
Запрос.Текст =
"ВЫБРАТЬ
| РеализацияТоваровУслугТовары.Номенклатура
|ИЗ
| Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
|ГДЕ
| РеализацияТоваровУслугТовары.Ссылка = &Ссылка";
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
ЗаполнитьЗначенияСвойств(ОбластьДанные.Параметры, Выборка);
Товар = Выборка.Номенклатура;
         ОбластьДанные.Параметры.НомерСтроки =ОбластьДанные.Параметры.НомерСтроки +1;
Запрос1 = Новый Запрос;
Запрос1.УстановитьПараметр("Номенклатура", Товар);
Запрос1.Текст =
"ВЫБРАТЬ
| СерииНоменклатуры.Сертификат,
|   СерииНоменклатуры.СрокГодности
|ИЗ
| Справочник.СерииНоменклатуры КАК СерииНоменклатуры
|ГДЕ
| СерииНоменклатуры.Владелец = &Номенклатура";

       
      Выборка2 = Запрос1.Выполнить().Выбрать();

Пока Выборка2.Следующий() Цикл
         
ОбластьДанные.Параметры.СрокГодности = Выборка2.СрокГодности;
ОбластьДанные.Параметры.Сертификат = Выборка2.Сертификат;


КонецЦикла;

  ТабДок.Вывести(ОбластьДанные);
КонецЦикла;
Возврат ТабДок;

КонецФункции


Помогите пожалуйста...Проблема в том ,что если у товара нет сертификата то выводится тот сертификат который был у предыдущего,а мне надо так ,если нет у товара сертификата,то товар не должен появлятся в печатной форме вообще!!!!

[Dethmontt]

Код Выделить Развернуть

Выборка2 = Запрос1.Выполнить().Выбрать();
Если Выборка2.Количество() = 0 Тогда
   Продолжить;
КонецЕсли;         
Пока Выборка2.Следующий() Цикл