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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Смотрите также)
м
 
Строка 10: Строка 10:
  
 
name - имя лога
 
name - имя лога
= Полный текст функции =
 
parameters r466_kod, sql, tmp_path, name, IsRefl:=.f.
 
 
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
 
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]

Текущая версия на 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