KPGWV4 G 1 ;WERKDOKUMENT GEM. WEEKVERK. ;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 ; S1 W !,$P($T(T2),U,2) F I=1:1:AMA+4 W "--------:" S1Z Q ; 1 D HD S TWHP=0 3 I $L(H) S HX=H G 7 5 S (H,HX)=$N(@("^"_Q_"PH(H)")) G 51: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 D S1 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),PQ=$P(X,D,22),X=^(2),PNR=$P(X,D,25) 23 S X=$N(^("J")) S:$E(X,1)="J" X=^(X) S PLL=$P(X,D,7),PGV=$P(X,D,16),PCP=$P(X,D,23) F I=1:1:AMA S BP($P(BP,D,I))=0 25 S (PMV,NOE)=0,TDD=$D(@("^"_Q_"STPR(PR)")) G 33:'TDD S X=^(PR,0,0) 29 F I=1:1:AMA S:NOE NOE=NOE+1 S Y=$P(BP,D,I) I $D(^(Y)) S X=^(Y),BP(Y)=$P(X,D,1)-$P(X,D,5),PMV=PMV+BP(Y) S:'NOE&BP(Y) NOE=1 31 S:$N(^(0))']$P(BP,D,1) NOE=AMA 33 S TDD=NOE I PMV S PMV=PMV/NOE F I=1:1:AMA S Y=$P(BP,D,I),BP(Y)=BP(Y)_D_$J(BP(Y)/PMV*100,0,0) 35 S PMV=$J(PMV,0,0),X=0 I NOE F I=AMA-NOE+2:1:AMA S X=X+($P(BP($P(BP,D,I)),D,2)-$P(BP($P(BP,D,I-1)),D,2)) 36 S:NOE NOE=NOE-1 S:NOE X=X/NOE S X=$J(100+X,0,0) I OGR'=-99999!(BGR'=99999) G 19:X>OGR&(X50 D:SWP S1 W # D HD G 39 41 W !,":",$J(PNR,12)," : ",PC,?42,":" F I=1:1:AMA S Y=$P(BP,D,I),R=$P(BP(Y),D,1)_"\7\0\0" D:TDD&(I'<(AMA-NOE))!(+R) R3 W ?(I*9+42),":" 42 I TDD!(+R) F I=1:1:3 W $C(13) S R=PMV_"\7\"_(AMA*9+43)_"\0" D R3 43 W ?(AMA*9+51),":" S R=TMV_"\7\0\0" D:TDD!(+R) R3 W ?(AMA*9+60),":" S R=PGW_"\7\0\0" D:TDD!(+R) R3 W:PGW="-0" $C(13),?(AMA*9+68),"-" W ?(AMA*9+69),":" 44 S R=PGWR_"\7\0\0" D:$L(PGWR)&(PGWR'="-0")&(PGWR'="-@") R3 W:PGWR="-@"!(PGWR="-0") $J($E(PGWR,2)_"-",8) W:$E(PGWR,$L(PGWR))="*" $C(13),?(AMA*9+77),"*" W ?(AMA*9+78),":" PWHP S PHBP=PBW+PLL*PGW,AGVS=AGV S:$E(PQ,1)="#" AGVS=$P(PQ,"#",2) S:PHBP<(AGVS*PGV) PHBP=AGVS*PGV S TWHP=TWHP+(PHBP*PCP) 45 W !,":",?14,":",?42,":" F I=1:1:AMA S Y=$P(BP,D,I),R=$P(BP(Y),D,2)_"\5\0\0" D:TDD&(I'<(AMA-NOE))!(+R) R3 W:TDD&(I'<(AMA-NOE))!(+R) "%" W ?(I*9+42),":" 47 I TDD F I=1:1:3 W $C(13),?(AMA*9+43),$J("100 %",7) 48 W ?(AMA*9+51),":" S R=X_"\5\0\0" D:TDD R3 W:TDD "%" W ?(AMA*9+60),":" S R=$J(PMV*3/13,0,0) W:R&TDD ?(AMA*9+67-$L(R)),"(",R,")" W ?(AMA*9+69),":",$J("",8),":" 49 W !,":",?14,":",?42,":" F I=1:1:AMA+4 W ?(I*9+42),":" 50 S SWP=1 G 19 51 W !!?2,"WAARDE HERBESTELPUNT : " S R=TWHP_"\12\0\0" D R3 W "BF",# D CLOSE^vhPRINTER YZ Q ; HD S BLZ=BLZ+1,LN=0 W !,NM1,?(AMA*9+71),"BLZ:",$J(BLZ,4),!,NM2,?32,@F82,$P($T(+1),";",2),@F83,$C(13),?(AMA*9+71),DT HD1 W !,NM3,?32 W:OGR'=-99999 "ONDERGRENS : ",OGR," %" W:OGR'=-99999&(BGR'=99999) " - " W:BGR'=99999 "BOVENGRENS : ",BGR," %" HD2 W ?(AMA*9+72),TD,! D S1 W !,$P($T(T1),U,2) F I=1:1:AMA W " MV-",$P(MND,D,I)," :" HD3 W $P($T(T4),U,2) D S1 HDZ Q ; T1 ;: IDENTNUMMER : PRODUKTNAAM : T2 ;:-------------:---------------------------: T3 ;: : : : : : : : : : : : : : T4 ; GEM-MV : TEO-MV : TEO-WV : PRA-WV : ; Q Z X ^cZ Q ZZ ; 21.04.88 - 12 u 32