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

[fox186]

Необходимо вывести на печать табличную часть, исключив Эталон. Создал функцию, которая выполняет запрос, поиска эталона, затем вызвал функцию при выводе табличной части на печать, чтобы если в табличной части есть эталон, то он не отображался в табличном документе.

Помогите! Не могу разобраться почему в табличном документе На печать не исключается Эталон, всегда выдает таблицу вместе с Эталоном.

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

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


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

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

[avm3110]

Мля... Выполнение запроса в цикле - охринеть.. За такое при сдаче в 1С ставят сразу двойку и выгоняют с экзамена

ПыСы. у тебя вызов ПроверкаНаЭталон(Ном)
значит Текущая номенклатура у тебя находится в переменной Ном

Так?
А в запрос ты устанавливаешь ЭтотОбъект.Ссылка - Запрос.УстановитьПараметр( "ТекущийЭлемент", ЭтотОбъект.Ссылка);
Как это связано с НомИ?

Или

[fox186]

А в запрос ты устанавливаешь ЭтотОбъект.Ссылка - Запрос.УстановитьПараметр( "ТекущийЭлемент", ЭтотОбъект.Ссылка);
Как это связано с НомИ?
Или

Если я правильно понял нужно сделать так:

 Запрос.УстановитьПараметр("ТекущийЭлемент", Ном); 

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

[avm3110]

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

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

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

[fox186]

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

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

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

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

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

[avm3110]

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

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

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

[fox186]

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

[fox186]

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

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

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


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

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

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

[avm3110]

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