Выборка3 = Справочники.СотрудникиОрганизаций.ВыбратьИерархически();
Пока Выборка3.Следующий()  Цикл
//Выборка1.ПолучитьОбъект().Код    
Объект = Выборка3.ПолучитьОбъект();
Попытка
   Если Объект.Код Подобно "д%" Тогда    
   знак8 =  "000" + СтрЗаменить(Объект.Код," ",Null);    
   Объект.Код = знак8 ;  
   
   
   
   //Объект.Записать();
   Сообщить(Объект.Ссылка);    
   КонецЕсли;
       
Исключение
Предупреждение("Не удалось записать объект """ + Объект + """
                      |" + ОписаниеОшибки(),60);
КонецПопытки;
КонецЦикла;

при проверке вылетает ошибка

{Форма.Форма.Форма(141,17)}: Ожидается ключевое слово 'Тогда' ('Then')
   Если Объект.Код<<?>> Подобно "д%" Тогда     (Проверка: Толстый клиент (обычное приложение))

смешались в кучу люди, кони...

т.е. Объект.Код должен начинаться на букву д

Еще бы.
Если Найти(Объект.Код,"д") > 0 Тогда

(3) Тогда Лев(Объект.Код, 1) = "д"

Жесть.

(4)Лев(Объект.Код, 1) = "д"

Спасибо, Мужики!)

(8) Тебе херню насоветовали.

Делай запросом.

(9) Судя по коду в (0), лучше вообще никак не делать.

да, NULL в СтрЗаменить - это круто.

(11) лучше Неопределено

(0) Тебе пробелы в табельных номерах надо было нулями заменить или удалить их?