KBHLZ G 1 ;BEHEER LEVERINGSZONES ; [ 08/05/2002  10:33 AM ]
 ;
S0 I LN>19 D S2 S FP=2001 W @F,@F1 S FP=501 W @F,@FDL S LN=19
S0Z Q
 ;
S1 S FP=LN*100+1 W @F,@F2,$C(13),?2,PC,?14,GEM,?45,$J(ZN,2) X VL
S1Z Q
 ;
S2 S LN=$N(TAL(0)) I TAL(LN)'=TAL($N(TAL(LN))) K TAP(TAL(LN))
S2A S LN=$N(TAL(LN)) I LN'=-1 S TAL(LN-1)=TAL(LN) K TAL(LN) G S2A
S2Z Q
 ;
S3 S LN=0
S3A S LN=$N(TAL(LN)) I LN'=-1 G S3A:TAL(LN)'=PC S FP=LN*100+15 W @F W:'SWG GEM S FP=LN*100+46 W @F,$J(ZN,2) G S3A
S3Z Q
 ;
S4 S LN=0
S4A S LN=$N(TAL(LN)) I LN'=-1 G S4A:TAL(LN)'=PC S FP=LN*100+15 W @F,$J("",30),@F,"VERWIJDERD" S FP=LN*100+46 W @F,$J(ZN,2) G S4A
S4Z Q
 ;
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
3 S FP=449 W @F,@F5 S FP=402 W @F,@F4,"POSTCODE   |GEMEENTE                      |ZN ",@F5
5 S VL="F I=2,14,45,48 S FP=LN*100+I W @F,""|"""
6 S LN=4
7 L  S R="PC\21\3\POSTCODE\C1\11\\""-D""[K!(K?4N)!(K?.U1""-""4N.N)&$L(K)\" D R0 G YZ:K="-" I K="D" D 10^KDRLZ G 3:K="-",1
8 S (GEM,ZN,SWG,ZOG)="" S:$D(@("^"_Q_"PORT(PC)")) ZOG=^(PC),ZN=$P(ZOG,D,1),GEM=$P(ZOG,D,2) S:$L(GEM) GEM=GEM_U I $D(TAP(PC)) S SWG=1 G 90
80 I $D(^BA(2,"B",PC)) S SWG=1,X=$N(^(PC,0)),X=-1 F I=1:1 S X=$N(^(X)) Q:X=-1  S GEM=GEM_^(X)_U
9 S GEMX=$P(GEM,U,1,$L(GEM,U)-1) S:$L(GEMX) SWG=1 F R=1:1:$L(GEMX,U) S GEM=$P(GEMX,U,R),LN=LN+1,TAP(PC)="",TAL(LN)=PC D S0,S1
90 S FP=2101+F60 W @F,@F1,$C(13),?2,PC,?45,$J(ZN,2)
10 L @("^"_Q_"PORT(PC)"):2 E  S FP=2403+F60 W @F,@F1,@F4,"POSTCODE ",PC," IS IN GEBRUIK [] = OK ",@F5,@F0 R K G 7
11 I 'SWG S R="K\23\3\GEMEENTE\C3\24\\K=""""&$L(GEM)!$L(K)" D R0 G 7:K="-" I $L(K) S GEM=K,FP=2115+F60 W @F,$J("",24),@F,GEM
12 S R="K\23\3\ZONE\C2\2\\$L(K)&(""-V""[K)!(K>0&(K<9))!(K=""""&$D(@(""^""_Q_""PORT(PC)"")))\" D R0 G 7:K="-" I $L(K) S ZN=K
13 I K="V" G 12:'$D(@("^"_Q_"PORT(PC)")),17
14 G 7:ZN=$P(ZOG,D,1)&(GEM=$P(ZOG,D,2)!(SWG)) S LNS=LN D S3 S LN=LNS
16 S:SWG GEM="" S @("^"_Q_"PORT(PC)")=ZN_D_GEM_D G 7
17 S FP=2303+F60 W @F,@F1,"Verwijderen postcode : ",PC S R="K\24\3\V[] = verwijderen definitief\\1\\""-V""[K&$L(K)\" D R0
19 G 12:K="-" K ^(PC) S LNS=LN D S4 S LN=LNS G 23
23 S FP=2403+F60 W @F,@F2,@F4,"POSTCODE ",PC," IS VERWIJDERD [] = OK ",@F5,@F0 R K G 7
 ;
YZ 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 S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
C1 W !?2,"LL-xxxxxxxx[] = buitenland   xxxx[] = belgie",!?2,"D[] = drukken" Q
C2 W:$D(@("^"_Q_"PORT(PC)")) !?2,"[] = ok   V[] = verwijderen" Q
C3 W:$L(GEM) !?2,"[] = ok" Q
 ;
 Q
Z X ^cZ Q
ZZ ; 27.09.90 -  9 u 56