Надо вывести наименование контрагента, у которого "Наименование" равно переменной "Контр", и "Родитель" равен переменной "РодитКонтр".


Текст = новый ТекстовыйДокумент;
Текст.Прочитать(ПолеВвода1 + "\" +"ДоговораКонтрагентов.txt");
Запр = новый Запрос;
Запр.Текст="ВЫБРАТЬ
           |    Контрагенты.Ссылка
           |ИЗ
           |    Справочник.Контрагенты КАК Контрагенты
           |ГДЕ
           |    Контрагенты.Наименование = &Наименование
           |    И Контрагенты.Родитель = &Родитель";
          
            
Для р = 1 по Текст.КоличествоСтрок() Цикл
    Слово = РазобратьДоговор(Текст.ПолучитьСтроку(р));// эта функция, она разбивает строку текстового документа на 4 части //:"наименование контрагента", "наименование договора контрагента", "уровень договора", "родитель контрагента" - но это не надо, так, для пояснения
    Контр=Слово[1]; //наименование контрагента
    Догов=Слово[2];
    УровКонтр=Число(Слово[3]);
    РодитКонтр=Слово[4];// родитель контрагента            
    Запр.УстановитьПараметр("Наименование", Контр);
    Запр.УстановитьПараметр("Родитель", РодитКонтр);
    Результат = Запр.Выполнить();
    Если Результат.Пустой() Тогда
        Выборка=Результат.Выбрать();
        Сообщить(Выборка.Ссылка.Наименование);
    КонецЕсли;
КонецЦикла

Родитель это ссылка

"Результат = Запр.Выполнить();
    Если Результат.Пустой() Тогда
        Выборка=Результат.Выбрать();
        Сообщить(Выборка.Ссылка.Наименование);
    КонецЕсли;"

нуну

запрос в цикле = ай-яй-яй

и (2) тоже в точку

(0) а можно взглянуть на функцию, которая разбивает строку текстового документа на 4 части? любопытно очень

(5)
Функция РазобратьДоговор(Стр)
    Слово = Новый Массив(30);
    
    Для Каждого ТекСлово Из Слово Цикл
        ТекСлово="";
    КонецЦикла;
    
    текСлово="";Номер=0;
    Для Ц=1 По СтрДлина(Стр) Цикл
        Символ=Сред(Стр,Ц,1);
        Если Символ="|" Тогда
            Номер        = Номер+1;
            Слово[Номер] = текСлово;
            текСлово     = "";
        Иначе
            текСлово     = текСлово+Символ;
        КонецЕсли;    
    КонецЦикла;    
    
    Возврат Слово;
КонецФункции

+(6) она не совсем на 4 части разбивает, а разбивает ровно на  столько, сколько символов "|" в строке, у меня таких символов 4

Кто нибудь может подсказать ошибку в коде?

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

    Контр=Слово[1]; //наименование контрагента

    Догов=Слово[2];
    УровКонтр=Число(Слово[3]);
    РодитКонтр=Слово[4];// родитель контрагента            

    Запр.УстановитьПараметр("Наименование", Контр);
    Запр.УстановитьПараметр("Родитель", РодитКонтр);
    Результат = Запр.Выполнить();
    Если НЕ Результат.Пустой() Тогда
        Выборка=Результат.Выбрать();
        Сообщить(Выборка.Ссылка.Наименование);
    КонецЕсли;
КонецЦикла

что за бред

Для Каждого ТекСлово Из Слово Цикл
        ТекСлово="";
    КонецЦикла;

|    И Контрагенты.Родитель.Наименование = &Родитель";

(9) знаю, но ошибка не там

но код все равно уг

табе в (1) подсказали, Родтель - это ссылка, а ты ее в запросе со строкой сравниваещь.

+(9)
из-за таких как (0)
появляются ветки
Почему классические программисты ненавидят 1с-ников?

(11) выборку позиционировать надо методом Следующий()... у тебя этого нету.

(10) не, не то

Результат = Запр.Выполнить();
    Если Результат.Пустой() Тогда // Результат Пустой!!!! что ты из него получить еще что-то хочещь?
        Выборка=Результат.Выбрать();
        Сообщить(Выборка.Ссылка.Наименование);
    КонецЕсли;

//////////////////////////////////////////
Результат = Запр.Выполнить();
    Если НЕ Результат.Пустой() Тогда

        Выборка=Результат.Выбрать();
Если Выборка.Следующий() ТОгда //ПОзиционируешся на первом элементе выборки.
        Сообщить(Выборка.Ссылка.Наименование);
КонецЕсли;
    КонецЕсли;

(13) и что это значит, ее нельзя сравнивать? Почему наименование можно сравнить?

(18) можно сравнивать, только результат будет ложь.
Ты себя выдал, троль. завязывай.

(16) все то + еще у тебя Выброка.следующий() пропущено

(18) потому что наименование - это строка.

(16) попробуйте

    текСлово="";Номер=1;

да и Выборка.Следующий()