вынес часть кода в отдельную функцию и перестал создаваться новый элемент справочника
https://a.radikal.ru/a01/1905/f4/96cb99cecac4.png

текст функции
Функция ПолучитьПодразделениеСсылка(ПодразделениеИмя,Организация)
    ПодразделениеСсылка    = Справочники.Подразделения.НайтиПоНаименованию(ПодразделениеИмя,,,Организация);
    Если ПодразделениеСсылка = Справочники.Подразделения.ПустаяСсылка() Тогда
        Подразделение                = Справочники.Подразделения.СоздатьЭлемент();
        Подразделение.Владелец        = Организация;
        Подразделение.Наименование    = ПодразделениеИмя;
        Подразделение.Записать();
        ПодразделениеСсылка = Подразделение.ССылка;
    КонецЕсли;
    Возврат    (ПодразделениеСсылка);
КонецФункции

Скорее всего потому что     ПодразделениеСсылка    = Справочники.Подразделения.НайтиПоНаименованию(ПодразделениеИмя,,,Организация); возвращает НЕОПРЕДЕЛЕНО

Я бы во избежание натих казусов заменил
  Если ПодразделениеСсылка = Справочники.Подразделения.ПустаяСсылка() Тогда
На
  Если Не ЗначениеЗаполнено(ПодразделениеСсылка) Тогда

Ну да. Если не находит то создаёт новое подразделение
Не срабатывает код:
Подразделение = сСправочники.Подразделения.СоздатьЭлемент()

(3) На чем валится то? Что значит не создает?

Ты блин тоже скриншот сделал, а самое нужное - обрезал, и сиди играй в Вангу, что там на самом деле

(5) сори не увидел как обрезал
https://d.radikal.ru/d29/1905/ec/586fc2f15cb8.png

(6) Вот теперь все ясно.
Подразделение - скорее всего реквизит формы с типом строка.
Замените
Подразделение                = Справочники.Подразделения.СоздатьЭлемент();
        Подразделение.Владелец        = Организация;
        Подразделение.Наименование    = ПодразделениеИмя;
        Подразделение.Записать();
        ПодразделениеСсылка = Подразделение.ССылка;
На
ПодразделениеОбъект                = Справочники.Подразделения.СоздатьЭлемент();
        ПодразделениеОбъект.Владелец        = Организация;
        ПодразделениеОбъект.Наименование    = ПодразделениеИмя;
        ПодразделениеОбъект.Записать();
        ПодразделениеСсылка = ПодразделениеОбъект.ССылка;

Подразделение - строка?
Случайно реквизита с таким имени нет?

(8) 100% дело в этом

есть на форме

(10) Смотри (7)

Этого достаточно

да был реквизит на форме. с формы убрал в списке реквизитов остался. спасибо большое. миста как всегда меня спасла