PORTA.ru - on-line магазин ПОРТАтивной техники.PORTA.ru - on-line магазин ПОРТАтивной техники.

Новости
Мои разработки
FAQ
Ссылки
Форум

Перенумеровать элементы справочника "В пределах подчинения"

// отключаем в Конфигураторе "Контроль уникальности" и выполняем код:
Процедура Сформировать(Знач Родитель="")
     Перем Код;
     Код=0;
     С=СоздатьОбъект("Справочник.НужныйСправочник");
     С.ИспользоватьРодителя(Родитель);
     С.ВыбратьЭлементы();
     С.ПорядокНаименований();
     Пока С.ПолучитьЭлемент(0)=1 Цикл
          Код=Код+1;
          С.Код=Код; 
          
С.Записать();
          Если С.ЭтоГруппа()=1 Тогда
               Сформировать(С.ТекущийЭлемент());
          КонецЕсли;
     КонецЦикла;     
КонецПроцедуры


- Наверх -

В качестве благодарности за решение проблемы, щелкните здесь.
Поддержите развитие сайта.
Спасибо!
Автор и разработчик: Кайгородов Андрей aka mszsuz. mszsuz@online.sinor.ru ICQ#33993114. Дата последнего обновления страницы: Friday 09.04.2004 16:52
1C:TOP-100 Рейтинг ресурсов 1С
Hosted by uCoz