cT710 ; Journaalpost afschrijvingen ; %T710 [ 07/07/00 6:48 PM ] ; T0 ; Journaalpost afschrijvingen ; ; T0F ; Ecriture d'amortissements ; ; T1 ;Boekingsmaand\"jjjj.mm[] = maand" T2 ;Datum uittreksel\"dd.mm.jj[] = specifieke datum"; T3 ;Bevestiging\".[] = ok" T4 ;Afschr. ; T5 ;Afschrijvingen ; ; T1F ;Période comptable\"aaaa.mm[] = mois" T2F ;Date de l'extrait\"jj.mm.aa[] = date spécifique" T3F ;Confirmation\".[] ok"; T4F ;Ammort. ; T5F ;Ammortissements ; ; T0E ; Journaalpost afschrijvingen ; T1E ;Boekingsmaand\"jjjj.mm[] = maand" T2E ;Datum uittreksel\"dd.mm.jj[] = specifieke datum"; T3E ;Bevestiging\".[] = ok" T4E ;Afschr. ; T5E ;Afschrijvingen ; ; ; EM = eerste maand van gekozen boekjaar ; DAT = datum uitttreksel ; ANALBP = analytische periode voor boekinsgreeks ; JRN = journaal ; LOMS = lange omschrijving boekingsreeks ; TAB = afschrijvingstabel ; CAT = categorie ; DELG = delgingsrekening ; KOST = kostenrekening ; 1 ;D O^cA612(2,1,20,80,1,0,0,0),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,1,1) ;14.03.00 D P^cA612(2,1,20,80,1,0,0,0,$P($T(@("T0"_QT)),U,2),0,0,7,1,1) 11 S R="BP\22\3\"_$P($T(@("T1"_QT)),U,2)_"\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(K=""-"")\\\\\1" D R0 G YZ:K="-"!(K=",") 13 G:'$$OKBP^cT860(K) 11 S (BP,ANALBP)=K I '$P(@("^"_Q_"BA(300)"),D) S ANALBP="" W /CUP(3,5),$P($P($T(@("T1"_QT)),U,2),D)," : ",BP D ^cT489 S BJ=$$BJ^cAFE1(Q,BP) S EM=KM1(BJ) 15 S R="DAT\22\3\"_$P($T(@("T2"_QT)),U,2)_"\8\\$$DCTR^cAFI1(K)\\\\\1" D R0 G 11:K="-"!(K=",") W /CUP(6,5),$P($P($T(@("T2"_QT)),U,2),D)," : ",DAT 17 G 15:K="-"&($E($O(@("^"_Q_"BA(""%T"",""D"")")))'="D") S R="JRN\D\1300\1\1700" D ^cA336 G 15:K="-" 19 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,.""[K" D R0 G 17:K="-"!(K=","),19:K'="." ; ; opbouwen hoofding boekingsreeks ; 2 D DMS^cAN000("UQC","USC","FID.J") S (UI1FID,UI1)=$$NR^cAN000 21 S OMS=$P($T(@("T4"_QT)),U,2)_BP,LOMS=$P($T(@("T5"_QT)),U,2)_BP 23 S BEE(1)=UI1_D_OMS_D_JRN_D_BP_D_ANALBP_D_OMS_D_LOMS_D_QU_D_DT_D_D_DAT 25 D P^cAN220("FID.J",0,UI1,"BEE","") ; ; opzoeken detaillijnen boekingsreeks adhv afschrijvingstabellen 3 S BJJ=0 S LYN=999 30 S BJJ=$O(@("^"_Q_"AFS(BJJ)")) G 4:BJJ=""!(BJJ>BJ) S CAT="" 31 S CAT=$O(@("^"_Q_"AFS(BJJ,CAT)")) G 30:CAT="" S TAB="" 310 S FP=1603 W @F,BJJ," ",CAT,@F2 33 S TAB=$O(@("^"_Q_"AFS(BJJ,CAT,TAB)")) G 31:TAB="" 35 S ANAL=$P(^(TAB),D,11) S DELG=$P(^(TAB),D,13),KOST=$P(^(TAB),D,14) S CATNR=$$UI1^cAFA1("AFS.CAT",106,CAT) I '$L(DELG) S DELG=$$SIG^cAFA1("AFS.CAT",CATNR,104)_" " I '$L(KOST) S KOST=$$SIG^cAFA1("AFS.CAT",CATNR,105)_" " S:KOST="" KOST=" " S:DELG="" DELG=" " I $L(ANAL),$E(ANAL,$L(ANAL))'=" " S ANAL=ANAL_" " 37 S MAAND=EM-.01 S:'$L(ANAL) ANAL=" " 39 S MAAND=$O(@("^"_Q_"AFS(BJJ,CAT,TAB,MAAND)")) G 33:MAAND=""!(MAAND>+BP) 390 S BEDRAG=+^(MAAND),TOTKOST(CAT,KOST,ANAL)=$G(TOTKOST(CAT,KOST,ANAL))+BEDRAG 391 S TOTDELG(CAT,DELG,ANAL)=$G(TOTDELG(CAT,DELG,ANAL))+BEDRAG G 39 ; ; opzetten detaillijn(en) van de boekingsreeks 4 K BEE S CAT="" 40 S CAT=$O(TOTKOST(CAT)) G YZ:CAT="" S KOST="" 41 S KOST=$O(TOTKOST(CAT,KOST)) G 5:KOST="" S ANAL="" 43 S ANAL=$O(TOTKOST(CAT,KOST,ANAL)) G 41:ANAL="" S BEDKOST=TOTKOST(CAT,KOST,ANAL) S KOSTR=KOST_$S($E(KOST,$L(KOST))=" ":"",1:" ") 45 S LYN=LYN+1 S UI1DET=UI1_" "_LYN,BEE(1)=KOSTR_D_$S(BEDKOST["-":-BEDKOST_"-",1:BEDKOST)_D_D_$S(ANAL'=" ":ANAL,1:"") 47 S $P(BEE(1),D,11)=UI1 D:BEDKOST P^cAN220("FID.J.DET",0,UI1DET,"BEE","") G 43 ; 5 K BEE S DELG="" 51 S DELG=$O(TOTDELG(CAT,DELG)) G 40:DELG="" S ANAL="" 53 S ANAL=$O(TOTDELG(CAT,DELG,ANAL)) G 51:ANAL="" S BEDDELG=TOTDELG(CAT,DELG,ANAL) S DELGR=DELG_$S($E(DELG,$L(DELG))=" ":"",1:" ") 55 S LYN=LYN+1 S UI1DET=UI1_" "_LYN,BEE(1)=DELGR_D_$S(BEDDELG["-":-BEDDELG,1:BEDDELG_"-")_D_D_$S(ANAL'=" ":ANAL,1:"") 57 S $P(BEE(1),D,11)=UI1 D:BEDDELG P^cAN220("FID.J.DET",0,UI1DET,"BEE","") G 53 ; YZ D C^cA612 Q ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; Z X ^cZ Q ZZ ; 04.04.05 - 14 u 29 * V8.03