Задача:
Закрыть форму документа если она открыта.
Пытаюсь сделать вот так:

     Для СчОкон=1 По СписокОкон.РазмерСписка() Цикл
           ВыбЗначение = ""; ИмяОкна = "";
           ВыбЗначение = СписокОкон.ПолучитьЗначение(СчОкон, ИмяОкна);
           Если Найти(СокрЛП(ИмяОкна), "Поступление в розницу (купля-продажа)") > 0 Тогда
                 Если ВыбЗначение.ТекущийДокумент() = ПоступлениеТовара.ТекущийДокумент() Тогда
                       РасширениеФормы = СоздатьОбъект("РасширениеФормы");
                       РасширениеФормы.УстановитьФорму(ВыбЗначение.Форма);
                       РасширениеФормы.Закрыть();
                       Сообщить("ФормаЗакрыта!");
                       Прервать;
                 КонецЕсли;
           КонецЕсли;
     КонецЦикла;

Документ находится, метод РасширениеФормы.Закрыть() отрабатывает, форма документа закрывается, но и сразу же прекращается выполнение кода!
т.е. метод Сообщить("ФормаЗакрыта!") уже не выполняется.

Это так и задумано?
Может кто посоветует как в таком случае искать и закрывать окна?

ВыбЗначение.Форма.Закрыть(0);

mszsuz писал(а) 11. Ноября 2011 :: 02:51:


В таком случае форма закрывается только после выполнения моей процедуры.
Т.е. смысл в том чтобы изменить документ, но если форма открыта, то понятно записаться не даст.
Если делать так то всеравно выскочит "запись заблокирована", а после уже закроется форма документа.

"А в каком контексте выполняется этот код?"

Вообще процедура находится в форме справочника Номенклатура. Просто эта номенклатура может быть открыта как из справочника, так и из самого документа. В этой процедуре изменяется документ и должен записаться и провестись.

Маленькая поправочка

Вот так наверное правильней:


     ОбъектСервис = СоздатьОбъект("Сервис");
     СписокОкон = ОбъектСервис.СписокВсехОткрытыхОкон();
     РасширениеФормы = СоздатьОбъект("РасширениеФормы");
     //СписокОкон //:СписокЗначений
     Для СчОкон=1 По СписокОкон.РазмерСписка() Цикл
           ВыбЗначение = ""; ИмяОкна = "";
           ВыбЗначение = СписокОкон.ПолучитьЗначение(СчОкон, ИмяОкна);
           РасширениеФормы.УстановитьФорму(ВыбЗначение.Форма);
           Если РасширениеФормы.ТипОбъекта() = "Документ" Тогда
                 Если ВыбЗначение.ТекущийДокумент() = ПоступлениеТовара.ТекущийДокумент() Тогда
                       ОбъектСервис.ВыполнитьПроцедуру(ВыбЗначение, "ЗакрытьФормуИзВнешнейФормы");
                       Прервать;
                 КонецЕсли;
           КонецЕсли;
     КонецЦикла;