cT76(INV,CAT) ; Nieuw beheer afschrijvingstabellen ;%T76 ; [ 06/15/2000 5:16 PM ] G 1 ; T0 ;Beheer afschrijvingstabellen ; T1 ;Investeringsjaar;Categorie; T2 ;LIN;P.R.T;DEG;P.R.D;D.P.D. T3 ;Regime T4 ;0[] = lineair 1[] = pro rata 2[] = degressief; T5 ;3[] = pro rata / dag;4[] = degressief / dag T6 ;Afschrijvingslijn;Jaar T7 ;Afschrijvingsjaar;Jaarbedrag;Saldo; T8 ;Desinvesteringsperiode mag niet in een volgend boekjaar liggen T9 ;Desinvest.periode mag niet kleiner dan 1e maand van afschrijving T10 ;1e boekingsperiode groter dan desinvesteringsperiode T11 ;1e boekingsperiode mag niet voor investeringsdatum liggen ; T0F ;Gestion tableaux d'amortissement ; T1F ;Année d'investissement;Catégorie; T2F ;LIN;P.R.T;DEG;P.R.D;D.P.D. T3F ;Régime T4F ;0[] = linéair 1[] = pro rata 2[] = dégressive; T5F ;3[] = pro rata / jour;4[] = dégressive / jour T6F ;Ligne d'amortiss.;Années; T7F ;Année d'amortiss.;Montant annuel;Solde; T8F ;Période de désinvest. se rapporte à une exercise comptable future T9F ;Période de désinvestissement avant premier mois de l'amortissement T10F ;Premier mois plus grand que mois de désinvestissement T11F ;Premier mois ne peut pas précéder au date de l'investissement ; T0E ;Beheer afschrijvingstabellen ; T1E ;Investeringsjaar;Categorie; T2E ;LIN;P.R.T;DEG;P.R.D;D.P.D. T3E ;Regime T4E ;0[] = lineair 1[] = pro rata 2[] = degressief; T5E ;3[] = pro rata / dag;4[] = degressief / dag T6E ;Afschrijvingslijn;Jaar; T7E ;Afschrijvingsjaar;Jaarbedrag;Saldo; T8E ;Desinvesteringsperiode mag niet in een volgend boekjaar liggen T9E ;Desinvesteringsperiode mag niet kleiner dan 1e maand van afschrijving T10E ;1e boekingsperiode groter dan desinvesteringsperiode T11E ;1e boekingsperiode mag niet voor investeringsdatum liggen ; ; 1 N LN,INH,X,B S $ZT="TRAP^cAN000" K ^TEMP(boot,$J),^TEMP(boot,$J+.01),^TEMP(boot,$J+.02) S X="^"_Q_"AFS(INV,CAT)" 11 I '$$PLUS^cANLOCK(X,"","",1) G YZ ; ; opbouwen ^TEMP(boot,$J,... voor ^DMH(0,"AFS.LN" ; 2 D DMS^cAN000("UQC","USC","AFS") S UREF=^DMC(UQC,USC,"DATA","REF"),(XX,UI1)=INV_" "_CAT F S UI1=$O(@UREF) Q:UI1=""!($E(UI1,1,$L(XX))'=XX) D . S INH=@UREF@(0) S $P(INH,D,24)=$P(UI1," ",3) S ^TEMP(boot,$J,UI1,0)=INH ; ; tonen ^DMH(0,"AFS.LN" adhv ^TEMP(boot,$J,... ; 3 D BS^cAN210("AFS.LN",0,0,0,"") S K="-" L -@("^"_Q_"AFS(INV,CAT)") ; loslaten lock ; YY K ^TEMP(boot,$J),^TEMP(boot,$J+.01),^TEMP(boot,$J+.02) YZ Q ; TOP1(INV,CATNR) ; tonen top met investeringsjaar en categorie S UTOP(1)="1\1\"_$P($T(@("T1"_QT)),U,2)_"\4" ; omschrijving S UTOP(1.1)="1\18\: "_INV_D_0 S UTOP(2)="2\1\"_$P($T(@("T1"_QT)),U,3)_"\4" ; rekening S UTOP(2.1)="2\18\: "_$$SIG^cAFA1("AFS.CAT",CATNR,106)_" "_$P(^(0),D)_D_0 S OK=0 TOP1Z Q ; TOP2(INV,CATNR,LN) ; tonen top met investeringsjaar, categorie en afschrijvingslijn N REC,UI1,CATCO S $ZT="TRAP^cAN000" S CATCO=$$SIG^cAFA1("AFS.CAT",CATNR,106) S UI1=INV_" "_CATCO_" "_LN_" " S REC=@UREF1@(0) S UTOP(1)=$P($T(@("T1"_QT)),U,2),UTOP(1.1)=INV S UTOP(2)=$P($T(@("T1"_QT)),U,3),UTOP(2.1)=$$SIG^cAFA1("AFS.CAT",CATNR,106)_" "_$P(^(0),D) S UTOP(3)=$P($T(@("T6"_QT)),U,2),UTOP(3.1)=LN_" "_$P(REC,D)_$J("",24-$L($P(REC,D)))_" "_$$IP^cAFA1($P(REC,D,4),QD,0) S UTOP(3.1)=UTOP(3.1)_" "_$$REGO($P(REC,D,3))_" "_$P(REC,D,2)_" "_$P($T(@("T6"_QT)),U,3) TOP2Z Q ; TOP3(INV,CATNR,LN,JAAR) ; tonen top bij maandbedragen, met saldo N SALDO S $ZT="TRAP^cAN000" D TOP2(INV,CATNR,LN) S JAARBED=$P(^TEMP(boot,$J+.01,JAAR,0),D,3) S UTOP(4)="4\1\"_$P($T(@("T7"_QT)),U,2)_"\4" S UTOP(4.1)="4\19\: "_JAAR_"\0" S UTOP(5)="4\30\"_$P($T(@("T7"_QT)),U,3)_"\4" S UTOP(5.1)="4\41\: "_$$IP^cAFA1(JAARBED,QD,0)_"\0" S SALDO=$$SALDO(JAAR) S UTOP(6)="4\60\"_$P($T(@("T7"_QT)),U,4)_"\4" S UTOP(6.1)="4\66\: "_$$IP^cAFA1(SALDO,QD,0)_"\0" TOP3Z Q ; SALDO(JAAR) ; berekening saldo voor bepaald jaar N JAARBED,TOT S $ZT="TRAP^cAN000" S JAARBED=$P(^TEMP(boot,$J+.01,JAAR,0),D,3) S TOT=0,I3="" F S I3=$O(^TEMP(boot,$J+.02,I3)) Q:I3="" I ^HULP(boot,$J,+JAAR)[($P(I3," ",4)_D) S TOT=TOT+^TEMP(boot,$J+.02,I3,0) S SAL=JAARBED-TOT SALDOZ Q SAL ; REGI(INV) ; inputfunctie ivm "regime" N PAR,COM,INP,REG S $ZT="TRAP^cAN000" S PAR=$G(^DPAR(Q,"AFS")) S REG=$P(B(1),D,3) ; I INV<2002 S COM=""""_$P($T(@("T4"_QT)),U,2)_"""" S INP="-012" G REGIV ; I INV=2002,'PAR S COM=""""_$P($T(@("T4"_QT)),U,2)_"""" S INP="-012" G REGIV I PAR S COM=""""_$P($T(@("T5"_QT)),U,2)_" "_$P($T(@("T5"_QT)),U,3)_"""" S INP="-34" I 'PAR D G REGIV . S COM=""""_$P($T(@("T4"_QT)),U,2)_" "_$P($T(@("T5"_QT)),U,2) . S COM=COM_" "_$P($T(@("T5"_QT)),U,3)_"""" S INP="-01234" ; I INV>2002,'PAR S COM=""""_$P($T(@("T4"_QT)),U,2)_"""" S INP="-012" G REGIV ; I INV>2002,PAR S COM=""""_$P($T(@("T5"_QT)),U,2)_" "_$P($T(@("T5"_QT)),U,3)_"""" S INP="-34" REGIV S R="REG\22\3\"_$P($T(@("T3"_QT)),U,2)_D_COM_"\1\\INP[K&$L(K)" S $P(R,D,13)=1 D R0 REGIZ Q ; REGO(RG) ; outputfunctie ivm "regime" ; input : regime - cijfer ; output : Lin - P.R.T - Deg - P.R.D - D.P.D. S REGO=$P($T(@("T2"_QT)),U,RG+2) REGOZ Q REGO ; EBD(REG,EBM,INVDAT) ; bepalen eerste boekingsdatum N INVDC,EDAT S $ZT="TRAP^cAN000" S EBM=$TR(EBM,".") S EDAT=EBM_"01" S INVDC=$$DC^cAFD1(INVDAT) I REG<3 S EBD=$$DCO^cAFD1(EDAT) G EBDZ I INVDC0)&($P(DESBP,".",2)<13)!(DESBP="") S OK=1 S DESBJ=$$BJ^cAFE1(Q,DESBP) ; boekjaar desinvesteringsmaand S HBJ=$$BJ^cAFE1(Q,DJ_"."_DM) ; huidig boekjaar I DESBJ>HBJ S OK=0 S K=$P($T(@("T8"_QT)),U,2) D TXT^cAFA1(250) G DESCONZ ; desbp niet in volgend boekjaar I DESBP,DESBP<$P(B(1),D,8) S OK=0 S K=$P($T(@("T9"_QT)),U,2) D TXT^cAFA1(250) ; desbp niet kleiner dan 1e maand afs.tabel DESCONZ Q OK ; EBMCON(EBP) ; controle 1e boekingsperiode N K,INV,INVDC,TINV S $ZT="TRAP^cAN000" S OK=0 I EBP?4N1"."2N&($P(EBP,".",2)>0)&($P(EBP,".",2)<13)&$L(EBP) S OK=1 I $L($P(B(1),D,9)),(EBP>$P(B(1),D,9)) S OK=0 S K=$P($T(@("T10"_QT)),U,2) D TXT^cAFA1(250) I $P(B(1),D,3)>2 D . S INV=$P(B(1),D,5),INVDC=$$DC^cAFD1(INV),TINV=$E(INVDC,1,6) . I $TR(EBP,".")2,$L(EBP),$TR(EBP,".")