cTE10 ;EVALUATIE BUDGET ;%TE9 ;[ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Evaluatie budget ;
T1 ;Eindtotaal;
T2 ;Blz :;
T3 ;Totaal groep ;
T4 ;: Nummer & omschrijving rekening      : ; Tot ; Realisatie :   Budget   :  Verschil  :   %   :;
 ;
T0F ;Evaluation budget ;
T1F ;Total final;
T2F ;Page:;
T3F ;Totaal groupe ;
T4F ;: Numéro & dénomination compte        : ; Tot ; Réalisation:   Budget   : Différence :   %   :;
 ;
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) Q: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  ;V2 20.11.86
 ;
S1 W !,":",?8,$P($T(@("T3"_QT)),U,2),REK W:$L(REK)=3 "-------" W ?38,":"
S1A S LN=LN+1,I=$L(REK),B1=T1(I),V1=T2(I) D 5 S B1=T3(I),V1=T4(I) D 5
S1B F K=1:1:4 S @("T"_K_"(I-1)=T"_K_"(I-1)+T"_K_"(I),T"_K_"(I)=0")
S1Z Q
 ;
1 X F70 W @F80 S BLZ=0 D 8 S I1X=""
34 D ^cAN004("I1X",Q1) S S="" I $L(I1X) S S=^(I1X,0)
35 G 34:'$P(S,D,21)&(I1X'="") S REKX=$E($P(S,D,1),1,3) S:'$D(REK) REK=REKX I $L(REK)>2 G 4:REKX=REK S LN=LN+1,LX=3 D S1,87
36 G 4:$E(REKX,1,2)=$E(REK,1,2) S REK=$E(REK,1,2),LN=LN+1,LX=2 D S1,85
37 G 4:$E(REKX,1)=$E(REK,1) D:LN 85 S REK=$E(REK,1),LX=1 D S1,85
38 I I1X'="",LN>0 W $$FF^cA334 D 8
4 G Y:I1X="" S REK=$E($P(S,D,1),1,3),LN=LN+1 I LN>LNMAX W $$FF^cA334 D 8
 ;
42 W !,": ",I1X,?8,$E($P(S,D,2),1,29),?38,":" S (V1,V2,V3,B1,B2,B3)=0
43 S:$D(^(BJ+.04)) V1=^(BJ+.04),V2=^(BJ+.05) S:$D(^(BJ)) B1=^(BJ),B2=^(BJ+.02) F I=2:1:BX S V3=V3+$P(V1,D,I)-$P(V2,D,I),B3=B3+$P(B1,D,I)-$P(B2,D,I)
45 S V1=$P(V1,D,BX)-$P(V2,D,BX),B1=$P(B1,D,BX)-$P(B2,D,BX),I=$L(REK),T1(I)=T1(I)+B1,T2(I)=T2(I)+V1,T3(I)=T3(I)+B3,T4(I)=T4(I)+V3
46 I $P(S,D,13) D 88 G 34
49 D 5 S B1=B3,V1=V3 D 5 G 34
 ;
5 S R=B1_D_11_D_D_QD D R3 W ":" S R=V1_D_11_D_D_QD D R3 W ":" S R=B1-V1_D_11_D_D_QD D R3 W ":"
51 I 'V1 W $P(" <> <> \       ",D,'B1+1) G 54
52 S R=B1-V1/V1*100_D_6 I R>99999!(R<-99999) W "   >>>",$P("-\ ",D,R>0+1)
53 E  D R3
54 W ":" Q
 ;
8 S BLZ=BLZ+1,LN=0 W !,NM1,?125,$P($T(@("T2"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),MNM,@F83,$$CR^cA334 W ?125,DT,!,NM3,?126,TD,!
81 D 85 S K=$T(@("T4"_QT)),I=VJ_$P(K,U,3)_MNM W !,$P(K,U,2),$J("",46-$L(MNM)\2),MNM,?85,": ",$J("",46-$L(I)\2),I,?132,":",!,":",?38,":",$P(K,U,4),$P(K,U,4)
85 S K=":-------------------------------------" W !,K S K=$E(K,1,8) F I=1:1:8 W K W:I#4 "-----"
86 W ":" Q
87 W !,":",?38,":"
88 W ?51,":",?64,":",?77,":",?85,":",?98,":",?111,":",?124,":",?132,":" Q
 ;
Y D 85 W !,":",?8,$P($T(@("T1"_QT)),U,2),?38,":" S B1=T1(0),V1=T2(0) D 5 S B1=T3(0),V1=T4(0) D 5,85 W $$FF^cA334
YZ X F71 Q
 ;
ZZ ; 19.04.00 - 14 u 04 * V7.3