cT707	;KONTROLELIJST AFSCHRIJVINGSTABELLEN ;%T707 ; [ 06/16/2000  12:27 PM ]
	;
T0	;Controlelijst afschrijvingstabellen ;
T1	;Investeringsjaar\"jjjj[] = boekjaar van de aankoop   -[] = einde";
T2	;Categorie;
T3	;Investeringsjaar : ;
	;
T0F	;Liste de vérification tableaux d'amortissement;
T1F	;Année d'investissement\"aaaa[] = année comptable de l'achat   -[] = fin";
T2F	;Catégorie;
T3F	;Année d'investissement : ;
	;
T0E	;Controlelijst afschrijvingstabellen ;
T1E	;Investeringsjaar\"jjjj[] = boekjaar van de aankoop   -[] = einde";
T2E	;Categorie;
T3E	;Investeringsjaar : ;
	;
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
12	D ^cT701
14	S R="INJ\22\3\"_$P($T(@("T1"_QT)),U,2)_"\4\\K=""-""!(K?4N)" D R0 I K="-" G YZ
16	S FP=503 W @F,$P($T(@("T3"_QT)),U,2),K,@F2
	;
	; FB - 04.10.02 - categorieën in ^DATA(0
18	S KATNR=$$^cANSYN("AFS.CAT") G 14:K="-",14:K=","   ; versie 6
	S KAO=$$SIG^cAFA1("AFS.CAT",KATNR,101),KAT=$P(^(0),D,6)_" "
	;
19	S FP=603 W @F,$P($T(@("T2"_QT)),U,2),"        : ",KAT,KAO,@F2
	;
2	S R="1\1\0\0\0\0" D ^cA345 G 18:K="-" I K="," G 14
22	D ^cT7071 G 14
	;
YZ	Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
Z	X ^cZ
ZZ	; 29.10.02 - 11 u 38 * V7.93