KKBLA5 G 1 ;MODULE OPENEN - WIJZIGEN LEVERINGSADRESSEN ;KKBLA1;Quit naar KKBLA1 [ 03/13/2001  4:47 PM ]
 ;
T1 ;\KLANT NR. 
T2 ;\WERD VERWIJDERD\
T3 ;LEVERINGSADRES :
T4 ;V[] = verwijderen   W[] = wijzigen
T5 ;erwijderen
T6 ;,[] = hernemen   V[] = verwijderen DEFINITIEF : 
T7 ;NUMMER ELEMENT : ;-[] = einde
 ;
1 S U1=100,K=$P(B(1),D,19) G 13:K="." I $D(@("^"_Q_"K1(K)")) S KCL=^(K),B(0)=@("^"_Q_"KL(KCL,0)")
10 E  S KCL=0,B(0)=$P(B(1),D,1)_$P($T(T1),";",2)_K_$P($T(T2),";",2)_$P(B(1),D,4,99)
13 S FP=2203+F60 W @F,@F1,$P($T(T3),";",2),!?2,$P($T(T4),";",2)
15 S FP=2220+F60 W @F,@F0 R K G 13:K?.E1C.E,YZ:K="-",21:K="W",13:K'="V" W $P($T(T5),";",2)
 ;
16 S FP=2303+F60 W @F,@F1,$P($T(T6),";",2),@F0 R K G 16:K?.E1C.E,13:K="-",YZ:K=",",16:K'="V"
17 S @%Q1=0 K @("^"_Q_"KL(I1,I2)") S @%Q1=1
19 X ^cTXT(0,"N",208) R K G YZ
 ;
21 S FP=2203+F60 W @F,@F1,$P($T(T7),";",2),!?2,$P($T(T7),";",3) S FP=2220+F60 W @F,"..",@F,@F0 R U1 G 21:U1?.E1C.E,41:U1="-",21:'$D(A(100+U1))
23 S U2=A(100+U1) I $P(U2,U,12),@$P(U2,U,15) X ^cTXT(0,"N",69) R K G 21
25 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 21:K="-"!(K=","),37
27 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$TR($J("",$P(U2,U,9))," ",".") W:$L($P(U2,U,10)) !,?2,$P(U2,U,10)
29 S FP=2200+F60+$L($P(U2,U,1))+6 W @F,@F0 R K G 29:K?.E1C.E,21:K="-"!(K=",")
31 S X=$P(U2,U,11) S:'$L(X) X=1 S X=X_"&'(K[D)&($L(K)'>$P(U2,U,9))" S:$L($P(U2,U,21)) X=X_"&("_$P($T(@$P(U2,U,21))," ",2,99)_")"
33 G 27:$P(X,",",1)="K'="""""&(K="") I @X G 37
35 G 25
 ;
37 I K="I" S K=$P(@("^"_Q_"KL(I1,0)"),D,$P(U2,U,16)#100)
38 S U3=K X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3
39 S X=$P(U2,U,16)\100,Y=$P(U2,U,16)#100,U2="" S:(Y-1) K=D_K S B(X)=$P(B(X),D,1,Y-1)_K_D_$P(B(X),D,Y+1,99) G 21
 ;
41 S @%Q1=0,@("^"_Q_"KL(I1,I2)")=B(1),@%Q1=1
 ;
YZ Q
 ;