cTE8 ;Controlelijst budget ;%TE8 ; [ 11/30/00  4:49 PM ]
 G G
 ;
T0 ;Controlelijst budget ;
T5 ;De rekening;De analytische rekening;
T7 ;: Nummer & omschrijving rekening;
T8 ;Blz :;
T10 ;Boekjaar\"-[] = einde programma   [] = ;
T11 ;Totaal groep ;Eindtotaal ;
T12 ;Totaal;
 ;
T0F ;Liste de contrôle budgets ;
T5F ;Le compte;Le compte analytique;
T7F ;: Numéro & dénomination compte;
T8F ;Page:;
T10F ;Année comptable\"-[] = fin du programme   [] = ;
T11F ;Total groupe ;Total final ;
T12F ;Total;
 ;
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
 ;
G S Q1="AR" G 1
A S Q1="ARA" G 1
 ;
S1 S I=$L(REK) Q:'$D(T(1,I))  W !,":",?8,$P($T(@("T11"_QT)),U,'$L(REK)+2),REK W:$L(REK)=3 "-------" W ?49,":"
S1A S LN=LN+1 F K=1:1 Q:'$D(A(K))  S:'$D(T(K,I-1)) T(K,I-1)=0 S A(K)=T(K,I),T(K,I)=0,T(K,I-1)=T(K,I-1)+A(K)
S1Z G 65
 ;
1 S J=@("^"_Q_"BA(2)"),K=^(7),PAT="",NM1=QN,NM2=^(99,2),NM3=^(3),BLZ=0,I=$P(J,D,2),BJ=I\1,I=I\1*12+(I#1*100),J=J-1
10 I QP S K=$P($T(@("T0"_QT)),U,2)_" "_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 D 7 G YZ:K="-"
12 S J=J+1 I J<I S BJ=J\12,PAT=PAT_^cBA(2,$E(QT_"N"),J#12+1)_D G 12
13 F I=5:5 I '$L($P(PAT,D,I)) S $P(PAT,D,I)=$P($T(@("T12"_QT)),U,2) Q
14 I 'QP S LIM1(Q1)=PP(1),LIM2(Q1)=PP(2),KEU(Q1)=$G(PP(3),1)_D_$G(PP(4)) G 31
 ;
2 D ^cAN003(4,Q1) G YZ:K="-"
 ;
3 S R=1_D_('$L(KEU(Q1))) D ^cA345 G 2:K="-",2:K="," I K="." D S9 G 2
 ;
31 X F70 W @F80 S BLZ=0 D 8 S I1X=""
310 S MNTC=$$MNTC^cAFE1(Q,BJ),BF=$P(MNTC,D),QD=$P(MNTC,D,2)
32 D ^cAN004("I1X",Q1) S S=""
35 S:I1X'="" S=^(I1X,0) G 32:'$P(S,D,21)&$L(I1X) S REKX=$E($P(S,D),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)=$E(REK) D:LN 85 S REK=$E(REK),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,3),LN=LN+1 I LN>LNMAX D 85 W $$FF^cA334 D 8
5 W !,": ",I1X,?8,$P(S,D,2),?49,":" S (J,K,X)=D I $P(S,D,13) G 6
53 S (K,X)=D S:$D(^(BJ+.04)) K=^(BJ+.04),X=^(BJ+.05) F I=2:1 Q:'$L($P(PAT,D,I-1))  S A(I-1)=$P(K,D,I)-$P(X,D,I)
54 D 65 F I=1:1 Q:'$D(A(I))  S:'$D(T(I,$L(REK))) T(I,$L(REK))=0 S T(I,$L(REK))=T(I,$L(REK))+A(I)
55 G 32
 ;
6 F I=1:1:5 W ?I*16+49,":"
61 W ?132,!,": ",?8,$E("----------------------------------------",1,$L($P(^(0),D,2))),?49,":" S LN=LN+1 F I=1:1:5 W ?I*16+49,":"
62 G 32
 ;
65 S J=0,K=0 F I=1:1 Q:'$D(A(I))  S J=J+1,R=A(I)_D_14_D_D_QD,K=K+R D R3 W ?J*16+49,":" I J=5 W !,":",?49,":" S J=0,LN=LN+1
66 S R=K_D_14_D_D_QD F I=J+1:1:5 D R3:I=5 W ?I*16+49,":"
67 Q
 ;
 ; boekjaar
7 I 'QP S K="." S:$D(PP(3)) K=PP(3)
71 E  X $P($T(15)," ",2,99) S R="K\22\3\"_$P($T(@("T10"_QT)),U,2)_(BJ+1)_"   .[] = "_(BJ)_"""\1\\""-.""[K" D R0 S PP(3)=K
72 S:'$L(K) J=I-1,I=I+12 Q
 ;
8 S BLZ=BLZ+1,LN=0 W !,NM1,?122,$P($T(@("T8"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),BJ,@F83,$$CR^cA334 W ?122,DT,!,NM3,?123,TD,!
81 D 85 W !,$P($T(@("T7"_QT)),U,2),?49,":" S J=0
83 F I=1:1 S J=J+1,K=$P(PAT,D,I) Q:'$L($P(PAT,D,I,99))  W $J("",-$L(K)\2+7),K,?J*16+49,":" I J=5,$L($P(PAT,D,I+1,99)) W !,":",?49,":" S J=0
85 S K=":------------------------------------------------" W !,K S K=$E(K,1,16) F I=1:1:5 W K
86 W ":" Q
87 W !,":",?49,":" F I=1:1:5 W ?I*16+49,":"
88 W ?132 Q
 ;
Y D 85 S REK="" D S1,85 W $$FF^cA334
YZ X F71 Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
S9 S QPT=$S(Q1="ARA":"A^",1:"")_$T(+0)
 S PP(1)=LIM1(Q1),PP(2)=LIM2(Q1),PP(3)=KEU(Q1)
 D ^cA109
S9Z Q
 ;
ZZ ; 15.12.00 - 12 u 16 * V7.83