Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Поле со списком в форме внешней обработки
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование обычных форм 1С 8.2 и не интерфейсной логики
vadim007
Всем привет.
Как на форме внешней обработки создать поле с раскрывающимся списком?
Аналог поля со списком в семерке.
Хочу в этом списке вывести все документы для выбора:
КолДок = Метаданные.Документы.Количество();
Сообщить(КолДок);
Для ин=1 По КолДок Цикл
    Док = Метаданные.Документы[ин-1];
    Сообщить(Док);
    спДокументы.Добавить(Док);
КонецЦикла;
logist
Для Каждого Док Из Метаданные.Документы Цикл
    ЭлементыФормы.ПолеВыбора1.СписокВыбора.Добавить(Док.Имя, Док.ПредставлениеОбъекта);
КонецЦикла;
vadim007
Я по старинке:
Процедура ПриОткрытии()
    КолДок = Метаданные.Документы.Количество();
    Для ин=0 По КолДок-1 Цикл
        Док = Метаданные.Документы[ин].Имя;
        спДокументы.Добавить(Док);
    КонецЦикла;
    ЭлементыФормы.Документ.СписокВыбора = спДокументы;
КонецПроцедуры


Но это только начало. Продолжение - найти события, на которые подписан выбранный документ:
КолПодписок = Метаданные.ПодпискиНаСобытия.Количество();
Для ин=0 по КолПодписок-1 Цикл
    Обк = Метаданные.ПодпискиНаСобытия[ин];
    Сообщить(Обк);
    Если Обк.Источник.СодержитТип(Документ) Тогда
          Сообщить(Метаданные.ПодпискиНаСобытия[ин].Обработчик);
          Сообщить(Метаданные.ПодпискиНаСобытия[ин].Событие);
    КонецЕсли;
КонецЦикла;

Здесь ошибка, т.к. Документ - текстового типа.
Как правильно?
logist
Для ин=0 по КолПодписок-1 Цикл

Можно научиться программировать на 8-ке, но забыть программирование на 7-ке невозможно? smile.gif
vadim007
Цитата(logist @ 12.08.15, 15:45) необходимо зарегистрироваться для просмотра ссылки
Можно научиться программировать на 8-ке, но забыть программирование на 7-ке невозможно? smile.gif

Ничего, отвыкну. Давным-давно программировал на Алгол-68, Лисп - вот это была силища.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.