KKAA30 G 1 ;OVERZICHT KLANT/ARTIKEL ANALYSE ;KKAA30; Go van KKAA28, KKAA29 - Do naar KKAA31 [ 06/25/2002  10:39 AM ]
 ;
T2 ;REGIO 
T8 ;SELEKTIE LIJST
T10 ;xx[] = bepaalde lijst   xx,xx ... xx,xx[] = opeenvolgende lijsten
T11 ; A[] = alle lijsten
T12 ;;?26,"Indien het potentieel > de omzet dan :"
T13 ;;?26,"   Indien # geldige bezoeken <",$J(AGBVTW,2)," : ""Te weinig""",$C(13),?62,"Te weinig",$C(13),?62,"Te weinig"
T14 ;;?26,"   Indien # geldige bezoeken <",$J(AGBTW,2)," : ""Te weinig"""
T15 ;;?26,"Indien het potentieel < de omzet dan :"
T16 ;;?26,"   Indien # geldige bezoeken >",$J(AGBTV,2)," : ""Te veel"""
 ;
 ;K+B,Bur,Int,Lab, EN Geen klant van EN Omzet > Potentieel
K1 ;6\4\3\2;5\3\2\1;3\2\1\0;3\1\0\-1
 ;K+B,Bur,Int,Lab, EN Geen klant van EN Omzet < Potentieel
K2 ;99\5\4\3;99\4\3\2;4\3\2\1;3\2\1\0
 ;W+S,Han EN Klant van EN Omzet > Potentieel
K3 ;4\3\2\1;4\3\1\-1;2\1\0\-1;2\0\-1\-1
 ;W+S,Han EN Klant van EN Omzet < Potentieel
K4 ;2\1\0\-1;2\1\0\-1;1\0\-1\-1;1\0\-1\-1
1 For I=1:1:4 For J=1:1:4 Set Krit(I,J)=$P($T(@("K"_I)),";",J+1)
 Set AGBVTW=2 ; Aantal geldige bezoeken VEEL TE WEINIG
 Set AGBTW=5 ; Aantal geldige bezoeken TE WEINIG
 Set AGBTV=10 ; Aantal geldige bezoeken VEEL TE VEEL
 Set AGBVTW=0 ; Aantal geldige bezoeken VEEL TE WEINIG
 Set AGBTW=1 ; Aantal geldige bezoeken TE WEINIG
 Set AGBTV=1 ; Aantal geldige bezoeken VEEL TE VEEL
 S FP=301 W @F,@F1 S POT("A")="2000000\>\2000000\"_$P($T(T12),U,2),POT("B")="500000\>\500000\"_$P($T(T13),U,2)
 S POT("C")="100000\>\100000\"_$P($T(T14),U,2),POT("D")="1\<\100000\"_$P($T(T15),U,2),POT("Z")="0\\\"_$P($T(T16),U,2)
9 S (R,K,LST)=$TR($$PI^vhPOPUP("C;C","-KMO1","Regio","KLANT","REGIO"),";",",") S:R="" K="-"
11 G YZ:K="-"
 D INIT^vhPRINTER(85) G YZ:'$D(Print)
 S LNMAX=Print("LEN")-10-Print("BOT")-Print("TOP")
17 I '$L($P(LST,",",1)) G 31
18 S K=+$P(LST,",",1),LST=$P(LST,",",2,99),IND=0 I K=24 S K=$P($T(T14),U,2) D ^KKAA10 G 17
 S REG=K,K=$P($T(T2),U,2)_K
30 D ^KKAA31 G 17
31 D INIT^vhPRINTER()
 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 G 1
 ;
YZ Q
 ;