Для примера приведена программа загрузки справочника Продукты данными из файла 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 и текст программы можно скачать в разделе Каталог файлов.
|