KKBLA6 G 1 ;MODULE OPENEN - WIJZIGEN LEVERINGSADRESSEN ;KKBLA6;
 ;
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 4:SW2'=SW4 S SU1=U1,SW2S=SW2 F I=1:1:9 I $D(B(I)) S BB(I)=B(I)
10 S I1="" F X=1:1:99 S Y=$E($P(B(1),D,2),X) Q:Y=""  I Y'?1P S I1=I1_Y
11 S I1=$E(I1,1,24)_" "_NR
12 S VVE=0,FP=2001+F60 W @F,@F1
13 X ^cTXT(0,"N",207) R K
15 G 13:K?.E1C.E,3:K="-",13:K'?.N!($L(K)&'K!(K>999))!'$L(K) S I2="L"_$J(K,3) G 13:$D(@("^"_Q_"KL(I1,I2)"))
2 S FP=2001 W @F,@F1 S LAC=K K B,KCL S $P(B(1),D,26)=D D ^KKBLA3 G 12
3 K B F I=1:1:9 I $D(BB(I)) S B(I)=BB(I)
31 K BB,I2,VVE,KCL I SW2="L" S $P(B(1),D,19)=$E($N(@("^"_Q_"KL(I1,""L"")")),1)="L"
33 S SW2=SW2S,SW5=0,U1=SU1,K="-",I=I1
4 S OK=2
 ;
YZ K LAC,I1,I2,SU1,SW2S Q
 ;
 Q
Z X ^cZ Q
ZZ ; 02.07.87 - 14 u 58