cT762	; Desinvesteren vanuit nieuw beheer afschrijvingen ;%T70 ; [ 06/28/00  11:40 AM ]
	G YZ
	;
T0	;Beheer afschrijvingstabellen ;
	;
T0F	;Gestion tableaux d'amortissement ;
	;
T0E	;Beheer afschrijvingstabellen ;
	;
YZ	Q
	; Desinvestering via nieuw beheer afschrijvingen
S5	N A,B,II,I,DES,FNR,COMM,RRZ,REGIM,BJ
	S $ZT="TRAP^cAN000"
	S A(1)=OINH,B(1)=NINH
	; 
	; in geval pro rata per dag --> S6
	I $P(A(1),D,3)=3 D S6 G S5Z
	;
	S DES=$P(B(1),D,9),FNR=$P(B(1),D,19),COMM=$P(B(1),D,20)
	I $L($P(A(1),D,9)),'$L(DES) D ^cT763 G S5Z
	G S5Z:$L(DES)=1 
	;
	; desinvesteringsmaand ingegeven
	;
	S REGIM=$P(B(1),D,3) D ^cT489 S BJ=$$BJ^cAFE1(Q,DES)
	S EM=DES S:REGIM'=1 EM=$G(KM1(BJ)) S I3=UI1_(EM-.01)
	F  S I3=$O(^TEMP(boot,$J+.02,I3)) Q:I3=""  S ^(I3,0)=0
S5Z	Q
	;
	; desinvesteringen igv pro rata per dag
	; FB - 19.03.03
S6	S DES=$P(B(1),D,9),FNR=$P(B(1),D,19),COMM=$P(B(1),D,20),DESD=$P(B(1),D,22)
	S WZ=0  ; switch wijzigen ivm wijzigen bedrag laatste maand
	I $L($P(A(1),D,22)) S WZ=1
	S DESDC=$$DC^cAFD1(DESD)
	S DES=$S($L(DESDC):$E(DESDC,1,4)_"."_$E(DESDC,5,6),1:"")
	I $L($P(A(1),D,9)),'$L(DES) D ^cT763 G S6Z
	G S6Z:WZ=1 
	;
	; desinvesteringsmaand ingegeven
	;
	S EM=DES                             ; desinvesteringsmaand
	S DEM=$$DCO^cAFD1($TR(EM,".")_"01")  ; eerste dag desinvesteringsmaand
	I DESD=DEM G S6N                     ; indien 1e dag des.maand = 01.xxx -> normaal
	S R=DESD_D_DEM D ^cA326 S VERS=R     ; aantal dagen verschil
	; S HB=@("^"_Q_"AFS(INJ,KAT,RRZ_"" "",+EM)")  ; maandafschrijvingsbedrag
	S HB=$G(^TEMP(boot,$J+.02,UI1_+EM,0)) I HB="" G S6Z   ; maand niet gevonden -> niets meer doen - FB - 16.11.05
	S AFT=$J(HB*12*VERS/365,0,QD)        ; berekening resterend bedrag 1e maand
	; S @("^"_Q_"AFS(INJ,KAT,RRZ_"" "",+EM)")=AFT
	S ^TEMP(boot,$J+.02,UI1_+EM,0)=AFT
	S I3=UI1_EM G S6O                    ; na desinv. maand, alle maanden op 0
	;
S6N	S I3=UI1_(EM-.01)
S6O	F  S I3=$O(^TEMP(boot,$J+.02,I3)) Q:I3=""  S ^(I3,0)=0
S6Z	Q
	;
Z	X ^cZ Q
ZZ	; 15.12.05 - 12 u 16 * V8.05