CONNECT TO PLANT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Полный текст функции) |
Hisava (обсуждение | вклад) м (→Полный текст функции) |
||
| Строка 13: | Строка 13: | ||
= Полный текст функции = | = Полный текст функции = | ||
| − | parameters r466_kod, sql, tmp_path, name | + | parameters r466_kod, sql, tmp_path, name, IsRefl:=.f. |
local path | local path | ||
| − | path := | + | path := SeekRef( 'R466', r466_kod, 'PATH_TO', 1 ) |
if r466_kod = 10 | if r466_kod = 10 | ||
| − | path := | + | if IsRefl |
| + | path := Nice_Path( path ) + 'Reflis\DICT.ADD' | ||
| + | else | ||
| + | path := Nice_Path( path ) + 'Opdata\DICT.ADD' | ||
| + | endif | ||
else | else | ||
| − | path := | + | if IsRefl |
| + | path := Nice_Path( path ) + 'Fabius\Reflis\DICT.ADD' | ||
| + | else | ||
| + | path := Nice_Path( path ) + 'Fabius\Opdata\DICT.ADD' | ||
| + | endif | ||
endif | endif | ||
try | try | ||
| − | result := | + | result := CreateConnection( path, 'adssys', '' ) |
except | except | ||
| − | + | // WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' ) | |
end | end | ||
Версия 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
