Index: cT400.mac.rou
===================================================================
diff -u -r734 -r3542
--- cT400.mac.rou	(.../cT400.mac.rou)	(revision 734)
+++ cT400.mac.rou	(.../cT400.mac.rou)	(revision 3542)
@@ -1,42 +1,43 @@
-cT400 ;Pointeren rekeningen ;%T40 ; [ 01/02/01  6:05 PM ]
- G 1
- ;
-T0 ;Pointeren rekeningen ;
-T1 ;Periode: ; / Muntcode: ;
-T2 ;Lijn ;1\Datum C    Nummer\Debet;2\Credit;2\Referte\Pt;
-T3 ;Datum C    Nummer\Debet;2\Credit;2\Saldo;2\Referte\Volgnr\Door\ Datum\ Commentaar;
-T4 ;Saldo van de niet gepointeerde lijnen ;
- ;
-T0F ;Pointage des comptes generaux;
-T1F ;P�riode: ; / Code mon.: ;
-T2F ;Ligne ;1\Date C    Num�ro\D�bit;2\Cr�dit;2\R�f�rence\Pt;
-T3F ;Date  C    Num�ro\D�bit;2\Cr�dit;2\Solde;2\R�f�rence\N� s�q\Par\ Date\ Commentaire;
-T4F ;Solde des lignes non-point�es ;
- ;
-T0E ;Check off accounts ;
-T1E ;Period: ; / Currency: ;
-T2E ;Line ;1\Date  C    Number\Debit;2\Credit;2\Ref.   \Ch;
-T3E ;Date  C    Number\Debit;2\Credit;2\Bal.;2\Ref.\Ser.nr\thr.\ Date \ Comment;
-T4E ;Balance of the lines that have not been checked off ;
- ;
- ; initialisatie
-1 S HD(1)=D_$P($T(@("T0"_QT)),U,2),HD(2)=D_I1_$P(B(1),D,2),V=0
-11 S HD(3)=D_$P($T(@("T1"_QT)),U,2)_$S(KEU:KM1_" - "_KM2,1:KJ_$S(SW:"+",1:""))_$P($T(@("T1"_QT)),U,3)_BF
-13 I TRI>0 S TAB="18\33\48\63\79\86\91\102\131",TIT(1)=$P($T(@("T3"_QT)),U,2,999) G ^cT406
-15 S TAB="8\27\43\59\76\79",TIT(1)=$P($T(@("T2"_QT)),U,2,999)
-17 I PTS=1 G ^cT402              ; werklisting op scherm
- ;
- ; werklisting op papier
-2 S I2="",(NVA,ONR,BJ,BJ0,KZ)=0,HTRI=TRI
-21 S I2=$O(^HULP(boot,$J+.01,I2)) I I2=""!(I2[" ") G 3
-23 D ^cT401 S ONR=NVA G 21       ; werklisting op printer
- ;
- ; saldo niet gepointeerde lijnen
-3 S END=145 D ^cA334 S LN=LN-1
-31 S TAB="43\59\79",TXT(1)=$P($T(@("T4"_QT)),U,2)
-33 D S1^cT408 S TXT(2)=R_"\\\\1\"_QD,TXT(3)=BF D ^cA334
-35 S END=4 D ^cA334
- ;
-YZ Q
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+cT400	;Pointeren rekeningen ;%T40 ; [ 01/02/01  6:05 PM ]
+	G 1
+	;
+T0	;Pointeren rekeningen ;
+T1	;Periode: ; / Muntcode: ;
+T2	;Lijn ;1\Datum C    Nummer\Debet;2\Credit;2\Referte\Pt;
+T3	;Datum C    Nummer\Debet;2\Credit;2\Saldo;2\Referte\Volgnr\Door\ Datum\ Commentaar;
+T4	;Saldo van de niet gepointeerde lijnen ;
+	;
+T0F	;Pointage des comptes generaux;
+T1F	;P�riode: ; / Code mon.: ;
+T2F	;Ligne ;1\Date C    Num�ro\D�bit;2\Cr�dit;2\R�f�rence\Pt;
+T3F	;Date  C    Num�ro\D�bit;2\Cr�dit;2\Solde;2\R�f�rence\N� s�q\Par\ Date\ Commentaire;
+T4F	;Solde des lignes non-point�es ;
+	;
+T0E	;Check off accounts ;
+T1E	;Period: ; / Currency: ;
+T2E	;Line ;1\Date  C    Number\Debit;2\Credit;2\Ref.   \Ch;
+T3E	;Date  C    Number\Debit;2\Credit;2\Bal.;2\Ref.\Ser.nr\thr.\ Date \ Comment;
+T4E	;Balance of the lines that have not been checked off ;
+	;
+	; initialisatie
+1	S HD(1)=D_$P($T(@("T0"_QT)),U,2),HD(2)=D_I1_$P(B(1),D,2),V=0
+11	S HD(3)=D_$P($T(@("T1"_QT)),U,2)_$S(KEU:KM1_" - "_KM2,1:KJ_$S(SW:"+",1:""))_$P($T(@("T1"_QT)),U,3)_BF
+13	I TRI>0 S TAB="18\33\48\63\79\86\91\102\131",TIT(1)=$P($T(@("T3"_QT)),U,2,999) G ^cT406
+15	S TAB="8\27\43\59\76\79",TIT(1)=$P($T(@("T2"_QT)),U,2,999)
+17	I PTS=1 G ^cT402              ; werklisting op scherm
+	;
+	; werklisting op papier
+2	S I2="",(NVA,ONR,BJ,BJ0,KZ)=0,HTRI=TRI
+21	S I2=$O(^TEMP(boot,$J,I2)) I I2=""!(I2[" ") G 3
+23	D ^cT401 S ONR=NVA G 21       ; werklisting op printer
+	;
+	; saldo niet gepointeerde lijnen
+3	S END=145 D ^cA334 S LN=LN-1
+31	S TAB="43\59\79",TXT(1)=$P($T(@("T4"_QT)),U,2)
+33	D S1^cT408 S TXT(2)=R_"\\\\1\"_QD,TXT(3)=BF D ^cA334
+35	S END=4 D ^cA334
+	;
+YZ	Q
+	;
+ZZ	; 18.04.02 - 15 u 36 * V7.92
+