Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
24 Янв 2017, 05:58
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Объединение команд  (Прочитано 214 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн alex0402

  • ****
  • Сообщений: 319
  • РЕПУТАЦИЯ: 36
  • КПД: 11%
  • Регистрация: 2010-09-10
  • Сайт: 
Код:
	// СтандартныеПодсистемы.Печать
УправлениеПечатью.ПриСозданииНаСервере(ЭтаФорма);

ИмяКоманды = "а1111";
НоваяКоманда = ЭтаФорма.Команды.Добавить(ИмяКоманды);
НоваяКоманда.Заголовок = ИмяКоманды;
НоваяКоманда.Действие = ИмяКоманды;

МестоРазмещенияКоманд = ЭтаФорма.Элементы.Найти("ФормаКоманднаяПанель");

ПодменюПечать = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + "ПодменюПечать", Тип("ГруппаФормы"), МестоРазмещенияКоманд);
ПодменюПечать.Вид = ВидГруппыФормы.Подменю;
ПодменюПечать.Заголовок = НСтр("ru = 'Печать'; uk = 'Друк'");
ПодменюПечать.Картинка = БиблиотекаКартинок.Печать;

МестоРазмещенияКоманд = ПодменюПечать;

НовыйЭлемент = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + ИмяКоманды + "1", Тип("КнопкаФормы"), МестоРазмещенияКоманд);
НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
НовыйЭлемент.Заголовок = "Один";

НовыйЭлемент = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + ИмяКоманды + "2", Тип("КнопкаФормы"), МестоРазмещенияКоманд);
НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
НовыйЭлемент.Заголовок = "Два";
результат:
вложение 1

код:
ИмяКоманды = "а1111";
НоваяКоманда = ЭтаФорма.Команды.Добавить(ИмяКоманды);
НоваяКоманда.Заголовок = ИмяКоманды;
НоваяКоманда.Действие = ИмяКоманды;

МестоРазмещенияКоманд = ЭтаФорма.Элементы.Найти("ФормаПечать");

ПодменюПечать = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + "ПодменюПечать", Тип("ГруппаФормы"), МестоРазмещенияКоманд);
ПодменюПечать.Вид = ВидГруппыФормы.Подменю;
ПодменюПечать.Заголовок = НСтр("ru = 'Печать'; uk = 'Друк'");
ПодменюПечать.Картинка = БиблиотекаКартинок.Печать;

МестоРазмещенияКоманд = ПодменюПечать;

НовыйЭлемент = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + ИмяКоманды + "1", Тип("КнопкаФормы"), МестоРазмещенияКоманд);
НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
НовыйЭлемент.Заголовок = "Один";

НовыйЭлемент = ЭтаФорма.Элементы.Добавить(МестоРазмещенияКоманд.Имя + ИмяКоманды + "2", Тип("КнопкаФормы"), МестоРазмещенияКоманд);
НовыйЭлемент.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
НовыйЭлемент.ИмяКоманды = ИмяКоманды;
НовыйЭлемент.Заголовок = "Два";
результат:
вложение 2


код отличается только строкой:
МестоРазмещенияКоманд = ЭтаФорма.Элементы.Найти("ФормаПечать");

как объединить все кнопки в одну группу "Печать"?


Теги:
 

Объединение конфигураций "Документооборот гос. учреждения" и "Гос. и муницип. закупки"

Автор Рената МарсельевнаРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 1
Просмотров: 788
Последний ответ 19 Янв 2015, 20:02
от дфтын
Объединение организации-кредитора и организации-должника

Автор newsРаздел Новости

Ответов: 0
Просмотров: 379
Последний ответ 11 Авг 2015, 12:26
от news
Вывод набора данных "объединение" скд в дерево значений

Автор Gae4kaРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 0
Просмотров: 1081
Последний ответ 02 Июн 2015, 12:19
от Gae4ka
Объединение табличных документов в один табличный документ

Автор VdegРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 3
Просмотров: 9502
Последний ответ 23 Июл 2011, 11:33
от Шурыгин Иван Сергеевич
Объединение данных, или помогите правильно составить запрос.

Автор KazakOFFРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 6
Просмотров: 1499
Последний ответ 28 Авг 2016, 13:25
от alex0402

* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

Смотрите бесплатно более 300 видеоуроков по работе в 1С:Бухгалтерия 8 и 1C:ЗУП 8 ред. 3.0

СМОТРЕТЬ >>

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
166 Сообщений
alex0402
56 Сообщений
MuI_I_Ika MuI_I_Ika
49 Сообщений
crow1983
35 Сообщений
LexaK
32 Сообщений
alexandr_ll
28 Сообщений
sertak sertak
25 Сообщений
Vzonder
21 Сообщений
BuhRust
17 Сообщений
дфтын дфтын
17 Сообщений

* Кто онлайн

  • Точка Гостей: 232
  • Точка Скрытых: 0
  • Точка Пользователей: 5
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 

Dellos Catering - выездной ресторан кейтеринг по всему Миру
SimplePortal 2.3.5 © 2008-2012, SimplePortal