Как ERP (Управление предприятием 2) вырубить проверку на дату запрета изменения для определенного объекта?

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. s6j7i8 27.10.23 08:44 Сейчас в теме

Всем привет. Подскажите, пожалуйста.

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. newlogin1 27.10.23 09:20 Сейчас в теме

(1)Зайти в настройки и отключить?

4. s6j7i8 27.10.23 09:36 Сейчас в теме

(2) Как ты это сделаешь для 1 документа только?

3. RustamZz 27.10.23 09:22 Сейчас в теме

(1)

Прикрепленные файлы:

6. s6j7i8 27.10.23 10:27 Сейчас в теме

(3) Не работает

5. VmvLer 27.10.23 09:40 Сейчас в теме

(1) для масштабирования можно так

&После("ПередПроверкойЗапретаИзменения")
Процедура Расш1_ПередПроверкойЗапретаИзменения(Объект, ПроверкаЗапретаИзменения, УзелПроверкиЗапретаЗагрузки, ВерсияОбъекта)
	
	мТипыБезПроверкиЗапретаИзменения_Кадры = Новый Массив;
	мТипыБезПроверкиЗапретаИзменения_Кадры.Добавить(Тип("РегистрСведенийНаборЗаписей.ГражданствоФизическихЛиц"));
	мТипыБезПроверкиЗапретаИзменения_Кадры.Добавить(Тип("РегистрСведенийНаборЗаписей.ДокументыФизическихЛиц"));
	мТипыБезПроверкиЗапретаИзменения_Кадры.Добавить(Тип("РегистрСведенийНаборЗаписей.ФИОФизическихЛиц"));
	мТипыБезПроверкиЗапретаИзменения_Кадры.Добавить(Тип("РегистрСведенийНаборЗаписей.СтатусыЗастрахованныхФизическихЛиц"));
	мТипыБезПроверкиЗапретаИзменения_Кадры.Добавить(Тип("РегистрСведенийНаборЗаписей.СостоянияВБракеФизическихЛиц")); // +
    мТипыБезПроверкиЗапретаИзменения_Кадры.Добавить(Тип("РегистрСведенийНаборЗаписей.СведенияОбИнвалидностиФизическихЛиц")); // + 21.12.2022
	мТипыБезПроверкиЗапретаИзменения_Кадры.Добавить(Тип("ДокументОбъект.ГрафикОтпусков")); // + 30.05.2023
мТипыБезПроверкиЗапретаИзменения_Кадры.Добавить(Тип("РегистрСведенийНаборЗаписей.ВоинскийУчет")); // + 06.10.2023, для корректировки карточек воиского учета согласно закона
		
	// Условия вложенные чтобы вычислить результат с минимальными "затратами"
	Если ПроверкаЗапретаИзменения Тогда
		Если мТипыБезПроверкиЗапретаИзменения_Кадры.Найти(ТипЗнч(Объект)) <> Неопределено Тогда
			Если (РольДоступна("АдминистраторСистемы") ИЛИ РольДоступна("ДатаЗапретаИгнорировать_Доп")) Тогда
				ПроверкаЗапретаИзменения = Ложь;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	
КонецПроцедуры

Показать

7. user1278383 5 27.10.23 10:49 Сейчас в теме

Перед записью в доп. св-ва вставить:

Объект.ДополнительныеСвойства.Вставить("ОтключитьПроверкуДатыЗапретаИзменения", Истина);

Оставьте свое сообщение

E-mail: