Процедура ПокупательПриИзменении(Элемент)
Если ТипЗнч(Контрагент) <> Тип("СправочникСсылка.ФизическиеЛица") Тогда
УправлениеВзаиморасчетами.ПриИзмененииЗначенияКонтрагента(ЭтотОбъект,мСписокВидовДоговоров);
КонецЕсли;
РегистрУсушка = РегистрыСведений._УсушкаПоПокупателям.ПолучитьПоследнее(Дата, Новый Структура("Контрагент",Контрагент));
Если ТипЗнч(Контрагент) = Тип("СправочникСсылка.Контрагенты") Тогда
Усушка = РегистрУсушка.Усушка;
ВидПрайса = РегистрУсушка.ВидПрайса;
Куратор = РегистрУсушка.Куратор;
Иначе
Усушка = 0;
ВидПрайса = Справочники._ПрайсЛисты.Основной;
КонецЕсли;
Для Каждого СТЧ Из Основная Цикл
Отбор = Новый Структура;
Отбор.Вставить("ВидПрайса", ВидПрайса);
Отбор.Вставить("Номенклатура", СТЧ.Номенклатура);
ОтборСеб = Новый Структура;
ОтборСеб.Вставить("ВидПрайса",Справочники._ПрайсЛисты.НайтиПоНаименованию("Внутренний").Ссылка);
ОтборСеб.Вставить("Номенклатура",СТЧ.Номенклатура);
СТЧ.ЕдИзм = СТЧ.Номенклатура.БазоваяЕдиницаИзмерения;
СТЧ.Цена = РегистрыСведений.ЦеныГП.ПолучитьПоследнее(Дата, Отбор).Цена;
СТЧ.ЦенаСеб = РегистрыСведений.ЦеныГП.ПолучитьПоследнее(Дата,ОтборСеб).Цена;
РассчитатьСтроку(СТЧ);
КонецЦикла;
КонецПроцедуры |
