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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст программы)
м
 
(не показаны 3 промежуточные версии этого же участника)
Строка 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]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

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

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

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

FIND_MAC_DOC( MAC_RGNUM )

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

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

Функции Delphi