cT408	;Pointeren rekeningen ;%T40 ; [ 01/03/01  7:20 PM ]
	G 1
	;
T0	;Pointeren rekeningen ;
T1	;  Saldo van de niet gepointeerde lijnen: ;
	;
T0F	;Pointage des comptes généraux ;
T1F	;  Solde des lignes non pointées: ;
	;
T0E	;Check off accounts ;
T1E	;  Balance of the lines that have not yet been checked off: ;
	;
S1	S (R,I2)=0
S1A	S I2=$O(^TEMP(boot,$J,I2)) I I2=""!(I2[" ") G S1Z
S1B	S N=^(I2),NVA=$P(N,D,4),NIV=$P(N,D,30) I NIV G S1A
S1C	I 'NVA,'$P(N,D,8) S R=R+$P(N,D,6)-$P(N,D,7)
S1D	I $P(N,D,8) S R=R+$P(N,D,11)
S1E	G S1A
S1Z	Q
	;
	; berekenen
1	W /CUP(22,1),$P($T(@("T1"_QT)),U,2),@F1 D S1
2	W $$IP^cAFA1(R,QD,0),BF S R=4 D F2
	;
YZ	G 2^cT402
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 18.04.02 - 15 u 36 * V7.92