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

Материал из Фабиус wiki
Перейти к: навигация, поиск
(Новая страница: «CONNECT_TO_PLANT - это функция из справочника R266»)
 
м
Строка 1: Строка 1:
 
CONNECT_TO_PLANT - это функция из справочника [[R266]]
 
CONNECT_TO_PLANT - это функция из справочника [[R266]]
 +
 +
Создать подключение ( connection ) к удаленному заводу
 +
 +
r466_kod - код завода
 +
 +
sql - запрос sql
 +
 +
tmp_path - путь к логу
 +
 +
name - имя лога
 +
 +
== Полный текст функции ==
 +
 +
parameters r466_kod, sql, tmp_path, name
 +
 +
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

Версия 08:11, 10 марта 2016

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

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

r466_kod - код завода

sql - запрос sql

tmp_path - путь к логу

name - имя лога

Полный текст функции

parameters r466_kod, sql, tmp_path, name

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
Источник — «https://wiki.sftserv.ru/index.php?title=CONNECT_TO_PLANT&oldid=7533»