Жесткий контроль ставки НДС (любые конфигурации, обычные формы)
Платформа 1С v8.3
1С:Комплексная автоматизация 1.х
1С:Розница
1С:Управление производственным предприятием
1С:Управление торговлей 10
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Работает. Только у нас ставки не перечисления а предопределенные элементы справочника,
и есть уже функция проверяющая наличие реквизита поэтому переименовали
Объединение конфигурации предлагает изменить свойства конфигурации, поэтому объединять надо осторожно - выборочно, а не принимать все изменения. И картинку мы не стали загружать.
Функция ПроверитьСтавкуНДС(СтавкаНДС, ДатаДок, Отказ, ИмяТабЧасти = "", НомерСтроки = 0)
Если ДатаДок < '20190101' И СтавкаНДС = Справочники.СтавкиНДС.НДС20 Тогда
...
КонецЕсли;
Если ДатаДок >= '20190101' И СтавкаНДС = Справочники.СтавкиНДС.НДС20 Тогда
...
КонецЕсли;
КонецФункции
Показатьи есть уже функция проверяющая наличие реквизита поэтому переименовали
Функция ЕстьРеквизитДокументаНДС(ИмяРеквизита, МетаданныеДокумента)
Объединение конфигурации предлагает изменить свойства конфигурации, поэтому объединять надо осторожно - выборочно, а не принимать все изменения. И картинку мы не стали загружать.
Еще добавил в этот модуль функцию для задания основной ставки по умолчанию:
Функция ВыбратьСтавкуНДСПоДатеДокумента(СсылкаНаДокументДата)
Если ТипЗнч(СсылкаНаДокументДата)=ТипЗнч(Дата(2019,01,01)) Тогда
ДатаДок = СсылкаНаДокумент;
Иначе
ДатаДок = СсылкаНаДокумент.Дата;
КонецЕсли;
Если ДатаДок < '20190101' Тогда
СтавкаНДС = Справочники.СтавкиНДС.НДС18;
Иначе
СтавкаНДС = Справочники.СтавкиНДС.НДС20;
КонецЕсли;
Возврат СтавкаНДС;
КонецФункции
Показать
В моих фрагментах кода выше есть пара опечаток. Должно быть:
и
Еще мы сделали из этого запрета исключения бухгалтерам на банковские документы.
Если ДатаДок >= '20190101' И СтавкаНДС = Справочники.СтавкиНДС.НДС18 Тогда
и
Если ТипЗнч(СсылкаНаДокументДата)=ТипЗнч(Дата(2019,01,01)) Тогда
ДатаДок = СсылкаНаДокументДата;
Иначе
ДатаДок = СсылкаНаДокументДата.Дата;
КонецЕсли;
Еще мы сделали из этого запрета исключения бухгалтерам на банковские документы.