Версия для печати темы (https://pro1c.org.ua/index.php?s=455fa46a222fdfef654de17abac5d249&showtopic=67320)

Автор: kostya77 29.08.23, 9:52

Добрый день. Подскжите, как програмно проверить помещен ли реквизит шапки на форму?

Автор: Sharzem 29.08.23, 11:27

kostya77 @ Сегодня, 9:52 ,

    лпВид = "ПриходнаяНакладная";
    МетаДок = Метаданные.Документ(лпВид);
    Для лпКолРекв = 1 По МетаДок.РеквизитШапки() Цикл
        лпРеквизит = МетаДок.РеквизитШапки(лпКолРекв);
        Сообщить(лпВид+" Реквизит шапки: "+лпРеквизит);
    КонецЦикла;
    Для лпКолРекв = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл
        лпРеквизит = Метаданные.ОбщийРеквизитДокумента(лпКолРекв);
        Сообщить(лпВид+" Общий реквизит: "+лпРеквизит);
    КонецЦикла;

Шапки чого ? На яку форму ?

Автор: AnryMc 29.08.23, 11:31

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    
    Для каждого текРеквизит ИЗ ЭтаФорма.ПодчиненныеЭлементы Цикл
        
        Если текРеквизит.Имя = "Реквизит1" Тогда
            
                    ////////////////////
            
        КонецЕсли;
        
    КонецЦикла;
    
КонецПроцедуры

З.Ы, Не "увидел" что 7.7

Автор: Sharzem 29.08.23, 12:07

kostya77 @ Сегодня, 9:52 ,
Вангую далі:
Метаданные.Документ(ВидДока).РеквизитШапки(НаимРекв).Выбран();

Воно ?

Автор: kostya77 29.08.23, 13:27

Sharzem @ Сегодня, 13:07 ,
Мне нужно проверить есть ли реквизит шапки на форме документа

Автор: kostya77 29.08.23, 14:47

Всем спасибо. Разобрался

Автор: Vofka 29.08.23, 18:22

kostya77 @ Сегодня, 15:47 ,
если "разобрался сам", правилом хорошего тона считается поделиться решением с остальными. Тем более, что некоторые люди потратили свое время на попытки вам помочь.

Автор: kostya77 30.08.23, 13:29

Vofka @ Вчера, 19:22 ,
Вынес на форму, в отдельную закладку, все реквизиты шапки и закладку скрыл. при обходе реквизитов формы таким методом

лпВид = "ПриходнаяНакладная";
    МетаДок = Метаданные.Документ(лпВид);
    Для лпКолРекв = 1 По МетаДок.РеквизитШапки() Цикл
        лпРеквизит = МетаДок.РеквизитШапки(лпКолРекв);
        Сообщить(лпВид+" Реквизит шапки: "+лпРеквизит);
    КонецЦикла;
    Для лпКолРекв = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл
        лпРеквизит = Метаданные.ОбщийРеквизитДокумента(лпКолРекв);
        Сообщить(лпВид+" Общий реквизит: "+лпРеквизит);
    КонецЦикла;

программа не валится в ошибку