cT865	;Eenmalige boekingsreeksen ;%T86* ; [ 01/03/01  2:36 PM ]
	G 1
	;
T0	;Boekhoudkundige verwerking ;
T1	;Rekening : ;
	;
T0F	;Comptabiliser ;
T1F	;Compte : ;
	;
T0E	;Accounting processing ;
T1E	;Account : ;
	;
	; gewone historieken
S1	S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A	F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B	S BH=BH\1 D:BPE @BPEC I HIS S S1="B"_RB_"#"_BNR_D G S1D
S1C	S S1=BH_"B"_RB,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=NUM_D_DAT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S1Z
S1D	S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E	I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z	K S1,S2 S (BC(0),BC(1))=0 Q
	;
S2	L -@RL
S2Z	Q
	;
S3	L +@RL:2 E  S R=14 D F2 W @F,@F1 G S3
S3Z	Q
	;
	; analytische historieken
S4	S S3=2_$E(R5_$J("",7),1,7)_(BP*100),S4=0 I HIS S S1="B"_RB_"#"_BNR_D G S4B
S4A	S S1=S3_"B"_RB,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=NUM_D_DAT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S4Z
S4B	S S4=S4+.01,S2=S3_S4 S:S4=1 HIS=0 D ^cTA00:'HIS G S4A:'HIS,S4B:$D(^(S3_(S4+.01))) S:'$D(^(S2)) ^(S2)=""
S4C	I ^(S2)'[S1 G S4B:$L(^(S2))+$L(S1)>255 S ^(S2)=^(S2)_S1
S4Z	K S1,S2,S3,S4 S (BC(0),BC(1))=0 Q
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A	S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B	W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z	K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
	;
1	N IAS S I2=VOLG_" ",BC(0)=0,BC(1)=0
11	S I2=$O(^DATA(Q,"FID.J.DET",I2)) G Y:I2=""!($P(I2," ")'=VOLG) S R1=^(I2,0),BR=$P(R1,D),BRA=$P(R1,D,4),HBE=$P(R1,D,2) I 'HBE G 11
13	W /CUP(2,3),@F1,$P($T(@("T1"_QT)),U,2),BR S NMA=$P(@Q41,D,2) W NMA
15	S CO="D" I HBE["-" S CO="C"
17	W /CUP(2,60)," " S R=HBE_D_13_D_D_HQD D R3 W CO
	;
2	S HBE=$J(HBE,0,HQD),BE=$J(HBE*PAR,0,QD) X:$D(KAS) KAS
21	I CO="C" S UX=UX-BE,HUX=HUX-HBE
22	I CO="D" S UX=UX+BE,HUX=HUX+HBE
	;
3	S BNR=@Q93,@Q93=BNR+1 I $D(@Q95) G 3
31	S RL="^"_Q_"AR(BR)" D S3
32	S BC(CO="C")=BE,HIS=$P(@Q41,D,3) D S1 I '$L(BRA) D S2 G 4
33	S BC(CO="C")=BE,HIS=$P(@Q41,D,3),R5=BRA,HIS=1 D S4,S2
34	S RL="^"_Q_"ARA(BRA)" D S3
35	S BC(CO="C")=BE,HIS=$P(@("^"_Q_"ARA(BRA,0)"),D,3) D S1
36	S BC(CO="C")=BE,HIS=$P(@("^"_Q_"ARA(BRA,0)"),D,3),R5=BR,HIS=1 D S4,S2
37	I $P(SWAN,D,8) S IAS=$$SEG^cTA901(BRA)
	;
4	S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$P(BR," ")_"#"_NMA_D_$S($L(REF):REF,1:REF1)_D_BPE_D_HBE_D_D_D_SRT_D_OM1_D_BRA_D_D_D_HUXB_"#"_HUXV_D_UX_D_HUX_D_D_HBF_D_HBF_D_HBE_D_PAR_D
40	I $L($G(IAS)) S $P(K,D,40,43)=BRA_D_$P(IAS,D,1,3)
41	S $P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K
	; 
	; er voor zorgen dat divers dagboek moet afgedrukt worden bij maandafsluiting - FB - 10.10.05
	S @("^"_Q_"BA(BP,RB_"" "")")=$H
	;
	; GM 19.05.04 Extra cumuls
	D ECUM^cTA180("FI",BP,RB,BNR)
	;
	G 11
	;
	; verwijderen detaillijnen en reeks
Y	D X^cAN220("FID.J",0,VOLG) K ^HULP(boot,$J+.02,VOLG) S REFRESH=1,BENTER=1
YZ	K I2,NMA,HBE,OM,OM1,BE,CO,R1,R2,R5,RSAL,RL,ZR Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 24.02.06 -  9 u 54 * V8.06