cISTK	;Producten: stockwijziging  ; Compiled December 8, 2011 12:06:20
	;
T0	;Stockwijziging;
	;
YZ	Q
	;
	; Executes voor update
VOOR	S $ZT="TRAP^cAN000"
	;
 	; 
VOORZ	Q
	;
	; Executes na update
NA	S $ZT="TRAP^cAN000"
	;
NA1	D UPD^cABVB01("PROG.TECH.PRHIS","",1)
	;
NA2	D S1^cAN002(0,"TEXT.9026",24)
	D S1^cAN002(0,"TEXT.9027",24)
	S BEHEER=1 D S1^cAN002(0,"CODE.VV",24)
 	S BEHEER=1 D S1^cAN002(0,"TEXT.VV",24)
 	;
NA3	D UPDI^cABVBD1
	D UPDI^cABVBK1
	D UPDI^cABVBP1
	D UPDI^cABVBF1
	D UPDI^cABVB01
	D 1^cAN008("EA","CODE.STCOR","CODE.9041")
	;
NAZ	Q
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09