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