Имя: Пароль:
1C
1С v8
УФ Получить список форм внешней обработки
0 G751
 
22.02.23
18:31
Всем привет
    ПолныйПутьКОбработке = СокрЛП(АдресВнешнегоОтчетаОбработки);
    Адрес = ПоместитьВоВременноеХранилище(Новый ДвоичныеДанные(ПолныйПутьКОбработке));
    ИмяСКоторымПодключенаОбработка = ПодключитьПолучитьИмяВнешнейОбработки(Адрес);
    ФормаВнешнейОбработки = ПолучитьФорму("ВнешняяОбработка." + ИмяСКоторымПодключенаОбработка + ".Форма."+СокрЛП(ФормаОтчетаОбработки));
Ну и открыть форму. Это получение конкретной формы. Все ОК.
Как получить список ВСЕХ форм внешней обработки?
Если кто в курсе вопроса, небольшой пример, плиз
Всем спасибо
1 Fedor-1971
 
23.02.23
12:23
(0) попробуй так:
Для каждого текФорма из ИмяСКоторымПодключенаОбработка.Метаданные().Формы цикл
КонецЦикла;
2 eddy_n
 
23.02.23
22:56
(1) Не прокатит: ИмяСКоторымПодключенаОбработка - просто текст, не ОбработкаОбъект.
3 eddy_n
 
23.02.23
23:55
&НаКлиенте
Процедура Команда1(Команда)

    Оповещение = Новый ОписаниеОповещения("ПослеВыбораФайлов", ЭтаФорма);
    
    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.ПроверятьСуществованиеФайла = Истина;
    Диалог.Фильтр = НСтр("ru='Внешние обработки, отчёты (*.epf; *.ert)|*.epf; *.ert");
    Диалог.Показать(Оповещение);    
    
КонецПроцедуры

&НаКлиенте
Процедура ПослеВыбораФайлов(ВыбранныеФайлы, Знач ДопПар) Экспорт
    
    Если ВыбранныеФайлы = Неопределено Тогда Возврат КонецЕсли;
    
    ВыпНаСерв(ВыбранныеФайлы);
    
КонецПроцедуры

Процедура ВыпНаСерв(ВыбранныеФайлы)
    
    Для Каждого ЭлМассива ИЗ ВыбранныеФайлы Цикл
        ОбработкаОбъект = ВнешниеОбработки.Создать(ЭлМассива);     
        
        Для Каждого ТекФорма из ОбработкаОбъект.Метаданные().Формы цикл
            
        КонецЦикла;    
    КонецЦикла;    
    
КонецПроцедуры
4 mistеr
 
24.02.23
13:13
(0) Вроде нет такого
5 G751
 
24.02.23
15:17
(3) Спасибо, все работает. Классно! Еще раз, большое спасибо и всего наилучшего. Выручил.
Тема закрыта.
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший