Index: cT184A.mac.rou
===================================================================
diff -u -r734 -r3542
--- cT184A.mac.rou	(.../cT184A.mac.rou)	(revision 734)
+++ cT184A.mac.rou	(.../cT184A.mac.rou)	(revision 3542)
@@ -1,35 +1,36 @@
-cT184A ;Controle boekhouding ;%T181 ;%T183>.>%T185 ; [ 05/26/98  1:35 PM ]
- ;
-T0 ;Controle boekhouding ;
-T1 ;Analytische verrichtingen;
- ;
-T0F ;Contr�le comptabilit� ;
-T1F ;Op�rations analytiques;
- ;
-T0E ;Controle boekhouding ;
-T1E ;Analytische verrichtingen;
- ;
- ; initialisatie
-1 S Q0="^"_Q_"FIE(BP)",Q1="^"_Q_"CNTRL(SW,BP,R,J1)",Q2="^"_Q_"FIE(BP,I1)"
-11 S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T1"_QT)),U,2),!
- ;
- ; 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=0 I I1="" G 2
-25 S I2=0 K T,TAN
-27 S I2=$O(@("^"_Q_"FIE(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"
-35 S R=$P(A,D,16) S:R="" R=0 S TAN(R,DC)=$G(TAN(R,DC))+BE
-37 I $S<1999 D S1 K T,TAN
-39 G 27
- ;
-YZ K KLA,DC,T,TA,TB,TAN Q
- ;
- ; (tussen)resultaat in bestand
-S1 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
\ No newline at end of file
+cT184A	;Controle boekhouding ;%T181 ;%T183>.>%T185 ; [ 05/26/98  1:35 PM ]
+	;
+T0	;Controle boekhouding ;
+T1	;Analytische verrichtingen;
+	;
+T0F	;Contr�le comptabilit� ;
+T1F	;Op�rations analytiques;
+	;
+T0E	;Controle boekhouding ;
+T1E	;Analytische verrichtingen;
+	;
+	; initialisatie
+1	S Q0="^"_Q_"FIE(BP)",Q1="^"_Q_"CNTRL(SW,BP,R,J1)",Q2="^"_Q_"FIE(BP,I1)"
+11	S BP=BPA S:BPC BP=BPC-.01 W !,$P($T(@("T1"_QT)),U,2),!
+	;
+	; 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=0 I I1="" G 2
+25	S I2=0 K T,TAN
+27	S I2=$O(@("^"_Q_"FIE(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"
+35	S R=$P(A,D,16) S:R="" R=0 S TAN(R,DC)=$G(TAN(R,DC))+BE
+37	I $S<1999 D S1 K T,TAN
+39	G 27
+	;
+YZ	K KLA,DC,T,TA,TB,TAN D:$P($G(@("^"_Q_"BA(300)")),D,8) ^cT184I Q
+	;
+	; (tussen)resultaat in bestand
+S1	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	; 04.11.04 - 10 u 11 * V8.02
+