cT184 ;Controle boekhouding ;%T181 ;%T183>.>%T185 ; [ 05/26/98  4:39 PM ]
 ;
T0 ;Controle boekhouding ;
T1 ;Financieel dagboek;
 ;
T0F ;Contrôle comptabilité ;
T1F ;Journaux financiers;
 ;
T0E ;Controle boekhouding ;
T1E ;Financieel dagboek;
 ;
 ; initialisatie
1 S Q0="^"_Q_"FI(BP)",Q1="^"_Q_"CNTRL(SW,BP,R,J1)",Q2="^"_Q_"FI(BP,I1)"
10 S Q4="^"_Q_"CNTRL(10,BP,+R,I1)",Q5="^"_Q_"CNTRL(20,BP,+R,I1)"
11 S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T1"_QT)),U,2),!
13 F X=0,1 S TL(X)=$P(@("^"_Q_"BA(14,X)"),D)_" ",TL(X+2)=$P(@("^"_Q_"BA(15,X)"),D)_" "
 ;
 ; gevraagde boekingsmaanden
2 S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G YZ:BP>(BPH+1),2:'$D(@Q0),2:BP'=BPC&BPC!(BP'>BPA&'BPC) S:BP>BPH BPH=BP
21 W BP," " S I1=""
23 S I1=$O(@Q2),J1=I1,(I2,TA,TB)=0 I I1="" G 2
25 S I2=0 K T,TAN F X=0:1:3 S T(X)=0
27 S I2=$O(@("^"_Q_"FI(BP,I1,I2)")) I I2="" D S1 G 23
 ;
 ; alle detaillijnen per fin.rekening
3 S A=^(I2),DC=$P(A,D,6),BE=$P(A,D,5),KLA=$P(A,D,7),DC=DC="C",R=$P($P($P(A,D,8),"#")," ")_" "
31 I KLA="K" S T(DC)=T(DC)+BE,$P(@Q4,D,DC+1)=$P($G(@Q4),D,DC+1)+BE
33 I KLA="L" S T(DC+2)=T(DC+2)+BE,$P(@Q5,D,DC+1)=$P($G(@Q5),D,DC+1)+BE
35 I KLA="A" S T(R,DC)=$G(T(R,DC))+BE,R=$P(A,D,16) I $L(R) S TAN(R,DC)=$G(TAN(R,DC))+BE
37 S:DC TB=TB+BE S:'DC TA=TA+BE I $S<1999 D S1 K T,TAN F X=0:1:3 S T(X)=0
39 G 27
 ;
YZ K KLA,DC,TB,TA,TL,T,TAN D ^cT184A G ^cT185
 ;
 ; (tussen)resultaat in bestand
S1 S R=20,SW=0
S1A S R=$O(T(R)) G S1C:R="" S A=$G(T(R,0)),B=$G(T(R,1))
S1B S:$D(@Q1) A=A+$P(^(J1),D),B=B+$P(^(J1),D,2) S @Q1=A_D_B G S1A
S1C F X=0:1:3 S R=TL(X),A=$G(@Q1) S:X#2 ^(J1)=$P(A,D)_D_($P(A,D,2)+T(X)) S:'(X#2) ^(J1)=$P(A,D)+T(X)_D_$P(A,D,2)
S1D I $E(J1)'="D" S R=J1_" " S:$E(R)="W" R=$E(R,2,99) S @Q1=TB_D_TA
S1E S R="",SW=100 F  S R=$O(TAN(R)) Q:R=""  S A=$P($G(@Q1),D)+$G(TAN(R,0)),B=$P($G(@Q1),D,2)+$G(TAN(R,1)),@Q1=A_D_B
S1Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84