CONNECT TO PLANT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Полный текст функции) |
Hisava (обсуждение | вклад) м (→Полный текст функции) |
||
| Строка 11: | Строка 11: | ||
name - имя лога | name - имя лога | ||
| − | + | = Полный текст функции = | |
parameters r466_kod, sql, tmp_path, name | parameters r466_kod, sql, tmp_path, name | ||
| Строка 30: | Строка 30: | ||
WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' ) | WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' ) | ||
end | end | ||
| + | |||
| + | = Смотрите также = | ||
| + | |||
| + | [[Функции Delphi]] | ||
| + | |||
| + | [[Полезные функции]] | ||
Версия 12:08, 12 сентября 2016
CONNECT_TO_PLANT - это функция из справочника R266
Создать подключение ( connection ) к удаленному заводу
r466_kod - код завода
sql - запрос sql
tmp_path - путь к логу
name - имя лога
Полный текст функции
parameters r466_kod, sql, tmp_path, name local path path := SeekRef( 'R466', r466_kod, 'PATH_TO', 1 ) if r466_kod = 10 path := Nice_Path( path ) + 'Opdata\DICT.ADD' else path := Nice_Path( path ) + 'Fabius\Opdata\DICT.ADD' endif try result := CreateConnection( path, 'adssys', "" ) except WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' ) end
