Можно ли узнать что обработка/отчет открыты через Файл-открыть

☑

0 ttk

20.02.24

✎

16:07

или же из Внешних отчетов обработок?
БСП 3.1.9

1 Волшебник

20.02.24

✎

16:10

При открытии из Внешних передавайте в обработку параметр

2 ass1c

20.02.24

✎

17:54

&НаКлиенте
Процедура Тест(Команда)

    ЭтоВнешняяОбработкаФайл = ЭтоВнешняяОбработкаИзФайла();

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

&НаСервере
Функция ЭтоВнешняяОбработкаИзФайла()

    Результат = ЭтоВнешняяОбработка();

    Если Результат Тогда
        ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
        Результат = Найти(ОбработкаОбъект.ИспользуемоеИмяФайла,".epf") > 0;
    КонецЕсли;

    Возврат Результат;

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

Функция ЭтоВнешняяобработка()

    ОбработкаОбъект = РеквизитФормыВЗначение("Объект");

    ПрефиксВнешнейОбработки = "ВнешняяОбработкаОбъект";
    ПредставлениеЭтогоОбъекта = СокрЛП(ОбработкаОбъект);

    Результат = Найти(ПредставлениеЭтогоОбъекта,ПрефиксВнешнейОбработки) > 0;

    Возврат Результат;

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

3 Волшебник

20.02.24

✎

19:04

(2) Нагромождение программного кода. Оптимизируйте:

&НаКлиенте
Процедура Тест(Команда)   
    ВнешняяИзФайла = ЭтоВнешняяОбработкаИзФайла();    
КонецПроцедуры

&НаСервере
Функция ЭтоВнешняяОбработкаИзФайла()
    ОбработкаОбъект = РеквизитФормыВЗначение("Объект");

    ЭтоВнешняя = Найти(СокрЛП(ОбработкаОбъект),"ВнешняяОбработкаОбъект") > 0;
    ИзФайла = Найти(ОбработкаОбъект.ИспользуемоеИмяФайла,".epf") > 0;
    
    Возврат ЭтоВнешняя И ИзФайла;    
КонецФункции

4 ads55

21.02.24

✎

07:46

(3) &НаКлиенте
Процедура Тест(Команда)
    ВнешняяИзФайла = ЭтоВнешняяОбработкаИзФайла();
КонецПроцедуры

&НаСервере
Функция ЭтоВнешняяОбработкаИзФайла()
    ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
    Возврат Найти(СокрЛП(ОбработкаОбъект),"ВнешняяОбработкаОбъект") > 0 И
Найти(ОбработкаОбъект.ИспользуемоеИмяФайла,".epf") > 0;
КонецФункции

зачем лишние переменные городить.

5 Волшебник

21.02.24

✎

08:28

(4) >> зачем лишние переменные

Для понятности

6 ttk

21.02.24

✎

09:40

(2)(3)(4) - Спасибо