Функции, запросы

[fox186]

Разобрался, все было очень просто. Может кому-то пригодится)

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

  Возврат Истина;
Прервать;
КонецЦикла;
  Возврат Ложь
  
    КонецФункции


Функция ПечатьБезАналогов()
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_БезАналогов";

    Макет = ПолучитьМакет("БезАналогов");
    ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
    ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаб");
    ОбластьСтрокаТаблицы = Макет.ПолучитьОбласть("СтрокаТаб");
    
    ОбластьШапка.Параметры.НаименованиеСпецификации = Наименование;
    ОбластьШапка.Параметры.КодСпецификации = Код;
    ТабДокумент.Вывести(ОбластьШапка);
    
    ТабДокумент.Вывести(ОбластьШапкаТаблицы);
    
    Для Каждого СтрокаИсходныеКомпл Из ИсходныеКомплектующие Цикл
 
        Если ПроверкаНаЭталон(СтрокаИсходныеКомпл.Номенклатура) И НЕ СтрокаИсходныеКомпл.ПометкаНаУдаление Тогда

        Иначе
            
            ОбластьСтрокаТаблицы.Параметры.Код = СтрокаИсходныеКомпл.Номенклатура.Артикул;
            ОбластьСтрокаТаблицы.Параметры.Наименование = СтрокаИсходныеКомпл.Номенклатура.Наименование;
            ОбластьСтрокаТаблицы.Параметры.КолВИзд = СтрокаИсходныеКомпл.Количество;
            ОбластьСтрокаТаблицы.Параметры.ПоНорме = СтрокаИсходныеКомпл.Норма;
            ОбластьСтрокаТаблицы.Параметры.ЕдИзм = СтрокаИсходныеКомпл.ЕдиницаИзмерения.ЕдиницаПоКлассификатору.Наименование;
            ТабДокумент.Вывести(ОбластьСтрокаТаблицы);
        КонецЕсли;
    КонецЦикла;
    Возврат ТабДокумент;
КонецФункции