cTA225	;Anal. verwerking aankoopfactuur ;%T645 ; [ 06/26/01  10:44 AM ]
	G 1
	;
T0	;Anal. verwerking aankoopfactuur ;
	;
T0F	;Traitement analytique des achats ;
	;
T0E	;Anal. verwerking aankoopfactuur ;
	;
	; analytische boeking per verrichting
S0	L +@("^"_Q_"AR(BR)"),+@("^"_Q_"ARA(BRA)") D S1
S0Z	L -@("^"_Q_"AR(BR)"),-@("^"_Q_"ARA(BRA)") Q
	;
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="A"_FNR_D G S1D
S1C	S S1=BH_"A"_SRT,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=FNR_D_FDT_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,S1Z:$G(^(BH))[S1,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
	;
	; link grootboekrekening <--> analytische rekening
S3	L +@("^"_Q_"AR(BR)"),+@("^"_Q_"ARA(BRA)") D S4
S3Z	L -@("^"_Q_"AR(BR)"),-@("^"_Q_"ARA(BRA)") Q
	;
S4	S S3=2_$E(R5_$J("",7),1,7)_(BP*100),S4=0 I HIS S S1="A"_FNR_D G S4B
S4A	S S1=S3_"A"_SRT,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=FNR_D_FDT_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,S4Z:$G(^(S2))[S1,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
	;
1	S R1=""
12	S R1=$O(^HULPE(HULPEA,R1)) G 2:R1="" S K=^(R1),BR=$P(K,S),BC(FT)=$P(K,S,4),BRA=$P(K,S,9)
14	S X=@("^"_Q_"ARA(BRA,0)"),HIS=$P(X,D,3) D S0 G 12
	;
2	S R1=""
22	S R1=$O(^HULPE(HULPE,R1)) G 3:R1="" S K=^(R1),BR=$P(K,S),BC(FT)=$P(K,S,4),BRA=$P(K,S,9) I '$L(BRA) G 22
24	S HIS=$P(@("^"_Q_"ARA(BRA,0)"),D,3),R5=BR,HIS=1 D S3 G 22
	;
3	S R1=""
32	S R1=$O(^HULPE(HULPE,R1)) G YZ:R1="" S K=^(R1),BR=$P(K,S),BC(FT)=$P(K,S,4),BRA=$P(K,S,9) I '$L(BRA) G 32
34	S HIS=$P(@("^"_Q_"AR(BR,0)"),D,3),R5=BRA,HIS=1 D S3 G 32
	;
YZ	Q
	;
ZZ	; 06.08.01 - 17 u 28 * V7.87