В начало

При удалении истории

 

Процедура ПриУдаленииИстории (ТипОб, Об, Значен, ДатаИстор)

   Если НазваниеНабораПрав () = "Продавец" Тогда

      Если  (ТипОб = "Справочник.Валюты.ТекКурс") И

            (Об=Константа.ОсновнаяВалюта) И  (ДатаИстор < РабочаяДата () - 7) Тогда

         // Удаляется курс для валюты, которая записана в Константе

         Предупреждение ("У вас нет права удалять прошлый курс!", 2);

         СтатусВозврата (0);

      КонецЕсли;

   КонецЕсли;

КонецПроцедуры