Запускаем два сеанса.
про документы.
1. Открываем в одном сеансе форму, в коде которой отрабатывает Форма.ТолькоПросмотр(1);
Если во втором сеансе открыть форму аналогично - то фиг вам, "объект заблокирован"
2. Если во втором сеансе открыть лупой "просмотр документа" с панели инструментов - то норм, откроется.
.
получается что
в 1 - объект жестко связан с формой, объект блокируется, а форма сама по себе имеет флаг 1/0
в 2 - форма документа "оторвана" от объекта, объект не блокируется.
.
вот...
и еще есть режим ОткрытьФорму(Док,параметр,РежимОткрытия=1) - интересно в этом случае форма откроется по 1 или 2?
.
и как  располагая контекстом формы открытой только на просмотр узнать - она открыта с блокировкой объекта или нет?
Стучаться в метод Блокировка()...?

(72) во втором случае (с лупой) запись всё равно надо в попытку оборачивать, ибо форму мог открыть кто-то еще на редактирование

Ветка в прошлое. Прям прослезился.

(73) это не та проблема, которая пока вызывает трудность.
готовлю рабочий тестовый примерчик

(74) это тебе не в снеговике тупом тупо галочки расставлять и плеваться на стек вложенности... ;-)

(71) это хорошо.
но нехорошо потому что формекс.
хочется сделать без него.
из любви к искусству. и если не смогу сам то и чтобы всякие ктулхи не выпендривались на словах, а рабочий код дали ;-)

плюс для шибко-шибко умных - форма дока еще вдобавок и МОДАЛЬНО может быть открыта. а это уже значит что закрывать ее нельзя, ибо хз что там после модального вызова стоит...

(73) Ха, Ёпрст, такой финт не сработает:

ТолькоПросмотр = Конт.Форма.ТолькоПросмотр(0);
ФормаСвободна = Конт.Форма.ТолькоПросмотр(0);     

если этот код выполняется в ПриОткрытии() ВПФ и ПриОткрытии() еще не доработала до конца...
обломс самой вкусняшки...

.. соответственно хрен поймешь,ФормаСвободна  - форма документа - заблокировала документ или открыта лупой...
как это еще можно вычислить?

это конечно можно код вынести из ПриОткрытии() в проудуру, которая будет выполняться уже после завершения ПриОткрытии - но это приведет к морганию формы DGA на экране, а это не искусство, а пошлятина...

(73), блин
а откуда Конт в ВПФ возникает?

Перем Конт;
Процедура Сформировать()
    Если ТипЗначения(Конт) <>100 Тогда
        Предупреждение("Закрыли док ужо",10);
        Возврат;
    КонецЕсли;

Опять какой-то шаманский фокус?

Тьфу блин, ПриОткрытии съел.
я уже думаю опять какой-то шаманский фокус

(56) Штатно можно запретить отрывать и блокировать документы.

"Открытие" документа по сути создает копию документа и открывает его форму.
Все записи и прочие действия вручную обрабатывать кодом из этой формы нового документа.

(79) тебе в ПриОткрытии впф надо проверить ?

(85) ну, желательно в любом контексте исполнения

И всё же работает и в ПриОткрытии..
ну напиши так, например и проверь:

Процедура ПриОткрытии()
    Конт = Форма.Параметр;    
    
    
    Клиентос = ТекущееВремя();    
    ВсякаХрень = ТекущееВремя();
    Сформировать();    
КонецПроцедуры // ПриОткрытии

это код из впф.

На счет модальности не смотрел, ибо модальность - зло

(84) по существу ниччего не понял из твоего поста.

(90) это обход системных блокировок, описанный на синьоре.

(79) так шта, чего у тя не работает то и где ?
)

ща, сек

(87) проверю уже завтра.
ты вот так вот напиши

    Сформировать();    
    CnfnecDjpdhfnf(0)$ //здесь!!!
КонецПроцедуры// ПриОткрытии

(87)
ты вот так вот напиши

    Сформировать();    
    СтатусВозврата(0); //здесь!!!

КонецПроцедур// ПриОткрытии

Ёпрст, вот ведь, зараза...

Конт.Записать(); - выполняемый до завершения ПриОткрытии() ВПФ - совершенно спокойно записывает Конт.
Конт.Записать(); - выполняемый после завершения ПриОткрытии() ВПФ, в контексте уже открытой формы ВПФ -  хрен там, а не запись Конт - ошибка "Данная команда не может выполняться в формуле элемента диалога!"

неудобно ;-) придется цельную процедуру собственно самой существенной модификации документа делить.. код модификации реквизитов для вызова из разных мест и анализ в каком месте в каких условиях можно выполнить код модификации. а так все красиво почти разложилось...

ну не Епрст - зараза, а ситуация - зараза

и вот еще попутный вопрос.
Допустим есть ВПФ для документа.
Вызывается ВПФ из формы документ штатным образом с передачей параметров.
ВПФ может быть вызвана из формы документа

1. когда форма документа открыта и на экране - ВПФ запускается вне контекста ПриОткрытии() формы документа
и
2. когда форма документа открыта, но еще не экране ВПФ запускается _внутри_ контекста ПриОткрытии() формы документа

Можно ли в самой ВПФ? имея доступ только к контексту формы документа, определить, как вызвана DGA - по 1 или 2..? (желательно без формекса)

(98): в порядке бреда: раскрутить эту (стандартную) ошибку через "ложное закрытие" - никак не получится?

(99) хм, точно - надо попробовать... но это немного другой вопрпос.
вопрос 1,2 - остался

(100): какой именно вопрос?
если ты "раскрутишь" печать из кнопки через ложное закрытие формы - ошибка "Данная команда не может выполняться в формуле элемента диалога" уйдет и печать будет выполняться без ошибок в обоих случаях, описанных в (98)...
или ты о каких вопросах?

(101) ошибку "не может выполняться... " я обошел, тут в чем "тонкость":

если я из КонтекстФормыДокумента (открыто лупой, например) вызываю ВПФ
и в ВПФ ПриОткрытии() сделать КонтекстФормыДокумента.Записать() - то ок!
а вот если форма ВПФ открыта (отработал полностью код ВПФ ПриОткрытии()) и сделать КонтекстФормыДокумента.Записать() уже вне контекста ПриОткрытии() - то получим ошибку.
- и получается что переоткрытие КонтекстФормыДокумента надо разбивать на два этапа
а) КонтекстФормыДокумента.Запись() - в коде ВПФ ПриОткрытии() и
б) КонтекстФормыДокумента.Закрыть() и открыть с уже записанными реквизитами заново в коде ВПФ вне ПриОткрытии()

Причем между а) и б) должна быть пауза, иначе не получится (форма не переоткроется, так как висит еще незакрытая старая)

То есть б) надо выполнять вне ПриОткрытии тоже в два этапа.
б.1 - закрытие старой формы формы, пауза
б.2 - открытие новой формы.

вот такая галиматья у меня получилась если делать без формекса.
С формексом а) и б) можно не делать, вместо этого просто прописать в форму документа (открытого лупой и никак не редактиуемой штатно) новые значения, то вся фигня с а) и б) все проще. но с формексом.

вот так как-то.. уф..

(0) Вы в 7.7 еще попробуйте через обработку выполнить манипуляцию с документом, на который у пользователя нет прав.
Результат вас удивит. Смирись.

А если бы вы еще начали в 7.7 разбирать внутреннюю структуру СУБД, то фразу СУБД вам пришлось бы удалить :)

(94) И ? ВСЁ работает!


Перем Конт;
//*******************************************
Процедура Сформировать()
    Если ТипЗначения(Конт) <>100 Тогда
        Предупреждение("Закрыли док ужо",10);
        Возврат;
    КонецЕсли;
    ТолькоПросмотр = Конт.Форма.ТолькоПросмотр(0);
    ФормаСвободна = Конт.Форма.ТолькоПросмотр(0);
    Если ФормаСвободна = 0 Тогда
        Конт.Клиентос = Клиентос;
        Конт.ВсякаХрень = ВсякаХрень;
        Конт.Форма.ТолькоПросмотр(ТолькоПросмотр);
        Сервис = СоздатьОбъект("Сервис");
        Сервис.ВыполнитьПроцедуру(Конт, "Записать");
        Конт.Форма.Обновить(0);
    Иначе
        Док = СоздатьОбъект("Документ.Вася");
        Док.НайтиДокумент(Конт.ТекущийДокумент());
        Док.Клиентос = Клиентос;
        Док.ВсякаХрень = ВсякаХрень;
        Док.Записать();
        //ОткрытьФорму(Док.ТекущийДокумент(),Конт);
        РасшФормы = СоздатьОбъект("РасширениеФормы");
        РасшФормы.УстановитьФорму(Конт.Форма);
        АтрибутФормы = РасшФормы.ПолучитьАтрибут("Клиентос");
        АтрибутФормы.Значение = Клиентос;
        АтрибутФормы = РасшФормы.ПолучитьАтрибут("ВсякаХрень");
        АтрибутФормы.Значение = ВсякаХрень;
        Конт.Форма.Обновить(0);
    КонецЕсли;
КонецПроцедуры
//======================================================================
Процедура ПриОткрытии()
    Конт = Форма.Параметр;    
    Клиентос = ТекущееВремя();    
    ВсякаХрень = ТекущееВремя();
    Сформировать();    
    СтатусВозврата(0);
КонецПроцедуры // ПриОткрытии


(103) Чем удивит ? Права в обработке не проверяются, мы должны удивится, узнав об этом со времен 7.5 ?

или что ?

(103) Ну, вме известна структура 7.7, как и снеговика, зачем что-то удалять ?

(102) чего у тебя такое отторжение от формекса ? Ну строй ты саму dll в макет впф, При открытии впф проверяй, что ежелм формекса нет, то извлечь dll из макета и установить. Делов-то.

прав на dll никаких не надо в системе, в реестре регистрация не требуется, будет работать у всех всегда.

А без формекса, тебе придётся форму, открытую по лупе, переоткрыть. Что будет заметно - "моргание формы", ибо положение её сдвинется, если не во всё окно было открыто. И сделать ты это можешь в ложном закрытии впф.

(102): "а вот если форма ВПФ открыта (отработал полностью код ВПФ ПриОткрытии())" -- а если попробовать вызвать процедуру печати через ОбработкаОжидания("ПечатьВпфМоя",1);

(109) нормально у меня все с формексом.
Без него плохо. ;-)

(111) переоткрытие я через форма.обработкаожидания сделал

(112) ну, так и сделал, только не весь код, а только переоткрытие формы...

А
РасшФормы = СоздатьОбъект("РасширениеФормы");
- разве доступен в контексте ПриОткрытии()..?
вроде раньше всегда говорили что надо это делать в ПослеОткрытия()..?

(116) всегда был доступен

считай это, недокумментирванной фичей )

тем более, что ты применяешь его не к этой форме, а к форме прилетевшего контекста

(105) так не работает. для формы открытой на редактирование или Форма.ТолькоПросмотр(1) - признак модифицированности формы остается. надо в форму документа добавлять ЗаписатьДокумент() и через Сервис эту процедуру вызывать

//======================================================================
Процедура ЗаписатьДокумент()
    Записать();    
КонецПроцедуры // ЗаписатьДокумент()

    //Конт.Записать();
        Сервис = СоздатьОбъект("Сервис");
        Сервис.ВыполнитьПроцедуру(Конт, "Записать"); //так не работает
        Конт.Форма.Обновить(0);

    //Конт.Записать();
        Сервис = СоздатьОбъект("Сервис");
        Сервис.ВыполнитьПроцедуру(Конт, "ЗаписатьДокумент"); //так работает. но это надо править форму документа, бяка
        Конт.Форма.Обновить(0);

Хотя, просто

    Конт.Записать();
        Конт.Форма.Обновить(0);

работает во всех случаях норм

Тьфу,блин
(120) - считать неверным написанное
Конт.Записать() - неверно написал в предыдущем...
Конт.Записать() - ругается
.
надо отдохнуть.. клинит...

(121) где ты в моём коде увидел Конт.Записать ? Приём.. смотри вниматочно ))

и.. всё работает, смотри в демо-конфе моей.

(123) угу, разобрался уже, норм все.

(124) самоизоляция на тебя дурно влияет

(125) Спасибо, ты добр как никогда ;-)

Усе получилось, тупил малость...
.
но вот есть вопрос.
впф вызвана из контекста формы-родителя документа.
.
как в ВПФ, имею доступ к контексту формы-родителя документа, определить что впф вызвана из контекста уже открытой формы -родителя или что код ВПФ выполняется в контексте процедуры ПриОткрытии формы-родителя? Попробовать что-то исполнить/обратитьсякчему-то что есть доступ только при открытой форме-родителя, вне контекста ПриОткрытии?

// (127):
// Добавь на форму флажок ФлПриОткрытии (можно невидимый)
// Добавь на форму текстовый реквизит с формулой "ШаУжоОткрыли()"
ФлПриОткрытии = 1; // в ПриОткрытии в самом начале процедуры
ФлПриОткрытии = 0; // в функции ШаУжоОткрыли
// и в любом месте через контекст проверяй типа КонтекстВызова.ФлПриОткрытии

(128) это неспортивно.
есть ВПФ. в ней я могу делать все.
есть форма-родитель. я в ней делать ничего не могу.

(ё29): а как ты впф то добавляешь (и/или вызываешь) если "делать ничего не можешь"????

(130) Очень просто. создал ВПФ. положил там где должна лежать DGA/
ВПФ подхватывается и используется типовым механизмомм типовой конфиги.
Никогда с ВПФ не работал?

(131): на УФ через БСП? да, там без правки формы документа - подтягивается в список кнопки печати автоматом.
так?

(132) не, вы отстали от жизни, это для 77

(133): да я упомянул единственный мне известный способ прикручивания печ.формы без изменения кода формы.
так что все еще жду ответа на (130).

(134) а что непонятного в (131) с учетом того что (131) используется в 7.7?

(127) из закрытой формы впф не вызвать же :)
узнать, что форма еще открыта, можно проверив на тип контекста, если =100, то форма-родитель еще открыта.

И да, каким образом, открытие впф у тебя попадёт в ПриОткрытии формы документа, если как ты говоришь, доступа к изменению этого документа у тебя нема ?

(137) потому что надо знать типовые 77! ;-)
штатно все, типовая тиС. В журналах документов есть кнопка "Печать", по которой для текущего документа вызывается документ с параметром ("ПечатьНаЭкран","Команда"), а в документе ПриОткрытии() отрабатывает вызов последней использованной ВПФ

(138) нет там такого:

"а в документе ПриОткрытии() отрабатывает вызов последней использованной ВПФ"

Там всего лишь идёт заполнения списка впф для этой формы (который надо выкинуть оттуда к едрени фени, для открытия формы быстрее раз в 10)

(139) есть там такое. в контексте ПриОткрытии отрабатывает код.
    // Заполним таблицу для выбора печатной формы
    НомерТекущейФормы = глУстановкаКнопкиПечать(Контекст, "Документ." + Вид(),ТаблицаПечФорм); //**************** здесь ВПФ
    
    Парам = Форма.Параметр;
    Если ТипЗначенияСтр(Парам)="СписокЗначений" Тогда
        Если ПустоеЗначение(Парам.Получить("Команда"))=1 Тогда
            Сообщить("В форму документа "+Вид()+" передан неверный параметр!","I");
            СтатусВозврата(0);Возврат;
        КонецЕсли;
        Если Парам.Получить("Команда") = "ПечатьНаПринтер" Тогда
            КолЭкз = Макс(Число(Парам.Получить("КолЭкз")),1);
            ПоКнопкеПечать(1,КолЭкз);
            СтатусВозврата(0);Возврат;
        ИначеЕсли Парам.Получить("Команда") = "ПечатьНаЭкран" Тогда
            ПоКнопкеПечать(0);                //************************** ЗДЕСЬ ВПФ
            СтатусВозврата(0);Возврат;
        Иначе
            Сообщить("В форму документа "+Вид()+" передана неверная команда "+Парам.Получить("Команда")+"!","I");
            СтатусВозврата(0);Возврат;
        КонецЕсли;
    КонецЕсли;



вот здесь
    НомерСтроки = глПолучитьТекущуюПечФорму(ВидОбъекта, ТаблицаПечФорм); // ****** вот здесь......
    Если НомерСтроки = 0 Тогда
        ЗагловокКнПечать = "Печать";
    Иначе
        ЗагловокКнПечать = ТаблицаПечФорм.ПолучитьЗначение(НомерСтроки, "Кнопка");
    КонецЕсли;

    Возврат НомерСтроки;
    
КонецФункции // глУстановкаКнопкиПечать()

Функция глПолучитьТекущуюПечФорму(ВидОбъекта, ТаблицаПечФорм) Экспорт
    
    Перем ИмяПечФормы, НомерСтроки;
    
    НомерСтроки = 0;
    
    Если ТаблицаПечФорм.КоличествоСтрок() > 0 Тогда
        ИмяПечФормы    = ВосстановитьЗначение(ВидОбъекта + "ПечФорма"); //***********вот здесь

(141) гы.. т.е ты отправляя на печать форму, хочешь изменять реквизиты в документе ? Зачем ?!

Тебя куда-то не туда заносит

И тем более, передать параметр в форму дока ты можешь только написав это кодом, из обработки или еще откуда. Тогда нафига это всё ? Если в обработке и так можешь поменять что угодно.

(142) ну ты, епрст!
использую DGA как плугин, хоть для печати этикеток, хоть для изменения реквизитов, хоть для выгрузки в иксемель итд.

(144) я ничего не пишу в типовой. это УЖЕ написано.
я просто подсовываю только ВПФ, которяа делает что надо. И всё. в типовой больше ничего не пишу.

(145) Праильно. Ты решаешь задачу через жпо.

Зачем Использовать механизм впф для изменения реквизитов дока из своей обработки ?!

(148) потому что мне так удобно. и клиенту так удобно. и ничего не надо никуда вносить/исправлять.
скопировал два файла в прнформс и плугин установлен.
.
что не нравится-то?

(149) То, что код В ПриОткрытии у документа для "печати" у дока будет вызван из групповой обработки

В которой все эти телодвижения не нужны и вредны

(150) "То, что код В ПриОткрытии у документа для "печати" у дока будет вызван из групповой обработки"
- пока никакой групповой обработки не используется для этой ВПФ.
И использование этой ВПФ в режиме групповой обработки - не предполагается.

(немного в сторону, для обсуждения - если таковое будет - после: и даже если эта ВПФ будет в режиме групповой обработки - ну и что? будет на каждый документ из групповой обработки вываливать диалог "ввода значений реквизитов")

(152) Как это ?!
А нахрена тогда ты спрашиваешь про открытие впф из кода в ПриОткрытии() у документа ?!

И потом все эти вопросы в ранее про ЭТО ?

(154) потому что:

если форма документа открывается в режиме "только чтение" и контекст формы ПриОткрытии - завершен и форма открыта, То для обновления отображения исправленных реквизитов - надо форму "переоткрыть".

если форма документа открывается в режиме "только чтение" и контекст формы ПриОткрытии - не завершен (и после исполнения ПриОткрытии форма документа не откроется стстаусвовзврат(0) - как при передачи "команды"), то и форму документа в самой ВПФ не надо переоткрывать.

(155) "все эти вопросы в ранее про ЭТО"
- нет, куча вопросов была и они успешно решены.

остался вопрос в (127)

(156)
>>>код ВПФ выполняется в контексте процедуры ПриОткрытии формы-родителя?

Вот это возможно только в какой-либо обработке

А там, всё это (впф) не нужно.

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

(160) фу, бяка.
из любви к искусству хочу максимально штатно.

(158) "код ВПФ выполняется в контексте процедуры ПриОткрытии формы-родителя?
Вот это возможно только в какой-либо обработке"
-
в смысле..?
необязательно в какой-то обработке.
Формажурнала, кнопка - запускает процедуру - процедура вызывает ОткрытьФорму(текДок,Параметры,1).
Форма документа - запускается ПриОткрытии - запускается ВПФ по переданному параметру/ пока что никаких обработок кроме самой ВПФ.

а можно еще через попытку-исключение.
если выполнится попытка - значит это в контексте приоткрытии.
если перескочит в исключение - значит это в контексте формы (по кнопке на морде). можно дополнительно убедиться в этом проанализировав описаниеошибки.
вот и проанализировали штатно, Серег, а?..

(163) "через попытку-исключение." - что именно?

(164): в каком месте у тебя ошибка лезет "...невозможно из формулы..."

(163) Я это предлагал в (14). Почему-то не устроило.

(166) то что в (14) решено уже.

(157) Если типовая, то так

Если ПустоеЗначение(Конт.Форма.АктивныйЭлемент()) = 1 Тогда
    Сообщить("открыли из приОткрытия()");
Иначе
    Сообщить("открыли по кнопке");
КонецЕсли;

(168) О, спсб! а то я думал ты с 8-кой уже квалификацию потерял...

(169) метод не совсем правильный, если у кнопки не будет идентификатора, то облом.
Но, в типовых, вроде как он везде назначен..

(170) не, не везде.
но это не сильно принципиально.

(168) вкрутил, вроде все ок, спсб.