FIND MAC DOC — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 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
