KABPR G 1 ;KLANTENBEZOEKEN PER REGIO ;KABPR; [ 03/07/2002  1:42 PM ]
 ;
T1 ;VANAF DATUM :
T2 ;TOT DATUM   :
T3 ;EERSTE TE KUMULEREN PERIODE
T4 ;onder de vorm jjjj.mm
T5 ;LAATSTE TE KUMULEREN PERIODE
T6 ;onder de vorm jjjj.mm   I[] = idem als vorige
T7 ; REGIO | BEZOEKEN |  KLANTEN
T9 ;-------|----------|----------
T10 ;1;C;R;3;; |;8\4;N;R;10;;|;8\7;N;R;10;;;8
T11 ;[] = OK
 ;
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
11 S FP=503 W @F,$P($T(T1),U,2),!!?2,$P($T(T2),U,2)
 ;
2 S R="K\23\3\"_$P($T(T3),U,2)_"\"""_$P($T(T4),U,2)_"""\7\\""-""[K&$L(K)!(K?4N1"".""2N&($P(K,""."",2)<13))" D R0 G YZ:K="-"
21 S BP=$E(K,1,4)_$E(K,6,7)_"01",FP=517 W @F,$E(BP,7,8)_"."_$E(BP,5,6)_"."_$E(BP,3,4)
23 S R="EP\23\3\"_$P($T(T5),U,2)_"\"""_$P($T(T6),U,2)_"""\7\\""-I""[K&($L(K)=1)!(K?4N1"".""2N&($P(K,""."",2)<13))" D R0 G 2:K="-"
25 I K="I" S K=$E(BP,1,4)_"."_$E(BP,5,6)
27 S EP=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($$CONVDATE^vhLib.DataTypes(K,"DM","DK")),"M","LD"),"DSN")
 G 23:EP<BP
28 S FP=717 W @F,@F1,$E(EP,7,8)_"."_$E(EP,5,6)_"."_$E(EP,3,4)
29 S R="K\23\3\"_$P($T(T11),U,2)_"\\1\\""-""[K" D R0 G 23:K="-"
 S BP=$$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($E(BP,1,4)_"."_$E(BP,5,6),"DM"),"M","FD")-1
 S EP=$$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($E(EP,1,4)_"."_$E(EP,5,6),"DM"),"M","LD")-1
 K ^HULP($J) B 1 D PRIO^vhINITML("L")
 ;
3 S BP=$N(^VERSLAG("ID",BP)) G 4:BP=-1,4:BP>EP S RAP=0,FP=2303 W @F,@F2,$$EXTDATE^vhLib.DataTypes(BP)
31 S RAP=$N(^VERSLAG("ID",BP,RAP)) G 3:RAP=-1 S K=^VERSLAG("D",RAP,0) G 3:$P(K,D,5)'="KL" S KC=$P(K,D,6),VAL=1
33 G 31:'$D(^KK1(KC)) S REG=+$P(^KKL(^(KC),0),D,20)
35 S:'$D(AB(REG,0)) AB(REG,0)=0 S:'$D(AB(REG,1)) AB(REG,1)=0 S AB(REG,VAL)=AB(REG,VAL)+1
36 S:'$D(AK(REG,0)) AK(REG,0)=0 S:'$D(AK(REG,1)) AK(REG,1)=0
37 G 31:$D(^HULP($J,KC,1)) I 'VAL G 31:$D(^(0)) S AK(REG,0)=AK(REG,0)+1 G 39
38 S:$D(^(0)) AK(REG,0)=AK(REG,0)-1 S AK(REG,1)=AK(REG,1)+1
39 S ^HULP($J,KC,VAL)="" G 31
 ;
4 S FP=1103 W @F,@F1,$P($T(T7),U,2),!?2,$P($T(T9),U,2)
41 S REG=-1,(TB(0),TB(1),TK(0),TK(1))=0,FL(1)=$P($T(T10),U,2,999),FL(2)=1206
43 S REG=$N(AB(REG)) G 5:REG=-1 S TB(0)=TB(0)+AB(REG,0),TB(1)=TB(1)+AB(REG,1)
44 S TK(0)=TK(0)+AK(REG,0),TK(1)=TK(1)+AK(REG,1)
45 S FL(3)=REG S:$D(^KSEKT(REG_" ")) FL(3)=^(REG_" ")
47 S FL(3)=FL(3)_D_AB(REG,1)_D_AB(REG,0)_D_(AB(REG,1)+AB(REG,0))
48 S FL(3)=FL(3)_D_AK(REG,1)_D_AK(REG,0)_D_(AK(REG,1)+AK(REG,0))_D_1
49 S FL(2)=FL(2)+100 D FL^PROC G 43
 ;
5 W !?2,$P($T(T9),U,2) S FL(2)=FL(2)+200,FL(3)="TOT\"_TB(1)_D_TB(0)_D_(TB(1)+TB(0))
51 S FL(3)=FL(3)_D_TK(1)_D_TK(0)_D_(TK(1)+TK(0))_D_1 D FL^PROC
53 S R="K\23\3\"_$P($T(T11),U,2)_"\\1\\K=""""" D R0 K ^HULP($J)
 ;
YZ Q
 ;
R0 S R7=1 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,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@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  ;V5 02.01.86
 ;
Z X ^cZ Q
ZZ ; 25.11.91 - 15 u 32