cANR0	;Functies programma's interactie Reflection ; [ 03/26/02  5:31 PM ]
	;
YZ	Q
	;
STPROG(PROG,PAR,SOORT)	  ;  Starten van een VB programma
	D START("StartProgramma")
	W $TR(PROG,"/","\"),!
	W $TR($G(PAR),"/","\"),!
	;  SOORT = 0 of "" = VB 6
	;  SOORT = 1 DOT.NET
	W $G(SOORT,"0"),!
	D STOP
STPROGZ	Q
	;
START(MACRO)	; starten macro
	I $ZV["MSM" D X^cA612
	;I $ZV'["MSM" D B^cA612  	; probleem vanaf Caché v5.0.20, hieronder oplossing
	I $ZV'["MSM" D B^cA612,B^cA612
	W !," &&&Macro:",MACRO,"&&&" ; start macro - zie instelling Reflection!
	Q
	;
STOP	; stoppen macro
	I $ZV["MSM" D W^cA612
	;I $ZV'["MSM" H 0 D C^cA612,B^cA612,C^cA612  	; probleem vanaf Caché v5.0.20, hieronder oplossing
	I $ZV'["MSM" H 0 D C^cA612,C^cA612
	Q
	;
ZZ	; 24.02.06 -  9 u 54 * V8.06