Процедура ЗагрузкаИзДБФНажатие(Элемент)
    ФайлВВР = Новый XBase;
    ФайлВВР.ОткрытьФайл("c:\PrihNakl.dbf",,Истина);
	
	ФайлВВР.Первая();
	Номр=ФайлВВР.Nam;    //запоминаем номер документа (начальный)
		 
	Пока НЕ ФайлВВР.ВКонце() Цикл
 
	//проверка есть ли такой Документ

                           Если Не Документы.ПриходнаяНакладная.НайтиПоНомеру(ФайлВВР.Nam,ФайлВВР.Data)=Документы.ПриходнаяНакладная.ПустаяСсылка() Тогда
	           Сообщить("Документ за номером №"+ФайлВВР.Nam+" уже существует!");
					
	            Если Не ФайлВВР.ВКонце() Тогда	    //если есть такой Док то перед Продолжить переводим строку базы и номер запоминаем новый
			ФайлВВР.Следующая();
			Номр=ФайлВВР.Nam;
			Иначе Прервать;
	             КонецЕсли;
						
	              Продолжить;
	              КонецЕсли;

					
	НовДок = Документы.ПриходнаяНакладная.СоздатьДокумент(); //создаем док и записываем основные реквизиты
				НовДок.Дата = ФайлВВР.Data;
				НовДок.Номер = ФайлВВР.Nam;
				НовДок.Склад = ФайлВВР.Sklad;
                			 	
								
	Пока Номр=ФайлВВР.Nam Цикл        //для табличной части проверяем с каждой новой строки базы не изменился ли номер Док
					
				Если Справочники.Номенклатура.НайтиПоНаименованию(ФайлВВР.Mat,Истина)=Справочники.Номенклатура.ПустаяСсылка() Тогда
				НовЭлемСправНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();
				НовЭлемСправНоменклатура.Наименование=ФайлВВР.Mat;
				НовЭлемСправНоменклатура.ВидНоменклатуры=Перечисления.ВидыНоменклатуры.Материал;
				НовЭлемСправНоменклатура.Записать();
				КонецЕсли;
			
				Стр = НовДок.Материалы.Добавить();
				
				Стр.Материал = ФайлВВР.Mat;
				Стр.Количество = ФайлВВР.Kol;
				Стр.Цена = ФайлВВР.Cena;
				Стр.Сумма = ФайлВВР.Summa;
								
				Если НЕ ФайлВВР.ВКонце() Тогда
					ФайлВВР.Следующая();   //перебираем табличную часть
				Иначе Прервать; 
				КонецЕсли;
				
			КонецЦикла;
			
		НовДок.Записать(РежимЗаписиДокумента.Проведение,РежимПроведенияДокумента.Неоперативный);
		Номр=ФайлВВР.Nam; 
				
	КонецЦикла;	
	
	ФайлВВР.ЗакрытьФайл();

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