Как настроить проверку отрицательных остатков?

[onegreyonewhite]

Делай запрос конструктором, а не копируй с других сайтов.
У тебя в конфигурации нету документа "ПРОДАЖА".!!!

Ээээ... Как бЭ ты не прав Он, документ, есть Ещё как есть Я в нём и проверяю перед проведением по регистрам количество товара

[onegreyonewhite]

Сначала отдели мух от котлет. Посмотри где вообще хранятся эти остатки. Подумай как проверить на определенную дату количество определенной номенклатуры в БД. (типовыми средствами)

И ты таки опять молодец! И ещё раз тебе "спасибо". Ты классно навёл на мысль о реализации такой не трудной операции.

Вот как я сделал (и это работает):

Код Выделить Развернуть

Процедура ОбработкаПроведения(Отказ, Режим)
// регистр ДвиженияТовары Приход
Движения.ДвиженияТовары.Записывать = Истина;
Для каждого ТекСтрокаСписокПокупок Из СписокПокупок Цикл
Остаток = РаботаСоСправочниками.ПолучитьОстаток(ТекСтрокаСписокПокупок.Товар, Склад);
Если Остаток < ТекСтрокаСписокПокупок.Количество Тогда
Сообщить("Не хватает товара " + ТекСтрокаСписокПокупок.Товар + " , из необходимых " + ТекСтрокаСписокПокупок.Количество + ". В наличии только " + Остаток + ".");
Отказ = Истина;
КонецЕсли;
Если Не Отказ Тогда
Движение = Движения.ДвиженияТовары.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Склад = Склад;
Движение.Товар = ТекСтрокаСписокПокупок.Товар;
Движение.Количество = ТекСтрокаСписокПокупок.Количество;
КонецЕсли;
КонецЦикла;
.......
.......
КонецПроцедуры

Сделал в общей обработке РаботаСоСправочниками функцию возвращающую значение количества по каждому товару:

Код Выделить Развернуть

функция ПолучитьОстаток(Товар, Склад) Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ДвиженияТоварыОстатки.Склад,
| ДвиженияТоварыОстатки.Товар,
| ДвиженияТоварыОстатки.КоличествоОстаток КАК Количество
|ИЗ
| РегистрНакопления.ДвиженияТовары.Остатки КАК ДвиженияТоварыОстатки
|ГДЕ
| ДвиженияТоварыОстатки.Склад = &Склад
| И ДвиженияТоварыОстатки.Товар = &Товар";

Запрос.УстановитьПараметр("Склад", Склад);
Запрос.УстановитьПараметр("Товар", Товар);

Результат = Запрос.Выполнить();

Выборка = Результат.Выбрать();

Пока Выборка.Следующий() Цикл
Количество = Выборка.Количество;
КонецЦикла;
Возврат Количество;
конецФункции

Ещё раз спасибо Dethmontt

[Dethmontt]

Да не за что,  главное ты понял)))

[cska-fanat-kz]

чувствую, ща пополню ряды неадекватов...

2 onegreyonewhite!!

никому не показывайте самый последний ваш код!
проверка остатков в корне не верна!

1. Запрос в цикле у 1Сников - это вещь пострашнее Ктулху!
2. Условие на склад и товар к таблице остатков накладывается в ВИРТУАЛЬНЫХ параметрах и никак иначе!

ваш код будет работать ооочень медленно!

[onegreyonewhite]

чувствую, ща пополню ряды неадекватов...

Да вроде не буйный и всё по делу

никому не показывайте самый последний ваш код!
проверка остатков в корне не верна!

1. Запрос в цикле у 1Сников - это вещь пострашнее Ктулху!
2. Условие на склад и товар к таблице остатков накладывается в ВИРТУАЛЬНЫХ параметрах и никак иначе!

ваш код будет работать ооочень медленно!

Ну так я иных способов не нашёл пока. Если можете пояснить наглядно, буду оч признателен.
Просто мне ещё надо будет примерно то же проделать с $$$ частью, а на виртуальных примерах без каких-либо пояснений что значит та или иная переменная разобраться в принципе нереально, я так считаю.

[cska-fanat-kz]

Да вроде не буйный и всё по делу

ну слава Богу! можно выдохнуть и жить дальше... )))

пошукайте на сайте chistov.spb.ru.
в разделе "Статьи" найдете статью про новый принцип контроля остатка.
если копнете по глубже - найдете его видео, где Павел решает задачу по опер учету как раз на вашу тему...

[Михаил Сергеевич]

Новый принци:

сначало пишуться движения, потом проверяется регистр на отрицательные суммы, если такие есть значит отказ = истина...
новый контроль остатков сделан для того чтобы блокировка на таблицу в транзакции висела как можно меньше...

[Dethmontt]

cska-fanat-kz, тебе на мисту надо))) Шучу...

[cska-fanat-kz]

cska-fanat-kz, тебе на мисту надо))) Шучу...

Над пользователями я и тут вдоволь поиздеваюсь