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

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

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

FIND_MAC_DOC( MAC_RGNUM )

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

@@ Строка 2: / Строка 2: @@
   Найти документ списания запчастей по записи из справочника R521
 [[FIND_MAC_DOC]]( MAC_RGNUM )
-= Текст =
- 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]]