KKBLA4 G 1 ;MODULE OPENEN - WIJZIGEN LEVERINGSADRESSEN ;KKBLA1;Go van KKBLA3 - Quit naar KKBLA1 [ 03/13/2001  4:45 PM ]
 ;
T1 ;[] = ok
T2 ;[] = OPENING OK   ,[] = HERNEMEN   xx[] = WIJZIGEN RUBRIEK xx : 
T3 ;NAAM OF NUMMER VAN 
T4 ;   [] = vervolg
T5 ;LEVERINGSADRES :
T6 ;.[] = manueel   [] = andere klant als leveringsadres
T7 ;DE KLANT
 ;
1 S U1=100 G 15
 ;
13 S U1=U1-2 I U1<101 G YZ
15 S U1=$N(A(U1)) G 67:U1=-1 S U1S=U1,U2=A(U1),U7=$P(U2,U,16),B(U7)="" S:K'="-" K=""
17 I $L($P(U2,U,4)),@$P(U2,U,4) S U3="" G 33:K'="-",13
19 I K'="-",$L($P(U2,U,7)),@$P(U2,U,14) X "S K="_$P(U2,U,7) G 55
21 I $L($P(U2,U,17)),@$P(U2,U,18) X $P(U2,U,17) S (U3,B(U7))=K G 51
23 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 55
25 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)
27 S FP=2200+F60+$L($P(U2,U,1))+6 W @F,@F0 R K G 25:K?.E1C.E I K="-" G YZ:U1=101,13
29 I K="," D S3 G YZ
31 S X=$P(U2,U,11) S:'$L(X) X=1 S X=X_"&'(K[D)&($L(K)'>$P(U2,U,9))"
33 S:$L($P(U2,U,21)) X="("_X_")&("_$P($T(@$P(U2,U,21))," ",2,99)_")" G 25:$P(X,",",1)="K'="""""&(K="") I @X G 57
35 E  G 25
 ;
51 S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$TR($J("",$P(U2,U,9))," ",".")
53 S FP=2200+F60+($L($P(U2,U,1))+6) W @F,K,!,?2,$P($T(T1),";",2) S FP=2206+F60+$L($P(U2,U,1)) W @F,@F0 R K G 51:K?.E1C.E,57:K=""
55 S (U3,B(U7))=K G 29:K="," I K="-" G YZ:U1=101,13
 ;
57 S:K="I"&(U7'=108) K=$P(@("^"_Q_"KL(I1,0)"),D,$P(U2,U,16)#100) S (B(U7),U3)=K
58 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
59 S X=U7\100,Y=U7#100 S:'$D(B(X)) B(X)=SL S:(Y-1) B(U7)=D_B(U7) S B(X)=$P(B(X),D,1,Y-1)_B(U7)_D_$P(B(X),D,Y+1,99)
61 K B(U7) G 15:U1>0
 ;
67 S FP=2203+F60 W @F,@F1,$P($T(T2),";",2),@F0 R K
69 G 67:K?.E1C.E,29:K=",",71:K?.N&K,81:K="",67:K'="-" S U1=U1S-1 G 15
71 S K=100+K G 67:'$D(A(K)) S U2=A(K),U7=$P(U2,U,16),(B(U7),K)="" G 17
 ;
81 S @%Q1=0,@("^"_Q_"KL(I1,I2)")=B(1)
83 S @%Q1=1
 ;
YZ Q
 ;
R1 D ^cA101 Q
 ;
S2 S FP=2203+F60 W @F,@F1,$P($T(T5),";",2),!?2,$P($T(T6),";",2)
S2A S FP=2220+F60 W @F,@F0 R K G S2Z:"-.,"[K&$L(K),S2:K'=""
S2B S R="K\2000\"_$P($T(T7),";",2)_"\KL\K1" D R1 G S2B:K=I1,S2:K="-" S KCL=K,B(0)=^(KCL,0),K=$P(B(0),D,1)
S2Z Q
 ;
S3 S U1=100
S3A S U1=$N(A(U1)) I U1>0 S U2=A(U1),FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) G S3A
S3Z Q
 ;