KKBLA1 G 1 ;MODULE OPENEN - WIJZIGEN LEVERINGSADRESSEN ;KKBLA1;Go naar KKBLA2 - Do naar KKBLA3, KKBLA5 [ 06/25/2002  10:57 AM ]
 ;
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 S SU1=U1,SW2S=SW2 F I=1:1:9 I $D(B(I)) S BB(I)=B(I)
11 S VVE=0,FP=2001+F60 W @F,@F1
13 X ^cTXT(0,"N",207) R K
15 G 13:K?.E1C.E,^KKBLA2:K="-",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 FP=2001 W @F,@F1 S LAC=K,I2="L"_$J(K,3) K B,KCL I '$D(@("^"_Q_"KL(I1,I2)")) S $P(B(1),D,26)=D D ^KKBLA3 G 11
30 S B(1)=^(I2),K=$P(B(1),D,19) G 32:K="." I $D(@("^"_Q_"K1(K)")) S KCL=^(K),B(0)=@("^"_Q_"KL(KCL,0)")
31 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)
32 G 35:SW2="L" K A S X=@("^"_Q_"KL(0,0)"),X=10,K=100,SW5=1,FP=601 W @F,@F1
33 S X=$N(^(X)) I X>0&(X<99) S K=K+1,A(K)=^(X) G 33
34 S SW2="L"
35 S U1=100
37 S U1=$N(A(U1)) I U1>0 D S2 G 37
39 S SW5=0 D ^KKBLA5 G 11
 ;
YZ K SU1,SW2S Q
 ;