Народ, что-то туплю на ровном месте.                                                                  Надо перебрать элементы справочника "Сотрудники"                                                             Спр=СоздатьОбъект("Справочник.Сотрудники");                           Спр.ПорядокНаименований();    
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл

После этого вылетает   сообщение "Не выбран элемент!" и цикл завершается.

Ох недоговариваешь ты, боярин... Вылетает изза кода в самом цикле, небось изменения вносишь

(1) Дальше по алгоритму ничего не анализируется. Задача проста- выбрать сотрудников по алфавиту,занести их в таблицу и начислить им определенную сумму в зависимости от ыполненной работы.
Вылетает на строке начала цикла с сообщением "Не выбран элемент!", смотрю в отладчике

(0) Покажи код в цикле

Спр=СоздатьОбъект("Справочник.Сотрудники");        Спр.ПорядокНаименований();
Спр.ВыбратьЭлементы();                
Пока Спр.ПолучитьЭлемент()=1 Цикл
Если  НачМесяца(Спр.ДатаУвольнения)>=НачМесяца(ДатаДок) Тогда
Если Спр.Подразделение.Получить(ДатаДок) <> Подразделение Тогда                            Продолжить;                        КонецЕсли;                        НоваяСтрока();                        Сотрудник = Спр.ТекущийЭлемент();                    Квыдаче=Цена;
КонецЕсли;
КонецЦикла;

Некрасиво записывается код.Как сделать, чтобы каждая строка записывалась с новой строки?                                                       В малом окне именно так я и делал,                                                        используя клавиши пробел, ввод и delete.А по факту оказалось некрасиво.

(4)"НоваяСтрока()" отрабатывает нормально?                      
"Сотрудник = Спр;" попробуй так.

И пиши читабельно.

Как сделать, чтобы в большом окне каждая строка начиналась нормально?                    
Спр=СоздатьОбъект("Справочник.Сотрудники");
Спр.ПорядокНаименований();
Спр.ВыбратьЭлементы();                    
Пока Спр.ПолучитьЭлемент()=1 Цикл
//Дальше не идет, пишет не "выбран элемент!"

Если  (ПустоеЗначение(Спр.ДатаУвольнения)=1) или (НачМесяца(Спр.ДатаУвольнения)>=НачМесяца(ДатаДок)) Тогда
Если Спр.Подразделение.Получить(ДатаДок) <> Подразделение Тогда
Продолжить;
КонецЕсли;
                        НоваяСтрока();
Сотрудник = Спр.ТекущийЭлемент();
Квыдаче=Цена;
КонецЕсли;
КонецЦикла;

Ошибка, возможно, возникает из-за того, что в вашем справочнике есть группы. Надо их исключить перед условием.

Спр.ПорядокНаименований();
без этого работает?

Логика идет после начала цикла.

Странное дело, заканчивалась виртуальная память у компа, перезагрузил комп, переписал наименование справочника Сотрудники"  и заработало, правда в окне запуска 1С поудалялось половину ссылок на базы программ, с которыми я работал.

(11) ну это уж какие-то доп. глюки
куда они с реестра подевались?

(11) недоговариваешь ты, боярин...