cT700	;OVERZICHT AFSCHRIJVINGSTABELLEN ; 16 May 2000  4:07 PM ; [ 06/21/00  9:00 AM ]
	G 1
	;
T0	;Overzicht afschrijvingstabellen ;
T1	;Investeringsjaar\"jjjj[] = specifiek jaar   jjjj+[] = alle jaren vanaf jjjj  [] = ",DJ;
T2	;Categorie\categorieën\alfabetische\alfabetische;
T3	;Informatie\"[] = op het scherm   .[] = op de printer";
T4	;Jaar\ Nr\ Omschrijving\ Cat.\ Datum\ Aanschaf.w.\Reg.\Lt\ 1e BP\Desinv\Factnr\ Commentaar \Kost.r.\Delg.r.;
T5	;Lin.\PRT.\Deg.;
T6	; ---- Subtotaal ----;
T7	; ---- Eindtotaal ---;
T8	;Desinvesteringen\"0[] = niet opnemen   1[] = opnemen"
T9	;Vanaf investeringsjaar;
	;
T0F	;Aperçu tableaux d'amortissement;
T1F	;Année d'investissement\"aaaa[] = année spécifique   aaaa+[] = chaque année depuis aaaa   [] = ",DJ;
T2F	;Catégorie\catégories\alphabétique\alphabétique;
T3F	;Info\"[] = à l'écran   .[] = sur l'imprimante";
T4F	; An.\ N°\ Description \ Cat.\ Date \ Val. Achat \Rég.\DR\ 1e PC\Désinv\N°fact\ Commentaire \C.frais\C.ext.;
T5F	;Lin.\PRT.\Dég.;
T6F	; --- Sous-total ----;
T7F	; --- Total final ---;
T8F	;Désinvestissements\"0[] = ne pas reprendre   1[] = reprendre"
T9F	;Depuis année d'investissement;
	;
T0E	;Overzicht afschrijvingstabellen ;
T1E	;Investeringsjaar\"jjjj[] = specifiek jaar   jjjj+[] = alle jaren vanaf jjjj  [] = ",DJ;
T2E	;Categorie\categorieën\alfabetische\alfabetische;
T3E	;Informatie\"[] = op het scherm   .[] = op de printer";
T4E	;Jaar\ Nr\ Omschrijving\ Cat.\ Datum\ Aanschaf.w.\Reg.\Lt\ 1e BP\Desinv\Factnr\ Commentaar \Kost.r.\Delg.r.;
T5E	;Lin.\PRT.\Deg.;
T6E	; ---- Subtotaal ----;
T7E	; ---- Eindtotaal ---;
T8E	;Desinvesteringen\"0[] = niet opnemen   1[] = opnemen"
T9E	;Vanaf investeringsjaar;
	;
	; subtotaal
S1	F R=1:1:14 S TXT(R)=""
S1A	S TXT(3)=$P($T(@("T6"_QT)),U,2),TXT(6)=SUB_D_D_D_D_1_D_QD D ^cA334 S END=132 D ^cA334
S1Z	Q
	;
	; algemeen totaal
S2	F R=1:1:9 S TXT(R)=""
S2A	S TXT(3)=$P($T(@("T7"_QT)),U,2),TXT(6)=ALG_D_D_D_D_1_D_QD D ^cA334 S END=132 D ^cA334
S2Z	Q
	;
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
	;
2	S R="INJ\22\3\"_$P($T(@("T1"_QT)),U,2)_"\5\\K?4N.1""+""&(K<2100)&(K>1900)!(""-,""[K)"
22	D R0 G YZ:K="-",YZ:K="," S:'$L(K) INJ=DJ
24	S FP=403 W @F,$S(INJ'["+":$P($P($T(@("T1"_QT)),U,2),D),1:$P($T(@("T9"_QT)),U,2))," : ",+INJ,@F2
25	S DESSW=1 S R="DESSW\22\3\"_$p($T(@("T8"_QT)),U,2)_"\1\\""-,01""[K" S $P(R,D,13)=1 D R0 G 2:K="-"!(K=",")
	;
3	D ^cAN003(10,"AFS.CAT") G 2:K=",",2:K="-"
	;
4	D ^cAN3223("","1#2#5",">80") G 3:K="-"!(K=",")
	;
5	K KAT S K=""
52	D ^cAN004("CAT","AFS.CAT","") 
	I $L(CAT) S CATCO=$$SIG^cAFA1("AFS.CAT",CAT,106) S KAT(CATCO_" ")="" G 52
54	S TAB="5\11\34\40\49\63\68\71\79\87\94\115\123\131",DEF="F81"
56	S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";C;F85"_D,HD(3)=D
58	S TIT(1)=$P($T(@("T4"_QT)),U,2)
	;
6	S ALG=0 S JR=$S(INJ["+":INJ-1,1:INJ) I INJ'["+" S SUB=0,KAT="" G 61
60	S JR=$O(@("^"_Q_"AFS(JR)")) G 7:JR="" S SUB=0,KAT=""
61	S KAT=$O(@("^"_Q_"AFS(JR,KAT)")) I KAT="" D S1 G:INJ["+" 60 G 7
62	G 61:'$D(KAT(KAT)) S TBL=""
63	S TBL=$O(@("^"_Q_"AFS(JR,KAT,TBL)")) G 61:TBL="" S K=^(TBL)
64	S OMS=$P(K,D),REG=$P(K,D,3) I $L(REG) S REG=$P($P($T(@("T5"_QT)),U,2),D,REG+1)
65	S DAT=$P(K,D,5),EBP=$P(K,D,8),LT=$P(K,D,2),AW=$P(K,D,4)
	S DESBP=$P(K,D,9),FNR=$P(K,D,19),DELG=$P(K,D,13),KOST=$P(K,D,14),COMM=$P(K,D,20)
	I $L(DESBP)>1,'$G(DESSW) G 63
66	S SUB=SUB+AW,ALG=ALG+AW
67	S TXT(1)=JR,TXT(2)=TBL_D_1,TXT(3)=" "_OMS,TXT(4)=KAT,TXT(5)=DAT
68	S TXT(6)=AW_D_D_D_D_1_D_QD,TXT(7)=REG,TXT(8)=LT_D_1,TXT(9)=EBP
	F I=10:1:14 S TXT(I)="" 
	S:$L(DESBP)>1 TXT(10)=DESBP S TXT(11)=FNR_D_1
	S TXT(12)=COMM_D_D_1,TXT(13)=KOST,TXT(14)=DELG
69	D ^cA334 G 63
	;
7	D S2:ALG S END=1 D ^cA334
	;
YZ	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	; 24.09.03 - 14 u 21 * V7.96