cT383 ;Financieel dagboek naar Excel ;%T38 ;overlay %T38* ; [ 09/25/01 12:20 PM ] G 1 ; T0 ;Financieel dagboek ;Ingeboekte wissels ;Divers dagboek ; T1 ;Diversen ; T2 ;JRN\Uittreksel\Datum\;Saldo;Type\Nummer\Naam\;Nummer\Naam van de anal.rekening\;Nummer\Naam van de IAS rekening\;Debet;Credit;Referte\Omschrijving\;Project\;Ini;\Datum; T3 ;Analytisch divers dagboek ; T4 ;Segment divers dagboek ; T5 ;\Boekingsmaand; ; T0F ;Journal financier;Traites enregistrés ;Journal divers ; T1F ;Operations diverses; T2F ;JRN\Extrait\Date\;Solde;Type\Numéro\Nom\;Numéro\Nom du compte anal.\;Numéro\Nom du compte IAS\;Débit;Crédit;Référence\Description\;Projet\;Ini;\Date; T3F ;Journal analytiques divers ; T4F ;Journal segment divers ; T5F ;\Mois comptable; ; T0E ;Financial journal ;Registered bills of exchange ;Miscellaneous journal ; T1E ;Miscellaneous transactions; T2E ;JRN\Statement\Date\;Balance;Type\Number\Name\;Number\Anal.Account Name\;Number\IAS Account Name\;Debit;Credit;Reference\Description\;Project\;Ini;\Date; T3E ;Analytical miscellaneous journal ; T4E ;Segment miscellaneous journal ; T5E ;\Fiscal month; ; T0D ;Finanzjournal ;Ingeboekte wissels ;Divers dagboek ; T1D ;Diversen ; T2D ;JRN\Auszug\Datum\;Saldo;Typ\Nummer\Name\;Nummer\Naam van de anal.rekening\;Nummer\Naam van de IAS rekening\;Debet;Credit;Referenz\Bezeichnung\;Projekt\;Ini;\Datum; T3D ;Analytisch divers dagboek ; T4D ;Segment divers dagboek ; T5D ;\Rechnungsmonat; ; ; Samenstellen hoofding, titel en TAB 1 S BPB=@("^"_Q_"BA(2)"),NM1=^(99,1),NM2=^(2),NM3=^(3),(I1,BLZ)=0 11 S X=BPB,K=$P(X,D,2) S:BP>K X=K\1*12+(K#1*100),K=K+1 S BX=BP\1*12+BM-X+1,BPB=$P(BPB,D,2) ; VJ-25.09.01 (TBK printen dagboek uit verleden) 13 S R=KM1(BJ) F BX=2:1 Q:R=BP S R=$E(R+.01_0,1,7) I R#1>.12 S R=R+.88 15 I BR S K=@("^"_Q_"AR(BR,0)") S:$P(K,D,17) BR="W"_BR 17 S HD(1)=D,HD(2)=D_$S(BEST="FI"&('$G(SWI)):$P($T(@("T0"_QT)),U,2),BEST="FI"&($G(SWI)):$P($T(@("T0"_QT)),U,4),BEST="FIE":$P($T(@("T3"_QT)),U,2),1:$P($T(@("T4"_QT)),U,2))_" : "_MNM_";C;F82",HD(3)=D_TIT S TIT(1)=$P($T(@("T2"_QT)),U,2)_$S(SWSAL:$P($T(@("T2"_QT)),U,3)_D,1:"")_$P($T(@("T2"_QT)),U,4)_$S(SWAV:$P($T(@("T2"_QT)),U,5),1:"")_$S(SWAV&$P($G(@("^"_Q_"BA(300)")),D,8):$P($T(@("T2"_QT)),U,6),1:"")_$P($T(@("T2"_QT)),U,7)_D_$P($T(@("T2"_QT)),U,8)_D_$P($T(@("T2"_QT)),U,9)_$S($$PROJ^cT48H(Q):$P($T(@("T2"_QT)),U,10),1:"")_$P($T(@("T2"_QT)),U,11) I BR'=".",BR'="D",(BF'=HBF) S TIT(1)=$P($T(@("T2"_QT)),U,2)_$S(SWSAL:$P($T(@("T2"_QT)),U,3)_" "_$S(SWM="":BF,1:HBF)_D,1:"")_$P($T(@("T2"_QT)),U,4)_$S(SWAV:$P($T(@("T2"_QT)),U,5),1:"")_$S(SWAV&$P($G(@("^"_Q_"BA(300)")),D,8):$P($T(@("T2"_QT)),U,6),1:"")_$P($T(@("T2"_QT)),U,7)_" "_$S(SWM="":BF,1:HBF)_D_$P($T(@("T2"_QT)),U,8)_" "_$S(SWM="":BF,1:HBF)_D_$P($T(@("T2"_QT)),U,9)_$S($$PROJ^cT48H(Q):$P($T(@("T2"_QT)),U,10),1:"")_$P($T(@("T2"_QT)),U,11) I SWAV D . I '$P($G(@("^"_Q_"BA(300)")),D,8),'$$PROJ^cT48H(Q) S TAB="5\10\25\36\41\48\77\83\112\123\134\150\181\185" . I '$P($G(@("^"_Q_"BA(300)")),D,8),$$PROJ^cT48H(Q) S TAB="5\10\25\36\41\48\77\83\112\123\134\150\181\185\186" . I $P($G(@("^"_Q_"BA(300)")),D,8),'$$PROJ^cT48H(Q) S TAB="5\10\25\36\41\48\77\83\112\119\148\159\170\186\217\221" . I $P($G(@("^"_Q_"BA(300)")),D,8),$$PROJ^cT48H(Q) S TAB="5\10\25\36\41\48\77\83\112\119\148\159\170\186\217\221\223" I 'SWAV,'$$PROJ^cT48H(Q) S TAB="5\10\25\36\41\48\77\88\99\115\176\180" I 'SWAV,$$PROJ^cT48H(Q) S TAB="5\10\25\36\41\48\77\88\99\115\176\180\181" I $P($G(QU(0,2)),D,39) S TAB=TAB_D_($P(TAB,D,$L(TAB,D))+8),TIT(1)=TIT(1)_$P($T(@("T2"_QT)),U,12) I PTS=3!(PTS=4) S TIT(1)=TIT(1)_$P($T(@("T5"_QT)),U,2),TAB=TAB_"\"_($P(TAB,"\",$L(TAB,"\"))+8) ; Kijken of er voor een bepaalde financiële rekening werd gekozen of alle 19 I BR'="." S I1=$P(BR," ")_SRT,SWR=I1["W",HD(2)=D_$S(BEST="FI":$P($T(@("T0"_QT)),U,2+SWR),BEST="FIE":$P($T(@("T3"_QT)),U,2),1:$P($T(@("T4"_QT)),U,2))_" : "_MNM_";C;F82" G 21 ; ; Aflopen rekeningen van financieel dagboek voor periode BP 2 S I1=$O(@("^"_Q_BEST_"(BP,I1)")) G Y:I1="" 21 S BN=$P($T(@("T1"_QT)),U,2),CD="DV",SWR=I1["W",X1=$E(I1,SWR+1,9)_" ",HBF=BF,HQD=QD K ^HULP(boot,$J) F S1=1:1:6 S B(S1)="" 23 I BEST="FI" I I1?1"D".N S K="D"_$E(1000+$E(I1,2,4),2,4) I $D(@("^"_Q_"BA(""%T"",K)")) S K=^(K),BN=$P(K,D),K=$P(K,D,2) S:$L(K) CD=K I BEST'="FI" I I1?1"D".N S K="E"_$E(1000+$E(I1,2,4),2,4) I $D(@("^"_Q_"BA(""%T"",K)")) S K=^(K),BN=$P(K,D),K=$P(K,D,2) S:$L(K) CD=K 25 S (VMSW,KDT,KCT,LDT,LCT,B(7),B(8),SAL)=0,UTR="" I $D(@("^"_Q_"AR(X1,0)")) D S1 ; Afkorting en omschrijving financiële rekening 26 S I2=0 K TXT S TXT(1)=CD,$P(TXT(1),D,20)=0 ; Printen beginsaldo S SWPRSAL=0 27 I SWSAL&'SWD&'SWU D PSAL ; ; Aflopen verschillende verrichtingen 3 S I2=$O(@("^"_Q_BEST_"(BP,I1,I2)")),A=D I I2 S A=^(I2) I 'I2 D PSAL:(SWSAL&(SWPRSAL=0)) G 5 I SWU,$P(A,D,3)'=SWU S NSAL=SAL,BE=$P(A,D,$S(SWM:11,1:5)) S:$P(A,D,6)="D" BE=-BE S:(SWPRSAL=0) SAL=SAL+BE G 3 I SWD,$P(A,D,2)'=SWD S NSAL=SAL,BE=$P(A,D,$S(SWM:11,1:5)) S:$P(A,D,6)="D" BE=-BE S:(SWPRSAL=0) SAL=SAL+BE G 3 ; G 3:$P(A,D,2)'=SWD&SWD,3:$P(A,D,3)'=SWU&SWU I SWSAL&(SWPRSAL=0) D PSAL ; Uittreksel 31 F I=2:1:$S(SWSAL&($P($G(@("^"_Q_"BA(300)")),D,8)):15,SWSAL:13,1:11) S TXT(I)="" S TXT(2)=UTR I 'SWAV F I=8:1:9 S $P(TXT(I),D,8)=1 I SWAV&('$P($G(@("^"_Q_"BA(300)")),D,8)) F I=10:1:11 S $P(TXT(I),D,8)=1 I SWAV&($P($G(@("^"_Q_"BA(300)")),D,8)) F I=12:1:13 S $P(TXT(I),D,8)=1 33 G 5:'I2 S CO=$P(A,D,6),K1=$P(A,D,7),KC=$P($P(A,D,8),"#"),BE=$P(A,D,VMSW*6+5),X=$F("KLA",K1)-1*2-(CO="D") F K=1:1:6 S T(K)="" 35 I K1="K" S K=$P(@("^"_Q_"KL(^"_Q_"K1(KC),0)"),D,2) S:X=1 KDT=KDT+BE S:X=2 KCT=KCT+BE G 4 37 I K1="L" S K=$P(@("^"_Q_"LE(^"_Q_"L1(KC),0)"),D,2) S:X=3 LDT=LDT+BE S:X=4 LCT=LCT+BE G 4 39 S K=KC_" " S:'$D(^HULP(boot,$J,K)) ^(K)=D S $P(^(K),D,X-4)=$P(^(K),D,X-4)+BE S K=$P(@("^"_Q_"AR(K,0)"),D,2) ; ; Schrijven: uittreksel, datum, type, nummer KL/LE/AR, naam KL/LE/AR 4 S TXT(2)=$P(A,D,3) S TXT(3)=$P(A,D,2),TXT(5)=$S(K1="A":$P("G;G;H;G",U,QTU),1:$S(K1="K":$P("K;C;K;C",U,QTU),1:$P("L;F;L;S",U,QTU))),TXT(6)=KC,TXT(7)=K S T(X)=BE,B(X)=B(X)+BE,I=40,VNR=7 I SWAV&('$P($G(@("^"_Q_"BA(300)")),D,8)) S VNR=VNR+1,TXT(VNR)=$P(A,D,16),VNR=VNR+1,TXT(VNR)=$S($L($P(A,D,16)):$P(@("^"_Q_"ARA($P(A,D,16),0)"),D,2),1:"") I SWAV&($P($G(@("^"_Q_"BA(300)")),D,8)) S VNR=VNR+1,TXT(VNR)=$P(A,D,16),VNR=VNR+1,TXT(VNR)=$S($L($P(A,D,16)):$P(@("^"_Q_"ARA($P(A,D,16),0)"),D,2),1:""),VNR=VNR+1 S DEEL=$S(BEST="FI":40,1:31),TXT(VNR)=$P(A,D,DEEL),VNR=VNR+1,TXT(VNR)=$S($L($P(A,D,DEEL)):$P(@("^"_Q_"ARA($P(A,D,DEEL),0)"),D,2),1:"") ; Berekenen saldo 41 F S1=1:2:5 S K=T(S1),SAL=SAL-K,K=T(S1+1),SAL=SAL+K ; Formule voor berekening saldo ; I SWAV&('$P($G(@("^"_Q_"BA(300)")),D,8)) S TXT(4)="=R[-1]C-RC[+6]+RC[+7]",$P(TXT(4),D,21)=1 ; I SWAV&($P($G(@("^"_Q_"BA(300)")),D,8)) S TXT(4)="=R[-1]C-RC[+8]+RC[+9]",$P(TXT(4),D,21)=1 ; I 'SWAV S TXT(4)="=R[-1]C-RC[+4]+RC[+5]",$P(TXT(4),D,21)=1 S TXT(4)=SAL_"\\\\1\"_HQD ; Debet of credit bedrag S VNR=VNR+1 I X=1!(X=3)!(X=5) S TXT(VNR)=BE_"\\\\1\"_HQD_"\\1" S VNR=VNR+1 I X=2!(X=4)!(X=6) S TXT(VNR)=BE_"\\\\1\"_HQD_"\\1" ; Referentie 43 S VNR=VNR+1,TXT(VNR)=$P(A,D,9) ; Omschrijving S VNR=VNR+1,TXT(VNR)=$P(A,D,15) ; Project I $$PROJ^cT48H(Q) S VNR=VNR+1,TXT(VNR)=$S($L($P(A,D,27)):$$SIG^cAFA1("PROJ",$P(A,D,27),101),1:"") ; Initialen S VNR=VNR+1,TXT(VNR)=$P(A,D,29) ; Datum I $P($G(QU(0,2)),D,39) S VNR=VNR+1,TXT(VNR)=$S($L($P(A,D,28)):$$HD^cAFD1($P(A,D,28)),1:"") S SWPRINT=1 44 D FORM,^cA334 G 3 ; 5 G 2:BR=".",Y ; Y S END=1 D FORM,^cA334 YZ Q ; ; Ophalen gegevens financiële rekening S1 S K=^(0),BN=$P(K,D,2),CD=$P(K,D,10) I SWM D S:HBF="" HBF=BF S:BF'=HBF VMSW=1,HQD=2 . S HBF=$P(K,D,11) . I $P(BA39,D,11)'="",BJ<$P(BA39,D,6) S HBF=$P(K,D,4) S10 S SWSW=0 I 'SWM,$P(BA39,D,11)'="",BPB\1<$P(BA39,D,6) S SWSW=$S($P(K,D,4)=$P(BA39,D,9):0,1:1) S1A S X=1_BP*100_"B"_I1 I $D(^(X)) S K=^(X),B(7)=$P(K,D,VMSW*2+3),B(8)=$P(K,D,VMSW*2+4) S1B S SSS=1 I BP>BPB S S1=VMSW*.01+BJ-1,S2=24 S:SWSW S1=S1\1+.01 D S3 S1C S S1=VMSW*.01+BJ,S2=BX D S3 S1D I SWM,$D(@("^"_Q_"BA(11,HBF)")) S HQD=+$P(^(HBF),D,7) S1Z K SSS Q ; ; Ophalen saldo rekening S3 S S3=$S($D(^(S1)):^(S1),1:D),S4=$S($D(^(S1+.02)):^(S1+.02),1:D) S3A S:SSS SAL=+S3,SSS=0 I S2>2 F S5=2:1:S2-1 S SAL=SAL+$P(S3,D,S5)-$P(S4,D,S5) S3B I S10 S $P(TXT(4),D,27)="0." F J=1:1:HQD S $P(TXT(4),D,27)=$P(TXT(4),D,27)_"0" S $P(TXT(3),D,20)=2 S VNR=7 I SWAV&('$P($G(@("^"_Q_"BA(300)")),D,8)) S VNR=9,$P(TXT(8),D,20)=0,$P(TXT(9),D,20)=0 I SWAV&($P($G(@("^"_Q_"BA(300)")),D,8)) S VNR=11,$P(TXT(8),D,20)=0,$P(TXT(9),D,20)=0,$P(TXT(10),D,20)=0,$P(TXT(11),D,20)=0 F I=1:1:2 S VNR=VNR+1,$P(TXT(VNR),D,20)=1,$P(TXT(VNR),D,27)=0 I $G(HQD)>0 S $P(TXT(VNR),D,27)="0." F J=1:1:HQD S $P(TXT(VNR),D,27)=$P(TXT(VNR),D,27)_"0" F I=1:1:3 S VNR=VNR+1,$P(TXT(VNR),D,20)=0 I $$PROJ^cT48H(Q) S VNR=VNR+1,$P(TXT(VNR),D,20)=0 I $P($G(QU(0,2)),D,39) S VNR=VNR+1,$P(TXT(VNR),D,20)=2 I PTS=3!(PTS=4) S VNR=VNR+1,TXT(VNR)=BP,$P(TXT(VNR),D,20)=0 FORMZ Q ; ZZ ; 19.03.07 - 15 u 31 * V8.08