cFA13 ;INVULLEN RUBRIEKEN LEVERINGSADRESSEN ;%FA12;Quit naar %FA12 [ 11/08/2003  3:07 PM ]
 G 1
 ;
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
T60 ;*[] = manueel via andere klant
T7 ;DE KLANT
 ;
1 N KCM
 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=""
 I $G(KCM)="*" S K=$P(B(1),D,$P(U2,U,16)#100) G 55
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)," : ",$E(PNT,1,$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)," : ",$E(PNT,1,$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(KI1,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(KI1,KI2)")=B(1),X=^(0) I '$P(X,D,19) S ^(0)=$P(X,D,1,18)_D_1_D_$P(X,D,20,99)
83 S @%Q1=1,SW1=1
 ;
YZ Q
 ;
R1 S R4=$P(R,D,2)+1,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
R1A X ^cTXT(0,"N",15)
R1B R K G R1A:K?.E1C.E!(K?20N.N) S:$L(K) R0=0 S FP=R4 W @F,@F1 G R1Z:K="-" I K="" S R1=R4 G R1H:R0,R1D
R1C G R1D:K'?.N,R1K:'$D(@(R9_"(K)")) S R3=^(K) I $D(@(R8_"(R3)")) G R1M
R1D S R6="" F R7=1:1:99 I $E(K,R7)'?1P S R6=R6_$E(K,R7)
R1E S R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$N(@(R8_"(R2)")) G R1K:R2=-1 S R2=$N(^(R2))
R1F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R7=$D(^(R3)) G R1M
R1G S R2=R5
R1H S R2=$N(@(R8_"(R2)")) G R1K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G R1L:R2=-1 I $E(R2,1,$L(R6))'=R6 S R0=0 G R1A
R1I S FP=R1 W @F,$C(13),$J(+^(R2,0),6),?7,$E($P(^(0),D,2),1,26),?34,$E($P(^(0),D,5),1,26),?61,$E($P(^(0),D,7),1,18)
R1J S R1=R1+100 G R1H:R1<(2300+F60) S R0=1 G R1A
R1K X ^cTXT(0,"N",8) R K
R1L S (R2,R0)=0 G R1A
R1M S (@$P(R,D,1),K)=R3
R1Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA Q  ;V4 23.05.85
 ;
S2 S FP=2203+F60 W @F,@F1,$P($T(T5),";",2),!?2,$P($T(T6),";",2),!?2,$P($T(T60),";",2)
S2A S FP=2220+F60 W @F,@F0 R K S KCM=K I "*"'[K G S2Z:"-.,"[K&$L(K),S2:K'=""
S2B S R="K\2000\"_$P($T(T7),";",2)_"\KL\K1" D R1 G S2B:K=KI1,S2:K="-" S B(0)=^(K,0)
 I KCM'="*" S KCL=K,K=$P(B(0),D,1)
 E  S $P(B(1),D,2,9)=$P(B(0),D,2,9),$P(B(1),D,13,14)=$P(B(0),D,13,14),$P(B(1),D,15)=$P(^KKL(K,1),D,24),K="."
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
 ;
Z X ^cZ Q
ZZ ; 25.04.88 - 14 u 20