VIEWDOC — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Примеры) |
||
| Строка 24: | Строка 24: | ||
Aadd( filt, task_anal ) | Aadd( filt, task_anal ) | ||
ViewDoc( doc,, filt, ~ReadOnly := true ) | ViewDoc( doc,, filt, ~ReadOnly := true ) | ||
| + | |||
| + | Local my:=Month_Year(.t.,.t.), nn:='1' | ||
| + | if Empty(my); Return; endif | ||
| + | if IsKondNAK(,.t.) .or. IsEastNAK(,.t.); nn:='3'; endif | ||
| + | ViewDoc('PAC1000'+nn,,{'KREFL1',"'R10'",'KANAL1','GetPrm('TASKANAL',TaskName,TaskNum)',; | ||
| + | 'CurYear',left(my,4),'CurMonth',substr(my,5,2),'CurDay',substr(my,7,2),'DSHIFT',"'"+my+"'"}) | ||
Версия 11:44, 31 марта 2016
ViewDoc - это функция, описанная в файле QrAddFn.pas
ViewDoc( <kind/Folder> [,lvl] [,Filter] [,DocType] [,ResultExpr] [,DisUserKey] [,ReadOnly] [,AddFilter] [,SaveSel] [,ExpSel] [,ShowType] [,PrintAlias] [,OpenParLvl=False] [,RefPath] [,OpPath] [,DisCalc_ost] [,ChoiceFold] [,IsRefr] [,ClientFilt] )
Высветка документа с возможностью выбора
В описании "Filter" можно дополнительно указать год и месяц документа
Например: { "CurYear", "2004", "CurMonth", "01" }
В этом случае запроса периода не будет
OpenParLvl открытие родительских этажей
Примеры
ViewDoc( 'F1310001' )
local filt, doc, task_anal
filt := {}
task_anal := GetPrm( 'TASKANAL', TaskName, TaskNum )
doc := 'FRO20002'
Aadd( filt, "DANAL2" )
Aadd( filt, task_anal )
ViewDoc( doc,, filt, ~ReadOnly := true )
Local my:=Month_Year(.t.,.t.), nn:='1'
if Empty(my); Return; endif
if IsKondNAK(,.t.) .or. IsEastNAK(,.t.); nn:='3'; endif
ViewDoc('PAC1000'+nn,,{'KREFL1',"'R10'",'KANAL1','GetPrm('TASKANAL',TaskName,TaskNum)',;
'CurYear',left(my,4),'CurMonth',substr(my,5,2),'CurDay',substr(my,7,2),'DSHIFT',"'"+my+"'"})
