cT730 ; Printprogramma gecumuleerde afschrijvingstabel ; %T730 [ 11/12/01 1:56 PM ] ; ; HRUB : hoofdrubriek ; THRUB : totaal niveau hoofdrubriek ; RUBR : rubriek ; TRUBR : totaal niveau rubriek ; SUBR : subrubriek ; TSUBR : totaal niveau subrubriek ; ANAL : analytische rekening ; TANAL : totaal niveau anal. rekening ; INVJ : investeringsjaar ; TINVJ : totaal niveau investeringsjaar ; CAT : categorie ; TCAT : totaal niveau categorie ; LIJN : afschrijvingslijn ; TLIJN : totaal niveau afschrijvingslijn ; TWEE : inhoud TXT(2) ; ZES,TIEN,ELF : inhoud TXT(x) ; INH : inhoud uit ^_Q_AFS van 1 afschr.lijn ; TAB : tab voor detaillijnen ; VOL : wordt gebruik voor check op volgende rubriek ; T0 ;Gecumuleerde afschrijvingstabel ; T1 ;Jaar\Net bw \Inv. \Inv. \Inv. \Inv \Afs. \Afs. \Afs. \Afs. \Netto boekw.\ T2 ;Jaar\Net bw \Inv. \Inv. \Inv. \Inv \Afs. \Afs. \Afs. \Afs. \Netto boekw.\Cat.\ Nr \Omschrijving\Desinv \Factnr\ Commentaar; ; T0F ;Tableau d'amortissements cumulés ; T1F ;An\Net v.a. \Inv. \Inv. \Inv \Inv. \Amort. \Amort. \Amort. \Amort \Val.Net\ T2F ;An\Net v.a. \Inv. \Inv. \Inv \Inv. \Amort. \Amort. \Amort. \Amort \Val.Net\Cat.\ N° \Description\Désinv \N°fact\ Commentaire; ; T0E ;Gecumuleerde afschrijvingstabel ; T1E ;Jaar\Net bw \Inv. \Inv. \Inv. \Inv \Afs. \Afs. \Afs. \Afs. \Netto boekw.\ T2E ;Jaar\Net bw \Inv. \Inv. \Inv. \Inv \Afs. \Afs. \Afs. \Afs. \Netto boekw.\Cat.\ Nr \Omschrijving\Desinv \Factnr\ Commentaar; ; 1 S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";C",HD(3)=D_REFDAT_";C" 11 S DEF="F84" D TIT F I=2:1:11 S (STJ(I),STA(I),STS(I),STR(I),STH(I),STC(I))=0 12 S HRUB="" S TAB="5\19\33\47\61\75\89\103\117\131\145" 120 I DET S TAB=TAB_"\150\155\186\194\201\237" ; 13 S HRUB=$O(^HULP(boot,$J+.02,HRUB)) G YZ:HRUB="" S THRUB=^(HRUB) S RUBR="" 15 S RUBR=$O(^HULP(boot,$J+.02,HRUB,RUBR)) G 9:RUBR="" S TRUBR=^(RUBR) S SUBR="" 17 S SUBR=$O(^HULP(boot,$J+.02,HRUB,RUBR,SUBR)) G 8:SUBR="" S TSUBR=^(SUBR) S ANAL="" 19 S CAT=$O(^HULP(boot,$J+.02,HRUB,RUBR,SUBR,CAT)) G 7:CAT="" S TCAT=^(CAT) S ANAL="" ; I 'DET S TLIJN=TINVJ G 3 21 S ANAL=$O(^HULP(boot,$J+.02,HRUB,RUBR,SUBR,CAT,ANAL)) G 6:ANAL="" S TANAL=^(ANAL) S INVJ="" 23 S INVJ=$O(^HULP(boot,$J+.02,HRUB,RUBR,SUBR,CAT,ANAL,INVJ)) G 551:INVJ="" S TINVJ=^(INVJ) S LIJN="" 25 S LIJN=$O(^HULP(boot,$J+.02,HRUB,RUBR,SUBR,CAT,ANAL,INVJ,LIJN)) G 4:LIJN="" S TLIJN=^(LIJN) ; 3 K TOP D TOP 37 S TXT(1)=INVJ,TXT(3)=$P(TLIJN,D)_D_1_D_D_D_1_D_QD 370 S TXT(4)=$P(TLIJN,D,2)_D_1_D_D_D_1_D_QD,TXT(5)="",TXT(7)=$P(TLIJN,D,3)_D_1_D_D_D_1_D_QD,TXT(8)=$P(TLIJN,D,4)_D_1_D_D_D_1_D_QD,TXT(9)="" 3700 I $P(TLIJN,D,5) S TXT(5)=-$P(TLIJN,D,5)_D_1_D_D_D_1_D_QD 371 D S1 372 I DET S TXT(12)=$P(CAT," "),INH=@("^"_Q_"AFS(INVJ,CAT,LIJN)"),TXT(13)=LIJN,TXT(14)=$P(INH,D) 374 F I=18,19,20 S TXT(I)="" 375 I DET S TXT(15)=$P(TLIJN,D,8),TXT(16)=$P(TLIJN,D,6),TXT(17)=$P(TLIJN,D,7) 376 F I=2:1:11 S STJ(I)=STJ(I)+TXT(I),STA(I)=STA(I)+TXT(I),STS(I)=STS(I)+TXT(I) F I=2:1:11 S STR(I)=STR(I)+TXT(I),STH(I)=STH(I)+TXT(I),STC(I)=STC(I)+TXT(I) 39 G 25:'DET D:TLIJN'=0 ^cA334 G 25 ; ; subtotaal per boekjaar 4 K TXT S:DET END=145 D:DET ^cA334 I 'DET S TXT(1)=INVJ 41 F I=2:1:11 S TXT(I)=STJ(I)_D_1_D_D_D_1_D_QD 43 D:+$TR(TINVJ,"\")'=0 ^cA334 K TXT S:DET END=145 D:DET ^cA334 45 F I=2:1:11 S STJ(I)=0 47 G 23 ; ; indien geen detail 5 K TXT F I=2:1:11 S TXT(I)=STJ(I)_D_1_D_D_D_1_D_QD 50 S TXT(1)=INVJ 51 D:TINVJ'=0 ^cA334 53 F I=2:1:11 S STJ(I)=0 55 G 21 ; ;subtotaal per analytische rekening 551 K TXT I 'DET S END=145 D ^cA334 552 G 6:'ANA 553 F I=2:1:11 S TXT(I)=STA(I)_D_1_D_D_D_1_D_QD 554 D:TANAL'=0 ^cA334 K TXT S END=145 D ^cA334 K TXT 555 S VOL=$O(^HULP(boot,$J+.02,HRUB,RUBR,SUBR,CAT,ANAL)) I VOL'="" K TIT S TOP(5,1)=$$COM^cAFO3("ARA",+VOL) S END=$S((LNMAX-LN)<5:4,1:8) D ^cA334 D TIT,TOP 556 F I=2:1:11 S STA(I)=0 557 G 21 ; ;subtotaal per categorie 6 K TXT I 'DET S END=145 D ^cA334 61 F I=2:1:11 S TXT(I)=STC(I)_D_1_D_D_D_1_D_QD 63 D:TCAT'=0 ^cA334 K TXT S END=145 D ^cA334 K TXT 65 S VOL=$O(^HULP(boot,$J+.02,HRUB,RUBR,SUBR,CAT)) I VOL'="" D . K TIT S TOP(4,1)=$$SIG^cAFA1("AFS.CAT",$$UI1^cAFA1("AFS.CAT",106,VOL),101) . I ANA S VOLANA=$O(^HULP(boot,$J+.02,HRUB,RUBR,SUBR,VOL,"")) Q:VOLANA="" S TOP(5,1)=$$COM^cAFO3("ARA",+VOLANA) . S END=$S((LNMAX-LN)<5:4,1:8) D ^cA334 D TIT,TOP 67 F I=2:1:11 S STC(I)=0 69 G 19 ; ;subtotaal per subrubriek 7 K TXT I ANA!(DET) K TOP,TIT S TOP(1,1)=$P(^DATA(0,"AFS.SUBR",$P(SUBR," ",2),0),D,$S(QT="F":12,1:2))_" : " S END=$S((LNMAX-LN)<5:4,1:8) D ^cA334 D TIT 71 F I=2:1:11 S TXT(I)=STS(I)_D_1_D_D_D_1_D_QD 73 D ^cA334 K TXT S END=145 D ^cA334 75 S VOL=$O(^HULP(boot,$J+.02,HRUB,RUBR,SUBR)) I VOL'="" D 750 . K TIT K TOP D TOP,TIT 751 . S TOP(3,1)=$P(^DATA(0,"AFS.SUBR",$P(VOL," ",2),0),D,$S(QT="F":12,1:2)) . ; aanpassing FB - 06.11.01 - DQ321 753 . ; I ANA S VOLANA=$O(^HULP(boot,$J+.02,HRUB,RUBR,VOL,"")) Q:VOLANA="" S TOP(4,1)=$$COM^cAFO3("ARA",+VOLANA) 755 . S END=$S((LNMAX-LN)<5:4,1:8) S VOLCAT=$O(^HULP(boot,$J+.02,HRUB,RUBR,VOL,"")) . I $L(VOLCAT) S TOP(4,1)=$$SIG^cAFA1("AFS.CAT",$$UI1^cAFA1("AFS.CAT",106,VOLCAT),101) . D ^cA334 D TIT 77 F I=2:1:11 S STS(I)=0 G 17 ; ;subtotaal per rubriek 8 K TXT,TOP,TIT S TOP(1,1)=$P(^DATA(0,"AFS.RUBR",$P(RUBR," ",2),0),D,$S(QT="F":12,1:2))_" : " S END=8 D ^cA334 D TIT 81 F I=2:1:11 S TXT(I)=STR(I)_D_1_D_D_D_1_D_QD 83 D ^cA334 K TXT S END=$S($O(^HULP(boot,$J+.02,HRUB,RUBR))'="":4,1:145) D ^cA334 85 F I=2:1:11 S STR(I)=0 87 G 15 ; ; subtotaal per hoofdrubriek 9 K TXT,TOP,TIT S TOP(1,1)=$P(^DATA(0,"AFS.HRUB",$P(HRUB," ",2),0),D,$S(QT="F":12,1:2))_" : " S END=8 D ^cA334 D TIT 91 F I=2:1:11 S TXT(I)=STH(I)_D_1_D_D_D_1_D_QD 93 D ^cA334 K TXT S END=$S($O(^HULP(boot,$J+.02,HRUB))'="":4,1:1) D ^cA334 95 F I=2:1:11 S STH(I)=0 97 G 13 ; YZ Q ; S1 S TWEE=+TXT(3)-TXT(7),TXT(2)=TWEE_D_1_D_D_D_1_D_QD,ZES=+TXT(3)+TXT(4)+TXT(5),TXT(6)=ZES_D_1_D_D_D_1_D_QD S10 I TXT(5)'="" S NEGEN=+TXT(7)+TXT(8),TXT(9)=-NEGEN_D_1_D_D_D_1_D_QD S1A S TIEN=+TXT(7)+TXT(8)+TXT(9),TXT(10)=TIEN_D_1_D_D_D_1_D_QD S1B S ELF=+TXT(6)-TXT(10),TXT(11)=ELF_D_1_D_D_D_1_D_QD S1Z Q ; TIT ; opzetten TIT-variabele TIT1 S TIT(1)=$P($T(@("T1"_QT)),U,2) I DET S TIT(1)=$P($T(@("T2"_QT)),U,2) TIT3 S $P(TIT(1),D,2)=$P(TIT(1),D,2)_DAGEEN,$P(TIT(1),D,3)=$P(TIT(1),D,3)_DAGEEN,$P(TIT(1),D,4)=$P(TIT(1),D,4)_BJ_" +" TIT5 S $P(TIT(1),D,5)=$P(TIT(1),D,5)_BJ_" -",$P(TIT(1),D,6)=$P(TIT(1),D,6)_REFDAT,$P(TIT(1),D,7)=$P(TIT(1),D,7)_DAGEEN,$P(TIT(1),D,8)=$P(TIT(1),D,8)_BJ_" +" TIT7 S $P(TIT(1),D,9)=$P(TIT(1),D,9)_BJ_" -",$P(TIT(1),D,10)=$P(TIT(1),D,10)_REFDAT TITZ Q ; TOP ; opzetten TOP - variabele TOPA S TOP(1,1)=$P(^DATA(0,"AFS.HRUB",$P(HRUB," ",2),0),D,$S(QT="F":12,1:2)) TOPB S TOP(2,1)=$P(^DATA(0,"AFS.RUBR",$P(RUBR," ",2),0),D,$S(QT="F":12,1:2)) TOPC S TOP(3,1)=$P(^DATA(0,"AFS.SUBR",$P(SUBR," ",2),0),D,$S(QT="F":12,1:2)) S CATNR=$$UI1^cAFA1("AFS.CAT",106,CAT) TOPD I 'ANA S TOP(4,1)=$$SIG^cAFA1("AFS.CAT",CATNR,101) TOPE I ANA S TOP(5,1)=$$COM^cAFO3("ARA",+ANAL),TOP(4,1)=$$SIG^cAFA1("AFS.CAT",CATNR,101) TOPZ Q ; ZZ ; 24.02.06 - 15 u 49 * V8.06