1С77 ЗиК
Помогите с кодом, совсем запуталась в трех соснах (((  Пишу код, который отбирает всех работающих сотрудников и подтягивает их лицевые счета. Причем проходит цикл только один раз и затем выдает ошибку:

Пока Сотрудники.ПолучитьЭлемент() = 1 Цикл    
{\\FS\USER\IT\ВЫГРУЗКА.ERT(293)}: Не выбран элемент!

Вот код, совсем простой, но почему-то причину ошибки понять не могу:

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

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

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

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

Пока Сотрудники.ПолучитьЭлемент() = 1 Цикл    
    
    Если Сотрудники.ЭтоГруппа() = 1 тогда    
        Продолжить;
    КонецЕсли;
    
    Если Сотрудники.НайтиПоРеквизиту("ОтделениеБанка","9038",1) <> 1 Тогда      
        Продолжить;
    КонецЕсли;
    
    СостояниеСотрудника = Сотрудники.СостояниеФизЛица.Получить(ДатаФормир);
    
    Если (СостояниеСотрудника(Сотрудники.ТекущийЭлемент())="Физическое лицо") ИЛИ
    (СостояниеСотрудника(Сотрудники.ТекущийЭлемент())="Штатный сотрудник") ИЛИ
    (СостояниеСотрудника(Сотрудники.ТекущийЭлемент())="Временно не работает") Тогда
        
        
        Если спрБанкРеквизиты.НайтиПоРеквизиту("Сотрудник", Сотрудники.ТекущийЭлемент(), 1) = 0 Тогда
            Сообщить("Не найдены записи в спр.БанковскиеРеквизиты по сотруднику: " + Сотрудники.ТекущийЭлемент());
            БР_Комментарий = "";
            БР_Банк = "";
            БР_Отделение = "";  
        Иначе    
            БР_Комментарий = спрБанкРеквизиты.Комментарий;
            БР_Банк = спрБанкРеквизиты.Банк;
            БР_Отделение = спрБанкРеквизиты.Отделение;
        КонецЕсли;
        
        ИтераторСотр = ИтераторСотр + 1;
        
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,1).Value        = "'"+Сотрудники.Код;
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,2).Value        = "'"+Сотрудники.Наименование;  
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,26).Value    = "'"+СостояниеСотрудника;  
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,32).Value    = "'"+БР_Комментарий;
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,33).Value    = "'"+БР_Банк;
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,34).Value    = "'"+БР_Отделение;
        
    Иначе
        
        Продолжить;
        
    КонецЕсли;
    
КонецЦикла;

Код некрасиво вставился в (0), вот вторая попытка:

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

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

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

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

Пока Сотрудники.ПолучитьЭлемент() = 1 Цикл    
    
    Если Сотрудники.ЭтоГруппа() = 1 тогда    
        Продолжить;
    КонецЕсли;
    
    Если Сотрудники.НайтиПоРеквизиту("ОтделениеБанка","9038",1) <> 1 Тогда      
        Продолжить;
    КонецЕсли;
    
    СостояниеСотрудника = Сотрудники.СостояниеФизЛица.Получить(ДатаФормир);
    
    Если (СостояниеСотрудника(Сотрудники.ТекущийЭлемент())="Физическое лицо") ИЛИ
    (СостояниеСотрудника(Сотрудники.ТекущийЭлемент())="Штатный сотрудник") ИЛИ
    (СостояниеСотрудника(Сотрудники.ТекущийЭлемент())="Временно не работает") Тогда
        
        Если спрБанкРеквизиты.НайтиПоРеквизиту("Сотрудник", Сотрудники.ТекущийЭлемент(), 1) = 0 Тогда
            Сообщить("Не найдены записи в спр.БанковскиеРеквизиты по сотруднику: " + Сотрудники.ТекущийЭлемент());
            БР_Комментарий = "";
            БР_Банк = "";
            БР_Отделение = "";  
        Иначе    
            БР_Комментарий = спрБанкРеквизиты.Комментарий;
            БР_Банк = спрБанкРеквизиты.Банк;
            БР_Отделение = спрБанкРеквизиты.Отделение;
        КонецЕсли;
        
        ИтераторСотр = ИтераторСотр + 1;
        
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,1).Value        = "'"+Сотрудники.Код;
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,2).Value        = "'"+Сотрудники.Наименование;  
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,26).Value    = "'"+СостояниеСотрудника;  
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,32).Value    = "'"+БР_Комментарий;
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,33).Value    = "'"+БР_Банк;
        x.WorkSheets(ИмяФайла).Cells(ИтераторСотр,34).Value    = "'"+БР_Отделение;
        
    Иначе
        
        Продолжить;
        
    КонецЕсли;
    
КонецЦикла;

Сотрудники.НайтиПоРеквизиту - сбивает выборку

(2) А как тогда? Мне надо отобрать только тех, у которых в спр.Сотрудники, реквизит "ОтделениеБанка"=9038. Это одно из условий.

Выбратьэлементы() нужно ставить непосредственно перед циклом, и найтипореквизиту сбивает выборка нужно инициализировать еще объект например сотрудники2

Если Сотрудники.ЭтоГруппа() = 1 тогда Продолжить; КонецЕсли;
    
    Если Сотрудники.ОтделениеБанка <> 9038 Тогда Продолжить; КонецЕсли;

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

Если СокрЛП(Сотрудники.ОтделениеБанка) <> "9038" Тогда Продолжить; КонецЕсли;

фотки без купальника в личке нет... непорядок..

(8) Зато там написано что это мужик))

(7) Помогло!!!
Всем СПАСИБО!!!

Если еще актуально, то можно еще запрос сделать с условием "ОтделениеБанка"=9038 (ну и плюс все остальные условия какие надо по ходу), тогда в выборку попадут только нужные сотрудники.... на мой взгляд красивее будет, чем перебирать аж целый справочник. да и побыстрее отработает

(11) сотрудники это не номенклатура - много не бывает :)

(12) Им же всем платить надо....

ну продать в принципе тоже мона)))