Отключение ненужного контроля заявок ДС. УТ 11.5

Ранее я отключал обязательное заполнения заявок, чтобы можно было использовать платежный календарь. При проведении расхода со счета по операции «Перечисление на депозиты» выдается ошибка при любой сумме Х:

По договору Депозит ВТБ оплачивается больше, чем утверждено в заявке, на Х руб.

Поправляю патчем модуля РасчетыПоФинансовымИнструментам:


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

UPD 25.11.20: Для УТ 11.5.24.48 отключил контроль заполненности заявок в документах «Списание безналичных ДС», «Расходный ордер», «Операция по платежной карте» расширением модуля ОбщегоНазначенияКлиентСервер:

&Вместо("СообщитьПользователю")
Процедура дпк_СообщитьПользователю(Знач ТекстСообщенияПользователю, Знач КлючДанных, Знач Поле, Знач ПутьКДанным, Отказ)
	//Отключаем контроль заявок
	Если Найти(ТекстСообщенияПользователю, "Поле ""Заявка на расходование денежных средств"" не заполнено") <> 0 Тогда
		Возврат;
	КонецЕсли;
	ПродолжитьВызов(ТекстСообщенияПользователю, КлючДанных, Поле, ПутьКДанным, Отказ);
КонецПроцедуры

Но этот обход работает, только если в расшифровке платежа одна строка, нужно добавлять еще такой код в модуль СписаниеБезналичныхДенежныхСредствЛокализация:

&Вместо("ОбработкаПроверкиЗаполнения")
Процедура дпк_ОбработкаПроверкиЗаполнения(Объект, Отказ, ПроверяемыеРеквизиты)
	МассивНепроверяемыхРеквизитов = Новый Массив();
	МассивНепроверяемыхРеквизитов.Добавить("РасшифровкаПлатежа.ЗаявкаНаРасходованиеДенежныхСредств");
	ОбщегоНазначения.УдалитьНепроверяемыеРеквизитыИзМассива(ПроверяемыеРеквизиты, МассивНепроверяемыхРеквизитов);
	ПродолжитьВызов(Объект, Отказ, ПроверяемыеРеквизиты);
КонецПроцедуры

Среда: УТ 11.5.24.48 Объем: 0.5 час

image_pdfimage_print

fixin

Программирую на 1С с 1999 года. В 1С просто Гений. В 2020 году ушел из офиса на вольные хлеба фриланса. Принимаю заказы.

Вам может также понравиться...

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *