cT407	;Pointeren rekeningen ;%T40 ; [ 01/03/01  7:19 PM ]
	G 1
	;
T0	;Pointeren rekeningen ;
T1	;Beginsaldo ;Nog te pointeren;
	;
T0F	;Pointage des comptes généraux ;
T1F	;Solde init.;Encore à pointer;
	;
T0E	;Check off accounts ;
T1E	;Initial balance ;To check off;
	;
	; bedrag uit ventilatie A/V
S1	S BE=0,S1=A
S1A	S S1=$O(^(S1)) G S1D:(S1\1'=A) S S2=^(S1)
S1B	S S3=$P(S2,D),S2=$P(S2,D,2,999) I S3="" G S1B:$L(S2),S1A
S1C	S:$P(S3,"#")=I1 BE=BE+$P(S3,"#",4) G S1B
S1D	S SRT=J_$E($P(N,D,21)+1E3,2,4),J=J_$P(N,D) I $D(@("^"_Q_"BA(""%T"",SRT)")) S J=$P(^(SRT),D,2)
S1E	S R1=$E($P(N,D,2),1,5)_" "_$E(J_$J("",4),1,4)_$J(A,7)
S1Z	K S1,S2,S3 Q
	;
	; nr & naam klant/leverancier
S5	I R5="" S R5=$TR($P(N,D,4,5),D," ")
S5Z	Q
	;
	; aflopen historieken
1	S I2=I2A-.001,TEL=1E9,(BJ0,BP0)=""
11	S I2=$O(@("^"_Q_"AR(I1,I2)")) I I2<I2A!(I2>I2Z)!(I2'?7N1"."1N.N) G Y
	;
	; gegevens ophalen
2	S H=^(I2)
20	S P=$G(@("^"_Q_"ARP(I1,I2)")),V=0,BP=$E(I2,2,5)_"."_$E(I2,6,7)
21	I BP'=BP0 S BJ=$$BJ^cAFE1(Q,BP),MNTC=$P($$MNTC^cAFE1(Q,BJ),D),BP0=BP
23	I BJ'=BJ0 D  S BJ0=BJ
	. S TEL=TEL+1,Y=^(BJ),Y=$S('Y:"Z",1:1E9+Y),Y(BJ)=Y
	. S R=BJ_"\BS\1\"_Y_D
	. S R1="**01."_$E(KM1(BJ),6,7)_"."_$E(KM1(BJ),3,4)_"**"
	. S R2=$$BEDR^cAFE1(Q,$$BSAL(BJ),MNTC,BF,"F"),R3="" I R2<0 S R3=-R2,R2=""
	. S R4=1,R5=$P($T(@("T1"_QT)),U,2)_BJ
	. S ^TEMP(boot,$J,TEL)=R_R1_D_R2_D_R3_D_R4_D_R5_D_BJ_D_(R2-R3)_D,^(Y_" "_TEL)=D
	. I TRI=2,Y(BJ)'="Z" K ^(Y_" "_TEL) S ^(1E9_" "_TEL)=Y(BJ) ; bovenaan
	. I Y,$D(@("^"_Q_"ARP(I1,0,Y#1E9)")) D
	.. S R=^(Y#1E9) I $P(R,D,11) Q
	.. S $P(^TEMP(boot,$J,TEL),D,11)=$P(R,D,4)
	. I 'TRI D                                                 ; extra lijn
	.. S R=^TEMP(boot,$J,TEL),R2=$P(R,D,11),R3="" I R2<0 S R3=-R2,R2=""
	.. S TEL=TEL+1,R=$P(R,D,1,4)_D,R1=$P($T(@("T1"_QT)),U,3)
	.. S ^(TEL)=R_R1_D_R2_D_R3_D_R4_D_R5_D_BJ_D_(R2-R3)_D,^(Y_" "_TEL)=D
	.. S $P(^(TEL-1),D,30)=1
	;
	; alle velden uit historiek
3	S V=V+1,X=$P(H,D,V),Y=$P(P,D,V) I X="" G 11
31	S TEL=TEL+1,Y=$S('Y:"Z",1:1E9+Y),R=I2_D_X_D_V_D_Y_D
33	S J=$E(X),A=$E(X,2,999),(R1,R2,R3,R4,R5)=""
	;
	; gegevens uit dagboek
4	I J="A" S N=$G(@("^"_Q_"AA(BP,A)")) D S1 S R2=BE,R5=$P(N,D,18) D S5 I $P(N,D)="C" S R2="",R3=BE
41	I J="V" S N=$G(@("^"_Q_"VE(BP,A)")) D S1 S R3=BE,R5=$P(N,D,14) D S5 I $P(N,D)="C" S R2=BE,R3=""
43	I J'="B" G 5
45	S N=$G(@("^"_Q_"FI(BP,$P(A,S),$P(A,S,2))"))
47	S R1=$E($P(N,D,2),1,5)_" "_$E($P(N,D,4)_$J("",4),1,4)_$J($P(N,D,3),7)
49	S R2=$P(N,D,5),R5=$P(N,D,9) I $P(N,D,6)="C" S R3=R2,R2=""
	;
	; lijn in hulpbestand
5	I R2,MNTC'=BF S R2=$$BEDR^cAFE1(Q,R2,MNTC,BF,"F")
51	I R3,MNTC'=BF S R3=$$BEDR^cAFE1(Q,R3,MNTC,BF,"F")
53	S ^TEMP(boot,$J,TEL)=R_R1_D_R2_D_R3_D_R4_D_R5_D_BJ_D,^(Y_" "_TEL)=D
55	I TRI=2,Y,Y=Y(BJ) K ^(Y_" "_TEL) S ^(1E9_" "_TEL)=Y(BJ) ; bovenaan
57	G 3
	;
	; terug naar %T40
Y	I 'BJ0,KJ,$$BSAL(KJ) S H="",I2=I2Z G 20   ; pointeren beginsaldo indien geen historiek
	; VJ 30.10.02
	; I TRI=2,BJ0,Y(BJ0)'="Z" S R=$G(@("^"_Q_"ARP")@(I1,0,Y(BJ0)#1E9)) I $P(R,D,5) D LINK($P(R,D,5)) ; VJ/08.04.02
	I TRI=2,BJ0,Y(BJ0)'="Z" S R=$G(@("^"_Q_"ARP")@(I1,0,Y(BJ0)#1E9)) I $P(R,D,5) D LUS($P(R,D,5))
YZ	Q
	;
BSAL(J)	; (voorlopig) beginsaldo in muntcode boekjaar
	N R,BJ
	S BJ=$P(BPB,D,2)\1,R=$P($G(@("^"_Q_"AR(I1,J)")),D) I J>BJ D
	. I $P(B(1),D,20) S R=0 Q
	. N DC,CC
	. S DC=$G(^(J-1)),CC=$G(^(J-.98)),R=$P(DC,D)
	. N I F I=2:1:24 S R=R+$P(DC,D,I)-$P(CC,D,I)
	. S R=$$BEDR^cAFE1(Q,R,$P($$MNTC^cAFE1(Q,J-1),D),$G(MNTC,BF),"F")
BSALZ	Q R
	;
	; VJ/08.04.02
	; voorgaande pointering op beginsaldo met andere refere
LINK(X)	S $ZT="TRAP^cAN000"
	N TEL,Y
	S R=0,Y=1E9+X I '$D(^TEMP(boot,$J,Y)) G LINKZ
	S TEL=$P(^(Y),D,4) G LINKZ:'TEL K ^(Y_" "_TEL) S ^(1E9_" "_TEL)=X
	I $D(@("^"_Q_"ARP")@(I1,0,X)) S R=$P(^(X),D,5) ; I R D LINK(R) ; VJ 30.10.02
LINKZ	Q
	;
	; VJ/30.10.02
	; er kunnen een hele reeks linken zijn (Serry)
LUS(NR)	N R
LUSA	D LINK(NR) I R S NR=R G LUSA
LUSZ	Q
	;
ZZ	; 29.10.02 - 11 u 38 * V7.93