CONNECT TO PLANT — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показаны 4 промежуточные версии этого же участника)
Строка 1: Строка 1:
 
[[CONNECT_TO_PLANT]] - это функция из справочника [[R266]]
 
[[CONNECT_TO_PLANT]] - это функция из справочника [[R266]]
 
  Создать подключение ( connection ) к удаленному заводу
 
  Создать подключение ( connection ) к удаленному заводу
[[CONNECT_TO_PLANT]]
+
[[CONNECT_TO_PLANT]]( r466_kod,  sql,  tmp_path,  name,  IsRefl:=.f. - запрос к Reflis )
  
 
r466_kod - код завода
 
r466_kod - код завода
Строка 10: Строка 10:
  
 
name - имя лога
 
name - имя лога
 +
= Смотрите также =
 +
[[Полезные функции]]
  
= Полный текст функции =
+
[[CreateConnection]]
  
parameters r466_kod, sql, tmp_path, name, IsRefl:=.f.
+
[[Функции Delphi]]
+
local path
+
+
path := SeekRef( 'R466', r466_kod, 'PATH_TO', 1 )
+
+
if r466_kod = 10
+
  if IsRefl
+
      path := Nice_Path( path ) + 'Reflis\DICT.ADD'
+
  else
+
      path := Nice_Path( path ) + 'Opdata\DICT.ADD'
+
  endif
+
else
+
  if IsRefl
+
      path := Nice_Path( path ) + 'Fabius\Reflis\DICT.ADD'
+
  else
+
      path := Nice_Path( path ) + 'Fabius\Opdata\DICT.ADD'
+
  endif
+
endif
+
+
try
+
  result := [[CreateConnection]]( path, 'adssys', '' )
+
except
+
//  WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' )
+
end
+
  
= Смотрите также =
+
[[FreeAndNil]]
  
[[Функции Delphi]]
+
[[R466]]
 
+
[[Полезные функции]]
+

Текущая версия на 09:05, 23 октября 2019

CONNECT_TO_PLANT - это функция из справочника R266

Создать подключение ( connection ) к удаленному заводу

CONNECT_TO_PLANT( r466_kod, sql, tmp_path, name, IsRefl:=.f. - запрос к Reflis )

r466_kod - код завода

sql - запрос sql

tmp_path - путь к логу

name - имя лога

Смотрите также

Полезные функции

CreateConnection

Функции Delphi

FreeAndNil

R466