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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Полный текст функции)
м
 
(не показано 9 промежуточных версий этого же участника)
Строка 1: Строка 1:
CONNECT_TO_PLANT - это функция из справочника [[R266]]
+
[[CONNECT_TO_PLANT]] - это функция из справочника [[R266]]
 
+
Создать подключение ( connection ) к удаленному заводу
Создать подключение ( connection ) к удаленному заводу
+
[[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
+
[[Функции Delphi]]
+
local path
+
+
path := [[SeekRef]]( 'R466', r466_kod, 'PATH_TO', 1 )
+
+
if r466_kod = 10
+
  path := [[Nice_Path]]( path ) + 'Opdata\DICT.ADD'
+
else
+
  path := Nice_Path( path ) + 'Fabius\Opdata\DICT.ADD'
+
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