Здравствуйте, при проведении документа у этого участка кода:
Если НовСтрока.ПодразделениеКт.НайтиПоКоду("16") Тогда //Лаборатория контроля за качеством питьевой и сточн
     НовСтрока.ПодразделениеДт = Множители.Подразделение.Группа.НайтиПоКоду("000000023");,
выскакивает ошибка:

Значение не является значением объектного типа (НайтиПоКоду).

Что нужно добавить или убрать, не совсем понимаю?

Вот полный цикл:

```1c
    Пока Множители.Следующий() Цикл
    НовСтрока = ТаблДвижений.Добавить();
    НовСтрока.СчетДт = ПланыСчетов.Хозрасчетный.ОсновноеПроизводство;
    НовСтрока.СчетКт = ПланыСчетов.Хозрасчетный.ОбщепроизводственныеРасходы;

    //НачалоУсловияРаспределенияПодразделений
    Если НовСтрока.ПодразделениеКт.НайтиПоКоду("16") Тогда //Лаборатория контроля за качеством питьевой и сточн
    НовСтрока.ПодразделениеДт = Множители.Подразделение.Группа.НайтиПоКоду("000000023");
    //И НовСтрока.ПодразделениеДт = Множители.Подразделение.Группа.НайтиПоКоду("000000002");
    ИначеЕсли НовСтрока.ПодразделениеКт.НайтиПоКоду("000000943") Тогда //Мазутно-насосная станция
    НовСтрока.ПодразделениеДт = Множители.Подразделение.Группа.НайтиПоКоду("000000024");
    ИначеЕсли НовСтрока.ПодразделениеКт.НайтиПоКоду("999 ") Тогда //Газовая служба
    НовСтрока.ПодразделениеДт = Множители.Подразделение.Группа.НайтиПоКоду("000000024");
    Иначе
    НовСтрока.ПодразделениеДт = Множители.Подразделение;
    КонецЕсли;
    //КонецУсловия

    //НовСтрока.ПодразделениеДт = Множители.Подразделение;
    НовСтрока.ПодразделениеКт = ВыборкаОбороты25.Подразделение;
    НовСтрока.Субконто1Дт = Множители.НоменклатурнаяГруппа;
    НовСтрока.Субконто2Дт = СтатьяОбщепроизводственная;
    НовСтрока.Субконто1Кт = ВыборкаОбороты25.СтатьяЗатрат;

    Множитель90 = ВыборкаМножители90.Найти(Множители.НоменклатурнаяГруппа , "НоменклатурнаяГруппа");
    Если Множитель90 = Неопределено Тогда
    Множитель90 = 0;
    Иначе
    Множитель90 = Множитель90.Множитель;
    КонецЕсли;

    СуммаПроводки = Окр(Множители.Множитель * СуммаВыборки * Множитель90, 2);
    Если СуммаВыборкиНУ = 0 Тогда
    СуммаПроводкиНУ = 0;
    Иначе
    СуммаПроводкиНУ = Окр(Множители.Множитель * СуммаВыборкиНУ * Множитель90, 2);
    КонецЕсли;

    НовСтрока.СуммаПроводки = СуммаПроводки;
    НовСтрока.СуммаПроводкиНУ = СуммаПроводкиНУ;

    Сумма = Сумма - СуммаПроводки;
    СуммаНУ = СуммаНУ - СуммаПроводкиНУ;
    КонецЦикла;
```
---
Если НовСтрока.ПодразделениеКт = Справочники.Подразделения.НайтиПоКоду("16") тогда

какой вообще тип у ПодразделениеКТ ?
---
Если НовСтрока.ПодразделениеКт = Справочники.Подразделения.НайтиПоКоду("16") тогда

Вот так написал, вроде нет ошибки:
Если НовСтрока.ПодразделениеКт = Справочники.ПодразделенияОрганизация.НайтиПоКоду("16") тогда
---
Если НовСтрока.ПодразделениеКт = Справочники.Подразделения.НайтиПоКоду("16") тогда

какой вообще тип у ПодразделениеКТ ?
---
Ругается на поле "Подразделения".
Тип строка
---
судя по скриншоту это не строка а Субконто.
Что у вас за конфигурация напишите
---
Да, точно, это субконто.
Бухгалтерия предприятия, редакция 3.0 (3.0.88.22)
---
Если НовСтрока.ПодразделениеКт = Справочники.Подразделения.НайтиПоКоду("16") тогда

Вот так написал, вроде нет ошибки:
Если НовСтрока.ПодразделениеКт = Справочники.ПодразделенияОрганизация.НайтиПоКоду("16") тогда
---
ок, не зная какая у вас конфигурация предположил что справочник называется просто "Подразделения", а не "ПодразделенияОрганизации"