Помогите пожалуйста разобраться с Контролем остатков и Автоматическая подстаовка цены

[miha_serb]

Помогите пожалуйста с автоматическим расчетом стоимости при проведении документа расходная накладная.
Процедура ОбработкаПроведения(Отказ, Режим)


Движения.ТоварыНаСкладе.За писывать = Истина;

МенеджерВТ = Новый МенеджерВременныхТаблиц;

Запрос = Новый Запрос;

// Укажем, какой менеджер временных таблиц использует этот запрос
Запрос.МенеджерВременныхТ� �блиц = МенеджерВТ;


Запрос.Текст = "ВЫБРАТЬ
| РасходнаяНакладнаяТовары.� �оменклатура,
| МАКСИМУМ(ТоварыНаСкладеОс� �атки.СуммаОстаток / ТоварыНаСкладеОстатки.Кол� �чествоОстаток) КАК Себестоимость,
| СУММА(РасходнаяНакладнаяТ� �вары.Сумма) КАК Сумма,
| СУММА(РасходнаяНакладнаяТ� �вары.Количество) КАК Количество,
| РасходнаяНакладнаяТовары.� �клад,
| ТоварыНаСкладеОстатки.Кол� �чествоОстаток,
| ТоварыНаСкладеОстатки.Сум� �аОстаток
|ПОМЕСТИТЬ ДокТЧ
|ИЗ
| Документ.РасходнаяНакладн� �я.Товары КАК РасходнаяНакладнаяТовары
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыН� �Складе.Остатки КАК ТоварыНаСкладеОстатки
| ПО РасходнаяНакладнаяТовары.� �оменклатура = ТоварыНаСкладеОстатки.Ном� �нклатура
|ГДЕ
| РасходнаяНакладнаяТовары.� �сылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| РасходнаяНакладнаяТовары.� �оменклатура,
| РасходнаяНакладнаяТовары.� �клад,
| ТоварыНаСкладеОстатки.Кол� �чествоОстаток,
| ТоварыНаСкладеОстатки.Сум� �аОстаток";

Запрос.УстановитьПараметр( "Ссылка", Ссылка);

РезультатЗапроса = Запрос.Выполнить();




Запрос2 = Новый Запрос;
Запрос2.МенеджерВременныхТ аблиц = МенеджерВТ;
Запрос2.Текст = "ВЫБРАТЬ
| ТоварыНаСкладеОстатки.Кол� �чествоОстаток,
| ТоварыНаСкладеОстатки.Сум� �аОстаток,
| ДокТЧ.Номенклатура,
| ДокТЧ.Склад,
| ДокТЧ.Себестоимость,
| ДокТЧ.Сумма,
| ДокТЧ.Количество,
| РасходнаяНакладнаяТовары.� �ена
|ИЗ
| РегистрНакопления.ТоварыН� �Складе.Остатки(
| ,
| Номенклатура В
| (ВЫБРАТЬ
| ДокТЧ.Номенклатура
| ИЗ
| ДокТЧ)) КАК ТоварыНаСкладеОстатки
| ЛЕВОЕ СОЕДИНЕНИЕ ДокТЧ КАК ДокТЧ
| ЛЕВОЕ СОЕДИНЕНИЕ Документ.РасходнаяНакладн� �я.Товары КАК РасходнаяНакладнаяТовары
| ПО ДокТЧ.Себестоимость = РасходнаяНакладнаяТовары.� �ена
| ПО ТоварыНаСкладеОстатки.Ном� �нклатура = ДокТЧ.Номенклатура";

Результат = Запрос2.Выполнить();

ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Сл� �дующий() Цикл

Движение = Движения.ТоварыНаСкладе.До бавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Рас� �од;

Движение.Период = Дата;

Движение.Номенклатура = ВыборкаДетальныеЗаписи.Но� �енклатура;

Движение.Склад = ВыборкаДетальныеЗаписи.Ск� �ад;

Движение.Количество = ВыборкаДетальныеЗаписи.Ко� �ичество;

Если ВыборкаДетальныеЗаписи.Ко� �ичество<ВыборкаДетальныеЗ аписи.КоличествоОСтаток Тогда

Движение.Сумма = ВыборкаДетальныеЗаписи.Су� �маОСтаток/ВыборкаДетальныеЗаписи.Ко� �ичествоОстаток*ВыборкаДет альныеЗаписи.Количество;

Иначе

Движение.Сумма = ВыборкаДетальныеЗаписи.Су� �ма;

КонецЕсли;

Движения.Записать();

КонецЦикла;