Первый запрос получает контрагента:


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

       Выборка = Запрос.Выполнить().Выбрать();
       Выборка.Следующий();

Второй его счета и банки.

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

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

Нужно выбрать Основной расчетный счет:

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

   СпрН = Выборка.Ссылка.ПолучитьОбъект();
   Если СпрН.ОсновнойБанковскийСчет = ВыборкаБанк.Ссылка Тогда
       БанкПлательщика = ВыборкаБанк.Банк;
       БИКПлательщика = "БИК " + Справочники.Банки.НайтиПоНаименованию(ВыборкаБанк.Банк).Код;
       РСПлательщика = "р/с " + ВыборкаБанк.НомерСчета;
   Иначе
       ВыборкаБанк.Следующий();
       КонецЕсли;


Но так не срабатывает. Если никакой не указан основным, то тогда выбирает. А если есть ОСНОВНОЙ, то ничего не выводит.

У контрагента есть реквизит "Основной банковский счет"

(1) Я использую его.
Если СпрН.ОсновнойБанковскийСчет = ВыборкаБанк.Ссылка Тогда

Но не работает

Провер в отладке эти два значения,типы совпадают?

Да, типы одинаковые.

Он первый раз зашел в цикл, увидел что банки не равны, по Иначе сделал Выборка.Следущий и все

Ты что в итоге то хочешь сделать?

ВыборкаБанк = ЗапросБанк.Выполнить().Выбрать();
Пока ВыборкаБанк.Следующий() Цикл
что хошь проверяй
КонецЦикла;
только зачем такой огород городить - Шапка.Грузополучатель.ОсновнойБанковскийСчет - и ты уже там. Если надо порюхать все счета кроме основного, бери второй запрос - банковские счета где владелец такой-то и ссылка не такая-то (основной банковский счет)

(5) (6) Не спугните, мы к пятнице готовимся! На прошлой неделе, тоже самое было, тоже основные банковские счета искали! Это у него хобби такое!

(6) Да не работает так

Там значение по ВыборкаБанк.Ссылка у обоих банков стоит основной.

Надо как то по наименованию, типа

       Пока ВыборкаБанк.Следующий() Цикл
           Если СпрН.ОсновнойБанковскийСчет.Банк.Наименование = ВыборкаБанк.Наименование Тогда
               БанкПлательщика = ВыборкаБанк.Банк;
               БИКПлательщика = "БИК " + Справочники.Банки.НайтиПоНаименованию(ВыборкаБанк.Банк).Код;
               РСПлательщика = "р/с " + ВыборкаБанк.НомерСчета;
           КонецЕсли;
       КонецЦикла;

Но так тоже не работает

Это шутка или автор серьезно ?

(10)Это не шутка. Подскажите если знаете.

(10) А ты подними ветки автора, только на прошлой неделе разбирали выборку с основным счетом контрагента.

Ты автор главное на (5) не отвечай...

(13) Я проглядел ваш вопрос (5). Я хочу вывести банк, который является основным для контрагента

Тебе же сказали что он лежит в реквизите ОсновнойБанковскийСчет

у контрагента

(16) Я знаю это я пытаюсь его взять оттуда. Что в (0) у меня не так?

(17)Все не так. Кури (6), глубоко затягиваясь.

(17) ну так попробуй

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

       Выборка = Запрос.Выполнить().Выбрать();
       Выборка.Следующий();

        БанкПлательщика = Выборка.Банк;
        БИК = Быборка.БИК;
        НомерСчета = Выборка.НомерСчета;

второй запрос выкинь.

Пока ВыборкаБанк.Следующий() Цикл
Если СпрН.ОсновнойБанковскийСчет = ВыборкаБанк.Ссылка Тогда
       БанкПлательщика = ВыборкаБанк.Банк;
   БИКПлательщика = "БИК " + Справочники.Банки.НайтиПоНаименованию(ВыборкаБанк.Банк).Код;
   РСПлательщика = "р/с " + ВыборкаБанк.НомерСчета;
КонецЕсли;
КонецЦикла;

Всем Спасибо, заработало

(19)Молодец, родил быдлокодера :))

Мля, тут тока лоботомия поможет походу

(21) в данном случае это не плохо.