Автоматическая подмена ОКТМО — ОКАТО в платёжных поручениях в УПП
1С: УПП автоматически поменял ОКТМО в платёжке при смене даты документа. Первоначально бухгалтер указал ОКТМО, отличный от базового для организации, и послал платёжное поручение в банк. Росприроднадзор указал, что ОКТМО ошибочное. Действительно, в платёжке в банк был базовый ОКТМО. При разборе ситуации выяснилось, что бухгалтер просто поменял дату.
- Описание
- Подробнее
Описание
Предупреждение о некорректной работе.
УПП 1.3.102.1
Документ "Платёжное поручение исходящее"
Реквизит "Код ОКТМО" (КодОКАТО)
При смене даты автоматически заполняется данными из справочника Организации.
Если налог отправляется по другому ОКТМО, и бухгалтер меняет дату, то другой ОКТМО переписывается на ОКТМО организации по умолчанию без предупреждения. В итоге в банк и "Росприроднадзор" платёж ушёл с неправильным ОКТМО.
Необходимо добавить кусок кода в модуле формы документа:
Процедура ДатаПриИзменении(Элемент)
РаботаСДиалогами.ПроверитьНомерДокумента(ЭтотОбъект, мТекущаяДатаДокумента);
МеханизмНумерацииОбъектов.ОбновитьПодсказкуКодНомерОбъекта(ЭтотОбъект.Метаданные(), ЭлементыФормы.ДействияФормы.Кнопки.Подменю1, ЭлементыФормы.Номер);
мТекущаяДатаДокумента = Дата;// запомним текущую дату документа для контроля номера документа
мПрименениеУСН = НалоговыйУчетУСН.ПрименениеУСН(Организация, Дата);
Если ПеречислениеВБюджет Тогда
КодОКАТО = Справочники.Организации.ПолучитьКодТерритории(Организация, Дата);
УстановитьЗаголовокНадписиКодОКТМО();
КонецЕсли;
УстановитьКурсДокумента();
РассчитатьСуммуПлатежа();
ЗаполнениеСписковРеквизитовПлатежейВБюджет();
УстановитьВидимостьИдентификатораПлатежа();
ПредупредитьОбИзмененияхПлатежиВБюджет2014();
КонецПроцедуры// ДатаПриИзменении()
