cANT79	;Saldo rekening ;%ANT79 ;raadplegen + utili-data ; [ 12/30/98  1:55 PM ]
	;
T0	;Saldo rekening ;
	;
T0F	;Solde du compte ;
	;
	; R4 = Beginsaldo ; Credit ; Debet ; Saldo ; budgeT ; Evaluatie
	;
	; per kalenderjaar/maand
1	N R S K=0 I $L($G(J1)),$D(R1),$D(R2),$D(R3),$D(R4),$D(@("^"_Q_R3_"(J1,0)")) S RJ1=J1 F R=1:1:$L(R2,D) D S1
11	S RJ1="" I $P(B(1),D,13)=1,$P(B(1),D,24),$L($G(J1)),$D(R1),$D(R2),$D(R3),$D(R4) S RJ1=J1
13	I $L(RJ1) S RJ1=$O(@("^"_Q_R3_"(RJ1)")) I $E(RJ1,1,$L(J1)-1)=$E(J1,1,$L(J1)-1),$D(^(RJ1,0)) F R=1:1:$L(R2,D) D S1
15	I $L(RJ1),$E(RJ1,1,$L(J1)-1)=$E(J1,1,$L(J1)-1) G 13
17	G Y
	;
S1	S RS0=$E($P(R2,D,R)/100+DJ-R1_0,1,7) I $D(RS1),$D(RS2) G S1D
S1A	S RS2=@("^"_Q_"BA(2)"),RS1=$G(^(26)) I $D(@("^"_Q_R3_"(RJ1,0)"))
S1B	S RS4=$P(RS2,D,2),RS1=RS1+1,RS3=RS4\1*12+(RS4#1*100)_D_$E(RS4+1_0,1,7)_D_RS4_D,RS2=RS3_RS2
S1D	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 S1D
S1E	F RS5=0:1:RS1 Q:RS0>$P(RS2,D,RS5+1*3)
S1F	S RS3=$P(RS2,D,RS5*3+2)\1,RS4=$P(RS2,D,RS5+1*3)
S1G	F RS5=1:1 Q:RS4=RS0  S RS4=$E(RS4+.01_0,1,7) I RS4#1>.12 S RS4=RS4+.88
S1H	I "DES"[R4,$D(^(RS3)) S K=K+$$CBEDR^cAFE1(Q,RS3,$P(^(RS3),D,RS5))
S1I	I "CES"[R4,$D(^(RS3+.02)) S K=R4="C"*2-1*$$CBEDR^cAFE1(Q,RS3,$P(^(RS3+.02),D,RS5))+K
S1J	I "ET"[R4,$D(^(RS3+.04)) S K=R4="T"*2-1*$$CBEDR^cAFE1(Q,RS3,$P(^(RS3+.04),D,RS5))+K
S1K	I "ET"[R4,$D(^(RS3+.05)) S K=R4="E"*2-1*$$CBEDR^cAFE1(Q,RS3,$P(^(RS3+.05),D,RS5))+K
S1Z	Q
	;
	; per boekjaar
2	N R S K=0 I $L($G(J1)),$D(R1),$D(R3),$D(R4) S R2=24,RJ1=J1,VW=$P(B(1),D,20) D S2
21	S RJ1="" I $P(B(1),D,13)=1,$P(B(1),D,24),$L($G(J1)),$D(R1),$D(R3),$D(R4) S RJ1=J1
23	I $L(RJ1) S RJ1=$O(@("^"_Q_R3_"(RJ1)")) I $E(RJ1,1,$L(J1)-1)=$E(J1,1,$L(J1)-1),$D(^(RJ1,0)) S R2=24,VW=$P(^(0),D,20) D S2 G 23
25	G Y
	;
S2	S RS0=DJ_"."_DM,RS5=0
S2A	S RS2=@("^"_Q_"BA(2)"),RS1=$G(^(26)) I $D(@("^"_Q_R3_"(RJ1,0)"))
S2B	S RS4=$P(RS2,D,2) I RS0>RS4 S RS1=RS1+1,RS5=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:R1 RS5=0 S RS4=$P(RS2,D,R1*3+2)\1 I "BES"[R4,'VW!'RS5 S K=K+$$CBEDR^cAFE1(Q,RS4-RS5,$G(^(RS4-RS5)))
S2F	I RS5,"BES"[R4,'VW F RS5=2:1:24 S K=K+$$CBEDR^cAFE1(Q,RS4-1,$P($G(^(RS4-1)),D,RS5))-$$CBEDR^cAFE1(Q,RS4-1,$P($G(^(RS4-.98)),D,RS5))
S2G	I "ES"[R4 F RS5=2:1:R2 S K=K+$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4)),D,RS5))-$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4+.02)),D,RS5))
S2H	I "ET"[R4 F RS5=2:1:R2 D
	. I R4="E" S K=K-$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4+.04)),D,RS5))+$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4+.05)),D,RS5))
	. I R4="T" S K=K+$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4+.04)),D,RS5))-$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4+.05)),D,RS5))
S2Z	Q
	;
	; per periode
3	N R S K=0 I $L($G(J1)),$D(R1),$D(R2),$D(R3),$D(R4),$D(@("^"_Q_R3_"(J1,0)")) S RJ1=J1 D S3
31	S RJ1="" I $P(B(1),D,13)=1,$P(B(1),D,24),$L($G(J1)),$D(R1),$D(R2),$D(R3),$D(R4) S RJ1=J1
33	I $L(RJ1) S RJ1=$O(@("^"_Q_R3_"(RJ1)")) I $E(RJ1,1,$L(J1)-1)=$E(J1,1,$L(J1)-1),$D(^(RJ1,0)) D S3 G 33
35	G Y
	;
S3	S RR1=R1,RR2=R2
S3A	S RP1=DJ-R1 S:$P(R2,"|")["-" RP1=RP1-1 S:$P(R2,"|")["+" RP1=RP1+1 S RP1=$P(R2,"|")/100+RP1
S3B	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
S3C	I RP1'>RP2 F RP=RP1:.01:RP2 I RP#1,RP#1<.13 S R1=DJ-(RP\1),R2=RP#1*100,R=1 D S1
S3Y	S R1=RR1,R2=RR2
S3Z	K RP,RP1,RP2,RR1,RR2 Q
	;
	; per kwartaal boekjaar
4	N R S K=0 I $L($G(J1)),$D(R1),$D(R2),$D(R3),$D(R4),$D(@("^"_Q_R3_"(J1,0)")) S RJ1=J1 D S4
41	S RJ1="" I $P(B(1),D,13)=1,$P(B(1),D,24),$L($G(J1)),$D(R1),$D(R2),$D(R3),$D(R4) S RJ1=J1
43	I $L(RJ1) S RJ1=$O(@("^"_Q_R3_"(RJ1)")) I $E(RJ1,1,$L(J1)-1)=$E(J1,1,$L(J1)-1),$D(^(RJ1,0)) D S4 G 43
45	G Y
	;
S4	S RS0=DJ_"."_DM,RR1=R1,RR2=R2
S4A	S RS2=@("^"_Q_"BA(2)"),RS1=$G(^(26)) I $D(@("^"_Q_R3_"(RJ1,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 RR=1,RR3=$P(RS2,D,R1+1*3),RR4=$P(RS2,D,R1*3+2)
S4F	S RP1=$P(RR2,D,RR)-1*3+1/100+RR3 S:RP1#1>.12 RP1=RP1+.88 S RP2=RP1+.02 S:RP2#1>.12 RP2=RP2+.88 S:RP2>RR4 RP2=RR4
S4G	I RP1'>RP2 F RP=RP1:.01:RP2 I RP#1,RP#1<.13 S R1=DJ-(RP\1),R2=RP#1*100,R=1 D S1
S4H	S RR=RR+1 I $P(RR2,D,RR) G S4F
S4Y	S R1=RR1,R2=RR2
S4Z	K RP,RP1,RP2,RR,RR1,RR2,RR3,RR4 Q
	;
	; saldo tem maand
5	N R S K=0 I $L($G(J1)),$D(R1),$D(R2),$D(R3),$D(R4),$D(@("^"_Q_R3_"(J1,0)")) S RJ1=J1,VW=$P(B(1),D,20) D S5
51	S RJ1="" I $P(B(1),D,13)=1,$P(B(1),D,24),$L($G(J1)),$D(R1),$D(R2),$D(R3),$D(R4) S RJ1=J1
53	I $L(RJ1) S RJ1=$O(@("^"_Q_R3_"(RJ1)")) I $E(RJ1,1,$L(J1)-1)=$E(J1,1,$L(J1)-1),$D(^(RJ1,0)) S VW=$P(^(0),D,20) D S5 G 53
55	G Y
	;
S5	S RS0=DJ_"."_DM,RS5=0
S5A	S RS2=@("^"_Q_"BA(2)"),RS1=$G(^(26)) I $D(@("^"_Q_R3_"(RJ1,0)"))
S5B	S RS4=$P(RS2,D,2) I RS0>RS4 S RS1=RS1+1,RS5=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:R1 RS5=0 S RS4=$P(RS2,D,R1*3+2)\1 I "ES"[R4,'VW S K=K+$$CBEDR^cAFE1(Q,RS4-RS5,$G(^(RS4-RS5)))
S5F	I RS5,"ES"[R4,'VW F RS5=2:1:24 S K=K+$$CBEDR^cAFE1(Q,RS4-1,$P($G(^(RS4-1)),D,RS5))-$$CBEDR^cAFE1(Q,RS4-1,$P($G(^(RS4-.98)),D,RS5))
S5G	S RS3=$P(RS2,D,R1+1*3)+.01 S:RS3#1>.12 RS3=RS3+.88
S5H	I "ES"[R4 F RS5=2:1 D  Q:RS3#1*100=R2  S RS3=RS3+.01 S:RS3#1>.12 RS3=RS3+.88
	. S K=K+$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4)),D,RS5))-$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4+.02)),D,RS5))
S5I	I "ET"[R4 F RS5=2:1 D  Q:RS3#1*100=R2  S RS3=RS3+.01 S:RS3#1>.12 RS3=RS3+.88
	. I R4="E" S K=K-$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4+.04)),D,RS5))+$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4+.05)),D,RS5))
	. I R4="T" S K=K+$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4+.04)),D,RS5))-$$CBEDR^cAFE1(Q,RS4,$P($G(^(RS4+.05)),D,RS5))
S5Z	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
	;
	;  Beginsaldo ARA per boekjaar
7	N R,BEGINJ S K=0
	S RS0=DJ_"."_DM,RS5=0
	S RS2=@("^"_Q_"BA(2)"),RS1=$G(^(26))
	S RS4=$P(RS2,D,2) I RS0>RS4 S RS1=RS1+1,RS5=1,RS3=RS4\1*12+(RS4#1*100)_D_$E(RS4+1_0,1,7)_D_RS4_D,RS2=RS3_RS2
71	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 71
	S:R1 RS5=0 S RS4=$P(RS2,D,R1*3+2)\1
	D
	. N J1
	. D ^cT489
	. S BEGINJ=$G(KM1(RS4))
	S K=$$SALDOARA^cTA180(Q,J1,BEGINJ)
79	G YZ
	;
Y	S R=$$BJ^cAFE1(Q,DJ_"."_DM),QDR=$P($$MNTW^cAFE1(Q,R),D,3)
YZ	K R,R1,R2,R3,R4,RJ1,RS0,RS1,RS2,RS3,RS4,RS5 Q
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09