Help
25.08.2005
08:15
#1
Привет!Народ помогите!Мне надо выгрузить данные из внешнего dbf файла в справочник. Как это можно сделать?
25.08.2005
09:09
#2
"Вот смотри:
Спр=СоздатьОбъект("Справочник.Номенклатура");
ДБФ=СоздатьОбъект("XBase");
ДБФ.ОткрытьФайл("D:\MSDB\Import\tov.dbf");
Если ДБФ.Открыта()=1 Тогда
Если ДБФ.Первая()=1 Тогда;
Спр.Новый()
Спр.Наименование=ДБФ.NAME;
Спр.КодТ=ДБФ.NOM_N;
КонецЕсли;
Пока ДБФ.Следующая()=1 Цикл
Спр.Новый()
Спр.Наименование=ДБФ.NAME;
Спр.КодТ=ДБФ.NOM_N;
КонецЦикла
ДБФ.ЗакрытьФайл();
Иначе
Сообщить("Не найден файл переноса, задайте его еще раз");
КонецЕсли;
Примерно так. Обработка не любит Русских имен полей в ДБФ.
"
Спр=СоздатьОбъект("Справочник.Номенклатура");
ДБФ=СоздатьОбъект("XBase");
ДБФ.ОткрытьФайл("D:\MSDB\Import\tov.dbf");
Если ДБФ.Открыта()=1 Тогда
Если ДБФ.Первая()=1 Тогда;
Спр.Новый()
Спр.Наименование=ДБФ.NAME;
Спр.КодТ=ДБФ.NOM_N;
КонецЕсли;
Пока ДБФ.Следующая()=1 Цикл
Спр.Новый()
Спр.Наименование=ДБФ.NAME;
Спр.КодТ=ДБФ.NOM_N;
КонецЦикла
ДБФ.ЗакрытьФайл();
Иначе
Сообщить("Не найден файл переноса, задайте его еще раз");
КонецЕсли;
Примерно так. Обработка не любит Русских имен полей в ДБФ.
"
Читают тему
(гостей: 1)