1C 8.2.15.318 КА 1.1.19.1 заказ поставщику

"Добрый день.

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

Процедура Инициализировать(Объект,ИмяТабличнойЧасти,ТабличноеПолеОбъекта) ЭкспортСуммаИтого = Объект.Товары.Итог("Сумма")+?(Объект.СуммаВключаетНДС,0,Объект.Товары.Итог("СуммаНДС"));Для Каждого СтрокаТЧ Из Объект.Товары Цикл  СтрокаТЧ.ПлановаяСебестоимость = 0;КонецЦикла;Запрос = Новый Запрос("ВЫБРАТЬ						   | Значение КАК СуммаСкидки						   |ИЗ						   | РегистрСведений.ЗначенияСвойствОбъектов						   |ГДЕ						   | Объект	 = &Объект						   | И Свойство = &Свойство");Запрос.УстановитьПараметр("Свойство",ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию("Скидка"));Запрос.УстановитьПараметр("Объект"  ,Объект.Ссылка);Выборка = Запрос.Выполнить().Выбрать();Если Выборка.Следующий() тогда  МассивКоэффициентов	  = Объект[ИмяТабличнойЧасти].ВыгрузитьКолонку("Сумма");  Себестоимость			= СуммаИтого-Выборка.СуммаСкидки;  МассивСуммСебестоимость  = ОбщегоНазначения.РаспределитьПропорционально(Себестоимость,МассивКоэффициентов);  Объект[ИмяТабличнойЧасти].ЗагрузитьКолонку(МассивСуммСебестоимость,"ПлановаяСебестоимость");КонецЕсли;КонецПроцедуры

"