KKOV15 G 1 ;KLANTAANDEEL CONCURENTIE ;KKOV15; [ 03/07/2002  1:43 PM ]
 ;
T1 ;OVERZICHT
T2 ;A[] = aantallen   G[] = gemiddelde prijs   R[] = reele prijs
T3 ;Klanten verwerkt :
T4 ;Klant\Regio
T5 ;Geen gegevens voor deze selektie  [] = ok
T6 ;BEPERKING HOOFDGROEP : 
T7 ;geen
 ;
S2 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J)
S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S2B G S2Z
S2C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S2D E  S OK="S OK=X"_J_"Y" X OK
S2Z Q
 ;
 ;    initialisatie + vraag
1 S K=$P($T(+1),U,2),FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S KSEL=0 D KP^KSEL G YZ:K="-"
13 D ^KKOV17 G 11:K="-" S TSH=R
15 S FP=2003 W @F,@F1,$P($T(T6),U,2),$S(TSH="":$P($T(T7),U,2),1:$$DISPLS^KLASS(TSH))
17 S R="OVZ\22\3\"_$P($T(T1),U,2)_"\"""_$P($T(T2),U,2)_"""\1\\""-AGR""[K&$L(K)" D R0^cA100 G 13:K="-"
19 K ^HULP($J) S T=0,FP=2003 W @F,@F1,!!!!?2,$P($T(T3),U,2)
 D PRIO^vhINITML("L")
 ;
 ;    het drukken van de info
2 I KL'=0 S X=$D(@Q0) G 23:X
21 S KL=$N(@Q0) I KL=-1!(KL]KLX) G 5
23 S K=KL S:K?.N K=^(K) S A(0)=@("^"_Q_"KL(K,0)") F I=1:1:SW3-1 S A(I)=^(I)
 ;
3 S I=100
31 S I=$N(B(I)) G 4:I=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 21:'OK,31
 ;
4 S KC=$P(A(0),D,1),T=T+1 I '(T#10) S FP=2422 W @F,@F1,T,"   (",KC," ",$P(A(0),D,2),")"
 I $L(TSH) S HG=$ZP(^KKOV(KC,TSH))
 E  S HG=" "
 F  S HG=$O(^KKOV(KC,HG)) Q:HG=""!(HG]TSH&$L(TSH))  D
 .S GR=0 F  S GR=$O(^KKOV(KC,HG,GR)) Q:GR=""  D
 ..S VEC="" F  S VEC=$O(^KKOV(KC,HG,GR,VEC)) Q:VEC=""  D
 ...S (IVEC,VEN)=VEC I $D(^KVER1(VEC)) S IVEC=^(VEC),VEN=$P(^KVER(IVEC,0),D,2)
 ...S FAC=""  F  S FAC=$O(^KKOV(KC,HG,GR,VEC,FAC)) Q:FAC=""  D
 ....S K=^(FAC),UA=$P(K,D,3),UBE=$P(K,D,6)*UA
 ....S (IFAC,FAN)=FAC I $D(^KFAB1(FAC)) S IFAC=^(FAC),FAN=$P(^KFAB(IFAC,0),D,2)
 ....I '$D(^HULP($J,$S(KL?.N:KL+1000,1:KL),IVEC,IFAC)) S ^(IFAC)="\\\"_KC_D_$P(A(0),D,2)_D_VEC_D_VEN_D_FAC_D_FAN_D_$P(A(0),D,20)_D_GR
 ....S K=^(IFAC),$P(K,D,2)=$P(K,D,2)+UA,$P(K,D,3)=$P(K,D,3)+UBE,^(IFAC)=K
 G 21
 ;
5 K B S KL="" F  S KL=$O(^HULP($J,KL)) Q:KL=""  D
 .S IVEC="" F  S IVEC=$O(^HULP($J,KL,IVEC)) Q:IVEC=""  D
 ..S IFAC="" F  S IFAC=$O(^HULP($J,KL,IVEC,IFAC)) Q:IFAC=""  D
 ...S B(IVEC,IFAC)=""
 ...S K=^HULP($J,KL,IVEC,IFAC),GR=$P(K,D,11),UEP=0 I $D(^KPGR1(GR)) S UEP=$P(^(GR),D,4)
 ...S $P(K,D,1)=$J(UEP,0,2),$P(K,D,3)=$J($P(K,D,3)/$S($P(K,D,2):$P(K,D,2),1:1),0,2)
 ...S ^HULP($J,KL,IVEC,IFAC)=K
 ;
6 S (IVEC,T)="" F  S IVEC=$O(B(IVEC)) Q:IVEC=""  D
 .S IFAC="" F  S IFAC=$O(B(IVEC,IFAC)) Q:IFAC=""  S T=T+1,B(IVEC,IFAC)=T
 ;
7 S (K,IVEC)="",R=D F  S IVEC=$O(B(IVEC)) Q:IVEC=""  D
 .S IFAC="" F  S IFAC=$O(B(IVEC,IFAC)) Q:IFAC=""  D
 ..S R=R_D_$S($D(^KVER(IVEC)):$P(^(IVEC,0),D,2),1:IVEC)
 ..S K=K_D_$S($D(^KFAB(IFAC)):$P(^(IFAC,0),D,2),1:IFAC)
 S K=$P($T(T4),U,2)_K,^HULP($J,1)=R,^(2)=K
 ;
8 S (KL,T)=2 F  S KL=$O(^HULP($J,KL)) Q:KL=""  D
 .S (IVEC,R)="" F  S IVEC=$O(^HULP($J,KL,IVEC)) Q:IVEC=""  D
 ..S IFAC="" F  S IFAC=$O(^HULP($J,KL,IVEC,IFAC)) Q:IFAC=""  D
 ...S K=^(IFAC) K ^(IFAC)
 ...S $P(R,D,1)=$P(K,D,5),$P(R,D,2)=$P(K,D,10),$P(R,D,B(IVEC,IFAC)+2)=$P(K,D,$F("GAR",OVZ)-1)
 .S T=T+1,^HULP($J,T)=R
 ;
9 I $O(^HULP($J,2))="" S FP=2403 W @F,@F1,$P($T(T5),U,2),@F0 K IK D IK^PROC1 G YZ
 S R="",K=^HULP($J,1) F I=3:1 Q:'$L($P(K,D,I))  S $P(R,D,I)=I_";C;L;;;" I $L($P(K,D,I+1)) S R=R_"|"
 G YZ:"" S $P(R,D,1,2)="1;C;L;;;|\2;C;L;;;|"
 S DL(1)="LD",LD(1)="^HULP("_$J,LD(2)=R
 D ^OUTPUT("HT","","")
 ;
YZ K ^HULP($J) Q
 ;
Z X ^cZ Q
ZZ ; 28.04.88 - 15 u 19