KPEGPR ;BEREKENEN GEMIDDELDE PRIJS ; [ 04/06/92  9:31 AM ]
 G 1
 ;
T1 ;"";C;C;1;;\"Hoofdgr";C;L;8;;|\" Groep";C;L;12;;|\" Subgroep";C;L;18;;|\"Aantal ";C;R;12;;|\"Pr zd verd ";C;R;12;;|\"Pr mt verd ";C;R;12;; 
T2 ;"";C;C;1;;\1;C;L;8;;| \2;C;L;11;;| ;7\3;C;L;17;;|\4;N;R;12;;|;7\5;N;R;12;2;|;7\6;N;R;12;2;;7
T3 ;Gemiddelde prijs
T4 ;Produkten geselekteerd :
 ;
 ; Opmaken totalen per subgroep
1 S K=$P($T(+1),U,2)_QN_" " S FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 K ^HULP($J) S (PR,T)=0,FP=2403 W @F,$P($T(T4),U,2) F  S PR=$O(^AKANAL(PR)) Q:PR=""  D
 .S K=^(PR),AANT=$P(K,D,1),OMZ=$P(K,D,3)
 .Q:$E($O(^KPR(PR,"I")),1)'="I"  S K=^($O(^("I"))),HG=$P(K,D,1),GR=$P(K,D,2),SG=$P(K,D,3)
 .S HG=HG_" ",GR=GR_" ",SG=SG_" " I '$D(^HULP($J,HG,GR,SG)) S ^(SG)="0\0\0\\0\0\0"
 .S K=^(SG),$P(K,D,1)=$P(K,D,1)+AANT,$P(K,D,2)=$P(K,D,2)+OMZ,^(SG)=K
 .S T=T+1 I '(T#10) S FP=2428 W @F,T
 ;
 ; Verdeling niet-telbare, verdeelbare subgroepen
2 S HGX="" F  S HGX=$O(^HULP($J,HGX)) Q:HGX=""  D
 .S GRX="" F  S GRX=$O(^HULP($J,HGX,GRX)) Q:GRX=""  D
 ..S SGX="" F  S SGX=$O(^HULP($J,HGX,GRX,SGX)) Q:SGX=""  D
 ...S OMZ=$P(^(SGX),D,2) Q:'$D(^KPSG1(SGX))!'OMZ  S K=^(SGX) Q:'$P(K,D,5) 
 ...S (HGY,AANT)="" F  S HGY=$O(^KPSG1(SGX,HGY)) Q:HGY=""  D
 ....S GRY="" F  S GRY=$O(^KPSG1(SGX,HGY,GRY)) Q:GRY=""  D
 .....S SGY="" F  S SGY=$O(^KPSG1(SGX,HGY,GRY,SGY)) Q:SGY=""  I $D(^HULP($J,HGY,GRY,SGY)) S AANT=AANT+$P(^(SGY),D,1)
 ...Q:'AANT
 ...S HGY="" F  S HGY=$O(^KPSG1(SGX,HGY)) Q:HGY=""  D
 ....S GRY="" F  S GRY=$O(^KPSG1(SGX,HGY,GRY)) Q:GRY=""  D
 .....S SGY="" F  S SGY=$O(^KPSG1(SGX,HGY,GRY,SGY)) Q:SGY=""  D
 ......I '$D(^HULP($J,HGY,GRY,SGY)) Q
 ......S K=^(SGY),$P(K,D,3)=$P(K,D,3)+(OMZ*$P(K,D,1)/AANT),^(SGY)=K B
 ;
 ; Opmaken totalen per groep
3 S HG="" F  S HG=$O(^HULP($J,HG)) Q:HG=""  D
 .S GR="" F  S GR=$O(^HULP($J,HG,GR)) Q:GR=""  D
 ..S KGT=1 I $D(^KPGR1(GR)) S KGT=$P(^(GR),D,5)
 ..S (AANT,OMZ,OMZV,NTAANT,NTOMZ,NTOMZV)=0,SG="" F  S SG=$O(^HULP($J,HG,GR,SG)) Q:SG=""  D
 ...S KST=1 I $D(^KPSG1(SG)) S KST=$P(^(SG),D,5) I 'KST S KST=KGT
 ...S K=^HULP($J,HG,GR,SG) F I=2,3 S $P(K,D,I)=$J($P(K,D,I),0,0)
 ...S $P(K,D,4)=KST I KST S $P(K,D,5,7)=$P(K,D,1,3),$P(K,D,1,3)="0\0\0"
 ...S ^(SG)=K
 ...S AANT=$J(AANT+$P(K,D,1),0,0),OMZ=$J(OMZ+$P(K,D,2),0,0),OMZV=$J(OMZV+$P(K,D,3),0,0)
 ...S NTAANT=$J(NTAANT+$P(K,D,5),0,0),NTOMZ=$J(NTOMZ+$P(K,D,6),0,0),NTOMZV=$J(NTOMZV+$P(K,D,7),0,0)
 ..S ^HULP($J,HG,GR)=AANT_D_OMZ_D_OMZV_D_KGT_D_NTAANT_D_NTOMZ_D_NTOMZV
 ;
 ; Opmaken tabel gemiddelde prijs
4 S (T,HG)="" F  S HG=$O(^HULP($J,HG)) Q:HG=""  D
 .S GR="" F  S GR=$O(^HULP($J,HG,GR)) Q:GR=""  D
 ..S R=^(GR) I $P(R,D,4) Q
 ..S SG="" F  S SG=$O(^HULP($J,HG,GR,SG)) Q:SG=""  D
 ...S K=^(SG) I $P(K,D,4) Q
 ...S T=T+1,T(T)=HG_D_GR_D_SG_D_$P(K,D,1)_D_($J($P(K,D,2)/$P(K,D,1),0,2))
 ...S T(T)=T(T)_D_($J($P(K,D,2)+$P(K,D,3)/$P(K,D,1),0,2))
 ..S T=T+1,T(T)=D_GR_D_D_$P(R,D,1)_D_($J($P(R,D,2)/$P(R,D,1),0,2))
 ..S T(T)=T(T)_D_($J($P(R,D,2)+$P(R,D,3)/$P(R,D,1),0,2))_D_1
 ;
5 S DL(1)="LD",LD(1)="T",LD(2)=$P($T(T2),U,2,99),LD(3)=5,LD(8)=$P($T(T1),U,2,99)
 S LD(11)=$P($T(T3),U,2)
 D ^OUTPUT("","-","S")
 ;
YZ K ^HULP($J) Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32