cT709 ;BEREKENING DETAIL PER BOEKJAAR ;%T70 ; [ 06/06/00  4:29 PM ]
 ;
T0 ;Berekening detail per boekjaar ;
 ;
T0F ;Calcul détail par année compta ;
 ;
T0E ;Berekening detail per boekjaar ;
 G 1
 ;
 ; input  : variabelen INJ = investeringsjaar
 ;                     KAT = kategorie
 ;                     TBL = nummer afschrijvingstabel
 ;
 ; output : ^QAFS(0,$J+(100/10000)) = jaaroverzicht
 ;           R = eind-restwaarde
 ;
1 K @("^"_Q_"AFS(0,$J+(100/10000))")
12 S H=@("^"_Q_"AFS(INJ,KAT,TBL_"" "")"),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
 ;
2 ;   D S3^cT701 S HBJ1=R G YZ:HBJ1="" S R=HBJ1 D S1^cT701 S HBP1=$P(R,D)
 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(INJ,KAT,TBL_"" "",HBP1)")),$O(^(HBP1))="" S R="" G YZ
24 S (HAF1,H0)=0
 F H=1:1 S H0=$O(@("^"_Q_"AFS(INJ,KAT,TBL_"" "",H0)")) Q:H0=""  Q:H0'<HBP1  S HAF1=HAF1+^(H0)
 ;
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(INJ,KAT,TBL_"" "",HBP)")) S HAF=HAF+^(HBP)
34 S @("^"_Q_"AFS(0,$J+(100/10000),HBJ_"" "")")=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(@("^"_Q_"AFS(INJ,KAT,TBL_"" "",HBP)"))'="" G 32
39 S @("^"_Q_"AFS(0,$J+(100/10000),HBJ_"" "")")=HRW,R=HRW
 ;
YZ K H,HF,HA,HG,HL,HBJ1,HBP1,HAF1,H0,HBJ,HAF,HBP,HRW,HCU Q
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84