Из курса программирования известно, что рекурсией называется вызов функцией самой себя. Фактически, рекурсия является первым шагом к логическому программированию, потому что грамотное ее использование позволяет составить алгоритм, не решая задачи окончательно.

Как решить задачу рекурсивно? Запомним простую аксиому: задачу, имеющую рекурсивное решение, всегда можно сформулировать индуктивно. Покажу это на простом примере. Допустим, мы ищем путь из точки А в точку В в лабиринте. Мы оказались на очередном перепутье. Перед нами несколько направлений возможного пути. Что будет, если мы выберем одно из направлений? Правильно, мы окажемся на следующем этапе-перепутье, опять с несколькими направлениями, и вновь перед нами встанет задача выбора. Когда же в некоторый момент мы заходим в тупик или в точку, в которой уже были ранее, нам необходимо просто возвратиться на шаг назад и выбрать другое направление пути из возможных. И так до тех пор, пока мы не придем в конечную точку. Таким образом, сложная задача поиска пути в лабиринте была сведена к однотипным операциям выбора в каждой очередной его точке. Алгоритм рекурсивного решения этой задачи будет выглядеть примерно так:

Функция ПоискПути(Х)Если Х=А ТогдаВозврат 1; // Конец пути достигнут здесьКонецЕсли;Пока Есть_Возможные_Пути(Х)=1 ЦиклУ=Очередная_Точка(Х); Если ПоискПути(У)=1 Тогда Возврат 1; // Конец пути был достигнут где-то тамКонецЕсли;КонецЦикла;Возврат 0; // Тупик, или не осталось вариантовКонецФункции

Но вернемся к теме 1С. Неужели рекурсию можно использовать и здесь успешно, спросит дока? Надо отметить, что у большинства рекурсивных алгоритмов есть существенный недостаток: они ресурсоемки и достаточно медленны по сравнению с обычными циклами, поэтому, вопрос звучит вполне уместно. Без сомнения, приведенный пример можно решить и не прибегая к рекурсивным вызовам. Но иногда без них бывает почти не обойтись.

Рассмотрим задачу, решение которой для отдельных бухгалтеров может стать исполнением одного из их заветных желаний. Попробуем привязать долги покупателей к конкретным расходным накладным в программе 1С:Бухгалтерия 7.7. Без сомнения, решить эту задачу в лоб – означает, пересчитать всю базу с начала времен, ведь каждый контрагент, собственно говоря, может что-то покупать, потом частично это оплачивать, потом покупать что-то еще и т.д.

Будем решать эту задачу в обратном направлении. Вспомним, что метод FIFO, вообще говоря, должен распространяться и на оплату. Иными словами, если от какого-то клиента поступает оплата, то ни что не мешает нам привязать ее к самому раннему неоплаченному документу по этому клиенту. Итак, если клиент А должен нам 1000 рублей, то можно с уверенностью считать неоплаченными последние N документов, по которым он что–либо у нас приобрел на сумму, не меньше, чем 1000 рублей.

Что ж, будем перебирать все операции по контрагентам в обратном порядке, разнося по ним сумму имеющегося долга. Разумеется, это было бы быстрее, чем перебирать и пересчитывать все документы с начала. Построим рекурсивную обработку операций. Будем рассматривать операции отрезками в 31 день.

Функция ПолучитьДокументы(Контрагент,Т,Знач Д1,Знач Д2,СальдоКон=0)// Т – таблица значений, которая заполняется документами на выходе рекурсии// Д1 и Д2 – очередной рассматриваемый период// СальдоКон – сальдо по контрагенту на конец периода. Значение в // самом начале равно нулю. В дальнейшем оно будет расчитано

Составим запрос по операциям контрагента за месяц

Ит=СоздатьОбъект("БухгалтерскиеИтоги");Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,Контрагент,2,0);Если Ит.ВыполнитьЗапрос(Д1,Д2,"62.1",,,1,"операция","С")=0 ТогдаСообщить("Ошибка!");Возврат 0;КонецЕсли;

Определим условие завершения рекурсии

Если СальдоКон=0 ТогдаСальдоКон=Ит.СКД("С")-Ит.СКК("С");КонецЕсли;Если СальдоКон<=0 ТогдаВозврат 1; КонецЕсли;

Нам понадобится вспомогательная таблица значений

Таб=СоздатьОбъект("ТаблицаЗначений");Таб.НоваяКолонка("Приход","Число",15,2);Таб.НоваяКолонка("Дата","Дата");Таб.НоваяКолонка("Позиция");Таб.НоваяКолонка("Документ","Документ");

Заполним таблицу найденными в запросе операциями

Ит.ВыбратьПериоды(); Пока Ит.ПолучитьПериод()=1 ЦиклТаб.НоваяСтрока();Таб.Приход=Ит.ДО("С");Таб.Документ=Ит.Операция.Документ;Таб.Дата=Ит.Операция.Документ.ДатаДок;Таб.Позиция=Ит.Операция.Документ.ПолучитьПозицию();КонецЦикла;

Если в текущем месяце не было докуменетов, то рассмотрим месяц ранее по рекурсии. Это будет косвенное условие завершения.

Если Таб.КоличествоСтрок()=0 ТогдаВозврат ПолучитьДокументы(Контрагент,Т,Д1-31,Д1-1,СальдоКон);КонецЕсли;

Если полученная таблица операций не пуста, то отсортируем ее по убыванию позиции документов

Таб.Сортировать("-Позиция");

Разнесем долг контрагента по документам, формирующим этот долг. В тот момент, когда остаток долга станет меньше нуля, будем считать, что долг полностью привязан к документам.

Таб.ВыбратьСтроки();Пока (Таб.ПолучитьСтроку()=1)и(СальдоКон>0) ЦиклЕсли Таб.Приход>0 ТогдаТ.НоваяСтрока();Т.Документ=Таб.Документ;Т.Дата=Таб.Дата;Т.Долг=Таб.Приход;Т.ОстатокДолга=СальдоКон;СальдоКон=СальдоКон-Таб.Приход;КонецЕсли;КонецЦикла;

Если документы в текущем месяце не покрыли долг, то берем в рассмотрение еще один месяц рекурсивно.

Если СальдоКон>0 ТогдаВозврат ПолучитьДокументы(Контрагент,Т,Д1-31,Д1-1,СальдоКон);КонецЕсли;

Если покрыли, то возвращаем 1

Возврат 1;КонецФункции

Думаю, теперь каждый без труда поймет, как использовать эту функцию в основном расчетном модуле. Приведу примерный, упрощенный вариант.

Таблица=СоздатьОбъект(«Таблица»);Таблица.ВывестиСекцию(«Шапка»);Т=СоздатьОбъект(«ТаблицаЗначений»);Т.НоваяКолонка(«Документ»);Т.НоваяКолонка(«Дата»);Т.НоваяКолонка(«Долг»);Т.НоваяКолонка(«ОстатокДолга»);Контрагенты=СоздатьОбъект(«Справочник.Контрагенты»);Контрагенты.ВыбратьЭлементы();Пока Контрагенты.ПолучитьЭлемент()=1 ЦиклД=РабочаяДата();Т.УдалитьСтроки();ПолучитьДокументы(Контрагенты.ТекущийЭлемент(),Т,Д-30,Д);ВывестиВТаблицу(Таблица,Контрагенты.ТекущийЭлемент(),Т);КонецЦикла;Таблица.ВывестиСекцию(«Подвал»);Таблица.Опции(0,0,0,0,«ДолгиКонтрагентов1»,«ДолгиКонтрагентов2»);Таблица.ТольоПросмотр(1);Таблица.Показать(«Долги»);

Мы рассмотрели упрощенный вариант задачи, предполагая применение метода FIFO к оплате, и как видите, рекурсия в приведенном случае вполне оправдана. Без сомнения, больший интерес представляет алгоритм, в котором учитывается как дебетовые, так и кредитовые обороты по счету 62, и в этом случае, на выходе мы можем получить что-то вроде книги покупок, но без применения забалансовых счетов. Что ж, дерзайте, коллеги!

Приведенный алгоритм применен в наших обработках "Кто нам должен" и "Кому мы должны"