v8.2 УП: Запись в существующий справочник

     Спр = Справочники.Номенклатура.ВыбратьИерархически();

БД = Новый XBase;

БД.ОткрытьФайл("C:\Nomenk.DBF");

БД.Индексы.Добавить("IDXCODE", "KOD");

ФлИБД = БД.СоздатьИндексныйФайл("C:\index.cdx");

БД.ТекущийИндекс = БД.Индексы.IDXCODE;



Пока БД.Следующая() Цикл 

	 сообщить("текущая "+БД.KOD);

     РезультатПоиска = Справочники.Номенклатура.НайтиПоКоду(БД.KOD); 

Если РезультатПоиска.Пустая() Тогда 

	// Выполнить действия, предусмотренные в случае, когда элемент не найден.  

     сообщить("не нашла "+БД.KOD);

иначе

	 сообщить(РезультатПоиска);

	 РезультатПоиска.НаименованиеПолное=БД.POLN_NAME;

	 	//*************************

	РезультатПоиска.Записать();

	    КонецЕсли;

КонецЦикла;

 БД.ЗакрытьФайл();