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