cTI1	;REGISTRATIE INTRASTAT (INGANG) ; Go naar %TI10 [ 12/21/01  1:43 PM ]
	G 1
	;
T0	;Registratie Intrastat (init) ;
T10	;KLANT;klant;KL\K1;
	;
T0F	;Enregistrement Intrastat (init);
T10F	;CLIENT;client;KL\K1;
	;
T0E	;Registratie Intrastat (init) ;
T10E	;KLANT;klant;KL\K1;
	;
1	S UKC=$P(R,U),US=$P(R,U,2),UKIL=$P(R,U,3),UGL=$P(R,U,4),UMD=$P(R,U,5)
12	S (UMDI,UMDV)=$P(R,U,6),UFNR=$P(R,U,7),UFNL=$P(R,U,8),UD=$P(R,U,9)
14	F I=1,2,"B" S @("UG"_I)=UGL_I
	;
	; opgelet UD is reeds ingelezen
5	S X=$D(@("^"_Q_UGL_"(0,US,0)")),UCO=$P($T(@("T10"_QT)),U,2,99),(ULI,PBG)=0
51	F I="UTL","ULI","UVD","UFS","UVE","USEL","UDET","UT","UUM","UV" S @I=$G(^(I))
52	S:$D(^(QT_"UCO")) UCO=$P(^(QT_"UCO"),U,1,3) S UOU=^(QT_"UOU")
53	S UMD=$G(UMD) F I="UMC","UMK","USM" S @I=$G(^(I_UMD))
54	S UMDV=$G(UMDV,UMD),UMDV=UMDV_"V" S:'$D(^("USC"_UMDV)) UMDV=UMD
55	I $P(UDET,D,3)>1 F I="UUM","UV","UT" S X=I_($P(UDET,D,3)-1) I $D(^(X)) S @I=^(X)
56	I $L(UMD) F I="UMC","UMK","USM" I $D(@("^"_QT_"BIB(UGL,I,UMD)")) S @I=^(UMD)
57	I $P(UDET,D,4) S X=$P($P(UDET,D,4),U,$P(UDET,D,3)) S:'X X=+$P(UDET,D,4) F I="UUM","UV","UT" I $D(@("^"_QT_"BIB(UGL,I,X)")) S @I=^(X)
59	S Q1="^"_Q_UGL_"(0,US,""UR"")"
	;
	; hoofding
6	S X=$D(@Q1),(X,K)=100,SW3=3,I=$G(^(X)) I I D
	. I UKC>200200 S I=I+1   ; vanaf 2002
	. I $O(@("^"_QT_"BIB(UGL,X,I,X)"))\100*100'=X S I=$D(@Q1)
61	K A F  S X=$O(^(X)) Q:X<100!(X>199)  S K=K+1,A(K)=^(X),Y=$P(A(K),U,16) S:Y\100>SW3 SW3=Y\100
63	S X=100 F  S X=$O(A(X)) Q:X=""  S U2=A(X) D S1
65	X UT K X,UT
	;
YZ	G ^cTI10
	;
S1	S FP=$P(UD,D,3)+$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U4,2)
S1A	G S1Z:$P(U2,U,23) S FP=$P(UD,D,3)+$P(U2,U,5)*100+$P(U2,U,6)-3 W @F,@F5,":" S FP=$P(UD,D,3)+$P(U2,U,2)*100+$P(U2,U,3)
S1B	S:'$P(U2,U,22) FP=FP+2 W @F,@F6,$P(U2,U,1),@F5
S1Z	Q
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91