Текущая версия на 16:19, 11 января 2020

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

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

FIND_MAC_DOC( MAC_RGNUM )

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

@@ Строка 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
- 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]]
-[[Полезные функции]]