cABVB0(SRT)	; Beheer griddefinitie; cABVB0
	;
T0	; Beheer griddefinitie;
	;
	; SRT = "" of 0 of niet gekend : VB6 
	; SRT = 1 : VB.NET
	; 
1	S Q="DAM" D
	. N SRT
	. D ^cA604
	I '$L($G(QU)) D  G YZ:QU=""
	. K QU W /CUP(24,2),"Uw initialen : ",@F1 R QU I "-,^"[QU S QU="" Q
	. D USR^cA5000(QU)
	. D LOGJOB^cQ5
	. I $P($G(^cLOG(boot,"DAM",2)),D) D ^cAN325(QU)
	. I $P($G(^cLOG(boot,"DAM",3)),D) D ^cAN3250(QU)
	; 
2	D B^cA612
	D W^cAN200("GRID"_$P("\N",D,$G(SRT)+1),"","","")
	; 
YZ	D E^cA612 Q
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09