cPE90 G YZ ;VERKOOPSTATISTIEK ;%PE90; Do naar %PE123,%PE124 - Quit naar MENU [ 11/08/2003  3:55 PM ]
 ;
T1 ;JAAR
T2 ;KEUZE
T3 ;"[] = met detail   Z[] = zonder detail"
T4 ;|---------|---------|---------|---------|---------|---------|---------|---------|---------|---------|---------|---------|----------|
T5 ;| JANUARI | FEBRUARI|  MAART  |  APRIL  |   MEI   |  JUNI   |  JULI   | AUGUSTUS| SEPTEMB.| OKTOBER | NOVEMBER| DECEMBER|  TOTAAL  |
T6 ;|         |         |         |         |         |         |         |         |         |         |         |         |          |
T7 ;AANTAL : ;WAARDE : 
T8 ;AFDRUKKEN ;AANKOOPSTATISTIEK ;VERKOOPSTATISTIEK 
T9 ;PLAATS BREED 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
 ;
V S SOU=$P($T(T8),U,4),K=$P($T(T8),U,2)_SOU_QN_" "
V1 S XS="S X=$P(I2,D,1)+$P(I2,D,7),TA=TA+X,Y=$P(I2,D,2)+$P(I2,D,8),TW=TW+Y S:KEU'=""Z"" ST1=$P(ST1,D,1,I-1)_D_X_D_$P(ST1,D,I+1,99),ST2=$P(ST2,D,1,I-1)_D_Y_D_$P(ST2,D,I+1,99)" G 1
 ;
A S SOU=$P($T(T8),U,3),K=$P($T(T8),U,2)_SOU_QN_" "
A1 S XS="S X=$P(I2,D,5),TA=TA+X,Y=$P(I2,D,6),TW=TW+Y S:KEU'=""Z"" ST1=$P(ST1,D,1,I-1)_D_X_D_$P(ST1,D,I+1,99),ST2=$P(ST2,D,1,I-1)_D_Y_D_$P(ST2,D,I+1,99)" G 1
 ;
1 S FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
10 S FP=260 W @F,@F1 S R="JT\23\3\"_$P($T(T1),U,2)_"\C1\4\\"",-""[K!(K?4N&(K'>DJ))\" D R0 G YZ:K="-"!(K=",") S:K="" JT=DJ
11 S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),(BLZ,TTA,TTW)=0,K=JT_" ",FP=261+$L(K) W @F,@F1,@F5 S FP=260 W @F,@F4,K,@F5
12 S Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" ",SWP=1
14 S Y=$N(^(Y)) G 16:Y=-1 S @Y=^(Y) G 14
16 D ^cPE123 G 10:K="-",YZ:K=","
18 S R="KEU\23\3\"_$P($T(T2),U,2)_D_$P($T(T3),U,2)_"\1\\"",-Z""[K\" D R0 G 16:K="-",10:K=",",^cPE91:K="Z"
 ;
2 S R="K\23\3\"_$P($T(T9),U,2)_D_$P($T(T10),U,2)_"\1\\"",-""[K\" D R0 G 18:K="-",10: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,S2 G 22
 ;
3 W !,$P($T(T4),U,2),!,"|",?110,$P($T(T7),U,2) S R=TTA_D_10_D_120 D R3 W ?131,"|",!,"|"
30 W ?110,$P($T(T7),U,3) S R=TTW_D_10_D_120 D R3 W ?131,"|",!,$P($T(T4),U,2)
 ;
YZ W !,# X F71 B 0 Q
 ;
S1 S (ST1,ST2)="\\\\\\\\\\\\\",(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 S ST1=$P(ST1,D,1,12)_D_TA,ST2=$P(ST2,D,1,12)_D_TW Q
 ;
S2 D S3 F I=1:1:12 W ?(I-1*9+I+1),$J($P(ST1,D,I),7)
S2A W ?121,$J(TA,9),!,$P($T(T6),U,2),$C(13) F I=1:1:12 W ?(I-1*9+I+1),$J($P(ST2,D,I),7)
S2Z W ?121,$J(TW,9),!,$P($T(T6),U,2) S TTA=TTA+TA,TTW=TTW+TW Q
 ;
S3 S LN=LN+4 I LN>50 W !,$P($T(T4),U,2),# D H1
S3Z W !,"|",?2,$P(B0,D,1)," - ",$P(B0,D,2),?131,"|",!,$P($T(T6),U,2),$C(13) 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,?124,$P($T(H1),U,2),$J(BLZ,3),!,NM2,$C(13),?66-$L(K),@F82,K,@F83,$C(13),?124,DT,!,NM3,?125,TD,!
H1Z W !!,$P($T(T4),U,2),!,$P($T(T5),U,2),!,$P($T(T4),U,2) S LN=4 Q
 ;
C1 W !?2,"[] = ",DJ Q
 ;
ER W # X F71 G:$ZE["<INTERRUPT>" ^II,^cER
 ;