средную цену поставил из регистр накопление....?

[bek007]

Команды

Это что?

ОстатокНаСкладе(Стр1,Стр1,Стр,Стр3)

а это что?

Объект.Товары[0].Цена = Объект.Товары[0].Цена

в чем прикол этого?

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

|СГРУППИРОВАТЬ ПО
   |ЦенаОстаткиИОбороты.Материал,
   |ЦенаОстаткиИОбороты.ЕднИзм";
   
   Запрос.УстановитьПараметр("Дата",Дата);
   Запрос.УстановитьПараметр("Дата1",Дата1);
   Запрос.УстановитьПараметр("Материал", Материал);
   Запрос.УстановитьПараметр("ЕднИзм", ЕднИзм);
   ВыборкаДетальныеЗаписи = Запрос.Выполнить().Выбрать();
   Если ВыборкаДетальныеЗаписи.Следующий() Тогда
   Возврат  ВыборкаДетальныеЗаписи.СуммаНачальныйОстаток / ВыборкаДетальныеЗаписи.КолвоНачальныйОстаток;     
   
   
Иначе
    Возврат 0;
КонецЕсли;
КонецФункции

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
   Стр1= Объект.Дата;
   Стр = Объект.Товары[0].Материал;
   стр3 = Объект.Товары[0].ЕднИзм;
   Стр2 = Объект.От.Наименование;
   Если ОстатокНаСкладе(Стр1,Стр1,Стр,Стр3)<>0 и стр2 <> "Поставшик" тогда
   Объект.Товары[0].Цена = ОстатокНаСкладе(Стр1,Стр1,Стр,Стр3);
   
   КонецЕсли;

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