cT706 ;MAANDDETAIL ;%T70 ; [ 10/08/98  10:37 AM ]
 G 1
 ;
T0 ;Maanddetail ;
T1 ;Januari\Februari\Maart\April\Mei\Juni\Juli\Augustus\September\Oktober\November\December;
T2 ;Keuze;1[] = maandbedrag                2[] = manuele ingave alle maanden;3[] = manueel wijzigen 1 maand   -[] = einde;
T3 ;Maandbedrag\"xxxxxxxxx[] = maandbedrag   -[] = einde";
T4 ;"xxxxxxxxx[] = maandbedrag";
T5 ;Welke maand\"xx[] = volgnummer van de maand";
T6 ;Afschrijving ;Saldo;
T7 ;Het saldo is verschillend van 0   .[] = ok   [] = hernemen ;
 ;
T0F ;Détail mensuel ;
T1F ;Janvier\Février\Mars\Avril\Mai\Juin\Juillet\Août\Septembre\Octobre\Novembre\Décembre;
T2F ;Choix;1[] = montant mensuel            2[] = introduction manuelle complète;3[] = modification manuelle 1 mois   -[] = fin;
T3F ;Montant mensuel\"xxxxxxxxx[] = montant mensuel   -[] = fin";
T4F ;"xxxxxxxxx[] = montant mensuel";
T5F ;Quel mois\"xx[] = numéro du mois";
T6F ;Amortissement ;Solde;
T7F ;Solde différent de 0   .[] = ok   [] = reprendre ;
 ;
T0E ;Maanddetail ;
T1E ;Januari\Februari\Maart\April\Mei\Juni\Juli\Augustus\September\Oktober\November\December;
T2E ;Keuze;1[] = maandbedrag                2[] = manuele ingave alle maanden;3[] = manueel wijzigen 1 maand   -[] = einde;
T3E ;Maandbedrag\"xxxxxxxxx[] = maandbedrag   -[] = einde";
T4E ;"xxxxxxxxx[] = maandbedrag";
T5E ;Welke maand\"xx[] = volgnummer van de maand";
T6E ;Afschrijving ;Saldo;
T7E ;Het saldo is verschillend van 0   .[] = ok   [] = hernemen ;
 ;
 ; maandbedrag
S1 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\9\\K?.N.1"".""."_QD_"N.1""-""!(K=""-"")" D R0 I K="-" G S1Z
S1A F H=1:1 S HBP=$P(HJ,D,H) Q:HBP=""  S:K["-" K="-"_$TR(K,"-","") S @("^"_Q_"AFS(INJ,KAT,TBL_"" "",HBP)")=K D S11
S1B D S13
S1Z Q
 ;
 ; manuele ingave alle maanden
S2 F H=1:1 S HBP=$P(HJ,D,H) Q:HBP=""  D S12 S R="K\22\3\"_HO_"\9\\K?.N.1"".""."_QD_"N.1""-""!(K=""-"")" D R0 S:K="-" H=H-2 Q:H<0  I K'="-" S:K["-" K="-"_$TR(K,"-","") S @("^"_Q_"AFS(INJ,KAT,TBL_"" "",HBP)")=K D S11,S13
S2Z Q
 ;
 ; manueel wijzigen 1 maand
S3 S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\2\\K=""-""!$S('$L(K):0,1:$D(HNR(K)))" D R0 G S3Z:K="-" S HBP=HNR(K) D S12
S3A S R="K\22\3\"_HO_"\9\\K?.N.1"".""."_QD_"N.1""-""!(K=""-"")" D R0 G S3:K="-" S:K["-" K="-"_$TR(K,"-","") S @("^"_Q_"AFS(INJ,KAT,TBL_"" "",HBP)")=K D S11,S13
S3Z Q
 ;
S10 S HO=$P($P($T(@("T1"_QT)),U,2),D,HBP#1*100),HO=$J(H,2)_" "_HO_$J("",10-$L(HO))_(HBP\1)_" :"
S10A S FP=$P(HTA(HBP),"#") W @F,HO
S10Z Q
 ;
 ; tonen omschrijving voor maand HBP
S11 S FP=$P(HTA(HBP),"#",2)
S11A S R=$S($D(@("^"_Q_"AFS(INJ,KAT,TBL_"" "",HBP)")):$J(^(HBP),0,QD),1:"")
S11B W @F I $L(R) S R=R_D_15_D_D_QD D S3^cT70 W R G S11Z
S11C W $J("",16)
S11Z Q
 ;
 ; tonen maandbedrag voor maand HBP
S12 S HO=$P($P($T(@("T1"_QT)),U,2),D,HBP#1*100)_" "_(HBP\1)_D_$P($T(@("T4"_QT)),U,2)
S12Z Q
 ;
 ; berekenen som boekjaar HBJ
S13 S HSOM=0,R=$D(@("^"_Q_"AFS(INJ,KAT,TBL_"" "",0)")) F R=1:1 Q:$P(HJ,D,R)=""  S HSOM=HSOM+$S($D(^($P(HJ,D,R))):^($P(HJ,D,R)),1:0)
S13A S FP=643 W @F,@F4,$P($T(@("T6"_QT)),U,3)," :" S R=(HTOT-HSOM)_D_15_D_D_QD D S3^cT70 W R," ",@F5,@F2
S13Z Q
 ;
1 S FP=501 W @F,@F1
12 S HBJ=RRZ,R=HBJ D S1^cT701 S HJ=R,HTOT=$P(@("^"_Q_"AFS(0,$J+(100/10000),HBJ_"" "")"),D,3) S FP=604 W @F,$P($T(@("T6"_QT)),U,2),HBJ," :" S R=HTOT_D_15_D_D_QD D S3^cT70 W R,@F2 D S13
14 S R="702\2080",RV="740#2040" D ^cA319
16 K HTA,HNR F H=1:1 S HBP=$P(HJ,D,H) Q:HBP=""  S HTA(HBP)=$P($P($T(POS),U,2),D,H),HNR(H)=HBP D S10,S11
 ;
2 S R="HK\22\3\"_$P($T(@("T2"_QT)),U,2)_"\COM\1\\""-123""[K&$L(K)" D R0 I K="-" G 9
 ;
3 D @("S"_HK) G 2
 ;
9 D S13 I HTOT-HSOM'=0 D F1 G 2:K'="." D ^cT709
92 S SW15=D
 ;
YZ K HBJ,HJ,HTOT,HTA,HNR,H,HBP,HK,HSOM Q
 ;
COM W !?2,$P($T(@("T2"_QT)),U,3),!?2,$P($T(@("T2"_QT)),U,4) Q
 ;
POS ;804#823\904#923\1004#1023\1104#1123\1204#1223\1304#1323\1404#1423\1504#1523\1604#1623\1704#1723\1804#1823\1904#1923\843#862\943#962\1043#1062\1143#1162\1243#1262\1343#1362\1443#1462\1543#1562\1643#1662\1743#1762\1843#1862\1943#1962
 ;
F1 S FP=2403+F60 W @F,@F4,$P($T(@("T7"_QT)),U,2),@F5,@F2 R K Q
 ;
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
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84