7.7 Создание меню и подменю 1С 7.7

Тема в разделе "Отчеты и обработки для "1С:Предприятие 7.7"", создана пользователем Spotty, 23 июл 2013.

0/5, Голосов: 0
  1. TopicStarter Overlay
    Spotty
    Offline

    Spotty Опытный в 1С

    Регистрация:
    4 янв 2013
    Сообщения:
    88
    Симпатии:
    3
    Баллы:
    29
    В общем не тяним кота, а сразу по делу. Есть форма, есть кнопка. При нажатии на кнопку хочу чтоб выскакивала подменюшка с пунктами выполняющие определенные операции. Для информации это в журнале документов, мне надо на форму лупануть кнопочку с такой возможностью.

    Если кто знает как ещё добавить в контексное меню (клик правой кнопкой мыши) свои пункты, буду безмерно счастлив. Но это не главное.
    Spotty, 23 июл 2013
    #1
  2. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.612
    Симпатии:
    541
    Баллы:
    204
    Юзаем объект СписокЗначений
    Бухгалтерский угодник, 23 июл 2013
    #2
  3. rshakiro
    Offline

    rshakiro Профессионал в 1С Команда форума

    Регистрация:
    17 мар 2011
    Сообщения:
    2.261
    Симпатии:
    145
    Баллы:
    104
    + примерчик для кнопки(кнОк):

    Код:
    Процедура кнОк()
Перем Меню;
Меню = СоздатьОбъект("СписокЗначений");
Меню.ДобавитьЗначение("Записать");
Меню.ДобавитьЗначение("Рассчитать");
Меню.ДобавитьЗначение("Провести");
Меню.ДобавитьЗначение("Закрыть");
КонецПроцедуры
    rshakiro, 23 июл 2013
    #3
  4. TopicStarter Overlay
    Spotty
    Offline

    Spotty Опытный в 1С

    Регистрация:
    4 янв 2013
    Сообщения:
    88
    Симпатии:
    3
    Баллы:
    29
    :icon_kringeln:
    Код:
    Процедура кнОка(Об="")   
Об=Форма.АктивныйЭлемент();
Меню = СоздатьОбъект("СписокЗначений");
Меню.ДобавитьЗначение("Записать");
Меню.ДобавитьЗначение("Рассчитать");
Меню.ДобавитьЗначение("Провести");
Меню.ДобавитьЗначение("Закрыть");
результат = глДокументДействие(Контекст,Меню);
КонецПроцедуры
    Код работает))
    Спасибо ))
    Spotty, 24 июл 2013
    #4
  5. TopicStarter Overlay
    Spotty
    Offline

    Spotty Опытный в 1С

    Регистрация:
    4 янв 2013
    Сообщения:
    88
    Симпатии:
    3
    Баллы:
    29
    С выводдом разобрались)) осталось передать параметры))
    Spotty, 24 июл 2013
    #5
  6. rshakiro
    Offline

    rshakiro Профессионал в 1С Команда форума

    Регистрация:
    17 мар 2011
    Сообщения:
    2.261
    Симпатии:
    145
    Баллы:
    104
    как-то:

    Код:
    Процедура кнОка(Об="")
Перем Меню, ПунткМеню;
ПунктМеню = 0;
Об=Форма.АктивныйЭлемент();
Меню = СоздатьОбъект("СписокЗначений");
Меню.ДобавитьЗначение("Записать");
Меню.ДобавитьЗначение("Рассчитать");
Меню.ДобавитьЗначение("Провести");
Меню.ДобавитьЗначение("Закрыть");
Меню.ВыбратьЗначение(,,ПунктМеню,,1);
Если ПунктМеню = 1 Тогда  // Записать
Записать();
ИначеЕсли ПунктМеню = 2 Тогда
Записать();
Расчет();
ИначеЕсли ПунктМеню = 3 Тогда // Провести
Записать();
Провести();
Форма.Закрыть();
ИначеЕсли ПунктМеню = 4 Тогда // Закрыть
// Закрытие без сохранения
Форма.Закрыть(0);
КонецЕсли;
результат = глДокументДействие(Контекст,Меню);
КонецПроцедуры
    rshakiro, 24 июл 2013
    #6
  7. TopicStarter Overlay
    Spotty
    Offline

    Spotty Опытный в 1С

    Регистрация:
    4 янв 2013
    Сообщения:
    88
    Симпатии:
    3
    Баллы:
    29
    Ага все отлично)) Кое что убрал) и все шикарно )))
    Spotty, 24 июл 2013
    #7
  8. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.612
    Симпатии:
    541
    Баллы:
    204
    Не понятен только вызов глДокументДействие. Ведь действия же уже выполнены!
    Бухгалтерский угодник, 24 июл 2013
    #8
  9. TopicStarter Overlay
    Spotty
    Offline

    Spotty Опытный в 1С

    Регистрация:
    4 янв 2013
    Сообщения:
    88
    Симпатии:
    3
    Баллы:
    29
    Да он не нужен))
    Spotty, 24 июл 2013
    #9
  10. MadChild
    Offline

    MadChild

    Регистрация:
    9 янв 2013
    Сообщения:
    32
    Симпатии:
    0
    Баллы:
    1
    Извините за воскрешение темы. Но не могу разобраться, а как сделать вложенное меню. То есть меню сделал, по примеру выше.
    А мне нужно, чтобы у "Рассчитать" было еще подменю. Допустим "В большую сторону" и "В меньшую сторону".
    MadChild, 5 сен 2018
    #10
  11. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    22.612
    Симпатии:
    541
    Баллы:
    204
    В зависимости от выбора из первого меню - вызывать второе. Визуально первое исчезнет (выбор сделан). Во втором в диалоге предусмотреть текст из первого для наглядности
    Бухгалтерский угодник, 5 сен 2018
    #11
Похожие темы
  1. antares

    8.х Доступ к кнопке подменю

    antares, 19 фев 2014, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    16
    Просмотров:
    12.400
    antares
    19 фев 2014
  2. Persimmon

    8.х Подменю Прочие

    Persimmon, 28 ноя 2006, в разделе: Конфигурирование на платформе "1С:Предприятие 8"
    Ответов:
    0
    Просмотров:
    1.509
    Persimmon
    28 ноя 2006
  3. tugar.zmei

    8.х не работают пункты меню "Разделы" (Верхнее меню)

    tugar.zmei, 7 дек 2015, в разделе: Установка платформы "1С:Предприятие 8"
    Ответов:
    5
    Просмотров:
    3.365
    skv_79
    30 дек 2016
Загрузка...