cTI14	;Registratie intrastat (selectie modules) ;%TI10 [ 09/19/96  11:39 AM ]
	G 1
	;
T0	;Registratie intrastat (selectie modules) ;
T1	;"[] = vervolg";
	;
T0F	;Enregistrement intrastat (sélection modules) ;
T1F	;"[] = suite";
	;
K3	S UX=$P(USM,U,3) I $D(PBIB),$L($P(PBIB,D,2)) S UX=UX_" "_$P(PBIB,D,2)
K3A	I $D(PMAG),$L($P(PMAG,D,2)) S UX=UX_" ("_$P(PMAG,D,2)_")"
K3Z	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
S0	S SW12=1
S0Z	Q
	;
1	S @%Q1=1,UZ=@("^"_Q_UGL_"(KC,US,UR,0)")-100,U5=^(1),SW12=0,FP=$P(UD,D,2)+1*100+1 K B W @F,@F1
10	K RK D K3 S R="UM\"_+USM_"\3\"_UX_D S:$G(SWVD) R=R_$P($T(T1),U,2)
11	S R=R_D_$P(USM,U,2)_"\\"_$S($D(UMC):UMC,1:$P(USM,D,2))_"&$L(K)!($G(SWVD)&'$L(K))"
12	S $P(R,D,11)=1,$P(R,D,13)=0,$P(R,D,14)=1 D R0 W /CUP(+USM,1),/WCMD
13	I $D(U("D")),$G(RK),RK'=28 D  G 10:K'["D"
	. I RK=25 S K=$O(UTA(""))+100 D                                            ; PgUp
	.. F I=$P(UD,D,2):-1:+UD S K=$O(^(K),-1) Q:K<101
	.. S K=$S(K<101:"",1:K-100)_"D"
	. I RK=26 S K=$O(UTA(""),-1)+1,K1=K+99 D                                    ; PgDn
	.. F J=+UD:1:$P(UD,D,2) S K1=$O(^(K1)) Q:'$L(K1)
	.. I '$L(K1) S X=J,K="" F J=$P(UD,D,2):-1:X S K=$O(UTA(K),-1) Q:'$L(K)
	.. S K=K_"D"
	. I RK=31 S K=$O(UTA(""))+100,K=$O(^(K),-1),K=$S(K<101:"",1:K-100)_"D"     ; pijl omhoog
	. I RK=32 S K=$O(UTA(""),-1)+100 I $O(^(K)) S K=$O(UTA(""))+1_"D"          ; pijl omlaag
14	I '$L(K),$G(SWVD) S K=$O(UTA(""),-1)+1,K1=K+99 D
	. F J=+UD:1:$P(UD,D,2) S K1=$O(^(K1)) Q:'$L(K1)
	. I '$L(K1) S X=J,K="" F J=$P(UD,D,2):-1:X S K=$O(UTA(K),-1) Q:'$L(K)
	. S K=K_"D"
15	I K["?" D ^cTI140 G 10:'$L(K)!(K="?")
16	I $D(USEL) S OK=1 X USEL I 'OK G 10
17	G YZ:K="-"!(K=",")!(K="E") S UMM="" I $D(UMK),$L($P(UMK,U,1)),@$P(UMK,U,1) X "S UMM="_$P(UMK,U,2) G 19
18	S UMM=$P(USM,D,$S(K?.N1"D".2N:3,$P($S($D(UMC):UMC,1:USM),"""",2)[K:$F($P($S($D(UMC):UMC,1:USM),"""",2),K)-2,1:4))
19	D @UMM G YZ:K=","!(K="E"),1:SW12 I K="-" S FP=UL*100+1 W @F,@F1 G 1
	;
2	S (T,@%Q1)=0,UVN=@("^"_Q_UGL_"(KC,US,UR,0)") S:$L(SW12) UTA(UVN-100)=UL,UL=UL+1 S FP=$P(UD,D,2)+1*100+1 W @F,@F1
21	F Y=1:1 S T=$N(B(T)) Q:T=-1  D S5
23	S @("^"_Q_UGL_"(KC,US,UR,0)")=UVN I $D(@("^"_Q_UGL_"(0,US,""UNR"")")) X ^("UNR")
29	G 1
	;
YZ	K C,CA Q
	;
S1	S X=-1 K:UTA($N(UTA(X)))=+UD UTA($N(UTA(X))) F I=1:1 S X=$N(UTA(X)) Q:X=-1  S UTA(X)=UTA(X)-1
S1Z	Q
	;
S2	F II=1:1:4 S @("S"_II)=$P(X,U,II)
S2A	S FP=UL*100+$P(UV,U,S2)+1,K=$S('S1:@S1,1:$P(B(T),D,S1#100)) X:$L(S4) S4 G S2D:'$L(K)
S2B	I S3="L" W @F,K,$J("",$P(UV,U,S2+1)-$P(UV,U,S2)-$L(K))
S2C	E  W @F,$J(K,$P(UV,U,S2+1)-$P(UV,U,S2)-1)
S2D	S FP=UL*100+$P(UV,U,S2+1) W @F,@F7,@$P(FG,D,10),@F8
S2Z	K S1,S2,S3,S4 Q
	;
S3	I UL>$P(UD,D,2) D  ;S UL=UL-1,FP=UD*100+1 W @F,@FDL D S1
	. N UZ,Y S K=$O(UTA("")) K UTA(K) S K="" F  S K=$O(UTA(K)) Q:'K  S UTA(K)=UTA(K)-1
	. D ^cFN203 S UL=UL-1,FP=UL*100+1 W @F,@F1
S3A	S FP=UL*100+$P(UV,U,1),UZ=UZ+1 W @F,@F7,@$P(FG,D,10),@F8 F I=1:1 S X=$P(UUM,D,I) Q:'$L(X)  D S2
S3Z	S UTA(UVN-100)=UL,UL=UL+1 Q
	;
S5	S:$N(B(T))'=-1&('ULI!$P(B(T),D,18)) $P(B(T),D,18)=UVN+1 S:T>1&('ULI!$P(B(T),D,19)) $P(B(T),D,19)=UVN-1 S:'$L($P(B(T),D,17)) $P(B(T),D,17)=UM
S5A	S $P(B(T),D,60)=$G(QU) D ^cA105 S $P(B(T),D,61)=DT_"#"_TD
S5B	S @("^"_Q_UGL_"(KC,US,UR,UVN)")=B(T) D S3:T>1&$L(SW12) S UVN=UVN+1
S5Z	Q
	;
ZZ	; 19.09.96 - 13 u 49 * V6.2.05