В начало

Процедура ПриРасчете

 

Процедура ПриРасчете (Объект)

   // Определим, что считаем?

   Если ТипЗначения (Объект) = 12 Тогда

      // Имеем дело с документом

      Если Объект.Автор <> Расчетчик Тогда

         // Если автор данного документа не есть текущий расчетчик

         // запретим расчет чужого документа!

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

      КонецЕсли;

   ИначеЕсли ТипЗначения (Объект) = 11 Тогда

      // А это – элемент справочника

      Если Объект.Владелец <> Расчетчик Тогда

         // Если рассчитываемый объект лежит в папке текущего

         // расчетчика – считать можно, иначе – нет

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

      КонецЕсли;

   Иначе

      // Иначе – считаем одну запись

      Если  (Объект.Документ.Автор <> Расчетчик) ИЛИ

            (Объект.Объект.Владелец <> Расчетчик) Тогда

         // Не дадим считать запись чужого документа или объекта

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

      КонецЕсли;

   КонецЕсли;

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