cAFVBA04	; Functies ivm parameters in dotNET; cAFVBA04
	;
T1	;Sleutel ;
	;
T1F	;Clé ;
	;
T1E	;Key ;
	;
T1D	;Schlüssel ;
	;
YZ	Q
	;
	;
DEF(DMS)	; Staat formdefinitie op voor deze DMS
	; Input: DMS
	; Output: 0: Er staat geen formdefinitie op
	;         1\Type parameter
	N R
	S $ZT="TRAP^cAN000"
	;
	I '$D(^VBN(0,"FORM","PROG.SYS.PAR-"_DMS)) S R=0 G DEFZ
	D QT^cAFVBO01
	S R=1_"\"_$P($G(^VBN(0,"FORM.TAAL","PROG.SYS.PAR-"_DMS_" "_$S($L(QT):QT,1:"N"),0)),"\",3)
	;
DEFZ	Q R
	;
FWH(QQ)	; Fixed-wherestatement op de parameters
	N R
	S $ZT="TRAP^cAN000"
	;
	I '$L($G(QQ)) S R="" G FWHZ
	S R="(T1.QId=0 OR T1.QId='"_QQ_"')"
	;
FWHZ	Q R
	;
SAVE()	; Opslaan van parameters in dotNET
	S $ZT="^dmERROR"
	;
	; TAB-samenstellen + intialiseren
SAVE1	S UI1=..ParId
	D ..%NormalizeObject()
	D ..ObjToCacheSQL("W")
	N @$$INITVAR^cAFVBA01("TAB,GRIDID,UI1")
	;
	; Opslaan
SAVE2	S BI="" F  S BI=$O(TAB(BI)) Q:'$L(BI)  S $P(^DPAR(Q,"PAR",UI1,BI\100-1),D,BI#100)=TAB(BI)
	;
SAVEY	;	
SAVEZ	Q 1
	;
TOP()	
	N K1,K2,R,i
	S $ZT="^dmERROR"
	D QT^cAFVBO01 S D="\",U=";"
	;
	; Via parameters 
	S K1=..Q,K2=..ParId
	F i="K1","K2" S @i=$TR(@i,";",U)  ; ";" uitfilteren
	S R="\\\"_$P($T(@("T1"_QT)),U,2)_"1;"_K1_"; \\\\"_$P($T(@("T1"_QT)),U,2)_"2;"_K2_"; " 
	;
TOPZ	Q R
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09