не работает функция, пока что тестовая, довожу до работоспособности. но она не возвращает значение, подскажите как правильно?

// №15. Процедура пересчета суммы полатежа, рассчета текущей оплаты.
Функция ПересчетСуммыПлатежа(ТЗ,Инд)
   Рез_ = ТЗ.Получить(Инд);
   х = 0;
   Если (НомерПриложенияПриОплате <> Рез_.Номерприложения) и Инд<>0 Тогда
       СпУникальностиОплат_1.Очистить();
       СпУникальностиОплат_2.Очистить();
       Оплачивается = 0;
       ТекОпл       = кОплате;
       кОплате      = 0;
       Возврат        ТекОпл;
   КонецЕсли;
   Если СпУникальностиОплат_1.НайтиПоЗначению(Рез_.НомерЗаказа     + " " +
                                              Рез_.НомерПриложения + " " +
                                              Рез_.НомерПоручения  + " " +
                                              Рез_.СуммаВзаиморасчета) = неопределено Тогда
       Если Оплачивается = 0 Тогда
           Если ОплаченныеСуммы.НайтиПоЗначению(Рез_.НомерЗаказа + " " + ?(Рез_.СуммаОплатыЗаказа=0,Рез_.СуммаЗаказа,Рез_.СуммаОплатыЗаказа)) = Неопределено Тогда
               Оплачивается = ?(Рез_.СуммаОплатыЗаказа=0,Рез_.СуммаЗаказа,Рез_.СуммаОплатыЗаказа);
           Иначе
               Инд = Инд + 1;
               //Возврат "-";
           КонецЕсли;
       ИначеЕсли Оплачивается < 0 Тогда
       ИначеЕсли Оплачивается > 0 Тогда
       КонецЕсли;
       Если кОплате = 0 Тогда
           кОплате     = ?(кОплате=0,Рез_.СуммаВзаиморасчета,кОплате+Рез_.СуммаВзаиморасчета);
           Оплачивается = Оплачивается - кОплате;            
           СпУникальностиОплат_1.Добавить(Рез_.НомерЗаказа     + " " +
                                          Рез_.НомерПриложения + " " +
                                          Рез_.НомерПоручения  + " " +
                                          Рез_.СуммаВзаиморасчета);
       Иначе
           Оплачивается = Оплачивается - кОплате;            
           СпУникальностиОплат_1.Добавить(Рез_.НомерЗаказа     + " " +
                                          Рез_.НомерПриложения + " " +
                                          Рез_.НомерПоручения  + " " +
                                          Рез_.СуммаВзаиморасчета);
       КонецЕсли;
       Если Оплачивается > 0 Тогда
           кОплате                  = 0; // сумма переплаты переходит в переменную кОплате для следующих операций с суммами оплаты                
           НомерПриложенияПриОплате = Рез_.Номерприложения;
           НомерПоручения           = Рез_.НомерПоручения;
           Инд     = Инд + 1;
           ПересчетСуммыПлатежа(ТЗ,Инд);    
       ИначеЕсли Оплачивается < 0 Тогда
           Если ОплаченныеСуммы.НайтиПоЗначению(Рез_.НомерЗаказа + " " + Рез_.СуммаОплатыЗаказа) = неопределено Тогда
               ОплаченныеСуммы.Добавить(   Рез_.НомерЗаказа + " " + СуммыКОплате[т]);
               т = т +1;
           КонецЕсли;
           кОплате      = Оплачивается*-1; // сумма переплаты переходит в переменную кОплате для следующих операций с суммами оплаты                
           Оплачивается = 0;
           НомерПриложенияПриОплате = Рез_.Номерприложения;
           НомерПоручения           = Рез_.НомерПоручения;
           Инд = Инд + 1;
           ПересчетСуммыПлатежа(ТЗ,Инд);    
       КонецЕсли;
       ТекОпл      = Оплачивается * -1;
       Если Оплачивается > 0 Тогда
           Если НомерПоручения <> Рез_.НомерПоручения Тогда
               кОплате = Рез_.СуммаВзаиморасчета;    
           Иначе
               кОплате = 0;    
           КонецЕсли;
       ИначеЕсли Оплачивается <= 0 Тогда
           Если ОплаченныеСуммы.НайтиПоЗначению(Рез_.НомерЗаказа + " " + Рез_.СуммаОплатыЗаказа) = неопределено Тогда
               Если ОплаченныеСуммы.Количество() > т Тогда
                   ОплаченныеСуммы.Добавить(   Рез_.НомерЗаказа + " " + СуммыКОплате[т]);
               КонецЕсли;
               т = т +1;
           КонецЕсли;
           кОплате      = Оплачивается*-1; // сумма переплаты переходит в переменную кОплате для следующих операций с суммами оплаты                
           Оплачивается = 0;
       КонецЕсли;
       НомерПриложенияПриОплате = Рез_.Номерприложения;
       НомерПоручения           = Рез_.НомерПоручения;
   Иначе
       Инд     = Инд + 1;
       //Возврат "-";    
   КонецЕсли;    
   //Инд     = Инд + 1;
   Возврат 0;
КонецФункции

иди в больницу, хорош работать

возврат срабатывает в этом блоке
   Если (НомерПриложенияПриОплате <> Рез_.Номерприложения) и Инд<>0 Тогда
       СпУникальностиОплат_1.Очистить();
       СпУникальностиОплат_2.Очистить();
       Оплачивается = 0;
       ТекОпл       = кОплате;
       кОплате      = 0;
       Возврат        ТекОпл;
   КонецЕсли;

но она сбрасывается потом в      ПересчетСуммыПлатежа(ТЗ,Инд);  

а не в первичный вызов функции из основной программы

(0) Отладчик спасет отца русской демократии

если вам надо подсказать по рекурсии - не пользуйте рекурсию.

по рекурсии подскажу одно - у меня 1ска падает на глубине рекурсии где-то около 1500

(5)+ это я условие выхода неправильно задал, да

(2)
>> но она сбрасывается потом в      ПересчетСуммыПлатежа(ТЗ,Инд);  
>> а не в первичный вызов функции из основной программы

сбрасывает в предыдущий вызов

(5) че прям весь сервер????

(4) бъюсь с одной задачей и наделал глобальных переменных но все тупиково
подумал сделать это рекурсией, но то же что то не то!

(7) а как сделать то что бы сраболтал возврат?

(10) слишком тяжелый код чтобы понять ДЛЯ ЧЕГО?

(8) Не, сервер не падает. Падает клиент. Это известная фишка 1С. У меня даже есть обработочка со счетчиком рекурсии. 8.1 падала где-то на 800 цикле, 8.2 стала падать попозже :))) При этом 1с даже "мяу" не говорит, просто тупо вылетает.

(8) не, у меня то в толстом клиенте обычном приложении выполнялось

>>бъюсь с одной задачей и наделал глобальных переменных но все тупиково
>>подумал сделать это рекурсией, но то же что то не то!
забейте на рекурсию - это значительно сложнее обычного кода (люди так не мыслят)
разбейте задачу на блоги-подпрограммы - тогда вам бде самому понятнее

(14) да ладно, кирпич весит килограмм и пол кирпича

(14) это смотря у кого какой склад ума

(5) Сейчас проверил, 8.2.15 падает на глубине рекурсии 1801 :)

Любую рекурсию можно переписать, без ее использования.

(18) А обход дерева с неизвестной глубиной вложенности сделай без рекурсии.

(14) "забейте на рекурсию - это значительно сложнее обычного кода (люди так не мыслят)"
А по мне так ничего сложного. Просто, чтобы понять рекурсию, надо понять рекурсию :)))

(19) я могу сделать

А в чем проблема? цикл, в цикле мы либо погружаемся глубже если есть куда, либо берем следующий того же уровня, если он есть, либо возвращаемся к родителю. если возвращаться некуда значит все закончили.

(22) надо еще хранить стек текущей вложенности

(23) Можно, конечно и без рекурсии, но, имхо, рекурсией как-то проще и понятнее.

(23) Необязательно стек, он нужен только для возврата к родителю. А родителя и без стека найти не сложно.

24) я ни с кем не спорю, более того - делал бы с рекурсией

(23) Компилятор так и делает ))) Тока зачем делать это за него?

(25) иногда невозможно

(27) см (26)

(25) Давай пример кода, для справочника с уровнем вложенности 10.

(30) смотри (22) справочник от дерева ничем не отличается.

(31) Пример в (22) не взлетит.