Мед-Заказ

Информационно-справочная система

Фильтровать

Регион:

Реклама

Наши партнеры


 

Для загрузки внутреннего справочника ИСС Мед-Заказ в 1С Вы можете воспользоваться следующим способом.

  1. Установите серверную версию FireBird на компьютер с базой программы Мед-Заказ. Как это сделать описано тут.
  2. Найдите в папке с программой файл gds32.dll и удлаите его. Если такого файла нет, то искать в других местах не нужно.
  3. На компьютер с программой 1С установите ODBC драйвер. Скачать драйвер можно отсюда http://www.firebirdsql.org/en/odbc-driver/ Загружайте драйвер согласно Вашей версии Windows, т.е. 32-х, либо 64-х разрядную версию.
  4. Согласно Вашему мировоззрению и логике Вашей программы 1С написать загрузку справочников из программы Мед-Заказ. Код для внешней обработки приведен ниже.

 

Подключение к базе ИСС Мед-Заказ.

 

ИмяБД = "C:\MedZakaz\medzakaz.fdb"; //Указывается пусть к базе. В сети указывается в слеюущем формате
                                                                        // <Имя компьютера>:<Путь к базе на локальном компьютере>
                                                                       // Например: Server:C:\MedZakaz\MedZakaz.FDB
ПользовательБД = "SYSDBA";
ПарольПользователяБД = "masterkey";
 
БД=CreateObject("ADODB.Connection");
БД.ConnectionString = 
   "DRIVER=Firebird/InterBase(r) driver;" + 
   "PWD=" + ПарольПользователяБД + ";" + 
"UID=" + ПользовательБД +  ";" + 
"DBNAME=" + ИмяБД;
Попытка
БД.Open();
Исключение
Сообщить(ОписаниеОшибки());
Предупреждение("Не удалось подключиться к IB ...")
КонецПопытки;
 
 
Вывод справочника наименований из базы данных.
Запрос=СоздатьОбъект("ADODB.Recordset");
Запрос.ActiveConnection = БД;
Запрос.Source = "select rn.code, rn.trade_name || ' ' || rn.full_form_name, rn.fabr_name from tbl_reestr_names rn";
Запрос.Open();
 
 
Пока Запрос.Eof()=0 Цикл
             Сообщить("Код - " + Запрос.Fields(0).Value);
Сообщить("Торговое наименование - " + Запрос.Fields(1).Value);
Сообщить("Производитель - " + Запрос.Fields(2).Value);
Запрос.MoveNext();                   
КонецЦикла;  
 
Запрос.Close();
 
 
09.12.2018 22:14
36688
Парацельс 03-01
Яндекс.Метрика