KKAA31 G 1 ;KLANTBEZOEKEN PER REGIO ;KKAA31; Quit naar KKAA30 [ 06/25/2002  10:50 AM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T5 ;-;--;+;Handel
T6 ;Omzet :
T7 ; TOTAAL
T9 ;OVERZICHT 
T10 ;:-----:--------------------------:--:------------:-----:-----:-----------:----------:
T12 ;:  LN : KLANTNUMMER - NAAM       :PK:  REELE OMZ : BEZ : GEL :   BEZOCHT : L GELDIG :
T14 ;BLZ:
T15 ;GLOBAAL
T16 ;:-----:------------:------------:------------:------------:------------:------------:
T17 ;:     :  Nt geldig :  Te weinig :         ok :    Te veel :   Bezoeken : Tot geldig :
T18 ;:-----:-------------:-------------:--------------:-----:-----:-----------:----------:
T19 ;:     :   Te weinig :          ok :      Te veel :     :     : Nt geldig :          :
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 ; drukken info
29 S (TYP,BLZ)=0 G YZ:$N(^(0))=-1 K SOM S LNN=0 D KRIT
31 S TYP=$N(^KKAA("TYP",REG,TYP)) G 5:TYP=-1 S (AKL,IND)=0
32 S IND=$N(^KKAA("TYP",REG,TYP,IND)) I IND=-1 D SUBT G 31
33 S X=^(IND),KC=$P(X,D,1),KN=$P(X,D,2),TKA=$P(X,D,3),TKL=$P(X,D,4),TKO=$P(X,D,5),TKM=$P(X,D,6),KYW=$P(X,D,7),KPK=$P(X,D,8)
 Set KlantVan=$P(^KKL(^KK1(KC),1),D,10)
 Set Aktiv=$P(^KKL(^KK1(KC),1),D,11)
 Set Key2=4
 Set:"ABCD"[TYP&$L(TYP) Key2=$A(TYP)-$A("A")+1
 Set:"123"[TYP&$L(TYP) Key2=TYP
34 S AB=$P(X,D,12),AGB=$P(X,D,13),LGB=$P(X,D,14),KCA=$P(X,D,9),UIT=$P(X,D,10),TPR=$P(X,D,11)
 G 32:KCA S AKL=AKL+1
 S KTY=$S(KYW=0:"Z",KYW=1:"A",KYW=2:"B",KYW=3:"C",1:KYW)
 S:'$D(SOM(KTY)) SOM(KTY)="" S $P(SOM(KTY),D,1)=$P(SOM(KTY),D,1)+AB-AGB,$P(SOM(KTY),D,5)=$P(SOM(KTY),D,5)+AB
 S BEZ="",POT=+POT(KTY)
 Set Key1=3
 If '$L(KlantVan),"BURINTKEULAB"[$E(Aktiv,1,3),$L(Aktiv) Set Key1=1
 If POT>TKO Set Key1=Key1+1
 Set Krit=Krit(Key1,Key2)
 ;Set LGB=Key1_Key2_";"_Krit
 Set AGBTV=$P(Krit,D,1) ; Te veel
 Set AGBTW=$P(Krit,D,3) ; Te weinig
 Set AGBVTW=$P(Krit,D,4) ; Veel te weinig
 I AGB'>AGBTW S BEZ=$P($T(T5),U,2+(AGB'>AGBVTW))_D_1,$P(SOM(KTY),D,2)=$P(SOM(KTY),D,2)+1
 E  I AGB'<AGBTV S BEZ=$P($T(T5),U,4)_"\1",$P(SOM(KTY),D,4)=$P(SOM(KTY),D,4)+1
 E  S $P(SOM(KTY),D,3)=$P(SOM(KTY),D,3)+1
 ;I KYW Set BEZ=$P($T(T5),U,5)_D_1
 S LNN=LNN+1
35 S LN=LN+1 I LN>LNMAX W:LN<99 !,$P($T(T10),U,2),# D HD,HD4 G 35
37 W !,":",$J(LNN,4),?6,":",$J(KC,5)," ",$E(KN,1,17),?31,$P(" \#",D,KCA+1),KYW,?33,":",KPK,UIT
39 W ?36,":" S R=TKO_"\11\37\0" D:+R R3 W ?49,":",$J(AB,4)," :",$J(AGB,4)," :"
 X "F R=1:1:$P(BEZ,D,2) W $C(13),?63,$P(BEZ,D,1)" W ?68,$E($TR(Aktiv," ",""),1,3),?73,": ",LGB,?84,":"
41 G 32
 ;
5 G YZ:'$D(SOM) S K=$P($T(T15),U,2),KTY="" D HD,HD5
51 S KTY=$O(SOM(KTY)) I KTY="" W !,$P($T(T16),U,2),# G YZ
53 W !,":  ",KTY,"  :" S R=$P(SOM(KTY),D,1)_"\11" D:+R R3 W ?19,":" S R=$P(SOM(KTY),D,2)_"\11" D:+R R3 W ?32,":"
55 S R=$P(SOM(KTY),D,3)_"\11" D:+R R3 W ?45,":" S R=$P(SOM(KTY),D,4)_"\11" D:+R R3 W ?58,":"
57 S R=$P(SOM(KTY),D,5)_"\11" D:+R R3 W ?71,":"
58 S R=$P(SOM(KTY),D,5)-$P(SOM(KTY),D,1)_"\11" D:+R R3 W ?84,":"
59 G 51
 ;
YZ Q
 ;
SUBT W !,$P($T(T10),U,2) S LN=LN+4 I LN>LNMAX W # D HD,HD6 G S1
 D HD7
S1 S KTY=TYP
 W !,":",$J(AKL,4)," :" S R=$P($G(SOM(KTY)),D,2)_"\12" D:+R R3 W ?20,":"
 S R=$P($G(SOM(KTY)),D,3)_"\12" D:+R R3 W ?34,":" S R=$P($G(SOM(KTY)),D,4)_"\13" D:+R R3 W ?49,":"
 W $J($P($G(SOM(KTY)),D,5),4) W ?55,":"
 W $J($P($G(SOM(KTY)),D,5)-$P($G(SOM(KTY)),D,1),4) W ?61,":"
 S R=$P($G(SOM(KTY)),D,1)_"\10" D:+R R3 W ?73,":",?84,":"
 W !,$P($T(T18),U,2),# S (LN,AKL)=0,LN=99
 Q
 ;
KRIT D HD W $P($T(T6),U,2) S KTY="" F  S KTY=$O(POT(KTY)) Q:KTY=""  I $L($P(POT(KTY),D,2,99)) D
 .S LN=LN+1
 .I $L($P(POT(KTY),D,2)) W ?8,KTY," ",$P(POT(KTY),D,2)," " S R=$P(POT(KTY),D,3)_"\9" D R3
 .W:$L($P(POT(KTY),D,4)) @$P(POT(KTY),D,4)
 .W !
 S LN=LN+2 W ! D HD4
 Q
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 W !,QN,?77,$P($T(T14),U,2),$J(BLZ,4),!,NM2,?26,@F82,$P($T(+1),U,2),@F83,$C(13),?77,DT
HD1 W !,NM3,?26,$P($T(T3),U,2),$P(HFBP,D,1),$P($T(T4),U,2),$P(HLBP,D,1)
HD2 I $P(HFBP,D,2)!($P(HLBP,D,2)) W " (",$S($P(HFBP,D,2):$P($T(T1),U,2),1:$P(HFBP,D,1)),$P($T(T4),U,2),$S($P(HLBP,D,2):$P($T(T2),U,2),1:$P(HLBP,D,1)),")"
HD3 W ?78,TD,!?26,$P($T(T9),U,2),K,!! G HDZ
HD4 W $P($T(T10),U,2),!,$P($T(T12),U,2),!,$P($T(T10),U,2) G HDZ
HD5 W $P($T(T16),U,2),!,$P($T(T17),U,2),!,$P($T(T16),U,2) G HDZ
HD6 W $P($T(T18),U,2)
HD7 W !,$P($T(T19),U,2),!,$P($T(T18),U,2)
HDZ Q
 ;