Движение. СубконтоДт[ПланыВидовХарактеристик. ВидыСубконто. Номенклатура] = ВыборкаДетальныеЗаписи. Номенклатура;
Иначе
Движение = Движения. Основной. Добавить();
Движение. СчетДт = ПланыСчетов. Управленческий. Товары;
Движение. СчетКт = ПланыСчетов. Управленческий. Поставщики;
Движение. Период = Дата;
Движение. КоличествоДт = ВыборкаДетальныеЗаписи. Количество;
Движение. Сумма = ВыборкаДетальныеЗаписи. Сумма;
Движение. СубконтоДт[ПланыВидовХарактеристик. ВидыСубконто. Номенклатура] = ВыборкаДетальныеЗаписи. Номенклатура;
Движение. СубконтоДт[ПланыВидовХарактеристик. ВидыСубконто. Склад] = Склад;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Документ: «Расходная накладная»
Рекв: Склад
Процедура ОбработкаПроведенияБУ(Отказ, Режим)
Запрос = Новый Запрос;
МВТ = Новый МенеджерВременныхТаблиц;
Запрос. МенеджерВременныхТаблиц = МВТ;
Запрос. Текст =
"ВЫБРАТЬ
| РасходнаяНакладнаяСписокНоменклатуры. Номенклатура,
| СУММА(РасходнаяНакладнаяСписокНоменклатуры. Количество) КАК Количество,
| СУММА(РасходнаяНакладнаяСписокНоменклатуры. Сумма) КАК Сумма,
| РасходнаяНакладнаяСписокНоменклатуры. Номенклатура. ЭтоКомплектующая КАК ЭтоКомплектующая,
| РасходнаяНакладнаяСписокНоменклатуры. Ссылка. Склад
|ПОМЕСТИТЬ ВТ_ТЧ
|ИЗ
| Документ. РасходнаяНакладная. СписокНоменклатуры КАК РасходнаяНакладнаяСписокНоменклатуры
|ГДЕ
| РасходнаяНакладнаяСписокНоменклатуры. Ссылка = &Ссылка
|
|СГРУППИРОВАТЬ ПО
| РасходнаяНакладнаяСписокНоменклатуры. Номенклатура,
| РасходнаяНакладнаяСписокНоменклатуры. Номенклатура. ЭтоКомплектующая,
| РасходнаяНакладнаяСписокНоменклатуры. Ссылка. Склад
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТ_ТЧ. Номенклатура
|ИЗ
| ВТ_ТЧ КАК ВТ_ТЧ
|ГДЕ
| ВТ_ТЧ. ЭтоКомплектующая
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ВТ_ТЧ. Номенклатура,
| ВТ_ТЧ. Склад
|ИЗ
| ВТ_ТЧ КАК ВТ_ТЧ
|ГДЕ
| НЕ ВТ_ТЧ. ЭтоКомплектующая";
Запрос. УстановитьПараметр("Ссылка", Ссылка);
МассивРезультатов = Запрос. ВыполнитьПакет();
Результат = МассивРезультатов[1];
ТЗМатериалы = Результат. Выгрузить();
Результат = МассивРезультатов[2];
ТЗТовары = Результат. Выгрузить();
Блокировка = Новый БлокировкаДанных;
Если ТЗМатериалы. Количество() > 0 Тогда
ЭБ1 = Блокировка. Добавить("РегистрБухгалтерии. Основной");
ЭБ1.Режим = РежимБлокировкиДанных. Исключительный;
ЭБ1.УстановитьЗначение("Счет",ПланыСчетов. Управленческий. Материалы);
ЭБ1.ИсточникДанных = ТЗМатериалы;
ЭБ1.ИспользоватьИзИсточникаДанных(ПланыВидовХарактеристик. ВидыСубконто. Номенклатура, "Номенклатура");
КонецЕсли;
Если ТЗТовары. Количество() > 0 Тогда
ЭБ2 = Блокировка. Добавить("РегистрБухгалтерии. Основной");
ЭБ2.Режим = РежимБлокировкиДанных. Исключительный;
ЭБ2.УстановитьЗначение("Счет",ПланыСчетов. Управленческий. Товары);
ЭБ2.ИсточникДанных = ТЗТовары;
ЭБ2.ИспользоватьИзИсточникаДанных(ПланыВидовХарактеристик. ВидыСубконто. Номенклатура, "Номенклатура");
ЭБ2.ИспользоватьИзИсточникаДанных(ПланыВидовХарактеристик. ВидыСубконто. Склад, "Склад");
КонецЕсли;
Блокировка. Заблокировать();
Движения. Основной. Очистить();
Движения. Основной. Записать();
Движения. Основной. Записывать = Истина;
Запрос. Текст =
"ВЫБРАТЬ
| ВТ_ТЧ. Номенклатура,
| ВТ_ТЧ. ЭтоКомплектующая,
| ВТ_ТЧ. Количество,
| ВТ_ТЧ. Сумма
|ПОМЕСТИТЬ ВТ_МВТ
|ИЗ
| ВТ_ТЧ КАК ВТ_ТЧ
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| ОсновнойОстатки. Субконто1 КАК Номенклатура,
| ОсновнойОстатки. КоличествоОстатокДт КАК КоличествоОстаток,
| ОсновнойОстатки. СуммаОстатокДт КАК СуммаОстаток
|ПОМЕСТИТЬ ВТ_Остатки
|ИЗ
| РегистрБухгалтерии. Основной. Остатки(
| &МоментВремени,
| Счет = ЗНАЧЕНИЕ(ПланСчетов. Управленческий. Материалы),
| ,
| Субконто1 В
| (ВЫБРАТЬ
| ВТ_МВТ. Номенклатура
| ИЗ
| ВТ_МВТ КАК ВТ_МВТ
| ГДЕ
| ВТ_МВТ. ЭтоКомплектующая)) КАК ОсновнойОстатки
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ОсновнойОстатки. Субконто1,
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 5 6 7 8 9 10 11 |
