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