cFA16 ;KONTROLELIJST LEVERINGSADRESSEN ;%FA15; [ 11/08/2003  3:08 PM ]
 G 1
 ;
T1 ;\KLANT NR. 
T2 ;\WERD VERWIJDERD\
T3 ;==========
T4 ;BLZ :
 ;
S3 S U3=$P(B(I(J+XX)),D,J(J+XX)) S:$L(P(J+XX)) K=U3 X:$L(P(J+XX)) "S U3="_P(J+XX)
S3Z Q
 ;
1 X F70 W @F80 S KI2="L" D S2 I KI1'=0 S X=$D(@Q0) G 13:X
11 S KI1=$N(@Q0),KI2="L" I (KI1=-1)!(KI1]KIX) G Y
13 G 11:$E($N(^(KI1,KI2)),1)'="L" S B(1)=^(0) D S1
15 W !?2+MAX,$P(B(1),D,1)," ",$P(B(1),D,2),!?2+MAX,$P(B(1),D,5),!?2+MAX,$P(B(1),D,6),"   ",$P(B(1),D,7) S LN=LN+3
17 S KI2=$N(@("^"_Q_"KL(KI1,KI2)")) G 11:$E(KI2,1)'="L" S B(1)=^(KI2) D S1 K KCL S K=$P(B(1),D,19) G 21:K="."
19 I $D(@("^"_Q_"K1(K)")) S KCL=^(K),B(0)=@("^"_Q_"KL(KCL,0)")
20 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)
21 F J=1:1:TS W ! S LN=LN+1,XX=0 D S3 W A(J),?MAX,": ",U3 S XX=TS D S3 W ?65,A(J+XX),?65+MAX,": ",U3
23 G 17
 ;
S1 W ! S LN=LN+1 I 58-TS<LN W # D S2 G S1
S1A F I=1:1:13 W $P($T(T3),";",2)
S1Z Q
 ;
S2 S BLZ=BLZ+1,LN=0 W !,NM1,?122,$P($T(T4),";",2),$J(BLZ,3),!,NM2,?35,@F82,$P($T(+1),S,2),@F83,$C(13),?122,DT
S2Z W !,NM3,?123,TD,! Q
 ;
Y W # X F71
YZ Q
 ;
Z X ^cZ Q
ZZ ; 25.04.88 - 14 u 20