my 1C. Полезная информация.

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


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки