KDRLZ G 1 ;DRUKKEN LEVERINGSZONES [ 08/05/2002  10:33 AM ]
 ;
1 S K=$P($T(+1),";",2)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S BLZ=0,NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) K TAB
BREAK1 B 1
2 S FP=401 W @F,@F1,"  VANAF POSTKODE :"
5 S R="FPC\21\3\VANAF POSTKODE\C1\11\\""-.""[K!(K?4N)!(K?.U1""-""4N.N)&$L(K)\" D R0 G YZ:K="-"
7 S:K="." FPC=999 S FP=420 W @F,@F1,$S(K=".":"BEGIN",1:FPC) S GEM=""
9 S:$D(@("^"_Q_"PORT(K)")) GEM=$P(^(K),D,2) S:$D(^BA(2,"B",K,0)) GEM=^(0) W "   ",GEM
11 S FP=503 W @F,@F1,"TOT POSTKODE   :"
15 S R="LPC\21\3\TOT POSTKODE\C2\11\\""-.I""[K!(K?4N)!(K?.U1""-""4N.N)&$L(K)\" D R0 G 2:K="-"
19 S:K="." LPC="ZZZZZZZZZZZ" S:K="I" LPC=FPC S FP=520 W @F,@F1,$S(K=".":"EINDE",1:LPC) S GEM=""
20 S:$D(@("^"_Q_"PORT(K)")) GEM=$P(^(K),D,2) S:$D(^BA(2,"B",K,0)) GEM=^(0) W "   ",GEM
21 D INIT^vhPRINTER(80) G 11:'$D(Print)
23 D HD G 27:$D(@("^"_Q_"PORT(FPC)"))
25 S FPC=$N(@("^"_Q_"PORT(FPC)")) I FPC=-1!(FPC]LPC) G 33
27 S X=^(FPC),LZ=$P(X,D,1),GEM=$P(X,D,2) S:$L(GEM) GEM=GEM_U I $D(^BA(2,"B",FPC)) S X=$N(^(FPC,0)),X=-1 F I=1:1 S X=$N(^(X)) Q:X=-1  S GEM=GEM_^(X)_U
29 S:$L(GEM) GEM=$P(GEM,U,1,$L(GEM,U)-1) F I=1:1:$L(GEM,U) D S1
31 G 25
33 W !,$P($T(T2),U,2),# D CLOSE^vhPRINTER
BREAK0 B 0
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?44,"BLZ: ",$J(BLZ,3),!,NM2,?25,$P($T(+1)," ",5),?44,DT
HD1 W !,NM3,?45,TD,!!!,$P($T(T2),U,2),!,$P($T(T1),U,2),!,$P($T(T2),U,2)
HDZ Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;
S1 S LN=LN+1 I LN>50 W !,$P($T(T2),U,2),# D HD G S1
S1A W !,$P($T(T3),U,2),$C(13),?2,FPC,?16,$E($P(GEM,U,I),1,29),?48,$J(LZ,2)
S1Z Q
 ;
C1 W !?2,"LL-xxxxxxxx[] = buitenland   xxxx[] = belgie"
C1A W !?2,".[] = vanaf het begin   -[] = einde programma" Q
C2 W !?2,"LL-xxxxxxxx[] = buitenland   xxxx[] = belgie"
C2A W !?2,".[] = tot het einde   I[] = idem als vorige" Q
 ;
T1 ;: POSTKODE    : GEMEENTE                      : LZ :
T2 ;:-------------:-------------------------------:----:
T3 ;:             :                               :    :
 ;