Имя: Пароль:
1C
1С v8
Создание группы программно
0 Буковка
 
25.10.23
15:46
Добрый день!
Мне нужно создать группу программно и переместить в нее элементы.
Подскажите, пожалуйста, что не так делаю, т к код указанный ниже не работает:

ДопРеквизитыОбщаяГруппа = ФормаЭлементы.Добавить("ДополнительныеРеквизитыОбщаяГруппа", ТипГруппаФормы, ФормаЭлементы.ДополнительныеРеквизиты);
ДопРеквизитыОбщаяГруппа.Вид = ВидГруппыФормыОбычнаяГруппа;
ДопРеквизитыОбщаяГруппа.ОтображатьЗаголовок = Истина;
ДопРеквизитыОбщаяГруппа.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;
                
ДопРеквизитыГруппа1 = ФормаЭлементы.Добавить("ДополнительныеРеквизитыГруппа1", ТипГруппаФормы, ДопРеквизитыОбщаяГруппа);
ДопРеквизитыГруппа1.Вид = ВидГруппыФормыОбычнаяГруппа;
ДопРеквизитыГруппа1.ОтображатьЗаголовок = Истина;
ДопРеквизитыГруппа1.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
                
ФормаЭлементы.Переместить(ФормаЭлементы.КиЗГИСМGTIN, ДопРеквизитыГруппа1);
...
1 Жан Пердежон
 
25.10.23
16:58
На чем хоть падает?
2 spiller26
 
25.10.23
16:59
(0) Пробуй так
ФормаЭлементы.Переместить(ФормаЭлементы.КиЗГИСМGTIN, ФормаЭлементы["ДополнительныеРеквизитыГруппа1"]);
3 spiller26
 
25.10.23
17:03
(0) И где точки? Или писали от руки?
4 spiller26
 
25.10.23
17:12
//Вот нормальный код:

    ДопРеквизитыОбщаяГруппа = Элементы.Добавить("ДополнительныеРеквизитыОбщаяГруппа", Тип("ГруппаФормы"), Элементы.ДополнительныеРеквизиты);
    ДопРеквизитыОбщаяГруппа.Вид = ВидГруппыФормы.ОбычнаяГруппа;
    ДопРеквизитыОбщаяГруппа.ОтображатьЗаголовок = Истина;
    ДопРеквизитыОбщаяГруппа.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;    

    ДопРеквизитыГруппа1 = Элементы.Добавить("ДополнительныеРеквизитыГруппа1", Тип("ГруппаФормы"), Элементы["ДополнительныеРеквизитыОбщаяГруппа"]);
    ДопРеквизитыГруппа1.Вид = ВидГруппыФормы.ОбычнаяГруппа;
    ДопРеквизитыГруппа1.ОтображатьЗаголовок = Истина;
    ДопРеквизитыГруппа1.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;

    Элементы.Переместить(Элементы.КиЗГИСМGTIN, Элементы["ДополнительныеРеквизитыГруппа1"]);
5 spiller26
 
25.10.23
17:17
(4) Результат
https://wampi.ru/image/Ydv1qRy
6 Галахад
 
25.10.23
17:17
(4) А в чем глобальная разница? :-)
7 spiller26
 
25.10.23
17:21
(6) Не знаю, мне так больше по душе.
8 Галахад
 
25.10.23
17:22
(7) Возможно и так. Но код-то и в (0) рабочий.
9 spiller26
 
25.10.23
17:24
(8) Написан код через "одно", простите за мой русский.
10 Жан Пердежон
 
25.10.23
17:43
(8) с чего бы он рабочий, если там половина переменных не определена
11 Галахад
 
25.10.23
17:46
(10) Разве это меняет то, что фрагмент кода рабочий?
12 Буковка
 
26.10.23
10:24
Больше не актуально.
Вместо добавить() использовала вставить() и группы создались, элементы переместились

(10) переменные были определены выше
2 + 2 = 3.9999999999999999999999999999999...