GAMI1991
21.03.2015, 21:22
Всем привет, прошу вашей помощи. У меня есть задача: создать Регистр Сведений в форме записи которого будут выводиться все имеющиеся типы документов и динамический список напротив каждого документа. Я создала регистр и форму записи: Измерением яв-ся ТипОбъекта (строка) - сюда нужно выводить все документы и ресурс Статус(Перечисление) - здесь будет задаваться динамический список.Пишу код(смотрите ниже) но никак не могу добиться вывода всех типов документов в форму записи....
Процедура ЗаписатьСтатусДокумента() Экспорт
Для каждого Док Из Метаданных.Документы Цикл
Запрос = новый запрос;
Запрос.Текст = Запрос.Текст + ?(Запрос.Текст = "","", "ОБЪЕДИНИТЬ ВСЕ") + "
|
| ВЫБРАТЬ ПЕРВЫЕ 1
| Документ" + Док.Имя + ".Ссылка
|ИЗ
| Документ." + Док.Имя + "КАК" + "Документ" + Док.Имя + "
|";
КонецЦикла;
Попытка
РезультатЗапроса = Запрос.Выполнить();
ЕстьДокументы = НЕ РезультатЗапроса.Пустой();
Исключение
ЕстьДокументы = Истина;
КонецПопытки;
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Сл� �дующий() Цикл
НаборЗаписей = РегистрСведений.Настройка� �становкиСтатусаДокумента. СоздатьМенеджерЗаписи();
НаборЗаписей.ТипОбъекта = Док.Имя;
НаборЗаписей.Записать();
КонецЦикла;
КонецПроцедуры
Процедура ЗаписатьСтатусДокумента() Экспорт
Для каждого Док Из Метаданных.Документы Цикл
Запрос = новый запрос;
Запрос.Текст = Запрос.Текст + ?(Запрос.Текст = "","", "ОБЪЕДИНИТЬ ВСЕ") + "
|
| ВЫБРАТЬ ПЕРВЫЕ 1
| Документ" + Док.Имя + ".Ссылка
|ИЗ
| Документ." + Док.Имя + "КАК" + "Документ" + Док.Имя + "
|";
КонецЦикла;
Попытка
РезультатЗапроса = Запрос.Выполнить();
ЕстьДокументы = НЕ РезультатЗапроса.Пустой();
Исключение
ЕстьДокументы = Истина;
КонецПопытки;
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Сл� �дующий() Цикл
НаборЗаписей = РегистрСведений.Настройка� �становкиСтатусаДокумента. СоздатьМенеджерЗаписи();
НаборЗаписей.ТипОбъекта = Док.Имя;
НаборЗаписей.Записать();
КонецЦикла;
КонецПроцедуры