Help

Новая тема
Привет!Народ помогите!Мне надо выгрузить данные из внешнего dbf файла в справочник. Как это можно сделать?
"Вот смотри:

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

ДБФ=СоздатьОбъект("XBase");

ДБФ.ОткрытьФайл("D:\MSDB\Import\tov.dbf");

Если ДБФ.Открыта()=1 Тогда

   Если ДБФ.Первая()=1 Тогда;

                   Спр.Новый()  

   Спр.Наименование=ДБФ.NAME;

     Спр.КодТ=ДБФ.NOM_N;

   КонецЕсли;

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

Спр.Новый()  

Спр.Наименование=ДБФ.NAME;

  Спр.КодТ=ДБФ.NOM_N;

           КонецЦикла

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

       Иначе

   Сообщить("Не найден файл переноса, задайте его еще раз");

КонецЕсли;



Примерно так. Обработка не любит Русских имен полей в ДБФ.

"
Читают тему
(гостей: 1)

Быстрый переход