FIND MAC DOC — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м (Текст программы)
Строка 21: Строка 21:
 
   
 
   
 
  if !IsEmpty( aa )
 
  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 ) )
 
   [[Press_HotKey]]('F7',, GetForm( mac1 ) )

Версия 13:57, 5 сентября 2016

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

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