KKRLA G 1 ;MODULE RAADPLEGEN LEVERINGSADRESSEN ;KKRLA; [ 08/05/2002  11:18 AM ]
 ;
T1 ;NUMMER VAN HET LEVERINGSADRES 
T2 ; [] = vervolg 
T3 ;\KLANT NR. 
T4 ;\\\WERD VERWIJDERD\\\\\
 ;
S2 S U2=A(U1),X=$P(U2,U,16) S:'$D(B(X\100)) B(X\100)="\\\\\\\\\\\\\\\\\\\\\\\\\" S (K,U3)=$P(B(X\100),D,X#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2A S FP=$P(U2,U,5)*100+$P(U2,U,6) G S2Z:'SW5 I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
S2B S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U,1),@F9
S2C S FP=$P(U2,U,5)*100+$P(U2,U,6)
S2Z W:'SW5 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) W @F,U3 Q
 ;
1 G YZ:'$P(B(1),D,19) S K=100
11 S K=$N(A(K)) G YZ:K=-1 G 11:$P(A(K),U,16)'=119
12 S VVE=0,FP=2001+F60 W @F,@F1
13 S FP=2402+F60 W @F,@F1 S FP=2433+F60 W @F,@F5 S FP=2402+F60 W @F,@F4,$P($T(T1),U,2),@F5 W:VVE $P($T(T2),U,2) W ": ",@F0 R K
15 G 13:K?.E1C.E,4:K="-"!(K?1"#"2N),13:K'?.N!($L(K)&'K!(K>999)),3:$L(K) S FP=1901 I 'VVE S I2="L"
17 S I2=$N(@("^"_Q_"KL(I1,I2)")) I $E(I2,1)'="L" S VVE=0 G 13
19 S U2=^(I2),K=$P(U2,D,19) G 21:K="." I $D(@("^"_Q_"K1(K)")) S U2=@("^"_Q_"KL(^(K),0)")
2 E  S U2=$P($T(T3),";",2)_$P(U2,D,19)_$P($T(T4),";",2)
21 S FP=FP+100 W @F,@F1,$C(13),?3,$P(I2,"L",2),?7,$E($P(U2,D,2),1,26)
23 W ?34,$E($P(U2,D,5),1,26),?61,$E($P(U2,D,7),1,18) G 17:FP<(2200+F60)
25 S VVE=$E($N(@("^"_Q_"KL(I1,I2)")),1)="L" G 13
3 S I2="L"_$J(K,3) G 13:'$D(@("^"_Q_"KL(I1,I2)")) K B,KCL S B(1)=^(I2),K=$P(B(1),D,19) G 31:K="." I $D(@("^"_Q_"K1(K)")) S KCL=^(K),B(0)=@("^"_Q_"KL(KCL,0)")
30 E  S KCL=0,B(0)=$P(B(1),D,1)_$P($T(T3),U,2)_K_$P($P($T(T4),U,2),D,3,5)_$P(B(1),D,4,99)
31 G 35:SW2="L" K A S X=@("^"_Q_"KL(0,0)"),X=10,K=100,SW5=1,FP=601 W @F,@F1
32 S X=$N(^(X)) I X>0&(X<99) S K=K+1,A(K)=^(X) G 32
33 S SW2="L"
35 S U1=100
37 S U1=$N(A(U1)) I U1>0 D S2 G 37
39 S SW5=0 G 12
4 K I2,VVE,KCL G YZ:SW2'="L" K A,B S X=@("^"_Q_"KL(0,0)"),X=100,X=$N(^(X)),A(101)=^(X),X=$N(^(X)),A(102)=^(X)
41 S B(1)=@("^"_Q_"KL(I1,0)") F I=1:1:9 I $D(^(I)) S B(I+1)=^(I)
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 19.01.88 - 13 u 47