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