В начало

Условное удаление

 

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

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

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

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

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

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

         Если Вопрос ("Удалять??? ", 1) = 1 Тогда

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

               Предупреждение ("Уже помечен на удаление!");

            Иначе

               // Удаляем документ

               Док.Удалить (0);

            КонецЕсли;

         КонецЕсли;

      Иначе

         Предупреждение ("Нечего удалять! ");

      КонецЕсли;

   КонецЕсли;

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