cT7082 ;AFSCHRIJVINGSTABEL ;%T708 ; [ 06/21/00  6:37 PM ]
 G 1
 ;
T0 ;Afschrijvingstabel ;
T1 ;Jaar\ Omschrijving\ Aanschafw.\Restw.beg.BJ\ Afschr./mnd\ Cumul BJ\ Afschr./jr\Cumul afschr\ Desinvest.\Rest.afschr.;
T2 ; Subtotaal;
T3 ;Afschrijvingstabel;
T4 ; Algemeen totaal;
 ;
T0F ;Tableau d'amortissement ;
T1F ;Année\ Description\ Val.achat\V.R.début AC\ Amort/mois\ Cumul AC\ Amort/an\Cumul V.R.\ Désinvest.\V.R. amort;
T2F ; Sous-total;
T3F ;Tableau d'amortissement;
T4F ; Total général;
 ;
T0E ;Afschrijvingstabel ;
T1E ;Jaar\ Omschrijving\ Aanschafw.\Restw.beg.BJ\ Afschr./mnd\ Cumul BJ\ Afschr./jr\Cumul afschr\ Desinvest.\Rest.afschr.;
T2E ; Subtotaal;
T3E ;Afschrijvingstabel;
T4E ; Algemeen totaal;
 ;
TOT ;AW\RESTW\AFM\KUBJ\AFJ\KUAF\DES\RESTA;
 ;
S1 F R=1:1 S R0=$P($P($T(TOT),U,2),D,R) Q:R0=""  S @("T"_R0)=0
S1Z K R0 Q
 ;
S2 F R=1:1 S R0=$P($P($T(TOT),U,2),D,R) Q:R0=""  S @("T"_R0)=@("T"_R0)+@R0
S2Z K R0 Q
 ;
S3 S END=145 D ^cA334
S3A S TXT(1)="",TXT(2)=$P($T(@("T2"_QT)),U,2),TXT(3)=TAW,TXT(4)=TRESTW,TXT(5)=TAFM,TXT(6)=TKUBJ,TXT(7)=TAFJ,TXT(8)=TKUAF,TXT(10)=TRESTA,TXT(9)=TDES D S4,^cA334
S3B S END=145 D ^cA334
S3C I PTS,$L($O(^HULP(boot,$J+(500/10000),KAT))) S END=4 D ^cA334
S3Z Q
 ;
S4 F R=3:1:10 I $L($G(TXT(R))) S TXT(R)=TXT(R)_D_D_D_D_1_D_QD
S4Z Q
 ;
S5 F R=1:1 S R0=$P($P($T(TOT),U,2),D,R) Q:R0=""  S @("D"_R0)=0
S5Z K R0 Q
 ;
S6 F R=1:1 S R0=$P($P($T(TOT),U,2),D,R) Q:R0=""  S @("D"_R0)=@("D"_R0)+@R0
S6Z K R0 Q
 ;
S7 I DAW S TXT(1)=INJ,TXT(2)=" "_KAO,TXT(3)=DAW,TXT(4)=DRESTW,TXT(5)=DAFM,TXT(6)=DKUBJ,TXT(7)=DAFJ,TXT(8)=DKUAF,TXT(10)=DRESTA,TXT(9)=DDES D S4,^cA334
S7Z Q
 ;
S8 F R=1:1 S R0=$P($P($T(TOT),U,2),D,R) Q:R0=""  S @("Z"_R0)=0
S8Z K R0 Q
 ;
S9 F R=1:1 S R0=$P($P($T(TOT),U,2),D,R) Q:R0=""  S @("Z"_R0)=@("Z"_R0)+@R0
S9Z K R0 Q
 ;
S10 S TXT(1)="",TXT(2)=$P($T(@("T4"_QT)),U,2),TXT(3)=ZAW,TXT(4)=ZRESTW,TXT(5)=ZAFM,TXT(6)=ZKUBJ,TXT(7)=ZAFJ,TXT(8)=ZKUAF,TXT(10)=ZRESTA D S4,^cA334
S10A S END=145 D ^cA334
S10Z Q
 ;
1 S TAB="5\36\51\66\79\96\110\126\141\153"
 I PTS S TAB=$P(TAB,D,1,5)
12 S HD(1)=D_$P($T(@("T3"_QT)),U,2)_" ;C;F82"_D,HD(2)="",HD(3)=D_BP_" ;C;F82"_D
14 S TIT(1)=$P($T(@("T1"_QT)),U,2)
 ;
2 D S8 S KAT=""
20 S KAT=$O(^HULP(boot,$J+(500/10000),KAT)) G 3:KAT="" D S1 S KAO=$P(@("^"_Q_"BA(""%F"",32,KAT)"),D),KUSW=$P(^(KAT),D,2)
21 S (CINJ,INJ)="",TOP(1,1)=" "_KAO 
 S PRINT=0 D CHECK G 20:'PRINT
 I $D(BLZ),'PTS S END=8 D ^cA334
22 S INJ=$O(^HULP(boot,$J+(500/10000),KAT,INJ)) I INJ="" D S3 G 20
23 D S5 S TBL=""
24 S TBL=$O(^HULP(boot,$J+(500/10000),KAT,INJ,TBL)) I TBL="" G 22:'KUSW D S7 G 22
25 S R=@("^"_Q_"AFS(INJ,KAT,TBL)"),OMS=$P(R,D),AW=$P(R,D,4)
 S DESBP=$P(R,D,9),REGIM=$P(R,D,3)
 I $L(DESBP)>1 S DESBJ=$$BJ^cAFE1(Q,DESBP) I DESBJ<BJ G 24
26 S (AFS,KUBJ,AFJ,R0,DES)=0
 F R=1:1 S R0=$O(@("^"_Q_"AFS(INJ,KAT,TBL,R0)")) Q:R0=""  d
 . S R1=^(R0) 
 . S:R0<EBP AFS=AFS+R1 
 . S:R0'<EBP&(R0'>+BP) KUBJ=KUBJ+R1 
 . S:R0'<EBP&(R0'>LBP) AFJ=AFJ+R1
27 S AFM=$G(^(+BP),0),RESTW=AW-AFS,KUAF=AFS+KUBJ,RESTA=AW-KUAF 
 I $L(DESBP)>1 D   
 . I REGIM'=1,DESBJ'>BJ S DES=RESTA,RESTA=0
 . I REGIM=1,BP'<DESBP S DES=RESTA,RESTA=0
28 D S2,S6,S9 I 'KUSW S TXT(1)=INJ,TXT(2)=" "_OMS,TXT(3)=AW,TXT(4)=RESTW,TXT(5)=AFM,TXT(6)=KUBJ,TXT(7)=AFJ,TXT(8)=KUAF,TXT(10)=RESTA,TXT(9)=DES D S4,^cA334
29 G 24
 ;
3 D S10 S END=1 D ^cA334
 ;
YZ K ^HULP(boot,$J),^($J+(500/10000)) Q
 ;
F1 S K=$P($T(@("T5"_QT)),U,2) G FZ
FZ D TXT^cAFA1(250) Q
 ;
CHECK ; check of categorie moet afgeprint worden
CHECKA S CINJ=$O(^HULP(boot,$J+(500/10000),KAT,CINJ)) S CTBL="" G CHECKZ:CINJ=""
CHECKB S CTBL=$O(^HULP(boot,$J+(500/10000),KAT,CINJ,CTBL)) G CHECKA:CTBL=""
 S R=@("^"_Q_"AFS(CINJ,KAT,CTBL)") S DESBP=$P(R,D,9)
 I $L(DESBP)>1 S DESBJ=$$BJ^cAFE1(Q,DESBP) I '$G(DESSW),DESBJ<BJ G CHECKB
 S PRINT=1
CHECKZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84