Index: cT404.mac.rou
===================================================================
diff -u -r734 -r3542
--- cT404.mac.rou	(.../cT404.mac.rou)	(revision 734)
+++ cT404.mac.rou	(.../cT404.mac.rou)	(revision 3542)
@@ -1,45 +1,46 @@
-cT404 ;Pointeren rekeningen ;%T40 ; [ 01/03/01  7:17 PM ]
- G 1
- ;
-T0 ;Pointeren rekeningen ;
-T1 ;Gelinkte lijnen : ;
-T2 ;Er rest een saldo (;), verwijderen onmogelijk ;
-T3 ;Bevestiging\"V[] = definitief verwijderen";
- ;
-T0F ;Pointage des comptes generaux ;
-T1F ;Lignes li�es : ;
-T2F ;Il reste un solde (;), annulation impossible ;
-T3F ;Confirmation\"V[] = annuler d�finitivement";
- ;
-T0E ;Check of accounts ;
-T1E ;Linked lines : ;
-T2E ;There is a balance left (;), removal impossible ;
-T3E ;Confirmation\"V[] = remove permanently";
- ;
- ; saldo v/d gelinkte lijnen
-1 S I2V=NVA_" ",(SWBS,SOM)=0 W /CUP(22,3),@F1,$P($T(@("T1"_QT)),U,2)
-11 S I2V=$O(^HULP(boot,$J+.01,I2V)) I $P(I2V," ")'=NVA G 2
-13 S I2=$S(TRI:I2V,1:$P(I2V," ",2)),(LN,NOT)=1 D ^cT401 K NOT
-15 S SOM=SOM+TXT(3)-TXT(4) W J2#1E9," " G 11
- ;
-2 I SOM=0!SWBS G 21
-20 S K=$T(@("T2"_QT)),K=$P(K,U,2)_$$IP^cAFA1(SOM,QD,0)_$P(K,U,3) D F1 G YZ
-21 S R="K\23\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0
-23 I K'="V" G YZ
- ;
-3 S I2V=NVA_" ",@%Q1=0,N=$G(@("^"_Q_"ARP(I1,0,NVA#1E9)"))
-30 S $P(N,D,11)=$H_D_QU_D_D_SOM_D,^(NVA#1E9)=N
-31 S I2V=$O(^HULP(boot,$J+.01,I2V)) I $P(I2V," ")'=NVA S @%Q1=1 G YZ
-33 S I2=$S(TRI:I2V,1:$P(I2V," ",2)),(LN,NOT)=1 D ^cT401 K NOT
-35 S ONR=$P(^HULP(boot,$J+.01,J2),D,4),$P(^(J2),D,4)="Z",^("Z "_J2)=D K ^(ONR_" "_J2)
-37 S N=^(J2),I2=$P(N,D),J=$P(N,D,3),$P(@("^"_Q_"ARP(I1,I2)"),D,J)="" G 31
- ;
-YZ G 19^cT402
- ;
-R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
- ;
-F1 S R=250
-F2 D TXT^cAFA1(R)
-FZ K R Q
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+cT404	;Pointeren rekeningen ;%T40 ; [ 01/03/01  7:17 PM ]
+	G 1
+	;
+T0	;Pointeren rekeningen ;
+T1	;Gelinkte lijnen : ;
+T2	;Er rest een saldo (;), verwijderen onmogelijk ;
+T3	;Bevestiging\"V[] = definitief verwijderen";
+	;
+T0F	;Pointage des comptes generaux ;
+T1F	;Lignes li�es : ;
+T2F	;Il reste un solde (;), annulation impossible ;
+T3F	;Confirmation\"V[] = annuler d�finitivement";
+	;
+T0E	;Check of accounts ;
+T1E	;Linked lines : ;
+T2E	;There is a balance left (;), removal impossible ;
+T3E	;Confirmation\"V[] = remove permanently";
+	;
+	; saldo v/d gelinkte lijnen
+1	S I2V=NVA_" ",(SWBS,SOM)=0 W /CUP(22,3),@F1,$P($T(@("T1"_QT)),U,2)
+11	S I2V=$O(^TEMP(boot,$J,I2V)) I $P(I2V," ")'=NVA G 2
+13	S I2=$S(TRI:I2V,1:$P(I2V," ",2)),(LN,NOT)=1 D ^cT401 K NOT
+15	S SOM=SOM+TXT(3)-TXT(4) W J2#1E9," " G 11
+	;
+2	I SOM=0!SWBS G 21
+20	S K=$T(@("T2"_QT)),K=$P(K,U,2)_$$IP^cAFA1(SOM,QD,0)_$P(K,U,3) D F1 G YZ
+21	S R="K\23\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,V""[K&$L(K)\\\1" D R0
+23	I K'="V" G YZ
+	;
+3	S I2V=NVA_" ",@%Q1=0,N=$G(@("^"_Q_"ARP(I1,0,NVA#1E9)"))
+30	S $P(N,D,11)=$H_D_QU_D_D_SOM_D,^(NVA#1E9)=N
+31	S I2V=$O(^TEMP(boot,$J,I2V)) I $P(I2V," ")'=NVA S @%Q1=1 G YZ
+33	S I2=$S(TRI:I2V,1:$P(I2V," ",2)),(LN,NOT)=1 D ^cT401 K NOT
+35	S ONR=$P(^TEMP(boot,$J,J2),D,4),$P(^(J2),D,4)="Z",^("Z "_J2)=D K ^(ONR_" "_J2)
+37	S N=^(J2),I2=$P(N,D),J=$P(N,D,3),$P(@("^"_Q_"ARP(I1,I2)"),D,J)="" G 31
+	;
+YZ	G 19^cT402
+	;
+R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
+	;
+F1	S R=250
+F2	D TXT^cAFA1(R)
+FZ	K R Q
+	;
+ZZ	; 18.04.02 - 15 u 36 * V7.92
+