cTI207	;HULPPROGRAMMA UUM VERKOOP (29) ;%TI207; Overlay vanuit UUM [ 04/30/96  4:05 PM ]
	;
T0	;HULPPROGRAMMA UUM VERKOOP (29) ;
	;
T0F	;HULPPROGRAMMA UUM VERKOOP (29) ;
	G YZ
	;
	; goederenkode
S1	I $L(K) S K=$$SIG^cAFA1("INTR.GOE",K,103)
S1Z	Q
	;
	; gewicht
S4	S:'K K="" I $L(K) S R=$S(K#1:2,1:0),K=$J(K,17-(3*'R),R)
S4Z	Q
	;
	; aanvullende eenheden
S5	S:'K K="" I $L(K) S R=$S(K#1:2,1:0),K=$J(K,17-(3*'R),R)
S5Z	Q
	;
	; statistische waarde
S6	S:'K K="" I $L(K) S R=$S(K#1:UQA,1:0),K=$J(K,20-(UQA+1*'R),R)
S6Z	Q
	;
YZ	Q
	;
Z	X ^cZ Q
ZZ	; 23.05.96 - 11 u 57 * V6.2.02