Обсуждение
Получить имена существующих документов
-
ut10 0. 18.01.2015, 20:25
¶¶Функция ПолучитьИменаСуществующихДокументов() Экспорт¶ Запрос = Новый Запрос;¶ Запрос.Текст = "";¶ ¶ н = 0;¶ МетаКоллекция = Метаданные["Документы"];¶ Для Каждого МетаДокумент из МетаКоллекция Цикл¶ н = н + 1;¶ Имя = МетаДокумент.Имя;¶ ¶ Запрос.Текст = Запрос.Текст + "¶ |"+?(н=1,"","ОБЪЕДИНИТЬ ВСЕ")+"¶ |ВЫБРАТЬ ПЕРВЫЕ 1 Документ."+Имя+".Ссылка ИЗ Документ."+Имя+"¶ |";¶ КонецЦикла; // по всем видам документов¶ ¶ Тз = Запрос.Выполнить().Выгрузить();¶ Возврат Тз;¶КонецФункции // ПолучитьИменаСуществующихДокументов¶
Ответы
- Ответов: 4
-
ut10 3. 18.01.2015, 20:48
[code]
Функция ПолучитьИменаСуществующихДокументов() Экспорт
Запрос = Новый Запрос;
Запрос.Текст = "";
н = 0;
МетаКоллекция = Метаданные["Документы"];
Для Каждого МетаДокумент из МетаКоллекция Цикл
н = н + 1;
Имя = МетаДокумент.Имя;
Запрос.Текст = Запрос.Текст + "
|"+?(н=1,"","ОБЪЕДИНИТЬ ВСЕ")+"
|ВЫБРАТЬ ПЕРВЫЕ 1 Документ."+Имя+".Ссылка ИЗ Документ."+Имя+"
|";
КонецЦикла; // по всем видам документов
Тз = Запрос.Выполнить().Выгрузить();
Возврат Тз;
КонецФункции // ПолучитьИменаСуществующихДокументов
[/code] -
ut10 4. 18.01.2015, 21:01
Функция ПолучитьИменаСуществующихДокументов() Экспорт
Запрос = Новый Запрос;
Запрос.Текст = "";
н = 0;
МетаКоллекция = Метаданные["Документы"];
Для Каждого МетаДокумент из МетаКоллекция Цикл
н = н + 1;
Имя = МетаДокумент.Имя;
Запрос.Текст = Запрос.Текст + "
|"+?(н=1,"","ОБЪЕДИНИТЬ ВСЕ")+"
|ВЫБРАТЬ ПЕРВЫЕ 1 Документ."+Имя+".Ссылка ИЗ Документ."+Имя+"
|";
КонецЦикла; // по всем видам документов
Тз = Запрос.Выполнить().Выгрузить();
Возврат Тз;
КонецФункции // ПолучитьИменаСуществующихДокументов
Я Реклама
Веб-сайты на 1С! Сравнение рабочих макетов...