v8: Запрет редактирования шапки документа или определеных реквизитов шапки документа

1С v8

28.10.11

✎

13:19

здраствуйте. подкинте пожалуйста глобальную функцию, которая бы запрещала редактировать шапку документа, в случае табличная часть заполнена

1 Рэйв

28.10.11

✎

13:24

Функция ГлобальнаяФункция() Экспорт
Надо=ТабЧатьКоличество();

Для Каждого Рек Из Док.Метаданные().Реквизиты Цикл
ЭтаФорма[Рек.Имя].Доступность=Надо;
КонецЦикла;
Возврат "Ура!";
КонецФункции;

2 Рэйв

28.10.11

✎

13:24

*ТабЧать.Количество()

3 Рэйв

28.10.11

✎

13:25

*вернее
Надо=ТабЧатьКоличество()>0;
^-)

4 Конфигуратор1с

28.10.11

✎

13:32

штатной функции нет. как вариант (1)

5 Baker_it

28.10.11

✎

13:33

(1) Проверку на наличие реквизита в форме забыл.

6 Natulea27

28.10.11

✎

13:45

Скажите пожалуйста в какой части формы, должна быть ссылка на эту функцию...

7 Baker_it

28.10.11

✎

13:46

(6) Процедура ПриОткрытии()

8 Reset

28.10.11

✎

13:48

Версия :)


 
Функция А(Форма)
 
Если Форма.ЭтотОбъект.ТабличнаяЧасть.Количество()>0 тогда
 
    Для каждого Элемент из Форма.ЭлементыФормы цикл
 
        Если Форма.ЭтотОбъект.Метаданные().Реквизиты.Найти(Элемент.Данные)<>Неопределено тогда
 
            Элемент.Доступность=Истина;
 
        КонецЕсли;
 
    КонецЦикла;
 
КонецЕсли;
 
КонецФункции

9 Reset

28.10.11

✎

13:49

Доступность=Ложь, конечно же

10 Reset

28.10.11

✎

13:52

(9) Рейв тоже так же ошибся с доступностью xD