катись » Поиск

Результаты по ключевому слову: катись

Как запретить создание документа копированием?

Бывает, нужно программно запретить копирование документа, в данной статье несколько способов реализации этого:

Код 1C v 8.2 УП

 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)



    Если НЕ Параметры.ЗначениеКопирования.Пустая() Тогда

        Отказ = Истина; СтандартнаяОбработка = Ложь;

    КонецЕсли;

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

В перед открытием

Код 1C v 8.х

 Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

Если ЭтоНовый() Тогда // если объект новый



Если ЗначениеЗаполнено(ПараметрОбъектКопирования) Тогда // и существует объект копирования

Если ПараметрОбъектКопирования.Дата < Дата("20100101000000") Тогда // и условие запрета выполнено

Отказ = Истина; // Тада катись "шарик" лесом

Сообщить("Копирование документов заданного периода запрещено. Операция прервана");

КонецЕсли;

КонецЕсли;



КонецЕсли;



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



// ИЛИ



Процедура ПередОткрытием(Отказ, СтандартнаяОбработка) 

Если ЭтаФорма.ПараметрОбъектКопирования = Неопределено Тогда 

/// 

Иначе 

Отказ = Истина; 

КонецЕсли; 

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

запретить в форме Списка или Журнала в событии "перед началом добавления".

Код 1C v 8.х

 Процедура ДокументСписокПередНачаломДобавления(Элемент, Отказ, Копирование)

Если копирование = истина тогда

 отказ = Истина.

КонецЕсли;



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

Категория: Документы