1С учёт товара

Question

Как сделать так, чтобы товары в документы не уходили в минус, т.е. чтобы при проведении документа, когда указываю товар, которого у меня нет, выходила ошибка.

Accepted Answer

Создаёшь РегистрНакопления.

В модуле документа для которого необходим контроль(переделаешь под себя сам): 

[CODE]Процедура ОбработкаПроведения(Отказ, Режим)
	//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
	// Данный фрагмент построен конструктором.
	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
	
	// регистр ОстаткиТоваров Расход
	Движения.ОстаткиТоваров.Записывать = Истина;
	Для Каждого ТекСтрокаПереченьПотребовавшихсяМатериалов Из ПереченьПотребовавшихсяМатериалов Цикл
		Движение = Движения.ОстаткиТоваров.Добавить();
		Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
		Движение.Период = Дата;
		Движение.Товар = ТекСтрокаПереченьПотребовавшихсяМатериалов.Материалы;
		Движение.Количество = ТекСтрокаПереченьПотребовавшихсяМатериалов.Количество;
	КонецЦикла;
	
	Движения.Записать();
	//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
	// Данный фрагмент построен конструктором.
	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
	
		//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
	// Данный фрагмент построен конструктором.
	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ОстаткиТоваровОстатки.Товар КАК Товар,
		|	ОстаткиТоваровОстатки.КоличествоОстаток КАК КоличествоОстаток
		|ИЗ
		|	РегистрНакопления.ОстаткиТоваров.Остатки(, Товар В (&МассивТоваров)) КАК ОстаткиТоваровОстатки
		|ГДЕ
		|	ОстаткиТоваровОстатки.КоличествоОстаток < 0";
	
	Запрос.УстановитьПараметр("0", 0);
	Запрос.УстановитьПараметр("МассивТоваров", ПереченьПотребовавшихсяМатериалов.ВыгрузитьКолонку("Материалы"));
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Если НЕ РезультатЗапроса.Пустой() Тогда
		Отказ = Истина;
		ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		
		Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
			
			Сообщить("На складе не хватает: " + ВыборкаДетальныеЗаписи.Товар + " в количестве " + ((-1) * ВыборкаДетальныеЗаписи.КоличествоОстаток)); 	
			
		КонецЦикла;
		
     КонецЕсли;
КонецПроцедуры;[/CODE]