{ВнешняяОбработка.ДеревоУровень.Форма.Форма.Форма(19)}: Итератор для значения не определен
    Для Каждого стрДерева из ДеревоЗн Цикл

Вот текст обработки
&НаКлиенте
Процедура ПодсчитатьУровни(Команда)
    
    КоличествоУровней = 0;
    СтрокиДер = 0;
    
    
    ПодсчитатьУровниНаСервере(СтрокиДер,СтрокиДер );
    
    Сообщить("Максимальное количество уровней = " + КоличествоУровней);
    
    
КонецПроцедуры

&НаСервере
Процедура ПодсчитатьУровниНаСервере(СтрДер, К)
    
    Для Каждого стрДерева из ДеревоЗн Цикл
        
        Если стрДерева.Строки.Количество() <> 0 Тогда
            ПодсчитатьУровниНаСервере(стрДерева.Строки, К);
            К = стрДерева.Уровень();
        КонецЕсли;
        
    КонецЦикла;
    
КонецПроцедуры

ДеревоЗн.Строки

(1) {ВнешняяОбработка.ДеревоУровень.Форма.Форма.Форма(19)}: Поле объекта не обнаружено (Строки)
    Для Каждого стрДерева из ДеревоЗн.Строки Цикл

https://www.youtube.com/watch?v=mxCpEwXMrs8&list=PLCxkw0ZvwZaZOTdEmO80XzJHvf-DyHx87&index=3

(1) РеквизитФормыВЗначение

(4) Напиши пожалуйста где это написать

тогда ПолучитьЭлементы()

(6) Для Каждого стрДерева из ДеревоЗн.ПолучитьЭлементы() Цикл

{ВнешняяОбработка.ДеревоУровень.Форма.Форма.Форма(21)}: Поле объекта не обнаружено (Строки)
        Если стрДерева.Строки.Количество() <> 0 Тогда

(7) вот тут фигня какая-то

СтрокиДер = 0;
    
    
    ПодсчитатьУровниНаСервере(СтрокиДер,СтрокиДер );


получается берете потом СтрДер.Строки от 0. А у числа 0 нет поля Строки

&НаСервере
Процедура ПодсчитатьУровниНаСервере(СтрДер, К)
    ДеревоОбъект = РеквизитФормыВЗначение("ДеревоЗн");
    Для Каждого стрДерева из ДеревоОбъект Цикл

(9) {ВнешняяОбработка.ДеревоУровень.Форма.Форма.Форма(21)}: Итератор для значения не определен
    Для Каждого стрДерева из ДеревоОбъект Цикл

(10) из ДеревоОбъект.Строки

(11) Написал
&НаСервере
Процедура ПодсчитатьУровниНаСервере(СтрДер, К)
    
    ДеревоОбъект = РеквизитФормыВЗначение("ДеревоЗн");
    
    Для Каждого стрДерева из ДеревоОбъект.Строки Цикл
        
        Если стрДерева.Строки.Количество() <> 0 Тогда
            ПодсчитатьУровниНаСервере(стрДерева.Строки, К);
            К = стрДерева.Уровень();                 
        КонецЕсли;
        
    КонецЦикла;
    
КонецПроцедуры


Когда создаю второй уровень вложенности на форме 1с вылетает

(12) Зацикливание, потому и вылетает.

(12)просто не твоё

(12) СтрДер у тебя вообще не используется, зачем ты ее передаешь?

не дорос до рекурсии ишшо...

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

(17) Спасибо за помощь. Мне надо вывести с помощью Сообщить максимальный уровень вложенности, а у тебя обе функции с директивой компиляции НаСервере. Где вставить процедуру с директивой компиляции НаКлиенте и вывести макс уровень вложенности с помощью Сообщить?

{ВнешняяОбработка.ДеревоУровень.Форма.Форма.Форма(21)}: Метод объекта не обнаружен (Уровень)
        К = Макс(К, СтрДер.Уровень());

(17) Ошибку нашел вот
К = Макс(К, стрДерева.Уровень());

Всё теперь работает огромное спасибо