Процедура ПриЗакрытии()
 
 Перем ТекДок;
 Перем Конт;
 
 глОткрытьЖурнал(Контекст, Новый);
 
 //Проверяем подчиненные документы (с датой, совпадаюшщей с датой текущего документа), 
 //Если таковые есть, то предлагаем открыть
 Док = СоздатьОбъект("Документ");
 // открываем выборку документов
   
 Конт = глВзятьКонтекст(Контекст); //если это не сделать, то нельзя будет разименовывать контекст

 ТекДок = Конт.ТекущийДокумент();
 Док.ВыбратьПодчиненныеДокументы(ДатаДок, ДатаДок, ТекДок);
 
 Пока Док.ПолучитьДокумент() = 1 Цикл
  
  Если Док.Проведен() = 1 Тогда
  Продолжить;
  КонецЕсли;
  
  Если Док.ПометкаУдаления() = 1 Тогда
  Продолжить;
  КонецЕсли;
  
  Если Док.Вид() <> "фармПереоценкаТоваров" Тогда
  Продолжить;
  КонецЕсли;
   
  
  ОткрытьФорму(Док.ТекущийДокумент());
  Прервать;
  
 КонецЦикла;
 

КонецПроцедуры // ПриЗакрытии()