cTI13	;Registratie intrastat (tonen hoofding if $D) ;%TI10 [ 06/20/96  5:05 PM ]
	G 1
	;
T0	;Registratie intrastat (tonen hoofding if $D) ;
	;
T0F	;Enregistrement intrastat ;
	;
1	K B S (U5,B(1))=@("^"_Q_UGL_"(KC,US,UR,1)") F I=2:1:SW3 I $D(^(I)) S B(I)=^(I)
11	S U1=100,U4=0
	;
2	S U1=$O(A(U1)) G 3:U1="" S U2=A(U1),X=$P(U2,U,16)
21	I X'?.N!(X<101)&$L($P(U2,U,7)) X "S U3="_$P(U2,U,7) G 27:X?.N S @X=U3 G 27
23	I X'?.N S U3=@X G 27
25	S U3=$P(B(X\100),D,X#100)
27	S K=U3 I $L($P(U2,U,8)) S U3="S U3="_$P(U2,U,8) X U3
29	I $P(U2,U,22) S FP=$P(UD,D,3)+$P(U2,U,2)*100+$P(U2,U,3) W @F S U4=U4+1 W:U4<10 " " W U4
290	S FP=$P(UD,D,3)+$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)+$P(U2,U,13)),@F,U3 G 2
	;
3	S K=UR D S1
31	I $D(^("UKL")) X ^("UKL")
33	G YZ:'$D(@("^"_Q_UGL_"(0,US,""UDET"")")) I $P(^("UDET"),D) S K="D" D @($P(^("UDET"),D,2))
	;
YZ	Q
	;
S1	I $D(@Q1),$L($P(^("UR"),D,2)) X $P(^("UR"),D,2)
S1Z	Q
	;
ZZ	; 19.09.96 - 13 u 49 * V6.2.05