cT704 ;DETAIL AFSCHRIJVINGSTABEL PER BOEKJAAR ;%T70 ; [ 06/06/00  11:24 AM ]
 G 1
 ;
S3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
S3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
S3B S R=$J(R0,R1)_R4_R3
S3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
T0 ;Detail afschrijvingstabel per boekjaar ;
T1 ;Lijnnummer\;
T2 ;Lin.\P.R.T.\Deg.;
T3 ; Jaar;
T4 ;Afschrijvingstabel onbekend;
T5 ;Investering reeds volledig afgeschreven;      ;
T6 ;Des : ;
 ;
T0F ;Détail tableau d'amortissement par année;
T1F ;Numéro de ligne\;
T2F ;Lin.\P.R.T.\Dég.;
T3F ; Année;
T4F ;Tableau inconnu;
T5F ;Investissement est déjà complètement ammorti;     ;
T6F ;Des : ;
 ;
T0E ;Detail afschrijvingstabel per boekjaar ;
T1E ;Lijnnummer\;
T2E ;Lin.\P.R.T.\Deg.;
T3E ; Jaar;
T4E ;Afschrijvingstabel onbekend;
T5E ;Investering reeds volledig afgeschreven;      ;
T6E ;Des : ;
 ;
1 S R="TBL\22\3\"_$P($T(@("T1"_QT)),U,2)_"\4\\""-,""[K&$L(K)!(K?1.N)"
 D R0 G YZ:K="-",YZ:K=","
12 I '$D(@("^"_Q_"AFS(INJ,KAT,TBL_"" "")")) D F1 G 1
 ;
2 S H=@("^"_Q_"AFS(INJ,KAT,TBL_"" "")"),HO=$P(H,D)
 s HF=$P(H,D,8),HA=$P(H,D,4),HG=$P(H,D,3),HL=$P(H,D,2),DES=$P(H,D,9)
22 S FP=401 W @F,@F1,$$CR^cA334 W ?3,TBL,?8,HO,?30,HF,?39
 S R=HA_D_10_D_D_QD D S3 W R 
 W ?52,$P($P($T(@("T2"_QT)),U,2),D,HG+1),?59,HL,$P($T(@("T3"_QT)),U,2)
 I $L(DES)>1 W ?66,$P($T(@("T6"_QT)),U,2),DES
 ;
3 D ^cT709 I R="" D F2 G 9 ; berekening jaar-detail
 ;
 ; tonen jaar-detail
4 S ^HULP(boot,$J+(1000/10000))=INJ_D_KAT_D_TBL
42 D ^cA338,^cA609
44 S R=^HULP(boot,$J+(1000/10000)),INJ=$P(R,D),KAT=$P(R,D,2),TBL=$P(R,D,3)
 K ^($J+(1000/10000))
46 S RGL="AFS",RR1=0,RR2=2,OVSW=D D 11^cT705 D ^cA609,^cA339
 ;
9 S SW14=D
 ;
YZ K @("^"_Q_"AFS(0,$J+(100/10000))") Q
 ;
F1 S K=$P($T(@("T4"_QT)),U,2) G FZ
F2 S K=$P($T(@("T5"_QT)),U,2) G FZ
FZ D TXT^cAFA1(250) Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84