В начало

Процедура УдалитьПустые

 

Процедура УдалитьПустые ()

   Спр = СоздатьОбъект ("Справочникодразделения");

   СпрыбратьЭлементы ();

   НачатьТранзакцию ();

   Пока СпролучитьЭлемент () = 1 Тогда

      Если Спроличество = 0 Тогда

         Спрдалить ();

      КонецЕсли;

   КонецПока;

   ЗафиксироватьТранзакцию ();

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