cANT25 ;OMZET KL/LE ;%ANT25 ;raadplegen + utili-data ; [ 12/30/98  1:54 PM ]
 ;
T0 ;Omzet Kl/Le ;
 ;
T0F ;C.A. Cl/Fou ;
 ;
 ; per kalenderjaar/maand
1 N R S K=0 I $L($G(J1)),$D(R1),$D(R2),$D(R3),$D(@("^"_Q_R3_"(J1,0)")) D S1
11 G Y
 ;
S1 N RS5,RS6 F R=1:1:$L(R2,D) S RS5=$P(R2,D,R)-1 S:$L(RS5)=1 RS5="0"_RS5 S BP=(DJ-R1)_"."_RS5,RS6=$$BJ^cAFE1(Q,BP),K=K+$$CBEDR^cAFE1(Q,RS6,$P($G(@("^"_Q_R3_"(J1,(DJ-R1+.11))")),D,$P(R2,D,R)))
S1Z Q
 ;
 ; per boekjaar
2 N R S K=0 I $L($G(J1)),$D(R1),$L($G(R3)) D S2
21 G Y
 ;
S2 S RS0=DJ_"."_DM
S2A S RS2=@("^"_Q_"BA(2)"),RS1=$G(^(26)) I $D(@("^"_Q_R3_"(J1,0)"))
S2B S RS4=$P(RS2,D,2) I RS0>RS4 S RS1=RS1+1,RS3=RS4\1*12+(RS4#1*100)_D_$E(RS4+1_0,1,7)_D_RS4_D,RS2=RS3_RS2
S2D I RS1<(R1+2) S RS3=$P(RS2,D,RS1+1*3),RS4=$E(RS3-1_0,1,7),RS2=RS2_D_(RS4\1*12+(RS4#1*100))_D_RS3_D_RS4,RS1=RS1+1 G S2D
S2E S RS3=$P(RS2,D,R1+1*3),RS4=$P(RS2,D,R1*3+2)
S2F S RS3=RS3+.01 S:RS3#1>.12 RS3=RS3+.88 I RS3'>RS4 S R1=DJ-(RS3\1),R2=RS3#1*100+1 D S1 G S2F
S2Z K RS0,RS1,RS2,RS3,RS4 Q
 ;
 ; per periode
3 N R S K=0 I $L($G(J1)),$D(R1),$D(R2),$D(R3),$D(@("^"_Q_R3_"(J1,0)")) D S3
31 G Y
 ;
S3 S RP1=DJ-R1 S:$P(R2,"|")["-" RP1=RP1-1 S:$P(R2,"|")["+" RP1=RP1+1 S RP1=$P(R2,"|")/100+RP1
S3A S RP2=DJ-R1 S:$P(R2,"|",2)["-" RP2=RP2-1 S:$P(R2,"|",2)["+" RP2=RP2+1 S RP2=$P(R2,"|",2)/100+RP2
S3B I RP1'>RP2 S R1=DJ-(RP1\1),R2=RP1#1*100+1 D S1 S RP1=RP1+.01 S:RP1#1>.12 RP1=RP1+.88 G S3B
S3Z K RP1,RP2 Q
 ;
 ; per kwartaal boekjaar
4 N R S K=0 I $L($G(J1)),$D(R1),$D(R2),$D(R3),$D(@("^"_Q_R3_"(J1,0)")) D S4
41 G Y
 ;
S4 S RS0=DJ_"."_DM,RR1=R1
S4A S RS2=@("^"_Q_"BA(2)"),RS1=$G(^(26)) I $D(@("^"_Q_R3_"(J1,0)"))
S4B S RS4=$P(RS2,D,2) I RS0>RS4 S RS1=RS1+1,RS3=RS4\1*12+(RS4#1*100)_D_$E(RS4+1_0,1,7)_D_RS4_D,RS2=RS3_RS2
S4D I RS1<(R1+2) S RS3=$P(RS2,D,RS1+1*3),RS4=$E(RS3-1_0,1,7),RS2=RS2_D_(RS4\1*12+(RS4#1*100))_D_RS3_D_RS4,RS1=RS1+1 G S4D
S4E S R1=RR1,RS3=$P(RS2,D,R1+1*3),RS4=$P(RS2,D,R1*3+2)
S4F S RS1=$P(R2,D)-1 I RS1 S $P(R2,D)=RS1,RS3=RS3+.03 S:RS3#1>.12 RS3=RS3+.88 G S4F
S4G S RR2=R2 F RS1=1:1:3 S RS3=RS3+.01 S:RS3#1>.12 RS3=RS3+.88 I RS3'>RS4 S R1=DJ-(RS3\1),R2=RS3#1*100+1 D S1
S4H S R2=$P(RR2,D,2,99) I $P(R2,D) G S4E
S4Z K RR1,RR2,RS0,RS1,RS2,RS3,RS4 Q
 ;
 ; omzet tem maand
5 N R S K=0 I $L($G(J1)),$D(R1),$D(R2),$D(R3),$D(@("^"_Q_R3_"(J1,0)")) D S5
51 G Y
 ;
S5 S RS0=DJ_"."_DM
S5A S RS2=@("^"_Q_"BA(2)"),RS1=$G(^(26)) I $D(@("^"_Q_R3_"(J1,0)"))
S5B S RS4=$P(RS2,D,2) I RS0>RS4 S RS1=RS1+1,RS3=RS4\1*12+(RS4#1*100)_D_$E(RS4+1_0,1,7)_D_RS4_D,RS2=RS3_RS2
S5D I RS1<(R1+2) S RS3=$P(RS2,D,RS1+1*3),RS4=$E(RS3-1_0,1,7),RS2=RS2_D_(RS4\1*12+(RS4#1*100))_D_RS3_D_RS4,RS1=RS1+1 G S5D
S5E S RR2=R2,RS3=$P(RS2,D,R1+1*3),RS4=$P(RS2,D,R1*3+2)
S5F S RS3=RS3+.01 S:RS3#1>.12 RS3=RS3+.88 I RS3'>RS4 S R1=DJ-(RS3\1),R2=RS3#1*100+1 D S1 I R2-1'=RR2 G S5F
S5Z K RR2,RS0,RS1,RS2,RS3,RS4 Q
 ;
 ; tonen boekjaren op scherm
6 S RS0=DJ_"."_DM
61 S RS2=@("^"_Q_"BA(2)"),RS1=$G(^(26))
63 S RS4=$P(RS2,D,2) I RS0>RS4 S RS1=RS1+1,RS3=RS4\1*12+(RS4#1*100)_D_$E(RS4+1_0,1,7)_D_RS4_D,RS2=RS3_RS2
65 I RS1<5 S RS3=$P(RS2,D,RS1+1*3),RS4=$E(RS3-1_0,1,7),RS2=RS2_D_(RS4\1*12+(RS4#1*100))_D_RS3_D_RS4,RS1=RS1+1 G 65
67 F RS1=1:1:5 S RS4=$P(RS2,D,RS1*3-1)\1 W /CUP(U2(2),79-(RS1*13)+8),/SGR(4),RS4,/SGR(0)
69 K RS0,RS1,RS2,RS3,RS4 Q
 ;
Y S R=$$BJ^cAFE1(Q,DJ_"."_DM),QDR=$P($$MNTW^cAFE1(Q,R),D,3)
YZ K R,R1,R2,R3 Q
 ;
ZZ ; 04.01.99 - 13 u 39 * V7.12