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

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

@@ Строка 10: / Строка 10: @@
 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
 = Смотрите также =
 [[Полезные функции]]
+[[CreateConnection]]
 [[Функции Delphi]]
+[[FreeAndNil]]
+[[R466]]