Тест "Проведение и проверка движений до и после" падает на проведении документов в запрещенном периоде, т.к. включена дата запрета

[artbear]

Описание ошибки
что конкретно происходит

ИНФОРМАЦИЯ - .    -->> тест Проведение и проверка движений до и после - 
Счет-фактура налогового агента 0000-0000005 от 27.12.2018 23:59:59
ИНФОРМАЦИЯ - ОШИБКА:
ИНФОРМАЦИЯ - Счет-фактура налогового агента 0000-0000005 от 27.12.2018 23:59:59 
невозможно изменить в запрещенном периоде.
ИНФОРМАЦИЯ - Дате 27.12.2018 соответствует запрет изменения данных 
для пользователя "Автотест" по 31.12.2019 (установлена общая дата запрета)
ИНФОРМАЦИЯ - {ВнешняяОбработка.тесты_ПроведениеДокументов.МодульОбъекта(64)}:	
ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);

@SidnevAV что скажешь?

Окружение:

Техническая информация:

• Версия Vanessa-ADD: 6.7.0
• Имя конфигурации: КомплекснаяАвтоматизация
• Синоним конфигурации: 1С:Комплексная автоматизация 2
• Версия конфигурации: 2.4.13.51
• Платформа 1С: 8.3.17.1549
• Тип базы: Клиент-серверная ИБ
• Режим запуска: Управляемое приложение (Тонкий клиент)
• Режим совместимости (для TestManager): Версия8_3_14
• Режим совместимости интерфейса (для TestManager): ТаксиРазрешитьВерсия8_2
• Режим синхронности: выключен
• Защита от опасных действий: выключен
• Язык (для TestManager): Русский
• Локализация (для TestManager): ru
• Операционная система (клиент): Windows x86 Microsoft Windows 10 version 10.0 (Build 14393)
• Операционная система (сервер): Windows x86-64 Microsoft Windows 10 version 10.0 (Build 14393)

[AlexPCRus]

Мы обошли следующим образом:

Процедура ПередЗапускомТеста() Экспорт
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения") Тогда
УстановитьПривилегированныйРежим(Истина);
МодульДатыЗапретаИзмененияСлужебный = ОбщегоНазначения.ОбщийМодуль("ДатыЗапретаИзмененияСлужебный");
МодульДатыЗапретаИзмененияСлужебный.ПропуститьПроверкуЗапретаИзменения(Истина);
КонецЕсли;
НачатьТранзакцию();
КонецПроцедуры

Процедура ПослеЗапускаТеста() Экспорт
Если ТранзакцияАктивна() Тогда
ОтменитьТранзакцию();
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения") Тогда
УстановитьПривилегированныйРежим(Истина);
МодульДатыЗапретаИзмененияСлужебный = ОбщегоНазначения.ОбщийМодуль("ДатыЗапретаИзмененияСлужебный");
МодульДатыЗапретаИзмененияСлужебный.ПропуститьПроверкуЗапретаИзменения(Ложь);
КонецЕсли;
КонецПроцедуры

У нас БП 3.0. Наверное проверку подсистемы имеет смысл вынести в функцию теста, чтобы на нетиповых тест не падал.

[artbear]

@AlexPCRus Отличное предложение, так и нужно сделать.

[AlexPCRus]

Я могу ... скопировать творчески :) Или надо автора теста подождать? Какова логика коворкинга? :)

[AlexPCRus]

Немного обновили решение в связи с выходом новых версий БСП:

Процедура ПередЗапускомТеста() Экспорт
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения") Тогда
УстановитьПривилегированныйРежим(Истина);
МодульДатыЗапретаИзменения = ОбщегоНазначения.ОбщийМодуль("ДатыЗапретаИзменения");
МодульДатыЗапретаИзменения.ОтключитьПроверкуДатЗапрета(Истина);
КонецЕсли;
НачатьТранзакцию();
КонецПроцедуры

Процедура ПослеЗапускаТеста() Экспорт
Если ТранзакцияАктивна() Тогда
ОтменитьТранзакцию();
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения") Тогда
УстановитьПривилегированныйРежим(Истина);
МодульДатыЗапретаИзменения = ОбщегоНазначения.ОбщийМодуль("ДатыЗапретаИзменения");
МодульДатыЗапретаИзменения.ОтключитьПроверкуДатЗапрета(Ложь);
КонецЕсли;
КонецПроцедуры

[LazarenkoA]

я это исправлял в ПР #971