В начало

Процедура Восстановление

 

Процедура Восстановление (Докум)

   Док = СоздатьОбъект ("Документ");

   Если Докум.Выбран () > 0 Тогда

      // Позиционируем документ на переданном значении

      Док.НайтиДокумент (Докум);

      Если Док.Выбран () > 0 Тогда

         Если Док.ПометкаУдаления () = 1 Тогда

            // Восстанавливаем

            Спр.СнятьПометкуУдаления ();

         КонецЕсли;

      КонецЕсли;

   КонецЕсли;

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