Подскажите кто знает:

как в модуле формы открытого журнала получить его идентификатор (или синоним) ?
Желательно штатными средствами.

Насколько мне помнится встроеным языком никак. Только ч/з явное объявление в форме.

Для реализации идеи пришлось сделать так (только для обычных журналов):

ИмяЖурнала = Метаданные.Документ(ТекущийДокумент.Вид()).Журнал.Идентификатор;

Минусы: формула не подходит по смыслу для "Полного журнала" и для "Дополнительных".

Всем, спасибо.

В случае отсутствия документов в журнале будет ошибка.

Зачем получать? И так известно какой журнал!!!

Метаданные.Журнал("АвансовыеОтчеты").Синоним

А при открытии этого журнала? Как узнать ?

ПриОткрытии разве не в модуле формы конкретного журнала?

Ну я так понимаю что ТС пытался сваять что то глобальное и при открытии любого журнала ему надо было узнать что за журнал открывается.

В каждом журнале есть универсальная кнопка с формулой:

глПроверитьВторойЭкземпляр(НачалоИнтервала(),КонецИнтервала(),контекст)

а в глобальном модуле процедура вывода отображаемых в журнале документов с нужными реквизитами и сортировкой:

Процедура глПроверитьВторойЭкземпляр(Дата1,Дата2,конт) экспорт
    
    Если ПустоеЗначение(конт)=0 Тогда
        Если ПустоеЗначение(конт.ТекущийДокумент)=1 Тогда
            Возврат;    
        КонецЕсли;
        ИмяЖурнала=Метаданные.Документ(конт.ТекущийДокумент.Вид()).Журнал.Идентификатор;
        ИмяЖурналаТаб=Метаданные.Документ(конт.ТекущийДокумент.Вид()).Журнал.Синоним;
    Иначе
        ИмяЖурнала="ПолныйЖурнал"; 
        ИмяЖурналаТаб="Полный журнал";
    КонецЕсли;
    
    ТЗДок=СоздатьОбъект("ТаблицаЗначений");
    ТЗДок.Очистить();
    ТЗДок.НоваяКолонка("СтатусДок","Строка",40,,"Статус",40,,1);
    ТЗДок.НоваяКолонка("Док","Документ",,,"Документ",30,,1); 
    ТЗДок.НоваяКолонка("Контрагент","Справочник.Контрагенты",,,"Контрагент",30,,1); 
    ТЗДок.НоваяКолонка("ДокВид","Строка",30,,"Вид",30,,1);
    ТЗДок.НоваяКолонка("НомерДок","Строка",13,,"№",15,,1);
    ТЗДок.НоваяКолонка("ДатаДок","Дата",,,"Дата",13,,1);
    ТЗДок.НоваяКолонка("СуммаНДС","Число",19,2,"Сумма",19,,2); 
    ТЗДок.НоваяКолонка("СуммаСНДС","Число",19,2,"Сумма",19,,2); 
    ТЗДок.НоваяКолонка("Внимание","Число",1,0,"Внимание",1,,1); 
    //ТЗДок.ВидимостьКолонки("Внимание",0);   
    

    Для ЖЖ = 1 по  Метаданные.Документ() Цикл
        // получим ссылку на документ  
        Если ИмяЖурнала<>"ПолныйЖурнал" Тогда
            Попытка
                Если Метаданные.Документ(ЖЖ).Журнал.Идентификатор<>ИмяЖурнала Тогда
                    Продолжить;      
                КонецЕсли;
            Исключение
                Продолжить;      
            КонецПопытки;
        КонецЕсли;
            
        Док=СоздатьОбъект("Документ."+Метаданные.Документ(ЖЖ).Идентификатор);
        Док.ВыбратьДокументы(Дата1,Дата2);   
        
        Пока Док.ПолучитьДокумент() = 1 Цикл
            Если Док.ПометкаУдаления()=1 Тогда
                Продолжить;
            КонецЕсли;  
            
            ТЗДок.НоваяСтрока(); 
            ТЗДок.Док=Док.ТекущийДокумент();
            ТЗДок.НомерДок = СокрЛП(Док.НомерДок);
            ТЗДок.ДатаДок = Док.ДатаДок; 
            ТЗДок.ДокВид=Метаданные.Документ(Док.Вид()).Синоним;
                
            Попытка
                ТЗДок.Контрагент=Док.Контрагент;    
            Исключение  
                ТЗДок.Контрагент=0;    
            КонецПопытки;
    
            Попытка
                ТЗДок.СуммаНДС=Док.Итог("НДС");    
            Исключение  
                Попытка
                    ТЗДок.СуммаНДС=Док.НДС;    
                Исключение  
                    ТЗДок.СуммаНДС=0;
                КонецПопытки;
            КонецПопытки;

            Попытка
                ТЗДок.СуммаСНДС=Док.Итог("СуммаСНДС");    
            Исключение  
                Попытка
                    ТЗДок.СуммаСНДС=Док.СуммаСНДС;    
                Исключение  
                    ТЗДок.СуммаСНДС=0;
                КонецПопытки;
            КонецПопытки;
                
            Если Док.Вернули2экз=0 Тогда
                ТЗДок.СтатусДок = "-";
                ТЗДок.Внимание=1;
            Иначе
                ТЗДок.СтатусДок = "Да"; 
                ТЗДок.Внимание=2;
            КонецЕсли;   
    
        КонецЦикла;

    КонецЦикла;

    ТЗДок.Сортировать("ДатаДок+,НомерДок+");
    
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Реестр");
    Таб.ВывестиСекцию("Шапка");
    Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
    ТЗДок.ВыбратьСтроки();
    Пока ТЗДок.ПолучитьСтроку()=1 Цикл 
        Если ТЗДок.Внимание=1 Тогда
            Таб.ВывестиСекцию("Строка_1");
        Иначе
            Таб.ВывестиСекцию("Строка_2");
        КонецЕсли;
    КонецЦикла;
    Таб.ВывестиСекцию("Подвал");
    Таб.ТолькоПросмотр(1);
    Таб.ПараметрыСтраницы(1,100,1,10,5,10,10,0,7,1);
    Таб.Показать("Печать Реестр 2-ых экземпляров документов","");
КонецПроцедуры

Понимаю что можно было бы использовать стандартный алгоритм вывода обычного Реестра в каждом журнале, но ведь в принципе должен был быть метод обращения к журналу как и к обычным объектам т.е. Справочнику, Документу, Отчету и т.п. упрощающий сам перебор информации.

глПроверитьВторойЭкземпляр(НачалоИнтервала(),КонецИнтервала(),контекст,"АвансовыеОтчеты")

тогда придётся в каждом журнале править формулу кнопки. и так 20-30 раз по количеству журналов...

И это всё для чего? проверить не ввели ли случайно дубль документа? Совпадающий по НДС и сумме с НДС? Зачем? А если надо ввести дубль или совпадение (для разных контрагентов например)? А если открыли общий журнал то что с чем сравниваться будет? В общем мне кажется Вы где то с постановкой задачи "накосячили". Можно дословно сюда запостить то что сказал заказчик?

А не проще ли (т.к. сравнивать документы имеет смысл только одного вида) сделать так

1. в обычных журналах по кнопке этой хитрой выкидывать список видов документов которые надо сравнить (виды документов получаем через метаданные как документы принадлежащие этому журналу)
2. в общем журнале выдаём весь список видов

код на пол экрана. а главное - всё универсально кроме общего журнала.

если нет желания то через формекс можно получить всё практически что угодно

А где Вы собираетесь проверять идентификатор журнала?
Глобальной обработки-то нет?

а выше что? на "гл" начинается

Так если в гл..... обрабатывать, тогда спокойно можно передать идентификатор - чего городить?

Так не хочет вставлять во все журналы идентификатор. Хочет универсальную на все случаи жизни

тогда Формекс

ФормаРасш = СоздатьОбъект("РасширениеФормы");
ФормаРасш.УстановитьФорму(Форма);
Сообщить(ФормаРасш.ПолныйТипОбъекта());

возвращает - Журнал.Кассовые.Форма.ФормаСписка

дальше можно разрулить (имхо)

Я выше про формекс писал, но думаю (судя по коду и решению) вряд ли это поможет. хотя..........

Честно сказать мне кажется что там и журнала то не надо. Запрос по документам с использованием Конт.Вид(). И в случае полного (общего) журнала как то придется "послаживать" запрос.
Но я что то все равно задачу до конца не понимаю. Что ищем, что проверяем?

ТЗ: выводить реестр документов с разными вариантами сортировки только тех документов, которые присутствуют в открытом у пользователя журнале.



ничего не сравнивается, не придумывайте



формекс не подходит так как у большинства клиентов на компах администраторы запретили использование внешних библиотек в целях безопасности.
Данный вариант с формексом не подходит.




в глобальном модуле естсественно


верно. Эта операция не для одного клиента, и не для одинаковых конфигураций. Скопировать кнопку проще, чем во всех журналах прописывать идентификатор.

По вышевставленному коду задача на практике уже выполняется.
Всё прекрасно работает.
В случае отсутствия документов в журнале данный алгоритм не имеет смысла (ведь реестр в любом случае будет пустой независимо от вида журнала).

P.S. а кого смущает переменная "Вернули2экз", так это пользователь через неё отмечает вернули/отдали ли второй экземпляр документа контрагенту или нет (например Приходная, Расходная, НН, ЗКП, Договор и т.п.)

спасибо форумчанам за проявленное неравнодушие !

Админ полный даун. КАК использование внешних библиотек влияет на безопасность? А главное - как они (админі) запретили то? или это админы-программисты 1С? бред какой-то. не повезло вам

Элементарно - через политику безопасности домена.

Не. Ну если речь идет об автоматизации фальсифицированных выборов. И админ отвечает своей головой... тогда конечно да. Или ... если банк автоматизируем. А в прочих случаях попахивает придурью

P.S.
Любопытно, а , например на 1crcukr.dll админы анафему не накладывают ?
P.P.S
А через vkloader тоже не получится ?

Зачем нужно использовать внешнюю библиотеку, если можно обойтись штатными средствами? И, вообще, у человека был вопрос, он сам нашел ответ, а на него обрушилось уйма всего...

офтопп, извините не могу сдержаться

еще один совет: не занимайтесь сексом на крассной площади - замучают советами...

Ну да, логично.