Загрузка из dbf в 1с

"Здравствуйте, уважаемые!<br>Подскажите, пожалуйста, что не так в обработке:<br><br>Процедура ЗаполнениеСправочника()<br> ФайлНоменклатура = Новый XBase;<br> ФайлНоменклатура.Кодировка = КодировкаXBase.OEM;<br> ФайлНоменклатура.ОткрытьФайл("D:\My documents\Мои документы\SPNM.DBF");<br> ФайлНоменклатура.Первая();<br><br> счетчик = 1;<br> Номенклатура = Справочники.Новый();<br> Пока Не ФайлНоменклатура.ВКонце() Цикл<br> НаименованиеТовара = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMNAME"));<br> ПолноеНаименование = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMPRN1"));<br> НаименованиеДляПечати = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMPRN2"));<br> БазоваяЕдиница = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMED"));<br> Страна = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMST"));<br> НомерГТД = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMGTD"));<br> КоличествоЕдиницы = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMUPAK"));<br> ВесЕдиницы = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMVES"));<br> ЗакупочнаяЦена = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMSEB"));<br> РозничнаяЦенаМин = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMMIN"));<br> РозничнаяЦенаМакс = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMMAX"));<br> Валюта = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMUE"));<br> ЦенаДляСотрудника = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMCENA1"));<br> ВидНоменклатуры = "Товар";<br> ЕдиницаХраненияОстатков = БазоваяЕдиница;<br> ЕдиницаДляОтчетов = БазоваяЕдиница;<br> НДС = "18%";<br> Если Валюта = 1 тогда <br> Категории = "Импортный";<br> КонецЕсли;<br> Артикул = счетчик;<br> счетчик = счетчик + 1; <br> КонецЦикла;<br><br> ФайлНоменклатура.ЗакрытьФайл();<br>КонецПроцедуры"

"> Номенклатура = Справочники.Новый();<br>Это что? Справочник то какой? Наверное Справочники.Номенклатура.СоздатьЭлемент(); вам нужно..<br>И чего вы пытаетесь делать дальше? Если заполняете созданный элемент справочника, то пишите Номенклатура.Наименование = , Номенклатура.Арткул = , и т.д. А в конце еще нужно Номенклатура.Записать();<br>А еще Базовая едиинца, ставка НДС и многое другое - это не строковые переменные, и такое присваивание (="Товар") не попрет."

> не попрет.<br><br>+1

"Вот так тоже не работает:<br><br>Процедура ЗаполнениеСправочника()<br> ФайлНоменклатура = Новый XBase;<br> ФайлНоменклатура.Кодировка = КодировкаXBase.OEM;<br> ФайлНоменклатура.ОткрытьФайл("D:\My documents\Мои документы\SPNM.DBF");<br> ФайлНоменклатура.Первая();<br><br> счетчик = 1;<br> Пока Не ФайлНоменклатура.ВКонце() Цикл<br> Номенклатура = Справочники.Номенклатура.СоздатьЭлемент();<br> Номенклатура.НаименованиеТовара = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMNAME"));<br> Номенклатура.ПолноеНаименование = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMPRN1"));<br> Номенклатура.НаименованиеДляПечати = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMPRN2"));<br> Номенклатура.БазоваяЕдиница = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMED"));<br> Номенклатура.Страна = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMST"));<br> Номенклатура.НомерГТД = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMGTD"));<br> Номенклатура.КоличествоЕдиницы = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMUPAK"));<br> Номенклатура.ВесЕдиницы = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMVES"));<br> Номенклатура.ЗакупочнаяЦена = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMSEB"));<br> Номенклатура.РозничнаяЦенаМин = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMMIN"));<br> Номенклатура.РозничнаяЦенаМакс = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMMAX"));<br> Номенклатура.Валюта = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMUE"));<br> Номенклатура.ЦенаДляСотрудника = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMCENA1"));<br> Номенклатура.ВидНоменклатуры = "Товар";<br> Номенклатура.ЕдиницаХраненияОстатков = Номенклатура.БазоваяЕдиница;<br> Номенклатура.ЕдиницаДляОтчетов = Номенклатура.БазоваяЕдиница;<br> Номенклатура.НДС = "18%";<br> Если Номенклатура.Валюта = 1 тогда <br> Номенклатура.Категории = "Импортный";<br> КонецЕсли;<br> Номенклатура.Артикул = счетчик;<br> Номенклатура.Записать();<br> счетчик = счетчик + 1; <br> КонецЦикла;<br><br> ФайлНоменклатура.ЗакрытьФайл();<br>КонецПроцедуры"

"Попробуй так:<br>Процедура ЗаполнениеСправочника()<br><br> Ном=СоздатьОбъект("СправочникНоменклатура");<br> ФайлНоменклатура = СоздатьОбъект("XBase");<br> ФайлНоменклатура.Кодировка = КодировкаXBase.OEM;<br> ФайлНоменклатура.ОткрытьФайл("D:\My documents\Мои документы\SPNM.DBF");<br> ФайлНоменклатура.Первая();<br><br> счетчик = 1;<br> Пока ФайлНоменклатура.ВКонце()=0 Цикл<br> Номенклатура = Ном.Новый();<br> ...<br> ...<br> ...<br> Номенклатура.Записать();<br> счетчик = счетчик + 1;<br> ФайлНоменклатура.Следующая();<br> КонецЦикла;<br><br> ФайлНоменклатура.ЗакрытьФайл();<br>КонецПроцедуры "

<br>А вы программист вобще?

"У меня 8.0, а не 7.7.<br><br>Сейчас текст такой:<br><br>Процедура ЗаполнениеСправочника()<br> ФайлНоменклатура = Новый XBase;<br> ФайлНоменклатура.Кодировка = КодировкаXBase.OEM;<br> ФайлНоменклатура.ОткрытьФайл("D:\My documents\Мои документы\SPNM.DBF");<br> <br> Если ФайлНоменклатура.Открыта() тогда<br> Предупреждение("База Открыта",2);<br> ФайлНоменклатура.Первая();<br><br> счетчик = 1;<br> Пока Не ФайлНоменклатура.ВКонце() Цикл<br> Номенклатура = Справочники.Номенклатура.СоздатьЭлемент();<br> Номенклатура.НаименованиеТовара = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMNAME"));<br> Номенклатура.ПолноеНаименование = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMPRN1"));<br> Номенклатура.НаименованиеДляПечати = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMPRN2"));<br> Номенклатура.БазоваяЕдиница = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMED"));<br> Номенклатура.Страна = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMST"));<br> Номенклатура.НомерГТД = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMGTD"));<br> Номенклатура.КоличествоЕдиницы = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMUPAK"));<br> Номенклатура.ВесЕдиницы = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMVES"));<br> Номенклатура.ЗакупочнаяЦена = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMSEB"));<br> Номенклатура.РозничнаяЦенаМин = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMMIN"));<br> Номенклатура.РозничнаяЦенаМакс = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMMAX"));<br> Номенклатура.Валюта = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMUE"));<br> Номенклатура.ЦенаДляСотрудника = СокрЛП(ФайлНоменклатура.ПолучитьЗначениеПоля("SPNMCENA1"));<br> Номенклатура.ВидНоменклатуры = "Товар";<br> Номенклатура.ЕдиницаХраненияОстатков = Номенклатура.БазоваяЕдиница;<br> Номенклатура.ЕдиницаДляОтчетов = Номенклатура.БазоваяЕдиница;<br> Номенклатура.НДС = "18%";<br> Если Номенклатура.Валюта = 1 тогда <br> Номенклатура.Категории = "Импортный";<br> КонецЕсли;<br> Номенклатура.Артикул = счетчик;<br> Номенклатура.Записать();<br> ФайлНоменклатура.Следующая();<br> счетчик = счетчик + 1; <br> КонецЦикла;<br> Иначе<br> Предупреждение("Не смогли открыть базу!!!",2);<br> КонецЕсли;<br><br> ФайлНоменклатура.ЗакрытьФайл();<br>КонецПроцедуры"

К сожалению с 8-кой дело не имел....

Разобралась. Тема закрыта.

Разобралась. Тема закрыта.