cT405	;Pointeren rekeningen ;%T40 ; [ 01/02/01  6:17 PM ]
	G 1
	;
T0	;Pointeren rekeningen ;
T1	;Referte lijn ;
	;
T0F	;Pointage des comptes généraux ;
T1F	;Référence ligne ;
	;
T0E	;Check off accounts ;
T1E	;Reference line ;
	;
1	S I2=1E9+NVW,(LN,NOT)=1 D ^cT401 K NOT  ; gegevens v/d lijn ophalen
10	I $L($P(N,D,8)) S K="" G 6^cT402        ; beginsaldo
11	S A=TXT(5),R="A\22\3\"_$P($T(@("T1"_QT)),U,2)_NVW_"\\15\\\\\\\1" D R0 I K="-"!(K=",") G YZ
13	S N=^TEMP(boot,$J,J2),$P(^(J2),D,9)=K
15	S A=$P(N,D),BP=$E(A,2,5)_"."_$E(A,6,7),A=$P(N,D,2),J=$E(A),A=$E(A,2,999)
	;
2	I J="A" S $P(@("^"_Q_"AA(BP,A)"),D,18)=K
21	I J="V" S $P(@("^"_Q_"VE(BP,A)"),D,14)=K
23	I J="B" S $P(@("^"_Q_"FI(BP,$P(A,S),$P(A,S,2))"),D,9)=K
25	S FP=C(J2#1E9)*100-99,I2=J2 W @F D ^cT401
	;
YZ	G 2^cT402
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 18.04.02 - 15 u 36 * V7.92