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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
 
Строка 2: Строка 2:
 
  Найти документ списания запчастей по записи из справочника R521
 
  Найти документ списания запчастей по записи из справочника R521
 
[[FIND_MAC_DOC]]( MAC_RGNUM )
 
[[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]]
 
[[Функции Delphi]]

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

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

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

FIND_MAC_DOC( MAC_RGNUM )

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

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

Функции Delphi