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

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