//*******************************************
Процедура Сформировать()

ДБФ=СоздатьОбъект("XBase"); 
ДБФ.ОткрытьФайл("C:\Temp\goods.dbf"); 
ДБФ.КодоваяСтраница( 1 ); 
Если ДБФ.Открыта()= 0  Тогда
     Сообщить("Не удалось открыть файл!");
КонецЕсли;   

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

ДБФ.Первая(); 

Пока ДБФ.ВКонце()= 0  Цикл 
 
	КодТовара=ДБФ.ПолучитьЗначениеПоля("КодТовара");
	ИмяТовара=ДБФ.ПолучитьЗначениеПоля("ИмяТовара"); 

  	Твр.Новый(); 
   		
  	Твр.НайтиПоКоду(КодТовара);
	Если Твр.Выбран()= 0  Тогда
	     
		 Твр.Новый(); 
	     Твр.Код=КодТовара;
	     Твр.Наименование=ИмяТовара; 
         Твр.Записать();    
	  
	КонецЕсли;
	ДБФ.Следующая();

КонецЦикла; 

ДБФ.ЗакрытьФайл(); 
    	
Предупреждение("Импорт справочника номенклатуры завершен");
	
КонецПроцедуры