Создан справочник "Сторонние банки", ревизиты:
- Сотрудник
- ЛицевойСчет
- БИКБанка
- НаименованиеБанка

Как мне подгрузить эти данные в Эксель? Сейчас в Эксель выгружается инф-ция из спр.Сотрудники в отдельных столбцах. Мне надо добавить еще столбцы данными из спр.СторонниеБанки. В 1С8 можно было сделать два запроса и сделать связь по Сотруднику. А в 1С77 как? Вот код, как сейчас выгружаются данные (из спр.Сотрудники только):


Процедура ВыгрузитьСотрудников()
    
Попытка
x=СоздатьОбъект("Excel.Application");
Исключение
    Сообщить(ОписаниеОшибки(),"!!!");
    Сообщить("Возможно, MS Excel не установлен на этом компьютере.");
    Возврат;
КонецПопытки;

x.Workbooks.Add();   //книга
x.WorkSheets(1).Cells(1,1).Value="TAB_NOMER";                                        
x.WorkSheets(1).Cells(1,2).Value="FIO";                        
x.Worksheets(1).Cells(1,3).Value="ROZHD_DATA";                        
x.WorkSheets(1).Cells(1,4).Value="POL";                                
x.WorkSheets(1).Cells(1,7).Value="INN";                            
x.WorkSheets(1).Cells(1,8).Value="PFR";                                
x.WorkSheets(1).Cells(1,9).Value="LIC_SCHET";                    

x.Worksheets(1).Name = ИмяФайла;

Сотрудники = СоздатьОбъект("Справочник.Сотрудники");

Сотрудники.ВыбратьЭлементы(1);
    
ИтераторСотр = 1;

Пока Сотрудники.ПолучитьЭлемент() = 1 Цикл

    Если Сотрудники.ЭтоГруппа() + Сотрудники.ПометкаУдаления() <> 0 тогда
    Продолжить;
КонецЕсли;

ИтераторСотр = ИтераторСотр + 1;


    x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,1).Value        = "'"+Сотрудники.Код;
    x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,2).Value        = "'"+Сотрудники.Наименование;  
    x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,3).Value        = "'"+Формат(Сотрудники.ДатаРождения,"ДФ=dd.MM.yyyy");
    x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,4).Value        = "'"+Сотрудники.Пол;
    x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,7).Value        = "'"+Сотрудники.ИНН;
    x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,8).Value        = "'"+Сотрудники.СтраховойНомерПФР;
    x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,9).Value        = "'"+Сотрудники.НомерЗарплатногоСчета;
    
    КонецЦикла;


x.Quit();

Сообщить("Выгрузка завершена", "!");    

КонецПроцедуры

Ап!

Через реквизит который на справочник Сторонние банки ссылается.

(2) Нет такого реквизита. В спр.СторонниеБанки есть реквизит "Сотрудники" (ссылка на спр.Сотрудники). И вот как мне их тепрь связать в Экселе?

Модераторы, исправьте, пож-та в заголовке с v8 на v7.

Хм, ну тогда наверное как-нибудь через Сотрудники.Владелец.

(0) Прям специалист-многостаночник )))

(5) спр.СторонниеБанки независимый. Он не является подчиненным никакому справочнику.

(6) Стараюсь )))

Я так думаю, надо выгружать в ТабЗначений спр.Сотрудники. А затем если ФИО сотрудника совпадает в двух справочниках, то добавлять колонки в ТЗ с данными уже из Спр.СторонниеБанки. Только как это реализовать в 1С77???

Или как вариант: набрать одну таблицу по справочнику, а второй по циклу сверить, и недостающие элементы набрать в список. Только как это теперь написать...

(9) А как из ТЗ в Эксцель выгрузить знаешь?

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

(7) если в справочнике СторонниеБанки несколько элементов по данному сотруднику, какой нужно выбирать для выгрузки в Эксель?

(13) такого точно не будет. Сотрудник в этом справочнике - один.

(11) Незнаю... Замкнутый круг, блин...

(15) Да там все просто)
Но как то странно что связи нет.

(14) варианты: если для реквизита Сотрудник справочника СторонниеБанки включён признак отбора по реквизиту (см.в конфигураторе свойства этого реквизита), то можно воспользоваться НайтиПоРеквизиту()
Другой вариант:
Собрать в ТЗ все значения Сотрудник, СторонниеБанки. А потом делать ТЗ.НайтиЗначение() по сотруднику: находить номер строки этой ТЗ и получать из найденной строки значение СторонниеБанки для искомого Сотрудника

(17) Спасибо. А пример не напишите, а то боюсь, что всю ночь мне сидеть придется...

(17) признак отбора по реквизиту - включен.

(18) Если еще актуально:

создаем объект (перед циклом) "Пока Сотрудники.ПолучитьЭлемент() = 1 Цикл":


спрСторонниеБанки = СоздатьОбъект("Справочник.СторонниеБанки");


//делаем поиск по справочнику СторонниеБанки в теле цикла:

Если спрСторонниеБанки.НайтиПоРеквизиту("Сотрудник", Сотрудники.ТекущийЭлемент(), 1) = 0 Тогда
    Сообщить("Не найден элемент справочника Сторонние банки по сотруднику: " + Сотрудники.ТекущийЭлемент());
    ЛицевойСчет = "";
    БИКБанка = "";
    НаименованиеБанка = "";
Иначе
    //берем данные из найденного "стороннего банка":
    ЛицевойСчет = спрСторонниеБанки.ЛицевойСчет;
    БИКБанка = спрСторонниеБанки.БИКБанка;
    НаименованиеБанка = спрСторонниеБанки.НаименованиеБанка;
КонецЕсли;


Далее работаем с переменными: ЛицевойСчет, БИКБанка, НаименованиеБанка

Как странно - вас ещё отсюда не выгнали.