cT70 ;BEHEER AFSCHRIJVINGSTABELLEN ;%T70 ; [ 06/15/00  3:06 PM ]
 G 1
 ;
T0 ;Beheer afschrijvingstabellen ;
T1 ;Investeringsjaar\"jjjj[] = boekjaar van de aankoop   -[] = einde";
T2 ;Categorie;
T3 ;Investeringsjaar : ;
T4 ;De bestanden zijn in gebruik;
 ;
T0F ;Gestion tableaux d'amortissement ;
T1F ;Année d'investissement\"aaaa[] = année de l'achat   -[] = fin";
T2F ;Catégorie;
T3F ;Année d'investissement : ;
T4F ;Les fichiers sont en usage;
 ;
T0E ;Beheer afschrijvingstabellen ;
T1E ;Investeringsjaar\"jjjj[] = boekjaar van de aankoop   -[] = einde";
T2E ;Categorie;
T3E ;Investeringsjaar : ;
T4E ;De bestanden zijn in gebruik;
 ;
S3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
S3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
S3B S R=$J(R0,R1)_R4_R3
S3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
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
10 S SWF=1
12 L  S FP=301 W @F,@F1
 S R="INJ\22\3\"_$P($T(@("T1"_QT)),U,2)_"\4\\K=""-""!(K?4N)" D R0 I K="-" G YZ
14 S FP=257 W @F,$P($T(@("T3"_QT)),U,2),K,@F2
15 S KAT=$$^cANSYN("AFS.CAT") g 12:K="-",12:K=","    ; versie 6
16 S FP=349 W @F,K,$P(@("^"_Q_"BA(""%F"",32,K)"),D),@F2
18 L @("^"_Q_"AFS(INJ,KAT)"):2 E  D F1 G 12
 ;
2 D ^cT701:SWF S SWF=0,RGL="AFS",RR1=0,RR2=1,OVSW=D D 11^cT702 G 12
 ;
YZ Q
 ;
F1 S K=$P($T(@("T4"_QT)),U,2)
FZ D TXT^cAFA1(250) Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84