Index: cT65.mac.rou
===================================================================
diff -u -r29059 -r43422
--- cT65.mac.rou	(.../cT65.mac.rou)	(revision 29059)
+++ cT65.mac.rou	(.../cT65.mac.rou)	(revision 43422)
@@ -1,62 +1,66 @@
-cT65 ;Centralisatiedagboek ;%T65 ; [ 01/03/01  3:23 PM ]
- G 1
- ;
-T0 ;Centralisatiedagboek ;
-T1 ;Boekingsmaand\"-[] = einde programma   jjjj.mm[] = bepaalde maand";
-T2 ;Aantal cijfers centralisatie\"[] = detail per rekening   x[] = centralisatie op x cijfers";
-T4 ;Boekingsmaand  : ;Aantal cijfers : ;
-T7 ; Nummer\ Naam van de rekening\Debet;2\Credit;2;
-T8 ;Overdrachttotaal;Eindtotaal;
- ;
-T0F ;Journal centralisateur ;
-T1F ;Mois comptable\"-[] = fin du programme   aaaa.mm[] = mois sp�cifique";
-T2F ;Degr� de d�tail\"[] = d�tail par compte   x[] = centralisation sur x chiffres";
-T4F ;Mois comptable: ;Nombre chiffres  : ;
-T7F ; Num�ro\ Nom du compte\D�bit;2\Cr�dit;2;
-T8F ;Montant transfert;Total final;
- ;
-T0E ;Centralisation journal ;
-T1E ;Fiscal month\"-[] = end program   yyyy.mm[] = particular month";
-T2E ;Nr of ciphers centralisation\"[] = detail per account   x[] = centralisation on x ciphers";
-T4E ;Fiscal month   : ;Nr of ciphers  : ;
-T7E ; Number\ Name of the account\Debit;2\Credit;2;
-T8E ;Transfer total;Final total;
- ;
-1 S BPB=@("^"_Q_"BA(2)"),BPX=$E(^(7)+.01_0,1,7) S:BPX#1>.12 BPX=BPX+.88 I 'QP S BP=PP(1),AC=PP(2) G 3
-11 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
- ;
-2 S BP=BPX,R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K=""-"")\\\\\1"
-21 D R0 G YZ:K="-" S PP(1)=BP,FP=450 W @F,$P($T(@("T4"_QT)),U,2),BP
-23 I BP'>$P(BPB,D,3) D TXT^cAFA1(61) G 2
-25 S R="AC\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\K>0&(K<8)!(""-""[K)"
-27 D R0 G 2:K="-" S:'K AC=7 S PP(2)=AC,FP=550 W @F,$P($T(@("T4"_QT)),U,3),AC
-29 S R=0 S KEU="1#2#9" D ^cAN3223("",KEU) G 2:K=",",25:K="-" I K="." S QPT=$T(+0) D ^cA109 G YZ
- ;
-3 S I1=0,BLZ=0,Q4="^"_Q_"AR(I1)",NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3)
-30 S TAB="11\49\64\79" S TIT(1)=$P($T(@("T7"_QT)),U,2,99)
-31 S BM=BP#1*100,BJ=BP\1,MNM=^cBA(2,$E(QT_"N"),BP#1*100)_" "_BJ,K=$P(BPB,D,2) S:BP>K BPB=K\1*12+(K#1*100),K=K+1
-33 S BX=BJ*12+BM-BPB+1,BJ=$$BJ^cAFE1(Q,BP) X F70 W @F80
-35 S MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2),MUNT=$P(MUNT,D)
-37 S HD(1)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(2)=D_MNM_";C;F82",HD(3)=D
-39 D S1 F I=0,1 S (T(I),A(I))=0
- ;
-4 S I1=$O(@Q4) I I1="" D S1 G Y
-41 S K=^(I1,0) G 4:'$D(^(BJ))&(AC=7),43:'$D(^(BJ)) S A(0)=A(0)+$P(^(BJ),D,BX),A(1)=A(1)+$P(^(BJ+.02),D,BX) G 4:'A(0)&'A(1)&(AC=7)
-43 I AC<7 S K=$E($P(K,D),1,AC) G 4:$E($O(@Q4),1,AC)=K,4:'A(0)&'A(1) S:$D(^(K_" ",0)) K=^(0)
-45 S TXT(1)=$P(K,D)_D_D_1_D_D_D_D_"$E(K,1,3)_$S($L(K)>3:"".""_$E(K,4,9),1:"""")"
-451 S TXT(2)=$P(K,D,2)_D_D_1
-453 S TXT(3)=A(0)_"\\\\1\"_QD_D_D_1,TXT(4)=A(1)_"\\\\1\"_QD_D_D_1
-47 D ^cA334 F I=0,1 S T(I)=T(I)+TXT(I+3),A(I)=0
-49 G 4
- ;
-Y I BP'<BPX S @("^"_Q_"BA(BP,109)")=$H
-YZ Q
- ;
-S1 S AFS(1,2)=" "_$P($T(@("T8"_QT)),U,I1=""+2)
-S1A I I1="" S END=1 D ^cA334
-S1Z Q
- ;
-R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
-
+cT65	;Centralisatiedagboek ;%T65 ; [ 01/03/01  3:23 PM ]
+	G 1
+	;
+T0	;Centralisatiedagboek ;
+T1	;Boekingsmaand\"-[] = einde programma   jjjj.mm[] = bepaalde maand";
+T2	;Aantal cijfers centralisatie\"[] = detail per rekening   x[] = centralisatie op x cijfers";
+T4	;Boekingsmaand  : ;Aantal cijfers : ;
+T7	; Nummer\ Naam van de rekening\Debet;2\Credit;2;
+T8	;Overdrachttotaal;Eindtotaal;
+T9	;\Boekingsmaand;
+	;
+T0F	;Journal centralisateur ;
+T1F	;Mois comptable\"-[] = fin du programme   aaaa.mm[] = mois sp�cifique";
+T2F	;Degr� de d�tail\"[] = d�tail par compte   x[] = centralisation sur x chiffres";
+T4F	;Mois comptable: ;Nombre chiffres  : ;
+T7F	; Num�ro\ Nom du compte\D�bit;2\Cr�dit;2;
+T8F	;Montant transfert;Total final;
+T9F	;\Mois comptable;
+	;
+T0E	;Centralisation journal ;
+T1E	;Fiscal month\"-[] = end program   yyyy.mm[] = particular month";
+T2E	;Nr of ciphers centralisation\"[] = detail per account   x[] = centralisation on x ciphers";
+T4E	;Fiscal month   : ;Nr of ciphers  : ;
+T7E	; Number\ Account Name\Debit;2\Credit;2;
+T8E	;Transfer total;Final total;
+T9E	;\Fiscal month;
+	;
+1	S BPB=@("^"_Q_"BA(2)"),BPX=$E(^(7)+.01_0,1,7) S:BPX#1>.12 BPX=BPX+.88 I 'QP S BP=PP(1),AC=PP(2) G 3
+11	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
+	;
+2	S BP=BPX,R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K=""-"")\\\\\1"
+21	D R0 G YZ:K="-" S PP(1)=BP,FP=450 W @F,$P($T(@("T4"_QT)),U,2),BP
+23	I BP'>$P(BPB,D,3) D TXT^cAFA1(61) G 2
+25	S R="AC\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\K>0&(K<8)!(""-""[K)"
+27	D R0 G 2:K="-" S:'K AC=7 S PP(2)=AC,FP=550 W @F,$P($T(@("T4"_QT)),U,3),AC
+29	S R=0 S KEU="1#2#4#5#9" D ^cAN3223("",KEU) G 2:K=",",25:K="-" I K="." S QPT=$T(+0) D ^cA109 G YZ
+	;
+3	S I1=0,BLZ=0,Q4="^"_Q_"AR(I1)",NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3)
+30	S TAB="11\49\64\79" S TIT(1)=$P($T(@("T7"_QT)),U,2,99)
+	I PTS=3!(PTS=4) S TIT(1)=TIT(1)_$P($T(@("T9"_QT)),U,2),TAB=TAB_"\"_($P(TAB,"\",$L(TAB,"\"))+8)
+31	S BM=BP#1*100,BJ=BP\1,MNM=^cBA(2,$E(QT_"N"),BP#1*100)_" "_BJ,K=$P(BPB,D,2) S:BP>K BPB=K\1*12+(K#1*100),K=K+1
+33	S BX=BJ*12+BM-BPB+1,BJ=$$BJ^cAFE1(Q,BP) ;X F70 W @F80
+35	S MUNT=$$MNTC^cAFE1(Q,BJ),QD=$P(MUNT,D,2),MUNT=$P(MUNT,D)
+37	S HD(1)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(2)=D_MNM_";C;F82",HD(3)=D
+39	D S1 F I=0,1 S (T(I),A(I))=0
+	;
+4	S I1=$O(@Q4) I I1="" D S1 G Y
+41	S K=^(I1,0) G 4:'$D(^(BJ))&(AC=7),43:'$D(^(BJ)) S A(0)=A(0)+$P(^(BJ),D,BX),A(1)=A(1)+$P(^(BJ+.02),D,BX) G 4:'A(0)&'A(1)&(AC=7)
+43	I AC<7 S K=$E($P(K,D),1,AC) G 4:$E($O(@Q4),1,AC)=K,4:'A(0)&'A(1) S:$D(^(K_" ",0)) K=^(0)
+45	S TXT(1)=$P(K,D)_D_D_1_D_D_D_D_"$E(K,1,3)_$S($L(K)>3:"".""_$E(K,4,9),1:"""")"
+451	S TXT(2)=$P(K,D,2)_D_D_1
+453	S TXT(3)=A(0)_"\\\\1\"_QD_D_D_1,TXT(4)=A(1)_"\\\\1\"_QD_D_D_1
+	I PTS=3!(PTS=4) S TXT(5)=BP
+47	D ^cA334 F I=0,1 S T(I)=T(I)+TXT(I+3),A(I)=0
+49	G 4
+	;
+Y	I $G(PTS)'=4,BP'<BPX S @("^"_Q_"BA(BP,109)")=$H
+YZ	Q
+	;
+S1	S AFS(1,2)=" "_$P($T(@("T8"_QT)),U,I1=""+2)
+S1A	I I1="" S END=1 D ^cA334
+S1Z	Q
+	;
+R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
+	;
+ZZ	; 22.06.04 - 16 u 32 * V8