cT7071 ;KONTROLELIJST AFSCHRIJVINGSTABELLEN ;%T707 ; [ 06/28/2000 5:56 PM ] ; T0 ;Controlelijst afschrijvingstabellen ; T1 ; Jaar\ Restwaarde\Afschr./Jaar\ Bedrag/Mnd\Cumul afschr\ Maand 1\ Maand 2\ Maand 3\ Maand 4\ Maand 5\ Maand 6; T2 ;Lineair\Lineair pro rata temporis\Degressief\Pro rata/dag\Degressief/dag T3 ; Jaar; T4 ;, Desinv.;, Factnr;, Commentaar; ; T0F ;Liste de vérification tableaux d'amortissement ; T1F ; Année\ Valeur rest\Amor/Année\ Mont/mois\Cumul amort\ Mois 1\ Mois 2\ Mois 3\ Mois 4\ Mois 5\ Mois 6; T2F ;Linéair\Linéair pro rata temporis\Dégressif\Pro rata/jour\Dégressif/jour T3F ; Année; T4F ;, Désinv.;, Factnr;, Commentaire; ; T0E ;Controlelijst afschrijvingstabellen ; T1E ; Jaar\ Restwaarde\Afschr./Jaar\ Bedrag/Mnd\Cumul afschr\ Maand 1\ Maand 2\ Maand 3\ Maand 4\ Maand 5\ Maand 6; T2E ;Lineair\Lineair pro rata temporis\Degressief\Pro rata/dag\Degressief/dag T3E ; Jaar; T4E ;, Desinv.;, Factnr;, Commentaar; ; 1 S TAB="7\20\33\46\59\71\83\95\107\119\131" 12 S HD(1)=D_KAT_" "_KAO_";C;F82"_D,HD(2)="",HD(3)=D_INJ_";C;F82"_D 14 S TIT(1)=$P($T(@("T1"_QT)),U,2) ; 2 S SWF=1,TB="" 22 S TB=$O(@("^"_Q_"AFS(INJ,KAT,TB)")) G 4:TB="" S K=^(TB) 24 S TBL=$P(TB," "),OMS=$P(K,D),LPT=$P(K,D,2),REG=$P(K,D,3) 26 S R=$P(K,D,4)_D_D_D_QD D S3^cT70 S AW=R,DAT=$P(K,D,5),DES=$P(K,D,9) S FNR=$P(K,D,19),COMM=$P(K,D,20) 28 S TOP(1,1)=" "_TBL_", "_OMS_", "_AW_", "_DAT_", "_$P($P($T(@("T2"_QT)),U,2),D,REG+1)_", "_LPT_$P($T(@("T3"_QT)),U,2)_$S($L(DES)>1:$P($T(@("T4"_QT)),U,2)_" : "_DES_$P($T(@("T4"_QT)),U,3)_" : "_FNR_$P($T(@("T4"_QT)),U,4)_" : "_COMM,1:"") 29 I 'SWF S END=3 D ^cA334 S END=8 D ^cA334 ; 3 D ^cT709 G 22:R="" S JR="" 32 S JR=$O(@("^"_Q_"AFS(0,$J+.01,JR)")) G 22:JR="" S K=^(JR) 33 S BJ=$P(JR," "),RW=$P(K,D),BM=$P(K,D,2),AJ=$P(K,D,3),KUA=$P(K,D,4) 34 S R=BJ D S1^cT701 S J0=R,R=$L(J0,D)-1,AL=R\6 S:R#6 AL=AL+1 S TAL=0 35 S TXT(1)=" "_BJ,TXT(2)=RW,TXT(3)=AJ,TXT(4)=BM,TXT(5)=KUA 36 S TAL=TAL+1 F R=1:1:6 S J1=$P(J0,D),J0=$P(J0,D,2,99),TXT(R+5)="" I $L(J1),$D(@("^"_Q_"AFS(INJ,KAT,TBL_"" "",J1)")) S TXT(R+5)=^(J1) 37 F R=2:1:11 I $L(TXT(R)) S TXT(R)=TXT(R)_D_1_D_D_D_1_D_QD_D 38 D ^cA334 S SWF=0,(TXT(1),TXT(2),TXT(3),TXT(4),TXT(5))="" I TAL