VIEWDOC — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Примеры)
м (Примеры)
Строка 22: Строка 22:
 
  doc := 'FRO20002'
 
  doc := 'FRO20002'
 
  [[Aadd]]( filt, "DANAL2"  )
 
  [[Aadd]]( filt, "DANAL2"  )
  Aadd( filt, task_anal )
+
  [[Aadd]]( filt, task_anal )
 
  ViewDoc( doc,, filt, ~ReadOnly := true )
 
  ViewDoc( doc,, filt, ~ReadOnly := true )
  

Версия 14:01, 5 сентября 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+"'"})

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

Функции Delphi

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