cT73 ; Gecumuleerde afschrijvingstabel ; %T73 [ 11/13/01 3:45 PM ] ; ; AANS : aanschafwaarde ; ANA : analytische uitsplitsing (J/N) ("" = neen, 1 = ja) ; ANAREK : analytische rekening ; BJ : boekjaar refdat ; BM : boekingsmaand refdat ; CAT : categorie (2e index ^_Q_AFS) ; DAGEEN : 1e dag 1e maand boekjaar refdat ; DATUM : datum vd afschrijvingslijn ; DESBP : desinvesteringsperiode ; DET : detail (J/N) (""= neen, 1 = ja) ; HRUB : hoofdrubriek gekoppeld aan rubriek ; I4 : maand met daarbijhorend bedrag ; INH : inhoud v.e. afschrijvingslijn (4 indexn in ^_Q_AFS) ; INVJ : investeringsjaar (1e index ^_Q_AFS) ; LIJN : afschrijvingslijn ; LINH : Inhoud van ^(LIJN) ; MNDEEN : 1e maand boekjaar refdat ; REFDAT : referentiedatum ; REFDATC : geconverteerde REFDAT (DC^cAFD1) ; RM-R3 : gebruikt voor bepalen laatste dag van de maand. ; RUBR : rubriek gekoppeld aan subrubriek ; SHRUB : volgnr statistiek hoofdrubriek ; SRUBR : volgnr statistiek rubriek ; SSUBR : volgnr statistiek subrubriek ; SUBR : subrubriek ; SWANA : switch analytische boekhouding (0 = niet, 1 = wel) ; T0 ; Gecumuleerde afschrijvingstabel ; ; T0F ; Tableau d'amortissements cumulés ; ; T1 ;Referentie-datum ; T2 ;dd.mm.jj[] = specifieke datum (laatste dag van een maand); T3 ;Rubrieken; T4 ;Keuze\"[] = zonder detail 1[] = met detail"; T5 ;zonder detail;met detail; T6 ;Analyt. uitspl.\"[] = neen 1[] = ja"; ; T1F ;Date référence ; T2F ;jj.mm.aa[] = date spécifique (dernier jour d'un mois); T3F ;Rubriques; T4F ;Choix\"[] = sans détail 1[] = avec détail"; T5F ;sans détail;avec détail; T6F ;Ventil. analyt.\"[] = non 1[] = oui" ; T0E ; Gecumuleerde afschrijvingstabel ; T1E ;Referentie-datum ; T2E ;dd.mm.jj[] = specifieke datum (laatste dag van een maand); T3E ;Rubrieken; T4E ;Keuze\"[] = zonder detail 1[] = met detail"; T5E ;zonder detail;met detail; T6E ;Analyt. uitspl.\"[] = neen 1[] = ja"; ; 1 D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1) 10 K ^HULP(boot,$J+.01),^($J+.02) S TEL=0 S QD=@("^"_Q_"BA(34)"),SWANA=$G(^(300)) 11 S R="REFDAT\22\3\"_$P($T(@("T1"_QT)),U,2)_D_""""_$P($T(@("T2"_QT)),U,2)_"""\8\\$$DCTR^cAFI1(K)!((""-,""[K)&$L(K))" D R0 G YZ:K="-"!(K=",") G 11:'$L(K) 110 S RM=$P(REFDAT,".",2) S REFDATC=$$DC^cAFD1(REFDAT),BM=$E(REFDATC,1,4)_"."_$E(REFDATC,5,6),RJ=$E(REFDATC,1,4),REFBJ=$$BJ^cAFE1(Q,BM) D S1^cA104 I R3'=$P(REFDAT,".") G 11 13 W /CUP(2,3),@F2,$P($T(@("T1"_QT)),U,2),/CUP(2,20)," : ",REFDAT 15 ; W /CUP(3,3),@F2,$P($T(@("T3"_QT)),U,2),/CUP(3,20)," : " 17 S (RUBTEL,SUBTEL,CATTEL,ANATEL)=0 D ^cAN003(4,"AFS.RUBR") G 11:K="-"!(RK=31) K ^HULP(boot,$J+.01) D RUBSEL I RUBTEL'=1 G 175 171 D ^cAN003(7,"AFS.SUBR") G 17:K="-" D SUBSEL I SUBTEL'=1 G 175 173 D ^cAN003(10,"AFS.CAT") G 171:K="-" D CATSEL 175 D S1 ; 19 S R="DET\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""1-""[K\\" D R0 G 17:K="-"!(RK=31) 21 W /CUP(2,40),$P($T(@("T5"_QT)),U,$S(DET:3,1:2)),@F2 23 S ANA="" G 3:'SWANA S R="ANA\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""1-""[K\\" D R0 G 19:K="-"!(RK=31) W /CUP(2,55),@F2,$P($P($T(@("T6"_QT)),U,2),D),/CUP(2,70)," : ",$$JN^cAFO1(ANA) I ANA D ^cAN003(14,"ARA") G 19:K="-" D ANASEL ; ; opbouw ^HULP vanuit ^_Q_AFS ; 3 D DMS^cAN000("UQC","USC","AFS.CAT") S UREF=^DMC(UQC,USC,"DATA","REF") 33 D ^cT489 S BJ=$$BJ^cAFE1(Q,BM) I '$D(KM1(BJ)) S KM1(BJ)=BJ_"."_$P(KM1($O(KM1(""),-1)),".",2) S MNDEEN=$TR(KM1(BJ),".",""),DAGEEN=$$DCO^cAFD1(MNDEEN_"01") ; ; FB - 03.10.02 - categorieën in ^DATA(0,"AFS.CAT",... 35 S INVJ="" N UI1 K SUBR S UI1="" F S UI1=$O(@UREF) Q:UI1="" S SUBR=$P(@UREF@(0),D,3) I SUBR S CAT=$P(@UREF@(0),D,6) S SUBR(CAT_" ",SUBR)="" D ^cAN3223("","1",">132") ; keuze printer I K="-" G 19:'SWANA,23 ; 4 F S INVJ=$O(@("^"_Q_"AFS(INVJ)")) Q:INVJ="" D . S CAT="" F S CAT=$O(@("^"_Q_"AFS(INVJ,CAT)")) Q:CAT="" I $D(^HULP(boot,$J+.01,CAT)) D .. S SUBR=$O(SUBR(CAT,"")) Q:'$L(SUBR) .. S LIJN="" F S LIJN=$O(@("^"_Q_"AFS(INVJ,CAT,LIJN)")) Q:LIJN="" D ... S LINH=^(LIJN),DATUM=$P(LINH,D,5) Q:INVJ>REFBJ ... I ANA S ARA=$P(LINH,D,11) S:$E(ARA,$L(ARA))'=" " ARA=ARA_" " I '$D(^HULP(boot,$J+.01,"ARA",ARA)) Q ... S AANS=$P(LINH,D,4),ANAREK=$P(LINH,D,11),DESBP=$P(LINH,D,9),DESBJ=$$BJ^cAFE1(Q,DESBP),REGIM=$P(LINH,D,3),FNR=$P(LINH,D,19),COMM=$P(LINH,D,20) ... S:ANAREK'[" " ANAREK=ANAREK_" " I 'ANA S ANAREK=0 ... S RUBR=$P(^DATA(0,"AFS.SUBR",SUBR,0),D,3) ... S HRUB=$P(^DATA(0,"AFS.RUBR",RUBR,0),D,3) ... S SHRUB=$P(^DATA(0,"AFS.HRUB",HRUB,0),D,4) ... S SRUBR=$P(^DATA(0,"AFS.RUBR",RUBR,0),D,4) ... S SSUBR=$P(^DATA(0,"AFS.SUBR",SUBR,0),D,4) ... S A="",$P(A,D,1+(INVJ=BJ))=$P(A,D,1+(INVJ=BJ))+AANS ... S I4="" F S I4=$O(@("^"_Q_"AFS(INVJ,CAT,LIJN,I4)")) Q:I4="" D .... S INH=^(I4) S CHECKI4=I4 S:$L(CHECKI4)=6 CHECKI4=CHECKI4_"0" .... S CHECKI4=$TR(CHECKI4,".","") Q:CHECKI4>$E(REFDATC,1,6) .... I $$BJ^cAFE1(Q,I4)1,DESBP'>BM S $P(A,D,5)=$P(A,D)+$P(A,D,2),$P(A,D,6)=FNR,$P(A,D,7)=COMM,$P(A,D,8)=DESBP ... I $L(DESBP)>1,REFBJ=DESBJ S $P(A,D,6)=FNR,$P(A,D,7)=COMM,$P(A,D,8)=DESBP ... I $L(DESBP)>1,REGIM'=1,REFBJ=DESBJ S $P(A,D,5)=$P(A,D)+$P(A,D,2) ... I $L(DESBP)>1,REFBJ>DESBJ Q ... W /CUP(18,5),$E("/-\|",TEL) S TEL=TEL+1 I TEL>4 S TEL=1 ... I HRUB,RUBR,SUBR D .... ; subtotaal hoofdrubriek .... S B=$G(^HULP(boot,$J+.02,SHRUB_" "_HRUB)) .... F I=1:1:5 S $P(B,D,I)=$P(B,D,I)+$P(A,D,I) .... S ^(SHRUB_" "_HRUB)=B .... ; subtotaal rubriek .... S B=$G(^HULP(boot,$J+.02,SHRUB_" "_HRUB,SRUBR_" "_RUBR)) .... F I=1:1:5 S $P(B,D,I)=$P(B,D,I)+$P(A,D,I) .... S ^(SRUBR_" "_RUBR)=B .... ; subtotaal subrubriek .... S B=$G(^HULP(boot,$J+.02,SHRUB_" "_HRUB,SRUBR_" "_RUBR,SSUBR_" "_SUBR)) .... F I=1:1:5 S $P(B,D,I)=$P(B,D,I)+$P(A,D,I) .... S ^(SSUBR_" "_SUBR)=B .... ; subtotaal categorie .... S B=$G(^HULP(boot,$J+.02,SHRUB_" "_HRUB,SRUBR_" "_RUBR,SSUBR_" "_SUBR,CAT)) .... F I=1:1:5 S $P(B,D,I)=$P(B,D,I)+$P(A,D,I) .... S ^(CAT)=B .... ; subtotaal analytische rekening (A - code) .... S B=$G(^HULP(boot,$J+.02,SHRUB_" "_HRUB,SRUBR_" "_RUBR,SSUBR_" "_SUBR,CAT,ANAREK)) .... F I=1:1:5 S $P(B,D,I)=$P(B,D,I)+$P(A,D,I) .... S ^(ANAREK)=B .... ; subtotaal investeringsjaar .... S B=$G(^HULP(boot,$J+.02,SHRUB_" "_HRUB,SRUBR_" "_RUBR,SSUBR_" "_SUBR,CAT,ANAREK,INVJ)) .... F I=1:1:5 S $P(B,D,I)=$P(B,D,I)+$P(A,D,I) .... S ^(INVJ)=B .... ; detaillijn .... S ^HULP(boot,$J+.02,SHRUB_" "_HRUB,SRUBR_" "_RUBR,SSUBR_" "_SUBR,CAT,ANAREK,INVJ,LIJN)=A ; ; afdrukken lijst vanuit ^HULP ; 5 D ^cT730 ; Y K ^HULP(boot,$J+.01),^($J+.02) YZ D C^cA612 Q ; RUBSEL D ^cAN004("RUB","AFS.RUBR") G RUBSELZ:RUB="" S RUBTEL=RUBTEL+1 S ^HULP(boot,$J+.01,"AFS.RUBR",RUB)="" G RUBSEL RUBSELZ Q ; SUBSEL D ^cAN004("SUB","AFS.SUBR") G SUBSELZ:SUB="" S SUBTEL=SUBTEL+1 S ^HULP(boot,$J+.01,"AFS.SUBR",SUB)="" G SUBSEL SUBSELZ Q ; CATSEL D ^cAN004("CAT","AFS.CAT") G CATSELZ:CAT="" S CATTEL=CATTEL+1 S ^HULP(boot,$J+.01,"AFS.CAT",CAT)="" G CATSEL CATSELZ Q ; ANASEL D ^cAN004("ARA","ARA") G ANASELZ:ARA="" S ANATEL=ANATEL+1 S ^HULP(boot,$J+.01,"ARA",ARA)="" G ANASEL ANASELZ Q ; ; opbouwen ^HULP(boot,$J+.01,... ivm gezochte categorieën S1 G S1X:'$D(^HULP(boot,$J+.01,"AFS.CAT")) S CAT="" S1A S CAT=$O(^HULP(boot,$J+.01,"AFS.CAT",CAT)) G S1Z:CAT="" S SUBR=$$SIG^cAFA1("AFS.CAT",CAT,103) I '$D(^HULP(boot,$J+.01,"AFS.SUBR",SUBR)) G S1A S RUBR=$$SIG^cAFA1("AFS.SUBR",SUBR,103) I '$D(^HULP(boot,$J+.01,"AFS.RUBR",RUBR)) G S1A ; ; FB - 03.10.02 - categorieën in ^DATA(0,"AFS.CAT",... S CATCO=$$SIG^cAFA1("AFS.CAT",CAT,106) S ^HULP(boot,$J+.01,CATCO_" ")="" ; G S1A ; S1X D ^cAN004("RUB","AFS.RUBR") G S1Z:RUB="" ; ; FB - 04.10.02 - categorieën in ^DATA(0,"AFS.CAT",... S SUBR="" D DMS^cAN000("UQC","USC","AFS.CAT") S UREF=^DMC(UQC,USC,"DATA","REF") F S SUBR=$O(^DATA(0,"AFS.SUBR",SUBR)) Q:SUBR="" I $P(^(SUBR,0),D,3)=RUB S UI1="" D . F S UI1=$O(@UREF) Q:UI1="" I $P(@UREF@(0),D,3)=SUBR D .. S CATCO=$P(^(0),D,6)_" " S ^HULP(boot,$J+.01,CATCO)="" G S1X S1Z Q ; R0 S $P(R,D,12)=$T(+0),$P(R,D,13)=1 D ^cAN1000 Q ; v12 23.01.95 ; Z X ^cZ Q ZZ ; 18.05.04 - 15 u 48 * V8