ГлавнаяРегистрацияВход Завод горного оборудования Пятница, 17.05.2024, 20:47
  Мой компьютер Приветствую Вас Гость | RSS

 
 
Главная » Статьи » Статьи

Загрузка данных в 1С
          Для примера приведена программа загрузки справочника Продукты данными из файла prod.dbf. Вначале создадим справочник Продукты. Это делается в конфигураторе. В конфигурации щелкнем правой кнопкой по ветке Справочники и выберем пункт Конструктор справочника. В поле Идентификатор наберем Продукты. Кроме предопределенных реквизитов Код и Наименование добавим еще несколько. Они сведены в таблицу.

Идентификатор Тип значения
 Длина Точность
 Отход Число 10
 2
 Белки Число 10 2
 Жиры Число 10 2
 Углеводы Число 10 2
 Калории Число 10 2


Файл prod.dbf имеет поля:


  Имя Тип Длина
Десятич. знаки
 NN Числовой 3 
 Produkt Символьный 20 
 Otxod Числовой 8 2
 BB Числовой 7 2
 GG Числовой 7 2
 UU Числовой 7 2
 Kkal Числовой 8 2


А теперь сама программка. Она оформлена в виде внешнего отчета (обработки). Снова запустим систему 1С в режиме Конфигуратор. Дальше по меню Файл -> Новый и выберем Внешний отчет (обработка). В диалоговом окне видим всего две кнопки Сформировать и Закрыть. При нажатии на кнопку Сформировать и будет запускаться наша программка. Щелкнем по вкладке Модуль. В этом окне записывается текст самой программы:

//*****        Загрузка.ert        **********
//Заполнение справочника Продукты данными из prod.dbf
Процедура Сформировать()
  Прод=СоздатьОбъект("Справочник.Продукты");
  ДБФ=СоздатьОбъект("XBase");
  ИмяВыбрФайла="";
  ИмяПути="";
  Если ФС.ВыбратьФайл(0,ИмяВыбрФайла,ИмяПути,"Выберите файл",,,)=1 Тогда
             ДБФ.ОткрытьФайл(ИмяПути+ИмяВыбрФайла);
  КонецЕсли;
  Состояние("Открытие prod.dbf");
  Если ДБФ.Открыта()=0  Тогда
        Сообщить("Файл prod.dbf не открыт!");
  Иначе
             Пока ДБФ.ВКонце()=0  Цикл
                       Прод.Новый();
                       Прод.Код=ДБФ.NN;
                       Прод.Наименование=ДБФ.PRODUKT;
                       Прод.Отход=ДБФ.OTXOD;
                       Прод.Белки=ДБФ.BB;
                       Прод.Жиры=ДБФ.GG;
                       Прод.Углеводы=ДБФ.UU;
                       Прод.Ккалории=ДБФ.KKAL;
     
                       Прод.Записать();
                       ДБФ.Следующая();
     
              КонецЦикла;
              ДБФ.ЗакрытьФайл();
              Сообщить("Закрытие prod.dbf");
   
  КонецЕсли;
КонецПроцедуры

Программа в цикле присваивает значения из полей prod.dbf соответствующим реквизитам справочника Продукты.
          Сохраним изменения и выйдем из конфигуратора. При запуске программы откроется окно, в котором нужно выбрать файл prod.dbf. В окне сообщений появится строчка Открытие prod.dbf. Через некоторое время - сообщение Закрытие prod.dbf. Откроем справочник Продукты. Он будет заполнен данными из файла prod.dbf
          Если ваши базы данных имеют другой формат, тогда с помощью MS Excel, MS Access или другой программы их можно конвертировать в формат dbf и затем закачать в 1С. Эта программа полезна и просто как пример программирования в системе 1С:Предприятие 7.7.
Файл prod.dbf и текст программы можно скачать в разделе Каталог файлов.

Категория: Статьи | Добавил: admin (15.04.2009)
Просмотров: 2530 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Имя *:
Email *:
Код *:
 
 
Категории каталога
Статьи [55]
Программы на ассемблере [2]
Простые программки на ассемблере IBM PC

Форма входа

Наш опрос
Кто Вы?
Всего ответов: 339

Поиск

Друзья сайта

Статистика
 

Copyright OAO ZGO © 2007 - 2024
Сайт управляется системой uCoz