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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Полный текст функции)
м (Полный текст функции)
Строка 34: Строка 34:
 
   
 
   
 
  try
 
  try
   result := CreateConnection( path, 'adssys', '' )
+
   result := [[CreateConnection]]( path, 'adssys', '' )
 
  except
 
  except
 
  //  WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' )
 
  //  WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' )

Версия 16:44, 25 октября 2016

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

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

r466_kod - код завода

sql - запрос sql

tmp_path - путь к логу

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

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

Функции Delphi

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