cT7081	;AFSCHRIJVINGSTABEL ;%T708 ; [ 06/22/2000  9:03 AM ]
	G 1
	;
T0	;Afschrijvingstabel ;
T1	;Jaar\ Omschrijving\ Aanschafw.\Restw.beg.BJ\ Afschr./mnd\ Cumul BJ\ Afschr./jr\Cumul afschr\ Desinvest.\Rest.afschr.\Des.per\Factnr\ Commentaar;
T2	; Subtotaal;
T3	;Afschrijvingstabel (werklisting);
T4	; Algemeen totaal;
	;
T0F	;Tableau d'amortissement ;
T1F	;Année\ Description\ Valeur ach.\Val.r.déb.AC\ Amort/mois\ Cumul AC\ Amort./an\Cumul amort\ Désinvest.\V.R. amort\Dés.pér\N°fact\ Commentaire;
T2F	; Sous-total;
T3F	;Tableau d'amortissement (liste provisoire);
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.\Des.per\Factnr\ Commentaar;
T2E	; Subtotaal;
T3E	;Afschrijvingstabel (werklisting);
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(9)=TDES,TXT(10)=TRESTA D S4,^cA334
S3B	S END=145 D ^cA334
S3C	I PTS=1,$L($O(^HULP(boot,$J+.05,KAT))) S END=4 D ^cA334
S3Z	Q
	;
S4	F R=3:1:10 I $L(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 @("Z"_R0)=0
S5Z	K R0 Q
	;
S6	F R=1:1 S R0=$P($P($T(TOT),U,2),D,R) Q:R0=""  S @("Z"_R0)=@("Z"_R0)+@R0
S6Z	K R0 Q
	;
S7	S TXT(1)="",TXT(2)=$P($T(@("T4"_QT)),U,2)
	s TXT(3)=ZAW,TXT(4)=ZRESTW,TXT(5)=ZAFM
	s TXT(6)=ZKUBJ,TXT(7)=ZAFJ,TXT(8)=ZKUAF,TXT(10)=ZRESTA,TXT(9)=ZDES
	D S4,^cA334
S7A	S END=145 D ^cA334
S7Z	Q
	;
1	S TAB="5\36\51\66\79\96\110\126\141\153\161\168\185"
	I PTS=1 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 S5 S KAT=""
20	S KAT=$O(^HULP(boot,$J+.05,KAT)) G 3:KAT=""
	D S1 
	;
	; FB - 02.10.01 - DR048
	S KATNR=$$UI1^cAFA1("AFS.CAT",106,KAT) S KAO=$$SIG^cAFA1("AFS.CAT",KATNR,101)
	;
21	S (CINJ,INJ)="",TOP(1,1)=" "_KAO 
	S PRINT=0 D CHECK G 20:'PRINT
	I $D(BLZ),"03"[PTS S END=8 D ^cA334
22	S INJ=$O(^HULP(boot,$J+.05,KAT,INJ)) I INJ="" D S3 G 20
23	S TBL=""
24	S TBL=$O(^HULP(boot,$J+.05,KAT,INJ,TBL)) G 22:TBL=""
25	S R=@("^"_Q_"AFS(INJ,KAT,TBL)"),OMS=$P(R,D)
	s AW=$P(R,D,4)                ; aanschafwaarde
	S DESBP=$P(R,D,9),REGIM=$P(R,D,3),FNR=$P(R,D,19),COMM=$P(R,D,20)
	I $L(DESBP)>1 S DESBJ=$$BJ^cAFE1(Q,DESBP) I '$G(DESSW),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	S TXT(1)=INJ,TXT(2)=" "_OMS
	s TXT(3)=AW
	s TXT(4)=RESTW
	s TXT(5)=AFM
	s TXT(6)=KUBJ
	s TXT(7)=AFJ
	s TXT(8)=KUAF
	S TXT(9)=DES
	s TXT(10)=RESTA
	S TXT(11)=DESBP,TXT(12)=FNR,TXT(13)=COMM_D_D_1
	D S2,S6,S4,^cA334
29	G 24
	;
3	D S7 S END=1 D ^cA334
	;
YZ	K ^HULP(boot,$J),^($J+.05) 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 $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
Z	X ^cZ
ZZ	; 24.09.03 - 14 u 21 * V7.96