cT708 ;AFSCHRIJVINGSTABEL ;%T708 ; [ 06/21/00  9:04 AM ]
 G 1
 ;
T0 ;Afschrijvingstabel ;
T1 ;Periode\"jjjj.mm[] = kalendermaand   -[] = einde";Periode : ;
T2 ;Deze periode is niet toegankelijk;
T3 ;Listing\"[] = werklisting   .[] = definitieve listing";Listing : ;werklisting\definitieve listing;
T4 ;Informatie\"[] = op het scherm    .[] = op de printer";
T5 ;Desinvesteringen\"0[] = niet opnemen   1[] = opnemen"
 ;
T0F ;Tableau d'amortissement ;
T1F ;Période\"aaaa.mm[] = période   -[] = fin";Période : ;
T2F ;Cette période n'est pas accessible;
T3F ;Liste\"[] = liste provisoire   .[] = liste définitive";Liste : ;provisoire\définitive;
T4F ;Info\"[] = à l'écran   .[] = sur l'imprimante";
T5F ;Désinvestissements\"0[] = ne pas reprendre   1[] = reprendre"
 ;
T0E ;Afschrijvingstabel ;
T1E ;Periode\"jjjj.mm[] = kalendermaand   -[] = einde";Periode : ;
T2E ;Deze periode is niet toegankelijk;
T3E ;Listing\"[] = werklisting   .[] = definitieve listing";Listing : ;werklisting\definitieve listing;
T4E ;Informatie\"[] = op het scherm    .[] = op de printer";
T5E ;Desinvesteringen\"0[] = niet opnemen   1[] = opnemen"
 ;
1 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5
 S FP=202 W @F,@F4,K,@F5
11 D ^cT701
12 S R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K=""-""!(K?4N1"".""2N&$E(K)&$P(K,""."",2)&($P(K,""."",2)<13))" D R0 G YZ:K="-"
13 S R=BP D S2^cT701 S BJ=R I '$L(BJ) D F1 G 12
14 S FP=503 W @F,$P($T(@("T1"_QT)),U,3),BP,@F2
15 S R=BJ D S1^cT701 S (EBP,LBP)=$P(R,D)
 F R1=2:1 S R0=$P(R,D,R1) Q:R0=""  S LBP=R0
16 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-.""[K" D R0 G 12:K="-"
 S LIS=$L(K)
17 S FP=603 W @F,$P($T(@("T3"_QT)),U,3),$P($P($T(@("T3"_QT)),U,4),D,LIS+1),@F2
 ;
2 I 'LIS S DESSW=0 S R="DESSW\22\3\"_$p($T(@("T5"_QT)),U,2)_"\1\\""-,01""[K" S $P(R,D,13)=1 D R0 G 16:K="-"!(K=",")
22 D ^cAN3223("","1#2") G 2:K="-"&('LIS),16:K="-"
 ;
 ; sortering per kategorie
3 K ^HULP(boot,$J+(500/10000)) S INJ=0
32 S INJ=$O(@("^"_Q_"AFS(INJ)")) G 4:INJ="" S KAT=""
34 S KAT=$O(@("^"_Q_"AFS(INJ,KAT)")) G 32:KAT="" S TBL=""
36 S TBL=$O(@("^"_Q_"AFS(INJ,KAT,TBL)")) G 34:TBL="" S K=^(TBL)
38 I $D(^(TBL,+BP)) S B=^(+BP),^HULP(boot,$J+(500/10000),KAT,INJ,TBL)=K,^(TBL,+BP)=B G 36
380 I $D(^(EBP))!$D(^(LBP)) S ^HULP(boot,$J+(500/10000),KAT,INJ,TBL)=K,^(TBL,+BP)=0  g 36
 i '$o(^(LBP)) s ^HULP(boot,$j+(500/10000),KAT,INJ,TBL)=K
39 G 36
 ;
 ; LIS=0 : werklisting;  LIS=1 definitieve listing
4 G YZ:'$D(^HULP(boot,$J+(500/10000))) 
 D ^cT7081:'LIS,^cT7082:LIS
 ;
YZ K ^HULP(boot,$J),^($J+(500/10000)) Q
 ;
F1 S K=$P($T(@("T2"_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
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84