Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Как программно проверить есть ли реквизит шапки на форме?
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
kostya77
Добрый день. Подскжите, как програмно проверить помещен ли реквизит шапки на форму?
Sharzem
kostya77 @ Сегодня, 9:52 необходимо зарегистрироваться для просмотра ссылки ,
    лпВид = "ПриходнаяНакладная";
    МетаДок = Метаданные.Документ(лпВид);
    Для лпКолРекв = 1 По МетаДок.РеквизитШапки() Цикл
        лпРеквизит = МетаДок.РеквизитШапки(лпКолРекв);
        Сообщить(лпВид+" Реквизит шапки: "+лпРеквизит);
    КонецЦикла;
    Для лпКолРекв = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл
        лпРеквизит = Метаданные.ОбщийРеквизитДокумента(лпКолРекв);
        Сообщить(лпВид+" Общий реквизит: "+лпРеквизит);
    КонецЦикла;


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


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

Воно ?
kostya77
Sharzem @ Сегодня, 13:07 необходимо зарегистрироваться для просмотра ссылки ,
Мне нужно проверить есть ли реквизит шапки на форме документа
kostya77
Всем спасибо. Разобрался
Vofka
kostya77 @ Сегодня, 15:47 необходимо зарегистрироваться для просмотра ссылки ,
если "разобрался сам", правилом хорошего тона считается поделиться решением с остальными. Тем более, что некоторые люди потратили свое время на попытки вам помочь.
kostya77
Vofka @ Вчера, 19:22 необходимо зарегистрироваться для просмотра ссылки ,
Вынес на форму, в отдельную закладку, все реквизиты шапки и закладку скрыл. при обходе реквизитов формы таким методом

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


программа не валится в ошибку
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.