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

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

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

    Spotty Опытный в 1С

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

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

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

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

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

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

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

    Spotty Опытный в 1С

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

    Spotty Опытный в 1С

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

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

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

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

    Spotty Опытный в 1С

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

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

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

    Spotty Опытный в 1С

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

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

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

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

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

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

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

Поделиться этой страницей