CONNECT TO PLANT - История изменений

Hisava в 06:05, 23 октября 2019

2019-10-23T06:05:29Z

Hisava: /* Смотрите также */

2018-10-03T10:35:09Z

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

Hisava: /* Смотрите также */

2017-06-06T12:26:14Z

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

Hisava: /* Смотрите также */

2017-06-06T12:25:06Z

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

Hisava в 13:05, 5 июня 2017

2017-06-05T13:05:03Z

Hisava в 13:02, 5 июня 2017

2017-06-05T13:02:50Z

Hisava: /* Полный текст функции */

2016-10-25T13:44:56Z

‎Полный текст функции

Hisava: /* Полный текст функции */

2016-10-25T13:44:42Z

‎Полный текст функции

Hisava: /* Полный текст функции */

2016-09-12T09:09:25Z

‎Полный текст функции

Hisava: /* Полный текст функции */

2016-09-12T09:09:12Z

‎Полный текст функции

@@ Строка 10: / Строка 10: @@
 name - имя лога
 = Смотрите также =
 [[Полезные функции]]

← Предыдущая		Версия 10:35, 3 октября 2018
Строка 44:		Строка 44:

	[[FreeAndNil]]		[[FreeAndNil]]
		+
		+	[[R466]]

@@ Строка 38: / Строка 38: @@
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]
 [[FreeAndNil]]

← Предыдущая		Версия 12:25, 6 июня 2017
Строка 40:		Строка 40:

	[[Функции Delphi]]		[[Функции Delphi]]
		+
		+	[[FreeAndNil]]

@@ Строка 1: / Строка 1: @@
 [[CONNECT_TO_PLANT]] - это функция из справочника [[R266]]
   Создать подключение ( connection ) к удаленному заводу
-[[CONNECT_TO_PLANT]]
+[[CONNECT_TO_PLANT]]( r466_kod,  sql,  tmp_path,  name,  IsRefl:=.f. - запрос к Reflis )
 r466_kod - код завода
@@ Строка 10: / Строка 10: @@
 name - имя лога
 = Полный текст функции =
   parameters r466_kod, sql, tmp_path, name, IsRefl:=.f.
   local path
-  path := SeekRef( 'R466', r466_kod, 'PATH_TO', 1 )
+  path := [[SeekRef]]( '[[R466]]', r466_kod, 'PATH_TO', 1 )
   if r466_kod = 10
     if IsRefl
-       path := Nice_Path( path ) + 'Reflis\DICT.ADD'
+       path := [[Nice_Path]]( path ) + 'Reflis\DICT.ADD'
     else
-       path := Nice_Path( path ) + 'Opdata\DICT.ADD'
+       path := [[Nice_Path]]( path ) + 'Opdata\DICT.ADD'
     endif
   else
     if IsRefl
-       path := Nice_Path( path ) + 'Fabius\Reflis\DICT.ADD'
+       path := [[Nice_Path]]( path ) + 'Fabius\Reflis\DICT.ADD'
     else
-       path := Nice_Path( path ) + 'Fabius\Opdata\DICT.ADD'
+       path := [[Nice_Path]]( path ) + 'Fabius\Opdata\DICT.ADD'
     endif
   endif
@@ Строка 38: / Строка 36: @@
   //  WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' )
   end
 = Смотрите также =
 [[Функции Delphi]]

@@ Строка 34: / Строка 34: @@
   try
-    result := CreateConnection( path, 'adssys', '' )
+    result := [[CreateConnection]]( path, 'adssys', '' )
   except
   //  WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' )

@@ Строка 26: / Строка 26: @@
   try
-    result := CreateConnection( path, 'adssys', "" )
+    result := [[CreateConnection]]( path, 'adssys', "" )
   except
     WriteLineToTxtFile( tmp_path, name, RealName( 'R466', r466_kod, true ) + ' - не удалось подключиться' )