Доработка ввода на основании (расширение)

Сделал по https://1clancer.ru/article/vvod_na_osnovanii_-_cherez_rasshirenie._3353#discuss расширение, но нужно в процедуре
прописать вручную соответствие данных табличных частей.

В СчетеНаОплату есть реквизит ТЧ "ЦенаПоставщика" который нужно передать в СчетНаОплатуПоставщику в ТЧ "Цена"

&После("ОбработкаЗаполнения")
Процедура ЕВ_ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
Если ТипЗнч(ДанныеЗаполнения) = Тип("Структура") Тогда
Если ДанныеЗаполнения.Свойство("Основание") Тогда
Если ТипЗнч(ДанныеЗаполнения.Основание) = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда
ЗаполнитьПоСчетуПокупателю(ДанныеЗаполнения.Основание);
КонецЕсли;
КонецЕсли;
КонецЕсли;

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