Простой запрет пробивать товары без НДС в старом РМК Розница 2.3

Сделал заплатку, чтобы не пробивали товар без НДС. Иногда в карточку забывают внести и на ОСНО проходят продажи без НДС, что чревато проблемами с налоговой.

Контроль происходит при нажатии на кнопки оплаты.

Расширяется форма обработки РМКУправляемыйРежим:

&НаКлиенте
&Вместо("ОплатитьТовары")
Процедура зпБДНС_ОплатитьТовары(ИмяФормыОплаты, ОплатаПлатежнойКартой, ОплатаПлатежнойСистемой, Печать)
	
	//Контролируем ставки НДС
	Ошибка = "";
	Для Каждого Строка ИЗ Объект.Товары Цикл
		Если 
			Строка.СтавкаНДС = ПредопределенноеЗначение("Перечисление.СтавкиНДС.БезНДС") 
			ИЛИ Строка.СтавкаНДС = ПредопределенноеЗначение("Перечисление.СтавкиНДС.НДС0") Тогда
			Ошибка = Ошибка + "У товара: " + Строка.Номенклатура + " недопустимая ставка НДС: " + Строка.СтавкаНДС + Символы.ПС; 
		КонецЕсли;
	КонецЦикла;

	Если Ошибка <> "" Тогда
		ПоказатьПредупреждение(, Ошибка);    
		ЭтотОбъект.Доступность = Истина;
		Возврат;
	КонецЕсли;
	
	ПродолжитьВызов(ИмяФормыОплаты, ОплатаПлатежнойКартой, ОплатаПлатежнойСистемой, Печать);
КонецПроцедуры

Доступность включается потому, что при начале оплаты она выключается.

Дешево и сердито.

Предупреждение об ошибке выглядит так:

Розница: 2.3.20.38 Объем: 0.5 час.