FIND MAC DOC — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст) |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 18: | Строка 18: | ||
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 ) ) | ||
endif | endif | ||
Версия 12:31, 11 мая 2017
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
