CONNECT TO PLANT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 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 - имя лога | ||
| − | |||
= Полный текст функции = | = Полный текст функции = | ||
| − | |||
parameters r466_kod, sql, tmp_path, name, IsRefl:=.f. | parameters r466_kod, sql, tmp_path, name, IsRefl:=.f. | ||
local path | local path | ||
| − | path := SeekRef( 'R466', r466_kod, 'PATH_TO', 1 ) | + | path := [[SeekRef]]( '[[R466]]', r466_kod, 'PATH_TO', 1 ) |
if r466_kod = 10 | if r466_kod = 10 | ||
if IsRefl | if IsRefl | ||
| − | path := Nice_Path( path ) + 'Reflis\DICT.ADD' | + | path := [[Nice_Path]]( path ) + 'Reflis\DICT.ADD' |
else | else | ||
| − | path := Nice_Path( path ) + 'Opdata\DICT.ADD' | + | path := [[Nice_Path]]( path ) + 'Opdata\DICT.ADD' |
endif | endif | ||
else | else | ||
if IsRefl | if IsRefl | ||
| − | path := Nice_Path( path ) + 'Fabius\Reflis\DICT.ADD' | + | path := [[Nice_Path]]( path ) + 'Fabius\Reflis\DICT.ADD' |
else | else | ||
| − | path := Nice_Path( path ) + 'Fabius\Opdata\DICT.ADD' | + | path := [[Nice_Path]]( path ) + 'Fabius\Opdata\DICT.ADD' |
endif | endif | ||
endif | endif | ||
| Строка 38: | Строка 36: | ||
// WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' ) | // WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' ) | ||
end | end | ||
| − | |||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 16:05, 5 июня 2017
CONNECT_TO_PLANT - это функция из справочника R266
Создать подключение ( connection ) к удаленному заводу
CONNECT_TO_PLANT( r466_kod, sql, tmp_path, name, IsRefl:=.f. - запрос к Reflis )
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
