FIND MAC DOC — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | FIND_MAC_DOC - это процедура из справочника [[R266]] | + | [[FIND_MAC_DOC]] - это процедура из справочника [[R266]] |
| − | + | Найти документ списания запчастей по записи из справочника R521 | |
| − | + | [[FIND_MAC_DOC]]( MAC_RGNUM ) | |
| − | + | = Текст = | |
| − | Найти документ списания запчастей по записи из справочника R521 | + | |
| − | + | ||
| − | = Текст | + | |
parameters mac_rgnum | parameters mac_rgnum | ||
| Строка 11: | Строка 8: | ||
local mac1, _date, aa, sql | local mac1, _date, aa, sql | ||
| − | if Empty( mac_rgnum ) | + | if [[Empty]]( mac_rgnum ) |
return | return | ||
endif | endif | ||
sql := [ Select SRVCDATE ; | sql := [ Select SRVCDATE ; | ||
| − | From R521 ; | + | From [[R521]] ; |
Where MAC_RGNUM=']+mac_rgnum+['] | Where MAC_RGNUM=']+mac_rgnum+['] | ||
| − | aa := SelectSqlToArr( sql, {'SRVCDATE'}, ReflisPath, false ) | + | aa := [[SelectSqlToArr]]( sql, {'SRVCDATE'}, ReflisPath, false ) |
| − | 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+"'"} ) | ||
| Строка 27: | Строка 24: | ||
= Смотрите также = | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 12:30, 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
