cT187 ;Controle boekhouding ;%T181 ;%T186>.>%T188 ;  [ 05/26/98  1:40 PM ]
 ;
T0 ;Controle boekhouding ;
T1 ;Totaal van de dagboeken;
T2 ;Totaal van het centralisatiedagboek;
T3 ;Fdiversen;
 ;
T0F ;Contrôle comptabilité ;
T1F ;Comparaison des résultats;
T2F ;Total du journal centralisateur;
T3F ;Fdivers  ;
 ;
T0E ;Controle boekhouding ;
T1E ;Totaal van de dagboeken;
T2E ;Totaal van het centralisatiedagboek;
T3E ;Fdiversen;
 ;
 ; initialisatie
1 S Q0="^"_Q_"CNTRL(I,I1,SR)",Q1="^"_Q_"CNTRL(I,I1)",Q2="^"_Q_"CNTRL(I,I1,I2)",Q3="^"_Q_"CNTRL(I,I1,I2,I3)"
11 W !,$P($T(@("T1"_QT)),U,2) S I=0,(I1,I2,I3)=""
 ;
 ; totaal dagboeken en historieken
2 S I1=$O(@Q1),(TA,TB)=0 G 3:I1=""
21 S I2=$O(@Q2),(A,B)=0 I I2="" S @Q1=TA_D_TB D S4 G 2
23 S I3=$O(@Q3) I I3="" S @Q2=A_D_B,TA=TA+A,TB=TB+B G 21
25 S X=^(I3),Y=$P(X,D),Z=$P(X,D,2),A=A+Y,B=B+Z,SR="F" S:I3="A" SR="A" S:I3="V" SR="V" I I<9!(I>99) D S1
27 I I3?.N!(I3?.N1" ")!($E(I3)="D") S SR="F"_(+I3) S:$E(I3)="D" SR=$P($T(@("T3"_QT)),U,2)_$E(I3,2,99) I I<9!(I>99) D S1
29 G 23
 ;
3 S I=I+1 K TA,TB G 2:(I#10)<2 S I=I+8 G 2:I<25
31 I I<100 S I=100 G 2
33 W !,$P($T(@("T2"_QT)),U,2) S I=2
 ;
 ; totaal cumuls
4 S I1=$O(@Q1),(TA,TB)=0 I I1="" S I=I+10 G 4:I<25,5
41 S I2=$O(@Q2),(A,B)=0 I I2="" S @Q1=TA_D_TB G 4
43 S A=^(I2),TA=TA+A,TB=TB+$P(A,D,2) G 41
 ;
5 I I<102 S I=102 G 4
 ;
YZ K TA,TB G ^cT188
 ;
 ; totaal per soort A/V/F
S1 S TA(SR)=$G(TA(SR))+Y,TB(SR)=$G(TB(SR))+Z
S1Z Q
 ;
 ; totaal per soort per boekingsmaand
S4 S SR=0
S4A S SR=$O(TA(SR)) I $L(SR) S @Q0=TA(SR)_D_TB(SR) G S4A
S4Z K TA,TB Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84