Получить все документы конфигурации
Для 1C 8
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
//ЭлементыФормы.ОбъектПоиска - Поле Выбора на форме СписокВыбора = ЭлементыФормы.ОбъектПоиска.СписокВыбора; Для Каждого Документ Из Метаданные.Документы Цикл //Проверим, есть ли права на просмотр? Да - добавляем, Нет - пропускаем Если ПравоДоступа("Просмотр", Документ) Тогда ИмяДокумента = Документ.Синоним; Если ИмяДокумента = "" Тогда ИмяДокумента = Документ.Имя; КонецЕсли; Структура = Новый Структура; Структура.Вставить("Тип", "Документ"); Структура.Вставить("Объект", Документ); СписокВыбора.Добавить(Структура, ИмяДокумента, ,ЭлементыФормы.КартинкаДокумента.Картинка); КонецЕсли; КонецЦикла; |
Для 1C 7
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 |
//Выведем список всех документов в окно сообщений Для Индекс=1 По Метаданные.Документ() Цикл Значение = Метаданные.Документ(Индекс).Идентификатор; Представление = Метаданные.Документ(Индекс).Представление(); Комментарий = Метаданные.Документ(Индекс).Комментарий; Сообщить(значение+" "+Представление+" "+Комментарий); КонецЦикла; // Выведем Список документов, ФормРегистр - Поле со списком на форме ФормРегистр.УдалитьВсе(); Для ъ=1 По Метаданные.Регистр() Цикл ФормРегистр.ДобавитьЗначение(Метаданные.Регистр(ъ).Идентификатор, Метаданные.Регистр(ъ).Представление()); КонецЦикла; Если ФормРегистр.РазмерСписка()>0 Тогда ФормРегистр.ТекущаяСтрока(1); КонецЕсли; //функция создаёт список реквизитов документа Процедура ПрСписокРеквизитовДокумента(Список,Документ,ФлагПредставление=0) Экспорт //шапка Для i=1 По Метаданные.Документ(Документ).РеквизитШапки() Цикл Ж=Метаданные.Документ(Документ).РеквизитШапки(i); Если ФлагПредставление=0 Тогда Представление=Ж.Идентификатор; Иначе Представление=Ж.Представление(); КонецЕсли; Список.ДобавитьЗначение(Ж.Идентификатор,"Ш: "+Представление); КонецЦикла; //многострочка Для i=1 По Метаданные.Документ(Документ).РеквизитТабличнойЧасти() Цикл Ж=Метаданные.Документ(Документ).РеквизитТабличнойЧасти(i); Если ФлагПредставление=0 Тогда Представление=Ж.Идентификатор; Иначе Представление=Ж.Представление(); КонецЕсли; Список.ДобавитьЗначение(Ж.Идентификатор,"Т: "+Представление); КонецЦикла; //общий Для i=1 По Метаданные.ОбщийРеквизитДокумента() Цикл Ж=Метаданные.ОбщийРеквизитДокумента(i); Если ФлагПредставление=0 Тогда Представление=Ж.Идентификатор; Иначе Представление=Ж.Представление(); КонецЕсли; Список.ДобавитьЗначение(Ж.Идентификатор,"О: "+Представление); КонецЦикла; КонецПроцедуры |