cAT25 ;OMZET KL/LE ;%AT25 ;raadplegen + utili-data ; [ 01/02/01  12:19 PM ]
 ;
T0 ;Omzet kl/le ;
 ;
T0F ;Ch.aff. par mois ;
 ;
T0E ;Turnover customer/supplier ;
 ;
 ; per kalenderjaar/maand
1 S U3=0 I $L($G(J1)),$D(R1),$D(R2),$D(R3),$D(@("^"_Q_R3_"(J1,0)")) D S1
11 G Y
 ;
S1 F R=1:1:$L(R2,D) S U3=U3+$P($G(^(DJ-R1+.11)),D,$P(R2,D,R))
S1Z Q
 ;
 ; per boekjaar
2 S U3=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 S U3=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 S U3=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 S U3=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
S5G I $D(WIJZ) S FP=$P(U2,U,5)*100+$P(U2,U,6)-94 W @F,@F6,RS4\1,@F9
S5Z K RR2,RS0,RS1,RS2,RS3,RS4 Q
 ;
Y I $D(WIJZ) S:U3=0 U3="" S:$L(U3) U3=$J($TR($FN(U3,",T",QD),",.",".,"),$P(U2,U,9)+$P(U2,U,13))
YZ K R,R1,R2,R3 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84