cT769	;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),^TEMP(boot,$J+.02) ; K @("^"_Q_"AFS(0,$J+.01)")
	S TBL=$P(UI1," ",3)
	D ^cT701  ; opbouw ^HULP met gegevens over kalenderjaren
	;
	; ophalen bestaande gegevens uit ^_Q_AFS
	S GEW=0
	F ITEL=2,3,4,5,8,9 I $P(B(1),D,ITEL)'=$P(OINH,D,ITEL) S GEW=1
11	I GEW D ^cT763  G 12 ; opzetten ^TEMP(boot,$J+.02
	S RRZ=$P(LIJNUI1," ",3),CAT=$P(LIJNUI1," ",2)_" "
	S MND="" F  S MND=$O(@("^"_Q_"AFS(INV,CAT,RRZ_"" "",MND)")) Q:MND=""  S BED=^(MND) D
	. S ^TEMP(boot,$J+.02,INV_" "_CAT_RRZ_" "_+MND,0)=BED
	;
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	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
	;
REST(UI1)	; check restwaarde bij verlaten DMH met jaarbedragen
	;
	S RESTOK=1
	I $P(^TEMP(boot,$J,UI1,0),D,9) G RESTZ   ; gedesinvesteerd
	S HA=$P(^TEMP(boot,$J,UI1,0),D,4)  ; aanschafwaarde
	S I3="",TOT=0
	F  S I3=$O(^TEMP(boot,$J+.02,I3)) Q:I3=""  S TOT=TOT+^(I3,0)
	I +HA'=+TOT S K=$P($T(@("T1"_QT)),U,2)_" : "_(HA-TOT) D TXT^cAFA1(250) S RESTOK=0
RESTZ	Q RESTOK
	;
Z	X ^cZ
ZZ	; 24.09.03 - 14 u 21 * V7.96