Проблема с контролем остатков

Форум Программирование Общие вопросы программирования (Dev)

1. ben1ng 29.01.25 21:58 Сейчас в теме

Понятия не имею почему перестал работать контроль остатков, вроде ничего в модели объекта не исправлял.
В приходной накладной у меня по 10ед каждого товара, в документе ПодписаниеКонтракта когда я ввожу 15ед у меня всё проводится ни смотря на то что такого количества нет.

<// регистр ОстаткиМатериалов Расход
		Движение = Движения.ОстаткиМатериалов.Добавить();
		Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
		Движение.Период = Дата;
		Движение.Материал = ВыборкаДетальныеЗаписи.Номенклатура;
		Движение.НаборСвойств = ВыборкаДетальныеЗаписи.НаборСвойств;
		Движение.Склад = Склад;
		Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;  >


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

Показать

Помогите решить данную проблему

Прикрепленные файлы:

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. user2107191 29.01.25 22:16 Сейчас в теме

А новые движения записаны перед контролем?

3. ben1ng 29.01.25 22:48 Сейчас в теме

(2) Там ещё два движения, продажи и стоимость материалов, но они были уже и с ними всё работало

// СтоимостьМатериалов	
		Движение = Движения.СтоимостьМатериалов.Добавить();
		Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
		Движение.Период = Дата;
		Движение.Наименование = ВыборкаДетальныеЗаписи.Номенклатура;
		Движение.Стоимость = ВыборкаДетальныеЗаписи.КоличествоВДокументе * СтоимостьМатериала;
		
		//Продажи
		Движение = Движения.Продажи.Добавить();
		Движение.Период = Дата;
		Движение.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
		Движение.Покупатель = Покупатель;
		Движение.Поставщик = Поставщик;
		Движение.Количество = ВыборкаДетальныеЗаписи.КоличествоВДокументе;
		Движение.Выручка = ВыборкаДетальныеЗаписи.СуммаВДокументе;
		Движение.Стоимость = СтоимостьМатериала * ВыборкаДетальныеЗаписи.КоличествоВДокументе;

Показать

4. user2107191 30.01.25 06:10 Сейчас в теме

(3) Тоже тебе какой-нибудь кусок кода не имеющий отношения к вопросу показать что ли? Глядишь - и за умного сойду.

5. ben1ng 30.01.25 16:02 Сейчас в теме

(4) изначально не понял суть вопроса, да они записаны

Прикрепленные файлы:

Оставьте свое сообщение

E-mail: