Открыть программно внешнюю обработку

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. sustav86 27.02.13 15:16 Сейчас в теме

Добрый день!
Внешняя обработка зарегистрирована в справочнике внешних обработках.
Из формы друго-го справочника при нажатии хочу открыть свою Внешнюю обработку, открывается форма регистрации а не форма моей обработки. Подскажите пожалуйста, что не так. Толстый клиент, обычние формы.

Процедура ОсновныеДействияФормыФормыСпецификаций(Кнопка)
ВнешняяФорма = Справочники.ВнешниеОбработки.НайтиПоКоду("000000109");
Форма = ВнешняяФорма.ПолучитьФорму();
Форма.Открыть();
КонецПроцедуры

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. БольшойЧайник 35 27.02.13 15:18 Сейчас в теме

самое простое это посмотреть код который открывет внешнюю обработку из списка внешних обработок. скопировать его и вставить себе в форму.

3. Программист 1С 159 27.02.13 15:35 Сейчас в теме

Отвечу позже.

4. sustav86 27.02.13 16:04 Сейчас в теме

Спасибо я разобрался. По анологии с типовым функционалом.

ВнешняяФорма = Справочники.ВнешниеОбработки.НайтиПоНаименованию("Имя обработки");
	
ИмяФайла = ПолучитьИмяВременногоФайла();
ДвоичныеДанные = ВнешняяФорма.ХранилищеВнешнейОбработки.Получить();
ДвоичныеДанные.Записать(ИмяФайла);
	
Форма = ВнешниеОбработки.ПолучитьФорму(ИмяФайла);
Форма.Открыть();

Ответить

5. sergb1979 31.10.14 18:00 Сейчас в теме

(4) sustav86,
спасибо

6. stas4tor 21.11.14 10:04 Сейчас в теме

(4) sustav86, спасибо огромное.
Именно это я долго искал.

8. oleglega 16.02.15 11:10 Сейчас в теме

(4) sustav86, Спасибо большущее!

9. MrFlanker 240 19.06.15 09:19 Сейчас в теме

(4) sustav86, спасибо

15. ValeriyZ 19 26.02.21 07:56 Сейчас в теме

(4)

Форма = ВнешниеОбработки.ПолучитьФорму(ИмяФайла);

Спасибо! Все взлетело. Добавлю. Если необходимо открыть не обработку, а отчет, то строчка должна будет выглядеть так:
Форма = ВнешниеОтчеты.ПолучитьФорму(ИмяФайла);

26. 127.0.0.0 21.11.23 22:46 Сейчас в теме

(4)

ПутьКВременномуФайлу = ПолучитьИмяВременногоФайла();

...
+

Попытка
УдалитьФайлы(ПутьКВременномуФайлу);
Исключение
КонецПопытки;

если не удалять то место на диске рано или поздно закончиться ...

7. jobkostya1c_ERP 101 22.11.14 08:55 Сейчас в теме

Использовал подобное решение для нетиповой конфигурации тут аналогично как у Вас, но с контролем ошибок периода исполнения, т.к. вожможны ситуации:
1. внешней обработки просто нет, изменили название:
2. нет прав на создание временного файла обработки в каталоге

ПолучитьИмяВременногоФайла()

или просто на доступ к каталогу с использованием

попытка ... исключение

10. ДимокШ 7 29.09.16 19:09 Сейчас в теме

Для управляемых форм вот так можно открыть форму внешней обработки:


&НаКлиенте
Процедура Команда1(Команда)
	ИмяОбр = ПолучитьИмяВнешней("C:\мояОбработка.epf");
	
	ПараметрыОткрытия = Новый Структура("КлючВарианта", "");
	Уникальность = "ВнешняяОбработка." + ИмяОбр + "/КлючВарианта.";
	ОткрытьФорму("ВнешняяОбработка." + ИмяОбр + ".Форма", , Неопределено, Уникальность);
КонецПроцедуры

Функция ПолучитьИмяВнешней(ИмяФайла)
	дд = Новый ДвоичныеДанные(ИмяФайла);
	АдресВоВременномХранилище = ПоместитьВоВременноеХранилище(дд);
	ИмяОбр = ВнешниеОбработки.Подключить(АдресВоВременномХранилище,,);
	
	Возврат ИмяОбр;
КонецФункции

Показать

Ответить

12. Team leader 12 07.02.19 12:24 Сейчас в теме

(10) +1 Взял на вооружение

11. by_1Cnik 251 19.04.17 16:42 Сейчас в теме

АдресФайла="C:\Users\User\Desktop\СтартАвтоЗаписи.epf";
		ВнешняяОбработка = ВнешниеОбработки.Создать(АдресХранилища);
		НашаОбработка=ВнешняяОбработка.ПолучитьФорму();
		НашаОбработка.Открыть();

Ответить

13. maikl007 92 25.09.19 07:15 Сейчас в теме

https://www.e-du.ru/2018/03/1c-open-ext-report.html

14. signum2009 1042 23.06.20 09:02 Сейчас в теме

Вот здесь для новых версий платформы, начиная с 8.3.15
https://www.1s-up.ru/programmnoe-otkrytie-obrabotok-v-1s

16. John_d 6002 27.08.21 10:51 Сейчас в теме

&НаКлиенте
Процедура ДиадокДопФункции(Команда)
    ОткрытьФорму("ВнешняяОбработка.ДиадокДопФункции4.Форма.ОсновнаяФорма",,,,,,,РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);

КонецПроцедуры

17. Obertone 78 31.03.22 12:10 Сейчас в теме

Рискую предположить, что постановки задачи открытия внешней обработки или отчёта из справочника на управляемых формах не было в открытом виде. После поисков написал решение такой задачи.


&НаКлиенте
Процедура ВыполнитьОткрытиеОтчетаИлиОбработки()
	АдресХранилища = "";
	ИмяФайла = ПолучитьИмяВременногоФайла();
	
	ЭтоОтчёт = ЭтоОтчет(ЗаголовокОтчетаИлиОбработкиВСправочнике);
	ЭтоПечатнаяФорма = ЭтоПечатнаяФорма(ЗаголовокОтчетаИлиОбработкиВСправочнике);
	
	Если НЕ ЭтоОтчёт ИЛИ ЭтоПечатнаяФорма Тогда
		
		ПолучитьОбработкуНаСервере(АдресХранилища, ЗаголовокОтчетаИлиОбработкиВСправочнике, ИмяФайла);
		Результат = ПоместитьФайл(АдресХранилища, ИмяФайла, , Ложь);
		ИмяОбработки = ПодключитьВнешнююОбработку(АдресХранилища);
		ОткрытьФорму("ВнешняяОбработка."+ ИмяОбработки +".Форма");
		
	Иначе
		
		Если СсылкаНаОбработку(ЗаголовокОтчетаИлиОбработкиВСправочнике) Тогда
			
			КлючВарианта = ПолучитьКлючВариантаОтчета();
			ПараметрыФормы = Новый Структура("КлючВарианта", КлючВарианта);
			ОткрытьФорму("ВнешнийОтчет.Отчет.Форма", ПараметрыФормы);        
			
		КонецЕсли;
		
	КонецЕсли;	
	
КонецПроцедуры

Функция ПолучитьОбработкуНаСервере(АдресХранилища, ЗаголовокОбработки, ИмяФайла);
	
	ВнешняяОбработка = Неопределено;
	ТекСсылка = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию(ЗаголовокОбработки); 
	 
	ДвоичныеДанные = ТекСсылка.ХранилищеОбработки.Получить(); 
	ДвоичныеДанные.Записать(ИмяФайла);
	
КонецФункции

Функция ЭтоОтчет(Заголовок)
	
	ТекСсылка = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию(Заголовок);
	Возврат ТекСсылка.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет;
	
КонецФункции

Функция ЭтоПечатнаяФорма(Заголовок)
	
	ТекСсылка = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию(Заголовок);
	Возврат ТекСсылка.Вид = Перечисления.ВидыДополнительныхОтчетовИОбработок.ПечатнаяФорма;
	
КонецФункции

&НаСервере
Функция ПодключитьВнешнююОбработку(АдресХранилища)
    Возврат ВнешниеОбработки.Подключить(АдресХранилища); 
КонецФункции 

&НаСервере
Функция ПолучитьКлючВариантаОтчета()
    
    СписокВариантов = ХранилищеВариантовОтчетов.ПолучитьСписок("ВнешнийОтчет.Отчет");
    Если СписокВариантов.Количество() = 0 Тогда
        Возврат Неопределено;
    КонецЕсли;
    
    Возврат СписокВариантов[0].Значение;
    
КонецФункции


&НаСервере
Функция СсылкаНаОбработку(ЗаголовокОтчета)
    ОтчетСсылка = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию(ЗаголовокОтчета);
    Если ОтчетСсылка.Пустая() Тогда
        Сообщить("Не удалось найти внешний отчет");
        Возврат Ложь;
    КонецЕсли;
    
    ДвоичныеДанные = ОтчетСсылка.ХранилищеОбработки.Получить();
    АдресХранилища = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
    ВнешниеОтчеты.Подключить(АдресХранилища, "Отчет");
    
    Возврат Истина;
КонецФункции

Показать

18. SlavaKron 31.03.22 12:32 Сейчас в теме

(17) Для подключения внешнего отчета или обработки есть метод из БСП:

ДополнительныеОтчетыИОбработки.ПодключитьВнешнююОбработку(Ссылка)

Также, некорректно искать ссылку по наименованию, правильнее по реквизиту "ИмяОбъекта".

19. Obertone 78 31.03.22 12:37 Сейчас в теме

(18) Понятно. Спасибо за подсказку.

20. Obertone 78 12.04.22 07:18 Сейчас в теме

(18) Как оказалось, о методе из БСП по открытию внешней обработки или отчёта из справочника на управляемых формах сведения в открытом виде нашлись: https://infostart.ru/1c/articles/1027823/

21. user1739720 29.04.22 10:36 Сейчас в теме

Добрый день. Тоже пытаюсь открыть программно форму документа из расширения.
Вот код:

&После("ПриНачалеРаботыСистемы")
&НаКлиенте
Процедура Команда()
	СсылкаНаДокумент =  ЗаполнитьДанные();
	Текдок = СсылкаНаДокумент.СсылкаДокумент;
	Панель=ПолучитьФорму("Документ.НачалоМесяца.Форма.ФормаСписка",Текдок);
	Панель.Открыть();
	 
КонецПроцедуры 


 &НаСервере
Функция ЗаполнитьДанные() 	
	ДатаЗаполнения = ТекущаяДата();
	ЗапросНачаломесяца = Новый Запрос;
	ЗапросНачаломесяца.УстановитьПараметр("ДатаНачалаМесяца",НачалоМесяца(ДатаЗаполнения));
	ЗапросНачаломесяца.текст =  "ВЫБРАТЬ
	                            |	НачалоМесяца.Ссылка КАК Ссылка
	                            |ИЗ
	                            |	Документ.НачалоМесяца КАК НачалоМесяца
	                            |ГДЕ
	                            |	НачалоМесяца.Дата = &ДатаНачалаМесяца";
	
	РезультатЗапроса = ЗапросНачаломесяца.Выполнить();
	СсылкаДокумент = РезультатЗапроса.Выгрузить()[0].Ссылка;
	
	 СтруктураДок = Новый Структура;
	 СтруктураДок.Вставить("ДатаДок",СсылкаДокумент.Дата);
	 СтруктураДок.Вставить("СсылкаДок",СсылкаДокумент);
	 //СтруктураДок.Вставить("ОбъектДок",СсылкаДокумент.ПолучитьОбъект());

	 возврат СтруктураДок;

Показать

КонецФункции

При выполнении &Наклиенте процедуру &Насервере не видит.
Почему???? (тонкий клиент)

22. vikb11 17.06.22 13:21 Сейчас в теме

(21) А точно ли не видит функцию на сервере?! Я тут другую ошибку вижу - в структуре ключ "СсылкаДок", а в переменную выбирается элемент с ключом "СсылкаДокумент".

23. SlavaKron 17.06.22 14:55 Сейчас в теме

(21)

ПриНачалеРаботыСистемы

Судя по всему, это модуль приложения. он только на клиенте.

24. user1922943 16.03.23 13:06 Сейчас в теме

Использовать типовой механизм

&НаСервере
Функция ПолучитьКоманду()
	
	ВнешняяФорма = Справочники.ДополнительныеОтчетыИОбработки.НайтиПоНаименованию("Название обработки"); 
	МассивОбъектов = Новый Массив();
	МассивОбъектов.Добавить(Неопределено);
	СтуктураОбработки = Новый Структура;
	СтуктураОбработки.Вставить("ВариантЗапуска",Перечисления.СпособыВызоваДополнительныхОбработок.ОткрытиеФормы);
	СтуктураОбработки.Вставить("ВариантЗапуска",Перечисления.ВидыДополнительныхОтчетовИОбработок.ЗаполнениеОбъекта);
	СтуктураОбработки.Вставить("Идентификатор","1"); 
	СтуктураОбработки.Вставить("Модификатор",""); 
	СтуктураОбработки.Вставить("ОбъектНазначение",МассивОбъектов);
	СтуктураОбработки.Вставить("ПоказыватьОповещения",Истина);
	СтуктураОбработки.Вставить("Представление","Название обработки");
	СтуктураОбработки.Вставить("Ссылка",ВнешняяФорма);   
	СтуктураОбработки.Вставить("ЭтоОтчет",Ложь);   
	
	Возврат СтуктураОбработки;
КонецФункции
&НаКлиенте
Процедура ВнестиДанные(Команда)   
	Команда = ПолучитьКоманду();    
	ДополнительныеОтчетыИОбработкиКлиент.ВыполнитьОткрытиеФормыОбработки(Команда,Неопределено,Неопределено);
 КонецПроцедуры

Показать

27. fixin 4285 13.05.24 12:59 Сейчас в теме

(24) Спасибо, но я немного у себя поправил, работает, мне нужно было открывать внешнюю форму обработки по нажатию на гиперссылке формы:

Функция СведенияОВнешнейОбработке() Экспорт
    ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке(СтандартныеПодсистемыСервер.ВерсияБиблиотеки());
    Заголовок = НСтр("ru = 'Обработка файла Enterpise Data Мой Склад'");
    ПараметрыРегистрации.Информация = Заголовок;
    ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиДополнительнаяОбработка();
    ПараметрыРегистрации.Версия = "2022-05-18";
    ПараметрыРегистрации.БезопасныйРежим = Истина;

    Команда = ПараметрыРегистрации.Команды.Добавить();
    Команда.Представление = Заголовок;
    Команда.Идентификатор = СтрЗаменить(Заголовок, " ", "");
    Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыОткрытиеФормы();
    Команда.ПоказыватьОповещение = Ложь;
    

    //Разрешение = РаботаВБезопасномРежиме.РазрешениеНаИспользованиеКаталогаВременныхФайлов(Ложь,Истина,"Тест");
    //ПараметрыРегистрации.Разрешения.Добавить(Разрешение);
    
    Возврат ПараметрыРегистрации;
КонецФункции

Показать

БП 3.0.151.38

25. Altez50 1 15.05.23 11:15 Сейчас в теме

Открытие формы из epf/erf в толстом клиенте:

ИмяФайла="D:\имяфайланаклиенте.epf";
Об = ВнешниеОбработки.Создать(ИмяФайла, Ложь, Новый ОписаниеЗащитыОтОпасныхДействий); 

ИмяОбработки = "ИмяИзМетаданных";
ОткрытьФорму("ВнешняяОбработка." + ИмяОбработки + ".Форма");

Для отладки вместо Файл/открыть.

28. shrek2 35 21.03.25 14:24 Сейчас в теме

А в тонком клиенте как открыть?

29. starik-2005 3172 21.03.25 14:50 Сейчас в теме

(28) 1. Регишь на сервере с уникальным именем.
2. Получаешь по этому имени на клиенте форму.

&НаСервере
ВнешниеОбработки.Подключить(АдресХранилища, ИдентификаторОбработки, Ложь);
//...
&НаКлиенте
Форма = ПолучитьФорму("ВнешняяОбработка."+ИдентификаторОбработки+".Форма.Форма");

ЗЫ: Как там Вологда живет? )))

Оставьте свое сообщение

E-mail: