cT401	;Pointeren rekeningen ;%T40 ; [ 01/02/01  6:05 PM ]
	G 1
	;
T0	;Pointeren rekeningen ;
T1	;ok;
	;
T0F	;Pointage des comptes généraux;
T1F	;ok;
	;
T0E	;Check off accounts ;
T1E	;ok;
	;
	; 1 lijn op scherm/papier
1	S J2=$S(I2[" ":$P(I2," ",2),1:I2),N=^TEMP(boot,$J,J2)
11	S TXT(1)=J2#1E9_"\1\\1"       ; lijnnr.
13	S TXT(2)=$P(N,D,5)            ; datum+code+doc
15	S TXT(3)=$P(N,D,6)            ; debet
17	S TXT(4)=$P(N,D,7)            ; credit
19	S TXT(5)=$P(N,D,9)            ; referte
	;
	; boekjaar & beginsaldo
2	S BJ=$P(N,D,10) I 'BJ0 S BJ0=BJ
21	I KZ,$P(N,D,8) S SWBS=1_D_BJ
23	S NIV=$P(N,D,30)
	;
	; nr van afpunten
3	S NVA=$P(N,D,4)
31	I $P(N,D,8) S NVA=0
33	S TXT(6)="" I NVA S TXT(6)=$P($T(@("T1"_QT)),U,2)
35	I 'HTRI,NVA G YZ
	;
	; openstaand beginsaldo
4	I $L(TXT(3)) S TXT(3)=TXT(3)_"\\\\1\"_QD
41	I $L(TXT(4)) S TXT(4)=TXT(4)_"\\\\1\"_QD
43	I '$G(NOT) W:PTS /WWR(1) D ^cA334
	;
YZ	Q
	;
ZZ	; 18.04.02 - 15 u 36 * V7.92