В начало

Процедура УдалДок

 

Процедура УдалДок (Докум)

   Док = СоздатьОбъект ("Документ.НаклПрих");

   // Позиционируем созданный объект на заданном документе

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

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

      // Если документ найден, то удалим его

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

   Иначе

      Предупреждение  ("Неверно задан документ!");

   КонецЕсли;

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