Помогите, как можно реализовать задачу!

Функция НайтиВетку(ГруппаНПА,ТекКонтр)

СпрКонтр = СоздатьОбъект("Справочник.Контрагенты");
//сообщить(ТекКонтр);
Если СпрКонтр.ВыбратьЭлементыПоРеквизиту("Спонсор",ТекКонтр)=1 Тогда
Пока СпрКонтр.ПолучитьЭлемент()=1 Цикл
ГруппаНПА.ДобавитьЗначение(СпрКонтр.ТекущийЭлемент());
//сообщить(СпрКонтр.ТекущийЭлемент());
Если ТекКонтр = СпрКонтр.ТекущийЭлемент() Тогда
сообщить("Проверьте: "+СокрЛП(ТекКонтр));
Возврат 0;
КонецЕсли;

Если НайтиВетку(ГруппаНПА,СпрКонтр.ТекущийЭлемент())=1 Тогда
//
КонецЕсли;
КонецЦикла;
Иначе
Возврат 0;
КонецЕсли;
Возврат 1;

КонецФункции //НайтиВетку()

Процедура Печать(Докум, Устройство=0, КолвоКопий=1)
Перем НачПовт, КонПовт;

//Посчитаем баллы с начала месяца...
//индивидуальные
ДатаНач = НачМесяца(Докум.ДатаДок);
ДатаКон = Докум.ДатаДок;

Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = "
|Период с ДатаНач по ДатаКон;
|ОбрабатыватьДокументы Проведенные;
|Покупатель = Документ.ЗаявкаПокупателя.Контрагент,Документ.Замена.Контрагент;
|Склад = Документ.ЗаявкаПокупателя.Склад,Документ.Замена.Склад;
|СуммаББ = Документ.ЗаявкаПокупателя.СуммаББ;
|СуммаББЗ = Документ.Замена.СуммаББ;
|СуммаЗББ = Документ.Замена.СуммаББ1;
|Функция Баллы = Сумма(СуммаББ + (СуммаЗББ - СуммаББЗ));
|Условие (Покупатель = Докум.Контрагент);
|Условие (Склад = Докум.Склад);
|Группировка Покупатель без групп;
|";

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

СтрокаББСНачалаМесяца = "";
СуммаББЛичная = 0;
Если Запрос.Группировка("Покупатель") = 1 Тогда
СуммаББЛичная = Запрос.Баллы;
КонецЕсли;
СтрокаББСНачалаМесяца = "Сумма личных баллов с начала месяца (включая данный док-т): "+глФРМ(СуммаББЛичная);

//спонсорские
//сначала составим список группы
ГруппаНПА = СоздатьОбъект("СписокЗначений");
ГруппаНПА.УдалитьВсе();
СпрКонтр = СоздатьОбъект("Справочник.Контрагенты");
СпрКонтр.ВыбратьЭлементы();
Пока СпрКонтр.ПолучитьЭлемент()=1 Цикл
Если СпрКонтр.Спонсор = Докум.Контрагент Тогда
ГруппаНПА.ДобавитьЗначение(СпрКонтр.ТекущийЭлемент());
//сообщить(СпрКонтр.ТекущийЭлемент());
Если НайтиВетку(ГруппаНПА,СпрКонтр.ТекущийЭлемент())=0 Тогда
Продолжить;
//Прервать;
КонецЕсли;
КонецЕсли;
КонецЦикла;

//СчетчикЦикла = 0;
//Для СчетчикЦикла = 1 По ГруппаНПА.РазмерСписка() Цикл
//ВспТекст = "";
//сообщить(ГруппаНПА.ПолучитьЗначение(СчетчикЦикла,ВспТекст));
//КонецЦикла;

СуммаББСпонсорская = 0;
Если ГруппаНПА.РазмерСписка()>0 Тогда

ТекстЗапроса = "
|Период с ДатаНач по ДатаКон;
|ОбрабатыватьДокументы Проведенные;
|Покупатель = Документ.ЗаявкаПокупателя.Контрагент,Документ.Замена.Контрагент;
|Склад = Документ.ЗаявкаПокупателя.Склад,Документ.Замена.Склад;
|СуммаББ = Документ.ЗаявкаПокупателя.СуммаББ;
|СуммаББЗ = Документ.Замена.СуммаББ;
|СуммаЗББ = Документ.Замена.СуммаББ1;
|Функция Баллы = Сумма(СуммаББ + (СуммаЗББ - СуммаББЗ));
|Условие (Покупатель в ГруппаНПА);
|Условие (Склад = Докум.Склад);
|Группировка Покупатель без групп;
|";

Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

Пока Запрос.Группировка("Покупатель") = 1 Цикл
//Сообщить(СокрЛП(Запрос.Покупатель)+" = "+СокрЛП(Запрос.СуммаББ));
СуммаББСпонсорская = СуммаББСпонсорская + Запрос.Баллы;
КонецЦикла;

КонецЕсли;

СуммаББСпонсорская = СуммаББСпонсорская + СуммаББЛичная;

СтрокаББСНачалаМесяца = СтрокаББСНачалаМесяца + РазделительСтрок + "Сумма групповых баллов с начала месяца (включая данный док-т): "+глФРМ(СуммаББСпонсорская);