cFA12 ;BEHEER LEVERINGSADRESSEN ;Do van %FA13,%FA14 [ 11/08/2003  3:05 PM ]
 G 1
 ;
T1 ;KLANT
T2 ;DE KLANT
T3 ;\KLANT NR. 
T4 ;\\\WERD VERWIJDERD\\\\\
T5 ;NAAM OF NUMMER VAN 
T6 ;   [] = vervolg
 ;
1 S PNT="........................................",SL="\\\\\\\\\\\\\\\\\\\\\\\\\\",U=";",Q1="^"_Q_"K1(KC)",SW1=0,SW2=1
3 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
5 S X=@("^"_Q_"KL(0,0)"),X=10,K=100,FP=408 W @F,@F5 S FP=402 W @F,@F6,$P($T(T1),";",2),@F5," : "
7 S X=$N(^(X)) G 13:X<0!(X>99) S U2=^(X),K=K+1,A(K)=U2,FP=$P(U2,U,5)*100+$P(U2,U,6) I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
9 S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(K#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U,1),@F9
11 G 7
 ;
13 S R="KI1\2000\"_$P($T(T2),";",2)_"\KL\K1" D R1 G YZ:K="-" S KC=$P(KI1," ",2)
15 L @Q1:2 E  X ^cTXT(0,"N",60) R K G 13
17 S U2=^(KI1,0),VVE=0,LAC="",FP=412 W @F,@F2,$P(U2,D,1)," ",$P(U2,D,4)," ",$P(U2,D,2)
19 S FP=512 W @F,@F2,$P(U2,D,5) S FP=612 W @F,@F2,$$LAND^vhRtn1($P(U2,D,8)) W:$L($P(U2,D,8)) "   " W $P(U2,D,6),"   ",$P(U2,D,7) D S3:SW1
21 X ^cTXT(0,"N",207) R K
23 G 21:K?.E1C.E,13:K="-",21:K'?.N!($L(K)&'K!(K>999)),33:$L(K) S FP=1901 I 'VVE S KI2="L"
25 S KI2=$N(@("^"_Q_"KL(KI1,KI2)")) I $E(KI2,1)'="L" S VVE=0 G 21
27 S U2=^(KI2),K=$P(U2,D,19) G 29:K="." I $D(@("^"_Q_"K1(K)")) S U2=@("^"_Q_"KL(^(K),0)")
28 E  S U2=$P($T(T3),";",2)_$P(U2,D,19)_$P($T(T4),";",2)
29 S FP=FP+100 W @F,@F1,$C(13),?3,$P(KI2,"L",2),?7,$E($P(U2,D,2),1,26)
30 W ?34,$E($P(U2,D,5),1,26),?61,$E($P(U2,D,7),1,18) G 25:FP<(2200+F60)
31 S VVE=$E($N(@("^"_Q_"KL(KI1,KI2)")),1)="L" G 21
 ;
33 K KCL S (VVE,SW7)=0,KI2="L"_$J(K,3),FP=2001 W @F,@F1 S:K=LAC SW7=1 S LAC=K
35 I '$D(@("^"_Q_"KL(KI1,KI2)")) S B(1)=SL D S3:SW1 D ^cFA13 G 41
37 D ^cFA14 S SW1=1 G 41
 ;
41 S FP=2001 W @F,@F1 G 21
 ;
YZ Q
 ;
S3 S U1=100,SW1=0
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
 ;
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
 ;
Z X ^cZ Q
ZZ ; 25.04.88 - 14 u 20