cT406	;Pointeren rekeningen ;%T40 ; [ 01/02/01  6:18 PM ]
	G 1
	;
T0	;Pointeren rekeningen ;
T1	;Overdracht;Totaal;
	;
T0F	;Pointage des comptes généraux;
T1F	;A transférer;Total;
	;
T0E	;Check off accounts ;
T1E	;Transfer;Total;
	;
	; lijn printen
S2	S TXT(4)=SAL+TXT(2)-TXT(3) F I=2:1:4 I $L(TXT(I)) S TXT(I)=TXT(I)_"\\\\1\"_QD_"\\1"
S2A	D ^cA334 S SAL=TXT(4),AFS(1,4)=TXT(4) F I=1:1:9 S TXT(I)=""
S2Z	Q
	;
	; initialen, datum & commentaar
S3	S S1=^(NVA),TXT(7)=$P(S1,D,2),TXT(8)=" "_$$HD^cAFD1($P(S1,D)),TXT(9)=$P(S1,D,3)
S3Z	K S1 Q
	;
	; start
1	S AFS(1,1)=$P($T(@("T1"_QT)),U,2)_D_2
11	S AFS(1,2)="0\\\\1\"_QD,AFS(1,3)="0\\\\1\"_QD,SAL=0
	;
	; detaillijnen
2	S I2=$S(TRI=2:" ",1:""),(NVA,ONR)=""
21	S I2=$O(^TEMP(boot,$J,I2)) I I2=""!(I2[" "&(TRI<2)) G 9
23	S J2=$S(I2[" ":$P(I2," ",2),1:I2),N=^TEMP(boot,$J,J2)
	;
3	S TXT(1)=$P(N,D,5)            ; datum+code+doc
31	S TXT(2)=$P(N,D,6)            ; debet
33	S TXT(3)=$P(N,D,7)            ; credit
35	S TXT(5)=$P(N,D,9)            ; referte
37	S NVA=$P(N,D,4) I NVA S NVA=NVA-1E9,TXT(6)=NVA_D_1 I $D(@("^"_Q_"ARP(I1,0,NVA)")) D S3
39	I PTS'="F",PTS'=3,TRI=2,NVA'=ONR S END=132 D ^cA334
	;
4	I $P(N,D,8),TRI<2 S SAL=0     ; beginsaldo
	;
5	D S2 S ONR=NVA G 21
	;
	; einde
9	S AFS(1,1)=$P($T(@("T1"_QT)),U,3)_D_2,END=4 D ^cA334
	;
YZ	Q
	;
ZZ	; 18.04.02 - 15 u 36 * V7.92