VIEWDOC — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Примеры) |
||
| (не показано 8 промежуточных версий этого же участника) | |||
| Строка 1: | Строка 1: | ||
| − | + | [[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" можно дополнительно указать год и месяц документа | В описании "Filter" можно дополнительно указать год и месяц документа | ||
| Строка 12: | Строка 10: | ||
OpenParLvl открытие родительских этажей | OpenParLvl открытие родительских этажей | ||
| − | |||
= Примеры = | = Примеры = | ||
| − | + | [[VIEWDOC]]( 'F1310001' ) | |
| − | + | ||
local filt, doc, task_anal | local filt, doc, task_anal | ||
| Строка 23: | Строка 19: | ||
[[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' ) = 'Н' )
