cT765	;BEREKENING DETAIL PER BOEKJAAR (nieuwe beheer);%T70 ; [ 03/27/2001  11:27 AM ]
	;
T0	;Berekening detail per boekjaar ;
T1	;Restwaarde verschillend van 0;
	;
T0F	;Calcul détail par année compta ;
T1F	;Valeur restante différente de 0;
	;
T0E	;Berekening detail per boekjaar ;cT
T1E	;Restwaarde verschillend van 0;
	G 1
	;
	; input  : variabelen INV = investeringsjaar
	;                     CAT = kategorie
	;                     TBL = nummer afschrijvingstabel
	;
	; output : ^TEMP(boot,$J+.01) = jaaroverzicht
	;           R = eind-restwaarde
	;
1	K ^TEMP(boot,$J+.01) ; K @("^"_Q_"AFS(0,$J+.01)")
	S TBL=$P(LIJNUI1," ",3)
	D ^cT701  ; opbouw ^HULP met gegevens over kalenderjaren
	;
12	S H=^TEMP(boot,$J,LIJNUI1,0),HF=$P(H,D,8)
	s HA=$P(H,D,4),HG=$P(H,D,3),HL=$P(H,D,2),HDES=$P(H,D,9)
	S DESBJ="" I $L(HDES)>1 S DESBJ=$$BJ^cAFE1(Q,HDES)
	s R=HF\1-1
	;
	;   D S3^cT701 S HBJ1=R G YZ:HBJ1="" S R=HBJ1 D S1^cT701 S HBP1=$P(R,D)
2	s R=$o(^HULP(boot,$J,R)) g YZ:R="" s HBJ1=R D S1^cT701 S HBP1=$P(R,D)
22	I '$D(@("^"_Q_"AFS(INV,CAT,TBL_"" "",HBP1)")),$O(^(HBP1))="" S R="" G YZ
24	S (HAF1,H0)=0
	; F H=1:1 S H0=$O(@("^"_Q_"AFS(INV,CAT,TBL_"" "",H0)")) Q:H0=""  Q:H0'<HBP1  S HAF1=HAF1+^(H0)
	S I3="" F H=1:1 S I3=$O(^TEMP(boot,$J+.02,I3)) Q:I3=""  Q:($P(I3," ",4)'<HBP1)  S HAF1=HAF1+^(I3,0)
	;
3	S HBJ=HBJ1,HRW=HA-HAF1,HCU=HAF1 I DESBJ,HBJ'<DESBJ S HRW=0
32	S R=HBJ D S1^cT701 S HAF=0
	; F H=1:1 S H0=$P(R,D,H) Q:H0=""  S HBP=H0 I $D(@("^"_Q_"AFS(INV,CAT,TBL_"" "",HBP)")) S HAF=HAF+^(HBP)
	F H=1:1 S H0=$P(R,D,H) Q:H0=""  S HBP=INV_" "_CAT_TBL_" "_H0 I $D(^TEMP(boot,$J+.02,HBP)) S HAF=HAF+^(HBP,0)
34	S ^TEMP(boot,$J+.01,HBJ_" ",0)=HRW_D_$J(HAF/(H-1),0,QD)_D_HAF_D_(HCU+HAF)
36	S HRW=HRW-HAF,HCU=HCU+HAF I DESBJ,HBJ'<DESBJ S HRW=0
38	S HBJ=HBJ+1 I $O(^TEMP(boot,$J+.02,HBP))'="" G 32
39	S ^TEMP(boot,$J+.01,HBJ_" ",0)=HRW,R=HRW
	;
	; tonen ^DMH(0,AFS.DET.JR
	; 
5	; S REFRESH=2 ; D BS^cAN210("AFS.DET.JR",0,0,0,"")
	;
6	; I '$$REST(HA) G 5  ; restwaarde verschillend van 0
	;
YZ	K H,HF,HA,HG,HL,HBJ1,HBP1,HAF1,H0,HBJ,HAF,HBP,HRW,HCU Q
	;
Z	X ^cZ
ZZ	; 24.09.03 - 14 u 21 * V7.96