cTN1311	; Financieel : Inschrijven uittreksels: filter; cTN1311;
	;
T1	;
	;
T1F	;
	;
T1E	;
	;
YZ	Q
	;
FILTER(FAR,VBM,TBM)	; Fixed-wherestatement samenstellen voor filter op grid met financiële uittreksels
	; Input: FAR: UI1 financiële rekening
	;        VBM: Van boekingsmaand
	;        TBM: Tot boekingsmaand
	; Output: Fixed-wherestatment
	N R,i
	S $ZT="^dmERROR"
	;
	; Controle parameters
FILTER1	F i="FAR","VBM","TBM","R"  S @i=$G(@i)
	I '$L(FAR),'$L(VBM),'$L(TBM) G FILTERZ
	;	
	; Samenstellen wherestatement
FILTER2	I $L(FAR) S R="%ALPHAUP(T1.B111) = %ALPHAUP('"_FAR_"')"
	I $L(VBM) S R=R_$S($L(R):" AND ",1:"")_"%ALPHAUP(T1.B105) >= %ALPHAUP('"_VBM_"')"
	I $L(TBM) S R=R_$S($L(R):" AND ",1:"")_"%ALPHAUP(T1.B105) <= %ALPHAUP('"_TBM_"')"
	;
FILTERZ	Q R
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09