Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Пометка на удаление
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
ZhenyaYa
Добрый день! Ребят, не подскажите какие строки нужно внести в глобальный модуль, чтобы получилось вот так : Процедура пометка на удаление. Если в документе имеется реквизит "АдминПроводка", то, если АдминПроводка = 1, тогда, если текущий юзер = "Админ", то все ок, иначе - предупреждение - "У Вас нет прав на удаление этого документа"
Ziam
Лучше уже правами все это регулировать
MATEVI
Процедура ПриУдаленииДокумента(Док,Режим=0) 
    
    Если ИмяПользователя() <> "Админ" Тогда
        
        Реквизит=Метаданные.Документ(Док.Вид()).РеквизитШапки("АдминПроводка");
        
        Если Реквизит.Выбран()=1 Тогда
            
            Если Док.АдминПроводка=1 Тогда
                
                Предупреждение("Нарушение прав доступа!");  
                
                СтатусВозврата(0);
                
            КонецЕсли;
            
        КонецЕсли;
        
    КонецЕсли;
    
КонецПроцедуры
ZhenyaYa
Спасибо, получилось!
Vofka
ZhenyaYa, плюс ставьте помогающему!
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.