Добрый день! Ребят, не подскажите какие строки нужно внести в глобальный модуль, чтобы получилось вот так : Процедура пометка на удаление. Если в документе имеется реквизит "АдминПроводка", то, если АдминПроводка = 1, тогда, если текущий юзер = "Админ", то все ок, иначе - предупреждение - "У Вас нет прав на удаление этого документа"

глобальный модуль обязателен?

(1) А ты можешь отследить пометку на удаление не в глобальном модуле?

угу

угу был на первый пост)

а что в правах юзверей нельзя сделать ?

(2) да я и в глобальном не могу ;)

Процедура ПриУдаленииДокумента(Докум,Режим)
   
   Если докум.вид()="ТвойДокумент" тогда
             Если докум.ПометкаУдаления()=0 тогда
                 Если докум.АдминПроводка=1 тогда
                     Если ИмяПользователя()<>"Админ" //лучше константу сделать
                           СтатусВозврата(0);
                           Предупреждение("Хрен вам",60);
                           Возврат;
                     КонецЕсли;
                КонецЕсли;
             КонецЕсли;
       КонецЕсли;
   
КонецПроцедуры // ПриУдаленииДокумента()

(7) самое основное в этой процедуре - предупреждение, остальное постолько-поскольку
)))

Процедура ПриУдаленииДокумента(Докум,Режим)
   
   Если глЕстьРеквизитШапки("АдминПроводка", Докум.Вид())>0 тогда
             Если докум.ПометкаУдаления()=0 тогда
                 Если докум.АдминПроводка=1 тогда
                     Если ИмяПользователя()<>"Админ" //лучше константу сделать

                           СтатусВозврата(0);
                           Предупреждение("Хрен вам",60);
                           Возврат;
                     КонецЕсли;
                КонецЕсли;
             КонецЕсли;
       КонецЕсли;
   
КонецПроцедуры // ПриУдаленииДокумента()

Да, с предупреждением ты погорячился))
Спасибо большое!, сейчас попробую

Есно это дописать в глобальном модуле, в процедуре ПриУдаленииДокумента()

error:
Если глЕстьРеквизитШапки("АдминПроводка", Докум.Вид())>0 тогда
{Глобальный модуль(1164)}: Операции сравнения на больше-меньше допустимы только над значениями совпадающих базовых типов (число, строка, дата)

почему это оно?

(12) функция глЕстьРеквизитШапки присутствует?

Да, вот
Функция глЕстьРеквизитШапки(ИмяРеквизита, ВидДокумента) Экспорт
   Перем Реквизит;
   Если (ПустоеЗначение(ВидДокумента) = 1) ИЛИ
        (ПустоеЗначение(ИмяРеквизита) = 1) Тогда
       Возврат Нет;
   КонецЕсли;
   Реквизит=Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита);
   Возврат ?(Реквизит.Выбран()=1, Да, Нет );
КонецФункции //глЕстьРеквизитШапки

(14) Ну и?

(14) Мде, шедеврально

Если глЕстьРеквизитШапки("АдминПроводка", Докум.Вид())=Да тогда

Пошел третий день внедрения запрета пометки на удаление :)

(18) Админ в отпуске по ходу, так что время есть

А до этого обязательно:

Да = "Ура, товарищи!"

NS, да нет, скорее третий час, времени не было...ошибка таже

(21) Кака-така ошибка?

Чему равны переменные Да и Нет?

то есть?

(24) ИМХО - позовите специалиста, ибо конфе осталось жить совсем недолго.
Кто-то её сейчас убъет. Ты бы допустил к своей машине механика, который не знает что такое колесо?!

Да не переживайте вы так, я же хоть и валера, но не совсем...на бекапе учусь

(26) Никто не переживает, нам пофиг

оч. интересно!.. а что, "валера" это что-то позорное, начиная с этой ветки? :)

Сделай еще одну функцию в глобальнике
Функция глЕстьРеквизитШапки1(ИмяРеквизита, ВидДокумента) Экспорт
   Перем Реквизит;
   Если (ПустоеЗначение(ВидДокумента) = 1) ИЛИ
        (ПустоеЗначение(ИмяРеквизита) = 1) Тогда
       Возврат Нет;
   КонецЕсли;
   Реквизит=Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита);
   Возврат Реквизит.Выбран()=1
КонецФункции //глЕстьРеквизитШапки1
И коде приудалении() подставь её.

(29)не вынесла душа мастера? :)

(30) И то с ошибкой написал :)
Функция глЕстьРеквизитШапки1(ИмяРеквизита, ВидДокумента) Экспорт
   Перем Реквизит;
   Если (ПустоеЗначение(ВидДокумента) = 1) ИЛИ
        (ПустоеЗначение(ИмяРеквизита) = 1) Тогда
       Возврат 0;
   КонецЕсли;
   Реквизит=Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита);
   Возврат Реквизит.Выбран()=1
КонецФункции //глЕстьРеквизитШапки1

(31) Ещё разок.)

честно говоря, мне уже стрёмно что то писать, а то опять накормят какушатами :) но все же :

Возврат Реквизит.Выбран()<<?>>=1
{Глобальный модуль(1162)}: Неопознанный оператор
Возврат Реквизит.Выбран()=1<<?>>
{Глобальный модуль(1162)}: Обнаружено логическое завершение исходного текста модуля

пробуй еще и такой вариант:
Функция глЕстьРеквизитШапки(ИмяРеквизита, ВидДокумента) Экспорт    
   
   
   Если ПустоеЗначение(ИмяРеквизита) = 1 Тогда
       Возврат 0;
   
   ИначеЕсли Метаданные.ОбщийРеквизитДокумента(ИмяРеквизита).Выбран() = 1 Тогда
       Возврат 1;
       
   ИначеЕсли ПустоеЗначение(ВидДокумента) = 1 Тогда
       Возврат 0;
   
   ИначеЕсли Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита).Выбран() = 1 Тогда
       Возврат 1;
       
   Иначе
       Возврат 0;
   КонецЕсли;
   
КонецФункции //глЕстьРеквизитШапки()

(33)
  Реквизит=Метаданные.Документ(ВидДокумента).РеквизитШапки(ИмяРеквизита);
   Возврат Реквизит.Выбран();

(33)вместо
   Возврат Реквизит.Выбран()=1
напечатай
   Возврат Реквизит.Выбран();

Во меня клинит :(

(37)ерунда это..
ТС должна была догадаться.. раз валера.. :)

(37) А нефиг ТСу код с форума копировать

(39) Он валера. Ему можно.

aka AMIGO,  NS спасибо, выручили!