cPE91 G 2 ;VERKOOPSTATISTIEK ;%PE90; Do naar %PE124 - Quit naar MENU [ 11/08/2003  3:59 PM ]
 ;
T4 ;|--------------------------------------------------|-----------|---------------|
T5 ;| PRODUKTKODE - PRODUKTOMSCHRIJVING                |  AANTAL   |     WAARDE    |
T6 ;|                                                  |           |               |
T7 ;AANTAL : ;WAARDE : 
T8 ;AFDRUKKEN ;AANKOOPSTATISTIEK ;VERKOOPSTATISTIEK 
T9 ;PLAATS SMAL BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN
T10 ;"[] = ok   ,[] = hernemen"
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
2 S R="K\23\3\"_$P($T(T9),U,2)_D_$P($T(T10),U,2)_"\1\\"",-""[K\" D R0 G 18^cPE90:K="-",10^cPE90:K=","
20 B 1 X F70 W @F80 D H1
22 D ^cPE124 G 3:PR=-1 S B0=@("^"_Q_"PR(PR,0)") I %KZ'="P" S I="I" D S4 G 22:'SW
24 D S1,S3 G 22
 ;
3 W !,$P($T(T4),U,2),!,$P($T(T6),U,2),$C(13) S R=TTA_D_10_D_52 D R3 S R=TTW_D_12_D_66 D R3 W !,$P($T(T4),U,2)
 ;
YZ W !,# X F71 B 0 Q
 ;
S1 S (TA,TW)=0
S1A F I=1:1:12 S I2="S"_JT_$E("00",1,2-$L(I))_I I $D(^(I2)) S I2=^(I2) X XS
S1Z Q
 ;
S3 S LN=LN+1 I LN>50 W !,$P($T(T4),U,2),# D H1
S3Z W !,"|",?2,$P(B0,D,1)," - ",$P(B0,D,2),?53,$J(TA,9),?66,$J(TW,12),$C(13),$P($T(T6),U,2) S TTA=TTA+TA,TTW=TTW+TW Q
 ;
S4 S X1=$E(H,1,$L(H)-1),X2=$E(G,1,$L(G)-1),X3=$E(S,1,$L(S)-1),SW=0
S4A S I=$N(^(I)) G S4Z:$E(I,1)'="I",S4A:X1'=$P(^(I),D,1)!(X2'=$P(^(I),D,2))!(X3'=$P(^(I),D,3)),S4A:$P(^(I),D,35)'="*"
S4B G S4D:'$D(^("J")) S J="J"
S4C S J=$N(^(J)) G S4Z:$E(J,1)'="J",S4C:M'=($P(^(J),D,2)_" "),S4C:$P(^(J),D,35)'="*"
S4D S SW=1
S4Z Q
 ;
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  ;V1 26.11.84
 ;
H1 S BLZ=BLZ+1 ;BLZ :
H1A S K=SOU_JT W !,QN,?72,$P($T(H1),U,2),$J(BLZ,3),!,NM2,?40-($L(K)\2),K,?72,DT,!,NM3,?73,TD,!
H1Z W !!,$P($T(T4),U,2),!,$P($T(T5),U,2),!,$P($T(T4),U,2) S LN=1 Q
 ;
C1 W !?2,"[] = ",DJ Q
 ;
ER W # X F71 G:$ZE["<INTERRUPT>" ^II,^cER
 ;