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

[avm3110]

Результат не изменился, так же выдает на печать все элементы без исключения

Ну е-е-е.. неужели нужно "все разжевывать, а не слегка подсказывать"? :blush:

Ну хорошо... Параметр установлен правильно, а теперь следующий вопрос - а где в запросе этот параметр используется?
Где в запросе есть &ТекущийЭлемент ?

[fox186]

Ну е-е-е.. неужели нужно "все разжевывать, а не слегка подсказывать"? :blush:

Ну хорошо... Параметр установлен правильно, а теперь следующий вопрос - а где в запросе этот параметр используется?
Где в запросе есть &ТекущийЭлемент ?

Я уже в конец запутался) насколько я понял вы имели ввиду это:

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

Но теперь выдает пустую таблицу.

[avm3110]

Но теперь выдает пустую таблицу.

Это потому что в запросе "взаимоисключающие требования" (это с одной стороны). С другой - сам запрос абсолютно неправильный :-)

Поэтому и не работает

[fox186]

:) очень "помогли"

[fox186]

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

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

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


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

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

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

[avm3110]

Ну видишь. Все настолько просто :blush:, что даже не понятно как "помогать" :confused: