В начало

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

 

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

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

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

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

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

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

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

      КонецЕсли;

   КонецПока;

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

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