FIND MAC DOC - История изменений

Hisava в 13:19, 11 января 2020

2020-01-11T13:19:03Z

Hisava: /* Текст */

2017-05-11T09:31:34Z

‎Текст

Hisava: /* Текст */

2017-05-11T09:31:03Z

‎Текст

Hisava в 09:30, 11 мая 2017

2017-05-11T09:30:56Z

Hisava: /* Текст программы */

2016-09-05T10:57:32Z

‎Текст программы

Hisava: /* Текст программы */

2016-09-05T10:55:06Z

‎Текст программы

Hisava: Новая страница: «FIND_MAC_DOC - это процедура из справочника R266 FIND_MAC_DOC(MAC_RGNUM) Найти документ списания запчас…»

2016-09-05T10:54:55Z

Новая страница: «FIND_MAC_DOC - это процедура из справочника R266 FIND_MAC_DOC(MAC_RGNUM) Найти документ списания запчас…»

Новая страница

FIND_MAC_DOC - это процедура из справочника [[R266]]

FIND_MAC_DOC(MAC_RGNUM)

Найти документ списания запчастей по записи из справочника R521

= Текст программы =

parameters mac_rgnum

local mac1, _date, aa, sql

if Empty( mac_rgnum )
return
endif

sql := [ Select SRVCDATE ;
From R521 ;
Where MAC_RGNUM=']+mac_rgnum+[']
aa := SelectSqlToArr( sql, {'SRVCDATE'}, ReflisPath, false )

if !IsEmpty( aa )
mac1 := ViewDoc('MAC10002',,{"CurYear", Str( Year(aa[1,1]) ), ;
"CurMonth", Str( Month(aa[1,1]) ), "RGNUM", "'"+mac_rgnum+"'"} )
Press_HotKey('F7',, GetForm( mac1 ) )
endif

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

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

[[Полезные функции]]

@@ Строка 18: / Строка 18: @@
   if ![[IsEmpty]]( aa )
-    mac1 := [[ViewDoc]]('MAC10002',,{"CurYear", Str( Year(aa[1,1]) ), ;
+    mac1 := [[ViewDoc]]('MAC10002',,{"CurYear", [[Str]]( [[Year]](aa[1,1]) ), ;
-      "CurMonth", Str( Month(aa[1,1]) ), "RGNUM", "'"+mac_rgnum+"'"} )
+      "CurMonth", [[Str]]( [[Month]](aa[1,1]) ), "RGNUM", "'"+mac_rgnum+"'"} )
     [[Press_HotKey]]('F7',, [[GetForm]]( mac1 ) )
   endif

@@ Строка 20: / Строка 20: @@
     mac1 := [[ViewDoc]]('MAC10002',,{"CurYear", Str( Year(aa[1,1]) ), ;
       "CurMonth", Str( Month(aa[1,1]) ), "RGNUM", "'"+mac_rgnum+"'"} )
-    [[Press_HotKey]]('F7',, GetForm( mac1 ) )
+    [[Press_HotKey]]('F7',, [[GetForm]]( mac1 ) )
   endif

@@ Строка 2: / Строка 2: @@
   Найти документ списания запчастей по записи из справочника R521
 [[FIND_MAC_DOC]]( MAC_RGNUM )
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]

@@ Строка 1: / Строка 1: @@
-FIND_MAC_DOC - это процедура из справочника [[R266]]
+[[FIND_MAC_DOC]] - это процедура из справочника [[R266]]
+ Найти документ списания запчастей по записи из справочника R521
-FIND_MAC_DOC(MAC_RGNUM)
+[[FIND_MAC_DOC]]( MAC_RGNUM )
 = Текст =
 Найти документ списания запчастей по записи из справочника R521
-−
-= Текст программы =
   parameters mac_rgnum
@@ Строка 11: / Строка 8: @@
   local mac1, _date, aa, sql
-  if Empty( mac_rgnum )
+  if [[Empty]]( mac_rgnum )
     return
   endif
   sql := [ Select SRVCDATE ;
-    From R521 ;
+    From [[R521]] ;
     Where MAC_RGNUM=']+mac_rgnum+[']
-  aa := SelectSqlToArr( sql, {'SRVCDATE'}, ReflisPath, false )
+  aa := [[SelectSqlToArr]]( sql, {'SRVCDATE'}, ReflisPath, false )
-  if !IsEmpty( aa )
+  if ![[IsEmpty]]( aa )
     mac1 := [[ViewDoc]]('MAC10002',,{"CurYear", Str( Year(aa[1,1]) ), ;
       "CurMonth", Str( Month(aa[1,1]) ), "RGNUM", "'"+mac_rgnum+"'"} )
@@ Строка 27: / Строка 24: @@
 = Смотрите также =
 [[Функции Delphi]]

@@ Строка 23: / Строка 23: @@
     mac1 := ViewDoc('MAC10002',,{"CurYear", Str( Year(aa[1,1]) ), ;
       "CurMonth", Str( Month(aa[1,1]) ), "RGNUM", "'"+mac_rgnum+"'"} )
-    Press_HotKey('F7',, GetForm( mac1 ) )
+    [[Press_HotKey]]('F7',, GetForm( mac1 ) )
   endif