7.7 Бонус по поставщикам

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

комплексная конфигурация 4.5(7.70.456)

мне нужно проверять именно сами счета (конкретно 62.1 и 62.2) есть ли на них по кредиту деньги от поставщика. и если есть, то суммы (по каждому поставщику отдельно) записывать в табличный документ.

пытаюсь но я совсем еще новичок в этом деле и не знаю всех тонкостей. приходится до всего додумываться самостоятельно.
на данный момент вместо суммы по конкретному контрагенту берется сумма оборота по кредиту счета.

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

Код:

Процедура Сформировать()  

СпрКонтр=СоздатьОбъект("Справочник.Контрагенты");
ТаблКонт=СоздатьОбъект("ТаблицаЗначений");
ТаблКонт.НоваяКолонка("Контрагент");
ТаблКонт.НоваяКолонка("СуммаОплаты","Число",15,2,,,,);   
ТаблКонт.НоваяКолонка("СуммаПоставки","Число",15,2,,,,); 
ТаблКонт.НоваяКолонка("ПроцентБонуса","Число",15,2,,,,); 
ТаблКонт.НоваяКолонка("ОплатаИлиПоставка","Строка",,,,10); 
ТаблКонт.НоваяКолонка("Кт_61");
ТаблКонт.НоваяКолонка("Кт_62");

СпрКонтр.ВыбратьЭлементы();

Пока СпрКонтр.ПолучитьЭлемент()=1 Цикл
Если СпрКонтр.Бонус<>0 Тогда
ТаблКонт.НоваяСтрока();
ТаблКонт.Контрагент= СпрКонтр.ТекущийЭлемент(); 
ТаблКонт.ПроцентБонуса= СпрКонтр.Бонус; 
Если СпрКонтр.БазаБонуса=0 Тогда
ТаблКонт.ОплатаИлиПоставка="Поставка";
Иначе
ТаблКонт.ОплатаИлиПоставка="Оплата";
КонецЕсли;  

КонецЕсли;

КонецЦикла;      
СписокБонусов = СоздатьОбъект("СписокЗначений"); 


ТаблКонт.ВыбратьСтроки();  
Пока ТаблКонт.ПолучитьСтроку()=1 Цикл
СписокБонусов.ДобавитьЗначение(ТаблКонт.Контрагент);
КонецЦикла;
БухИт = СоздатьОбъект("БухгалтерскиеИтоги");
БухИт.ИспользоватьПланСчетов(ОсновнойПланСчетов());
БухИт.ИспользоватьСубконто(ВидыСубконто.Контрагенты, СписокБонусов, 2); 
БухИт.ВыполнитьЗапрос(НачДата, КонДата,"60",,,,,);
БухИт.ВыбратьСубконто();

Пока БухИт.ПолучитьСубконто() = 1 Цикл
Если (БухИт.Субконто().БазаБонуса=0) и (БухИт.КО() > 0) Тогда   
СтрокаТаблицы=ПустоеЗначение(СтрокаТаблицы);
ТаблКонт.НайтиЗначение(БухИт.Субконто(),СтрокаТаблицы,); 
ТаблКонт.УстановитьЗначение(СтрокаТаблицы,"СуммаПоставки",БухИт.КО());
ИначеЕсли (БухИт.Субконто().БазаБонуса=1) и (БухИт.ДО() > 0) Тогда  
СтрокаТаблицы=ПустоеЗначение(СтрокаТаблицы);
ТаблКонт.НайтиЗначение(БухИт.Субконто(),СтрокаТаблицы,);
ТаблКонт.УстановитьЗначение(СтрокаТаблицы,"СуммаОплаты",БухИт.ДО());	
КонецЕсли;
///////////////// -- от сюда
Если БухИт.КО() > 0 Тогда
СтрокаТаблицы=ПустоеЗначение(СтрокаТаблицы);
ТаблКонт.НайтиЗначение(БухИт.Субконто(),СтрокаТаблицы,);
ТаблКонт.УстановитьЗначение(СтрокаТаблицы,"Кт_61", БухИт.КО());
КонецЕсли;
///////////////// -- до сюда
КонецЦикла;

Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);   
ИтогБонуса=0;
ТаблКонт.ВыбратьСтроки();
Пока ТаблКонт.ПолучитьСтроку()=1 Цикл
Таб.ВывестиСекцию("Строка");  
ИтогБонуса=	ИтогБонуса+(ТаблКонт.СуммаПоставки+ТаблКонт.СуммаОплаты)*ТаблКонт.ПроцентБонуса/100;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать","");

КонецПроцедуры

то что выделено красным надо доводить до ума.

[warn="Внимание"]Пользуйтесь тегами[/warn]

сразу оговорюсь занимаюсь этим всего месяц поэтому многого могу не понимать.

1) я честно говоря не вижу где это происходит
2) сделала, получилось
3) всю процедуру писала не я поэтому не знаю зачем там эта строка. но при попытке закомментить эту строку все три раза когда она встречается - перестали выводиться числовые данные во всех строках кроме первой. а в первой появляются тогда совсем другие суммы.
но если убирать не все разом, а оставлять либо третью, либо первую и вторую вместе, то все работает как надо.
4) при попытке указать колонку выдает "Число фильтров субконто превысило допустимое значение!"
5) не совсем понимаю где он мне может пригодиться.

1) если я правильно понимаю то цикла заполнения ТаблКонт больше нет. там теперь Выгрузить.
3) тоже исправила все ок )
4) никак на это не реагирует
5) попробую разобраться