KPTGR ;TOTALEN PER PRODUKTGROEP ;KPTGR; [ 11/09/93  1:21 PM ]
 G 1
T1 ;Produkten geselekteerd :
T2 ;"";C;C;1;;\"Hoofdgr";C;L;8;;|\" Groep";C;L;12;;|\"Subgroep ";C;L;18;;|\"Aantal ";C;R;12;;|\"Totaalprijs";C;R;11;;
T3 ;"";C;C;1;;\1;C;L;8;;| \2;C;L;11;;| \3;C;L;17;;|\4;N;R;12;;|\5;N;R;12;;
 ;
1 S K=$P($T(+1),";",2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
2 S (T,PR)="",FP=2403 W @F,$P($T(T1),U,2)
21 S PR=$O(^AKANAL(PR)) G 3:PR="" S X=^(PR),T=T+1
 I '(T#10) S FP=2428 W @F,T
 S R="" I $E($O(^KPR(PR,"I")),1)="I" S R=$P(^($O(^("I"))),D,1,3)
 F I=1:1:3 I $P(R,D,I)="" S $P(R,D,I)=" "
 S HG=$P(R,D,1),GR=$P(R,D,2),SG=$P(R,D,3)
 I '$D(TOT(HG,0,0)) S TOT(HG,0,0)=HG_"\0\0"
 I '$D(TOT(HG,GR,0)) S TOT(HG,GR,0)=HG_D_GR_"\0"
 I '$D(TOT(HG,GR,SG)) S TOT(HG,GR,SG)=HG_D_GR_D_SG
 S $P(TOT(HG,0,0),D,4)=$P(TOT(HG,0,0),D,4)+$P(X,D,1)
 S $P(TOT(HG,0,0),D,5)=$P(TOT(HG,0,0),D,5)+$P(X,D,3)
 S $P(TOT(HG,GR,0),D,4)=$P(TOT(HG,GR,0),D,4)+$P(X,D,1)
 S $P(TOT(HG,GR,0),D,5)=$P(TOT(HG,GR,0),D,5)+$P(X,D,3)
 S $P(TOT(HG,GR,SG),D,4)=$P(TOT(HG,GR,SG),D,4)+$P(X,D,1)
 S $P(TOT(HG,GR,SG),D,5)=$P(TOT(HG,GR,SG),D,5)+$P(X,D,3)
 G 21
 ;
3 S DL(1)="LD",LD(1)="TOT",LD(2)=$P($T(T3),U,2,99),LD(3)=5,LD(8)=$P($T(T2),U,2,99),LD(10)="CHK^"_$ZN
 D ^OUTPUT("-S","-","S")
 ;
YZ Q
 ;
CHK(BST) 
 I $L(BST)=1 Q ""
 I $P(@BST,D,3)'="SK"
 Q ""
 ;
 Q
Z X ^cZ Q
ZZ ; 28.04.88 - 10 u 05