Изменить движение

Question

[B]Есть такое движение СформироватьДвиженияПоСкладам - мне нужно что бы  Движение.Сумма             = ТекСтрокаТовары.Сумма ; Превратить в  Движение.Сумма             = ТекСтрокаТовары.Количество * Себестоимотсь ; а себестоимость я достаю из функции ниже как это сделать? Новичек в 1с[/B]

[1C-CODE]/////////////////////////////

Процедура СформироватьДвиженияПоСкладам(Отказ)
    
    Если Отказ Тогда 
        Возврат
    КонецЕсли;
    
    // регистр ОстаткиНаСкладах Расход
    Движения.ОстаткиНаСкладах.Записывать = Истина;
    Для Каждого ТекСтрокаТовары Из Товары Цикл
        
        Движение = Движения.ОстаткиНаСкладах.Добавить();
        Движение.ВидДвижения     = ВидДвиженияНакопления.Расход;
        Движение.Период         = Дата;
        Движение.Склад             = Склад;
        Движение.Организация     = Организация;
        
        Движение.КачествоДМ     = ТекСтрокаТовары.КачествоДМ;
        Движение.Проба             = ТекСтрокаТовары.Проба;
        Движение.Номенклатура     = ТекСтрокаТовары.Номенклатура;
        Движение.Количество     = ТекСтрокаТовары.Количество;
        Движение.Вес             = ТекСтрокаТовары.Вес;
        Движение.Сумма             = ТекСтрокаТовары.Сумма ;
        
    КонецЦикла;
    
КонецПроцедуры



////////////////////////////////////////
////// и вот функция

Функция Себестоимость ()
    
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
                   |    ЕСТЬNULL(ОстаткиНаСкладахОстатки.СуммаОстаток / ОстаткиНаСкладахОстатки.КоличествоОстаток, 0) КАК Себестоимость
                   |ИЗ
                   |    РегистрНакопления.ОстаткиНаСкладах.Остатки(, Организация = &Организация) КАК ОстаткиНаСкладахОстатки";
    Запрос.УстановитьПараметр("Организация", Организация);
    
    
    Себестоимость = Запрос.Выполнить();
    
    
    Возврат Себестоимость;    
    
    КонецФункции[/1C-CODE]

Accepted Answer

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