cT702 ;BEHEER AFSCHRIJVINGSTABELLEN ;%T70 ; [ 06/28/00  11:40 AM ]
 G 1
 ;
 ; OVSW = switch om direkt detail te tonen op het scherm
 ;
T0 ;Beheer afschrijvingstabellen ;
T1 ;Selectie;[] = openen, wijzigen   O[] = overzicht;   V[] = verwijderen;   D[] = detail     N[] = desinvesteren;
T2 ;Beheer ;
T3 ;Lijnnummer;
T4 ;Desinvesteringsmaand\"jjjj.mm[] = maand"
T5 ;Factuurnummer;
T6 ;Commentaar;
T7 ;Bevestiging\".[] = ok"
T9 ;Des.maand;Factnr;Comm.;
T10 ;S0\^cA252\^cA254\^cT704;
T11 ;Afschrijvingstabel onbekend.;
 ;
T0F ;Gestion tableaux d'amortissement ;
T1F ;Sélection;[] = créer, modifier   O[] = aperçu;   V[] = radier;   D[] = détail              N[] = désinvestissement;
T2F ;Gestion ;
T3F ;N° ligne;
T4F ;Mois de désinvestissement\"mmmm.aa[] = mois"
T5F ;Numéro de facture;
T6F ;Commentaire;
T7F ;Confirmation\".[] = ok"
T9F ;Mois dés.;N°fact;Comm.;
T10F ;S0\^cA252\^cA254\^cT704;
T11F ;Tableau d'amortissement inconnu.;
 ;
T0E ;Beheer afschrijvingstabellen ;
T1E ;Selectie;[] = openen, wijzigen   O[] = overzicht;   V[] = verwijderen;   D[] = detail     N[] = desinvesteren;
T2E ;Beheer ;
T3E ;Lijnnummer;
T4E ;Desinvesteringsmaand\"jjjj.mm[] = maand"
T5E ;Factuurnummer;
T6E ;Commentaar;
T7E ;Bevestiging\".[] = ok"
T9E ;Des.maand;Factnr;Comm.;
T10E ;S0\^cA252\^cA254\^cT704;
T11E ;Afschrijvingstabel onbekend.;
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
1 I $L($P(R,U,2)) X $P(R,U,2)
10 S K=$P($T(@("T2"_QT)),U,2)_$P(@("^"_Q_RGL_"(RR1,RR2_.1,0)"),D)_" "_QN_" "
 s FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S Q1="^"_Q_RGL_"(RR1,RR2,RRZ_"" "")",K=@("^"_Q_RGL_"(RR1,RR2_.1,0)")
 F I="RRD","RRT","RSM","RRV","RRM" S @I=^(I)
13 F I="RVW","RWZ","ROP","RSS","RQ1" I $D(^(I)) S @I=^(I)
130 I $D(RQ1) S Q1="^"_Q_$P(RQ1,D)_"("_$P(RQ1,D,2)_","_$P(RQ1,D,3)_",RRZ_"" "")"
14 S RMS=$P(K,D,2),RRL=+RRD K RTA F I=1:1 Q:'$L($P(RRV,U,I+1))
15 S K=$P(RRV,U,I),R=+RRD-3*100+$P(RRV,U)_D_($P(RRD,D,2)+1*100+K),RV="" 
17 F I=2:1 Q:'$L($P(RRV,U,I+1))  S RV=RV_(+RRD-3*100+$P(RRV,U,I))_"#"_($P(RRD,D,2)+1*100+$P(RRV,U,I))_D
18 S RH=+RRD-1*100+$P(RRV,U)_"#"_(+RRD-1*100+K),FP=+RRD-2*100+RRV+1 X RRT D ^cA319
19 I $D(OVSW) S K="O" G 25
 ;
2 S (SW12,SW)=0,R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\"""_$P($T(@("T1"_QT)),U,3) I $D(RVW),+RVW S R=R_$P($T(@("T1"_QT)),U,4)
21 S R=R_$P($T(@("T1"_QT)),U,5),R=R_"""\1\\"_""",-NOD""[K" I $D(RVW),+RVW S R=R_"!(K=""V"")\\\1"
23 D R0 G YZ:K="-"!(K=",") I K="N" D S5 G 11
25 S RMM=$P($S($D(RSS):RSS,1:$P($T(@("T10"_QT)),U,2)),D,$S('$L(K):1,"OVD"[K:$F("OVD",K))) D @RMM
26 I $D(SW14) K SW14 S FP=401 W @F,@F1 G 11
29 S FP=$P(RRD,D,2)+2*100+1 W @F,@F1 G YZ:K=",",2:SW12,2:K="-"
 ;
3 I RRL>$P(RRD,D,2) S SW=1,RRL=RRL-1,FP=$P(RRD,D,2)+1*100+1 W @F,@F1 S FP=RRD*100+1 W @F,@FDL D S3
39 D S1 D S4:SW S RTA(RRL)=RRZ,RRL=RRL+1,@Q1=B(1) G 2
 ;
YZ Q
 ;
S0 S (SW12,SW)=0,FP=$P(RRD,D,2)+2*100+1 W @F,@F1 I $L($P(RSM,D,3)) X $P(RSM,D,3) G S0B
S0A S R="RRZ\22\3\"_RMS_D_D_$P(RSM,D)_D_D_""",-""[K&$L(K)"_$S($L($P(RSM,D,2)):"!("_$P(RSM,D,2)_")",1:"!$L(K)") D R0
S0B G S0Z:K="-"!(K=",") I $D(@Q1) D ^cA253 X:$D(RWZ) RWZ G S0:K="-",S0Z
S0C D ^cA251 X:$D(ROP) ROP G S0:K="-"
S0Z Q
 ;
S1 I SW S FP=RRL*100+$P(RRV,U) W @F,@F7,@$P(FG,D,10),@F8
S1A F I=1:1 S X=$P(RRM,D,I) Q:'$L(X)  D S2
S1Z Q
 ;
S2 F II=1:1:4 S @("RS"_II)=$P(X,U,II)
S2A S FP=RRL*100+$P(RRV,U,RS2)+2,K=$S('RS1:@RS1,1:$P(B(1),D,RS1#100)) X:$L(RS4) RS4
S2B I RS3="L" W @F,K,$J("",$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-$L(K)-2)
S2C E  S FP=FP-1 W @F,$J(K,$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-1)
S2D I SW S FP=RRL*100+$P(RRV,U,RS2+1) W @F,@F7,@$P(FG,D,10),@F8
S2Z K RS1,RS2,RS3,RS4 Q
 ;
S3 S X="" K:$O(RTA(X))=+RRD RTA($O(RTA(X))) F I=1:1 S X=$O(RTA(X)) Q:'X  S RTA(X-1)=RTA(X) K RTA(X)
S3Z Q
 ;
S4 S FP=$P(RRD,D,2)+1*100+$P(RRV,U) W @F,@F7,@$P(FG,D,3)
S4A F I=1:1 Q:'$L($P(RRV,U,I+1))  S FP=$P(RRD,D,2)+1*100+$P(RRV,U,I) W:I'=1 @F,@$P(FG,D,8) F J=$P(RRV,U,I)+2:1:$P(RRV,U,I+1) W @$P(FG,D,9)
S4Z W @$P(FG,D,4),@F8 Q
 ;
 ; Desinvestering module N[]
S5 N A,II,I,DES,FNR,COMM,RRZ,REGIM,BJ
 S $ZT="TRAP^cAN000"
S50 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\4\\(K?.4N!(""-,""[K))&($L(K))" D R0 G S5Z:K="-"!(K=",") 
 S RRZ=K I '$D(@Q1) S K=$P($T(@("T11"_QT)),U,2) D TXT^cAFA1(250) G S50
 N A S A(1)=@Q1
 D P^cA612(16,1,6,80,1,0,0,0,"",0,0,0,0,0)
 F I=1:1 S X=$P(RRM,D,I) Q:'$L(X)  D 
 . F II=1:1:4 S @("RS"_II)=$P(X,U,II)
 . S FP=100+$P(RRV,U,RS2)+1,K=$S('RS1:@RS1,1:$P(A(1),D,RS1#100)) X:$L(RS4) RS4
 . I RS3="L" W @F,K,$J("",$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-$L(K)-2)
 . E  S FP=FP-1 W @F,$J(K,$P(RRV,U,RS2+1)-$P(RRV,U,RS2)-1)
 . K RS1,RS2,RS3,RS4 Q
 S DES=$P(A(1),D,9),FNR=$P(A(1),D,19),COMM=$P(A(1),D,20)
 S FP=203 W @F,$P($T(@("T9"_QT)),U,2)," : ",DES
 S FP=224 W @F,$P($T(@("T9"_QT)),U,3)," : ",FNR
 S FP=241 W @F,$P($T(@("T9"_QT)),U,4)," : ",COMM
S5A S R="DES\22\3\"_$P($T(@("T4"_QT)),U,2)_"\7\\K?4N.1"".""2N!(""-,""[K)" S $P(R,D,13)=1 D R0 D:K="-"!(K=",") C^cA612 G S5:K="-"!(K=",") I K["." G S5A:$P(K,".",2)>12,S5A:'$P(K,".",2)
 I $L($P(A(1),D,9)),$L(K),K'=$P(A(1),D,9) G S5A
 S FP=303 W @F,$P($P($T(@("T9"_QT)),U,2),D)," : ",DES
 I $L($P(A(1),D,9)),'$L(K) S FNR="",COMM="" G S5D
S5B S R="FNR\22\3\"_$P($T(@("T5"_QT)),U,2)_"\\6\\K?6N!(""-,""[K)" S $P(R,D,13)=1 D R0 G S5A:K="-"!(K=",")
 S FP=324 W @F,@F2,$P($T(@("T9"_QT)),U,3)," : ",FNR
S5C S R="COMM\22\3\"_$P($T(@("T6"_QT)),U,2)_"\\30\" S $P(R,D,13)=1 D R0 G S5B:K="-"!(K=",")
 S FP=341 W @F,@F2,$P($T(@("T9"_QT)),U,4)," : ",COMM
S5D S R="K\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\""-,.""[K" D R0 G S5C:K="-"!(K=","),S5D:K'="."
 S $P(@Q1,D,9)=DES,$P(@Q1,D,19)=FNR,$P(@Q1,D,20)=COMM
 I $L($P(A(1),D,9)),'$L(DES) S B(1)=A(1) D ^cT703 G S5Y
 G S5Y:$L(DES)=1 
 ;
 ; desinvesteringsmaand ingegeven
 ;
 S REGIM=$P(A(1),D,3) D ^cT489 S BJ=$$BJ^cAFE1(Q,DES)
 S EM=DES S:REGIM'=1 EM=$G(KM1(BJ)) S I4=EM-.01
 F  S I4=$O(@("^"_Q_"AFS(INJ,KAT,RRZ_"" "",I4)")) Q:I4=""  S ^(I4)=0
S5Y D C^cA612
S5Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84