KPGWV3 G 1 ;GEMIDDELDE WEEKVERKOOP ;Go naar KPGWV1 [ 08/05/2002   4:17 PM ]
 ;
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
 ;
1 D HD S (TWHP,TWTS,TWHM,TWAT)=0
3 I $L(H) S HX=H G 7
5 S (H,HX)=$N(@("^"_Q_"PH(H)")) G 45:H=-1!($L(HH)&(H]HH)),9
7 I $L(G) S GX=G G 11
9 S (G,GX)=$N(@("^"_Q_"PH(H,G)")) G 13:'(G=-1!($L(GG)&(G]GG))) G 5
11 I $L(S) S SX=S G 15
13 S (S,SX)=$N(@("^"_Q_"PH(H,G,S)")) G 9:S=-1!($L(SS)&(S]SS)),17
15 I $L(M) S MX=M G 19
17 S SWP=0,(M,MX)=$N(@("^"_Q_"PH(H,G,S,M)")) G 13:M=-1!($L(MM)&(M]MM)),19
19 S P=$N(@("^"_Q_"PH(H,G,S,M,P)")) I P=-1 G 17:'SWP S LN=LN+1 W !,$P($T(T2),U,2) G 17
21 S PR=+^(P),X=@("^"_Q_"PR(PR,1)") G 19:'$P(X,D,20) S PBW=$P(X,D,17),PGWR=$P(X,D,21)
22 S X=^(0),PC=$P(X,D,1),PST=$P(X,D,14),PY=$P(X,D,17),PQ=$P(X,D,22),X=^(2),PRE=$P(X,D,9),PNR=$P(X,D,25)
23 S X=$N(^("J")) S:$E(X,1)="J" X=^(X) S PLQ=$P(X,D,6),PLL=$P(X,D,7),PGV=$P(X,D,16),PCP=$P(X,D,23),PTOV=0
25 S (PGW,PTV)=0 G 34:'$D(@("^"_Q_"STPR(PR,0,0)"))
27 F I=1:1:AMA S Y=$P(BP,D,I) I $D(^(Y)) S X=^(Y),PTV=PTV+$P(X,D,1)-$P(X,D,5),PTOV=PTOV+$P(X,D,1)
29 S PGW=PTV/AMA*3/13
34 S PHV=0 S:$D(^(DJ_"."_DM_" ")) X=^(DJ_"."_DM_" "),PHV=$P(X,D,1)-$P(X,D,5),PTOV=PTOV+$P(X,D,1)
35 S LN=LN+2 I LN>50 W:SWP !,$P($T(T2),U,2) W # D HD G 35
36 W !,$P($T(T3),U,2),$C(13),?2,$J($E(PNR,1,11),11),?16,PC S R=PGW_"\7\43\0" D:+R&(+R'=PGWR) R3 W:PGW="-0"&(PGW'=PGWR) $C(13),?49,"0-" I PGWR="-0"!(PGWR="-@") W $C(13),?58,$E(PGWR,2),"-" G 38
37 S R=+PGWR_"\7\52\0" D:$L(PGWR) R3
38 W:$E(PGWR,$L(PGWR))="*" $C(13),?59,"*" W ?61,$J(PBW,3),?66,$J(PLL,3) S PHBP=PBW+PLL*PGWR,AGVS=AGV S:$E(PQ,1)="#" AGVS=$P(PQ,"#",2) S:PHBP<(AGVS*PGV) PHBP=AGVS*PGV
39 S R=PHBP_"\7\71\0" D:+R R3 S R=PST+$P(PY,"#",2)-$P(PRE,"#",2)_"\7\80\0" D:+R R3
40 S R=PLQ_"\7\89\0" D:+R R3 S R=PGV_"\6\98\0" D:+R R3 W:$E(PQ,1)="#" $C(13),?104,"#" S R=PTV_"\7\106\0" D:+R R3 S R=PHV_"\7\115\0" D:+R R3 S R=PTOV_"\7\124\0" D:+R R3
41 W:PTOV'=(PTV+PHV) $C(13),?131,"*" W !,$P($T(T3),U,2) S SWP=1
42 S TWHP=TWHP+(PHBP*PCP),TWTS=TWTS+(PTV*PCP),TWHM=TWHM+(PHV*PCP),TWAT=TWAT+(PTOV*PCP) G 19
45 S LN=LN+7 D:LN>50 HD W !!?2,"WAARDE IN BF",!!?2,"HERBESTELPUNT   :" S R=TWHP_"\12\18\0" D:+R R3 W !?2,"TOTAAL SELEKTIE :"
46 S R=TWTS_"\12\18\0" D:+R R3 W !?2,"HUIDIGE MAAND   :" S R=TWHM_"\12\18\0" D:+R R3 W !?2,"ALGEMEEN TOTAAL :" S R=TWAT_"\12\18\0" D:+R R3 W # D CLOSE^vhPRINTER
47 G 1^KPGWV1
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,NM1,?125,"BLZ:",$J(BLZ,4),!,NM2,?32,@F82,$P($T(+1),";",2),@F83,$C(13),?78,"(INGEVULD : ",IDT,")",?125,DT
HD1 W !,NM3 W:AGV ?32,"(HB-PNT = MINSTENS ",AGV," x GR-VP)"
HD2 W ?126,TD,!!,$P($T(T2),U,2),!,$P($T(T1),U,2),!,$P($T(T2),U,2)
HDZ Q
 ;
T1 ;: IDENTNUMMER : PRODUKTNAAM               : TEO-WV : PRA-WV : BW : LT : HB-PNT : TEO-ST : MIN-BH : GR-VP : TOT-SE : HUI-MA : ALG-TO :
T2 ;:-------------:---------------------------:--------:--------:----:----:--------:--------:--------:-------:--------:--------:--------:
T3 ;:             :                           :        :        :    :    :        :        :        :       :        :        :        :
 ;