Имя: Пароль:
1C
1С v8
Получить кол-во вкладок и присвоить заголовок
0 Denzo
 
25.01.22
18:04
Друзья на платформе 8.2 в обычных формах я получал ко-во вкладок и присваивал им заголовки таким образом
Процедура ДатаПриИзменении(Элемент)
    
    ДатаПо = Дата + 6*3600*24;
    ВсегоВкладок = ЭлементыФормы.ЭфирныйДень.Страницы.Количество()-1;
        Для ТекДень = 0 По ВсегоВкладок Цикл
        Если ТекДень = 0 Тогда
            ДеньМесяца = Формат(Дата, "ДФ=dd");
            ДеньНедели = Формат(Дата, "ДФ=ddd");
            ИмяВкладки = " " + ДеньМесяца + "/" + ДеньНедели;
            ЭлементыФормы.ЭфирныйДень.Страницы[ДеньНедели].Заголовок = ИмяВкладки;
        Иначе
            ДеньМесяца = Формат((Дата+ТекДень*3600*24), "ДФ=dd");
            ДеньНедели = Формат((Дата+ТекДень*3600*24), "ДФ=ddd");
            ИмяВкладки = " " + ДеньМесяца + "/" + ДеньНедели;
            ЭлементыФормы.ЭфирныйДень.Страницы[ДеньНедели].Заголовок = ИмяВкладки;
        КонецЕсли;
    КонецЦикла;
    
КонецПроцедуры

Но вот в 8.3 в управляемых формах такой номер не проходить. Как можно решить этот вопрос?
1 acht
 
25.01.22
18:06
А как ты уже пробовать по этот номер?
2 Denzo
 
25.01.22
18:17
Пока писал сообщение пришло озорение
Процедура ДатаНачалаПриИзменении(Элемент)
    ДатаОкончания = Объект.Дата + 6*3600*24;
    ВсегоВкладок = ЭтаФорма.Элементы.Вкладки.ПодчиненныеЭлементы.Количество()-1;
        Для ТекДень = 0 По 6 Цикл
        Если ТекДень = 0 Тогда
            ДеньМесяца = Формат(Объект.Дата, "ДФ=dd");
            ДеньНедели = Формат(Объект.Дата, "ДФ=ddd");
            ИмяВкладки = " " + ДеньМесяца + "/" + ДеньНедели;
            Элементы.Вкладки.ПодчиненныеЭлементы[ДеньНедели].Заголовок = ИмяВкладки;
        Иначе
            ДеньМесяца = Формат((Объект.Дата+ТекДень*3600*24), "ДФ=dd");
            ДеньНедели = Формат((Объект.Дата+ТекДень*3600*24), "ДФ=ddd");
            ИмяВкладки = " " + ДеньМесяца + "/" + ДеньНедели;
            Элементы.Вкладки.ПодчиненныеЭлементы[ДеньНедели].Заголовок = ИмяВкладки;
        КонецЕсли;
    КонецЦикла;

         КонецПроцедуры
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.