cT380 ;Financieel dagboek ;%T38 ;overlay %T38* ; [ 01/02/01 4:14 PM ] G 1 ; T0 ;Financieel dagboek ; T1 ;Diversen; T2 ; ** Saldo **; T3 ; **Uittreksel ; ** Wissel ; T4 ;Blz :; T5 ;Financieel dagboek ;Ingeboekte wissels ; T6 ; ( bedragen in ; T7 ;:Datum Nummer-naam/rekening : D-------Klanten------C : D----Leveranciers----C : D------Grootboek-----C : Referentie :;An.rek.; T8 ;Overdracht:;Eindtotaal:; T9 ;Totaal debet; T10 ;Totaal credit; ; T0F ;Journal financier; T1F ;Operations diverses; T2F ; ** Solde **; T3F ; **Extrait ; ** Traite ; T4F ;Page:; T5F ;Journal financier ;Traites enregistrés ; T6F ; ( montants en ; T7F ;:Date Numéro-nom/compte : D-------Clients------C : D----Fournisseurs----C : D------Cpte g.l.-----C : Référence :;C.Anal.; T8F ;Transfert:;Total final:; T9F ;Total débit; T10F ;Total crédit; ; T0E ;Financial journal ; T1E ;Miscellaneous transactions; T2E ; ** Balance **; T3E ; **Statement ; ** Bill of exchange ; T4E ;Pge :; T5E ;Financial journal ;Registered bills of exchange ; T6E ; ( amounts in ; T7E ;:Date Number-name/account : D------Customers-----C : D-----Suppliers------C : D-------General------C : Reference :;An.acc.; T8E ;Transfer:;Final total:; T9E ;Total debit; T10E ;Total credit; ; S2 S LN=LN+1 I LN+2>LNMAX D 9 W $$FF^cA334 D 8,83 S2Z Q ; R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0 R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6) R3B W ?$P(R,D,3),$J(R0,R1),R4,R3 R3Z K R0,R1,R2,R3,R4,R5,R6 Q ;V3 05.07.88 ; 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) 15 I BR S K=@("^"_Q_"AR(BR,0)") S:$P(K,D,17) BR="W"_BR 19 X F70 W @F80 I BR'="." S I1=$P(BR," ")_SRT G 21 ; 2 S I1=$O(@("^"_Q_"FI(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 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 25 S (VMSW,KDT,KCT,LDT,LCT,B(7),B(8),SAL)=0,UTR="" I $D(@("^"_Q_"AR(X1,0)")) D S1 27 D 8,83,S2,87 S I2=0 I 'SWD&'SWU W $$CR^cA334 W $P($T(@("T2"_QT)),U,2),?26 S R=SAL_D_13_D_D_HQD,LN=LN+1 D R3,87 ; 3 S I2=$O(@("^"_Q_"FI(BP,I1,I2)")),A=D I I2 S A=^(I2) G 3:$P(A,D,2)'=SWD&SWD,3:$P(A,D,3)'=SWU&SWU 31 I $P(A,D,3)'=UTR&UTR&'SWU D S2:I2,87 W $$CR^cA334 W $P($T(@("T3"_QT)),U,SWR+2),UTR,?20,"** " S R=SAL_D_13_D_D_HQD,LN=LN+1+'I2 D R3:'SWD,87 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) ; 4 D S2 W !,": ",$E($P(A,D,2),1,5)," ",$E(KC_"-"_K,1,$S(SWAV:24,1:32)) S T(X)=BE,B(X)=B(X)+BE,I=40 I SWAV W ?33,$P(A,D,16),$$CR^cA334 41 F S1=1:2:5 W ?I,":" S I=I+25,K=T(S1),SAL=SAL-K,R=K_D_13_D_D_HQD D:K R3 S K=T(S1+1),SAL=SAL+K,R=K_D_23_D_D_HQD D:K R3 43 W ?115,":",$E($P(A,D,9),1,15),?131,":" S UTR=$P(A,D,3) G 3 ; 5 D 9 W $$FF^cA334 51 I 'SWU&'SWD D ^cT381 S K=I1_" ",X=105 S:'I1 K=I1,X=106 K @("^"_Q_"BA(BP,K)"),^(I1_" "),^(X) 53 G 2:BR=".",Y ; 8 S BLZ=BLZ+1,LN=0 W !,NM1,?30,@F82,$P($T(@("T5"_QT)),U,2+SWR)," : ",MNM,@F83,SWD," ",SWU,$$CR^cA334 W ?124,$P($T(@("T4"_QT)),U,2),$J(BLZ,3),!,NM2,?35,CD," - ",BN,$P($T(@("T6"_QT)),U,2),HBF," )" 81 W ?124,DT,!,NM3,$$CR^cA334 W ?125,TD Q 83 D 85 W !,$P($T(@("T7"_QT)),U,2) I SWAV W $$CR^cA334 W ?33,$P($T(@("T7"_QT)),U,3) 85 W !,":---------------------------------------:------------------------:------------------------:------------------------:---------------:" Q 87 W ! F S1=0,40,65,90,115,131 W ?S1,":" 89 Q ; 9 D 85 W !,":",?7,$P($T(@("T8"_QT)),U,'I2+2),?20,$P($T(@("T9"_QT)),U,2),?40,":" 91 F S1=1:2:5 S R=B(S1)_D_13_D_D_HQD D R3 W $J(":",11) 93 W ?131,":",!,":",?20,$P($T(@("T10"_QT)),U,2),?40,":" F S1=2:2:6 S R=B(S1)_D_23_D_D_HQD D R3 W ":" 95 W ?131,":" D 85 Q ; Y X F71 YZ Q ; 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 ; 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 S1