Здравствуйте. Помогите, не могу в запросе помимо движения по одному регистру, осуществить движение, занести данные в регистр Продажидубльдва Себестоимость заполняется, а ПРОДАЖИ нет. Продажидубльдва - это регистр оборотов
Отдельно если то заносится, ошибок нет в названиях и тд...
Движения.Себетоимость2.Записывать = Истина; Движения.Продажидубльдва.Записывать = Истина;
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Себетоимость2Остатки.Товар КАК Товар, | Себетоимость2Остатки.СуммаОстаток КАК СуммаОстаток, | Себетоимость2Остатки.КоличествоОстаток КАК КоличествоОстаток |ИЗ | РегистрНакопления.Себетоимость2.Остатки( | &МоментВремени, | Товар В | (ВЫБРАТЬ | Расходная_Накдадная__РеализацияТабЧасть.ПК КАК ПК | ИЗ | Документ.Расходная_Накдадная__Реализация.ТабЧасть КАК Расходная_Накдадная__РеализацияТабЧасть | ГДЕ | Расходная_Накдадная__РеализацияТабЧасть.Ссылка = &Ссылка)) КАК Себетоимость2Остатки"; Запрос.УстановитьПараметр("МоментВремени", МоментВремени()); Запрос.УстановитьПараметр("Ссылка", Ссылка); РезультатЗапроса = Запрос.Выполнить(); ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл Если ВыборкаДетальныеЗаписи.КоличествоОстаток <> 0 Тогда Себестоимостьеденицы = ВыборкаДетальныеЗаписи.СуммаОстаток/ВыборкаДетальныеЗаписи.КоличествоОстаток;
Иначе Себестоимостьеденицы=0; КонецЕсли; СтрокаТЧ= ТабЧасть.Найти(ВыборкаДетальныеЗаписи.Товар, "ПК"); Товарпер = ВыборкаДетальныеЗаписи.Товар; Количпер = СтрокаТЧ.Количество; Себпер = Себестоимостьеденицы * СтрокаТЧ.Количество; ////// Движение = Движения.Себетоимость2.Добавить(); Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата; Движение.Товар = ВыборкаДетальныеЗаписи.Товар; Движение.Количество = Количпер; Движение.Сумма=Себпер // Вставить обработку выборки ВыборкаДетальныеЗаписи КонецЦикла;
|