Просмотр исходного текста страницы FIND MAC DOC

[[FIND_MAC_DOC]] - это процедура из справочника [[R266]]
 Найти документ списания запчастей по записи из справочника 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]]