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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Примеры)
м (Примеры)
 
(не показано 14 промежуточных версий этого же участника)
Строка 1: Строка 1:
ViewDoc - это функция, описанная в файле [[QrAddFn.pas]]
+
[[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] )
+
[[VIEWDOC]]( <kind/Folder> [,lvl] [,Filter] [,DocType] [,ResultExpr] [,DisUserKey] [,ReadOnly] [,AddFilter] [,SaveSel] [,ExpSel] [,ShowType] [,PrintAlias] [,OpenParLvl=False] [,RefPath] [,OpPath] [,DisCalc_ost] [,ChoiceFold] [,IsRefr] [,ClientFilt] )
 
+
Высветка документа с возможностью выбора
+
  
 
В описании "Filter" можно дополнительно указать год и месяц документа
 
В описании "Filter" можно дополнительно указать год и месяц документа
Строка 12: Строка 10:
  
 
OpenParLvl открытие родительских этажей
 
OpenParLvl открытие родительских этажей
 
 
= Примеры =
 
= Примеры =
 
+
  [[VIEWDOC]]( 'F1310001' )
  ViewDoc( 'F1310001' )
+
  
 
  local filt, doc, task_anal
 
  local filt, doc, task_anal
 
  filt := {}
 
  filt := {}
  task_anal := GetPrm( 'TASKANAL', TaskName, TaskNum )
+
  task_anal := [[GetPrm]]( 'TASKANAL', TaskName, TaskNum )
 
  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 )
  
  Local  my:=Month_Year(.t.,.t.), nn:='1'
+
  Local  my:=[[Month_Year]](.t.,.t.), nn:='1'
  if  Empty(my);  Return;  endif
+
  if  [[Empty]](my);  Return;  endif
 
  if  IsKondNAK(,.t.) .or. IsEastNAK(,.t.);  nn:='3';  endif
 
  if  IsKondNAK(,.t.) .or. IsEastNAK(,.t.);  nn:='3';  endif
  ViewDoc('PAC1000'+nn,,{'KREFL1',"'R10'",'KANAL1','GetPrm('TASKANAL',TaskName,TaskNum)',;
+
  [[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+"'"})
 
         'CurYear',left(my,4),'CurMonth',substr(my,5,2),'CurDay',substr(my,7,2),'DSHIFT',"'"+my+"'"})
 +
 +
local flt, my, task_anal
 +
task_anal := GetPrm( 'TASKANAL', TaskName, TaskNum )
 +
my := [[MONTH_YEAR]]( true, true )
 +
if Empty( my )
 +
  return
 +
endif
 +
flt := {}
 +
Aadd( flt, 'CurYear' )
 +
Aadd( flt, left(my,4) )
 +
Aadd( flt, 'CurMonth' )
 +
Aadd( flt, substr(my,5,2) )
 +
Aadd( flt, 'CurDay' )
 +
Aadd( flt, substr(my,7,2) )
 +
Aadd( flt, "DANAL2"  )
 +
Aadd( flt, task_anal )
 +
Aadd( flt, "DREFL2" )
 +
Aadd( flt, "'R179'" )
 +
Aadd( flt, "KSHIFT" )
 +
Aadd( flt, ['] + my + ['] )
 +
[[VIEWDOC]]( "FRO10001",, flt,,,, !Left( my, 8 ) = DtoS( Date() ) and GetParam( 'ANOTHERDAY' ) = 'Н' )
  
 
= Смотрите также =
 
= Смотрите также =
 +
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

Текущая версия на 11:49, 15 мая 2018

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+"'"})
local flt, my, task_anal
task_anal := GetPrm( 'TASKANAL', TaskName, TaskNum )
my := MONTH_YEAR( true, true )
if Empty( my )
  return
endif
flt := {}
Aadd( flt, 'CurYear' )
Aadd( flt, left(my,4) )
Aadd( flt, 'CurMonth' )
Aadd( flt, substr(my,5,2) )
Aadd( flt, 'CurDay' )
Aadd( flt, substr(my,7,2) )
Aadd( flt, "DANAL2"  )
Aadd( flt, task_anal )
Aadd( flt, "DREFL2" )
Aadd( flt, "'R179'" )
Aadd( flt, "KSHIFT" )
Aadd( flt, ['] + my + ['] )
VIEWDOC( "FRO10001",, flt,,,, !Left( my, 8 ) = DtoS( Date() ) and GetParam( 'ANOTHERDAY' ) = 'Н' )

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

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

Функции Delphi