Подскажите по коду (Учусь 8ке, пишу мини конфу)

1С v8

, ,

30.01.16

✎

13:58

Создала док РасходнаяНакладная: Табл часть Товары(Товар, кол, Цена, Сумма). Процедура ОбработкаПроведения()
Себестоимость товара списывается по Партиям(РегистрНакопления.СтоимостьТоваров). Вот часть кода(здесь все понятно):

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

    ВыборкаТовар = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

    Пока ВыборкаТовар.Следующий() Цикл

        ОсталосьСписать = ВыборкаТовар.Количество;

        ВыборкаПартия = ВыборкаТовар.Выбрать();

        Пока ВыборкаПартия.Следующий() И ОсталосьСписать <> 0 Цикл

            Списать = МИН(ОсталосьСписать, ВыборкаПартия.КоличествоОстаток);

            

            Движение = Движения.СтоимостьТоваров.ДобавитьРасход();

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

            Движение.Товар = ВыборкаПартия.Товар;

            Движение.Партия = ВыборкаПартия.Партия;

            Движение.Количество = Списать;

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

        КонецЦикла;

    КонецЦикла;

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

Нужно провести еще по обортному Регистру ВыручкаИСебестоимостьПродаж(Измерение Товар, Ресурсы:Себестоимость и Выручка)Как правильно вытащить Себестоимоть из кода выше и провести по Оборотному Регистру?

Движения.ВыручкаИСебестоимостьПродаж.Записывать = Истина;

    Для Каждого ТекСтрокаТовары Из Товары Цикл

        Движение = Движения.ВыручкаИСебестоимостьПродаж.Добавить();

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

        Движение.Товар = ТекСтрокаТовары.Товар;

        Движение.Себестоимость = Себ?;

        Движение.Выручка = ТекСтрокаТовары.Сумма;

    КонецЦикла;

После записи по Регистру СтоимостьТоваров вытаскивать запросом?

1 Фрэнки

30.01.16

✎