cT705 ;DETAIL AFSCHRIJVINGSTABEL PER BOEKJAAR ;%T70 ; [ 06/06/00  4:28 PM ]
 G 1
 ;
 ; OVSW = switch om direkt detail te tonen op het scherm
 ;
T0 ;Detail afschrijvingstabel per boekjaar ;
T1 ;Selectie\"jjjj[] = detail boekjaar   O[] = overzicht";
T2 ;Beheer ;
T3 ;Restwaarde verschillend van 0;
T10 ;S0\^cA252\^cA254;
 ;
T0F ;Détail tableau d'investissement par année ;
T1F ;Sélection\"aaaa[] = détail année comptable   O[] = aperçu";
T2F ;Gestion ;
T3F ;Valeur restante différente de 0;
T10F ;S0\^cA252\^cA254;
 ;
T0E ;Detail afschrijvingstabel per boekjaar ;
T1E ;Selectie\"jjjj[] = detail boekjaar   O[] = overzicht";
T2E ;Beheer ;
T3E ;Restwaarde verschillend van 0;
T10E ;S0\^cA252\^cA254;
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
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_" ",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="RRZ\22\3\"_$P($T(@("T1"_QT)),U,2)_D_$P(RSM,D)_"\\"",-O""[K&$L(K)!(K?4N)\\\1"
23 D R0 G 9:K="-"!(K=",") I K?4N,'$D(@Q1) G 2
24 I K?4N,$O(@Q1)="" G 2
25 S RMM=$S(K="O":"^cA252",1:"^cT706") D @RMM
27 I $D(SW15) K SW15 S FP=501 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
 ;
9 D ^cT709 I R'=0 D F1 G 2
 ;
YZ Q
 ;
F1 S K=$P($T(@("T3"_QT)),U,2) G FZ
FZ D TXT^cAFA1(250) 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
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84