cT382	;Financieel dagboek ;%T38 ;overlay %T38* ; [ 01/03/01  5:03 PM ]
	G 1
	;
T0	;Financieel dagboek ;
T1	; Datum nummer-naam/rekening;\Debet;2\Credit;2\Referentie;
T2	; **     Saldo    **;
T3	; ** Uittr. ; ** Wissel ;
T4	;AKL;GKL;
T5	;Financieel dagboek;Ingeboekte wissels;
T6	; ( bedragen in ;
T7	;Diversen;
T8	; Datum Nummer-naam/rek.-An.rek.;
	;
T0F	;Journal financier ;
T1F	; Date  numéro-nom/compte;\Débit;2\Crédit;2\Référence;
T2F	; **     Solde    **;
T3F	; ** Extr.  ; ** Traite ;
T4F	;AKL;GCF;
T5F	;Journal financier;Traites enregistrés;
T6F	; ( montants en ;
T7F	;Diverses;
T8F	; Date  N° & nom/compte -C.anal.;
	;
T0E	;Financial journal;
T1E	; Date  number-name/account;\Debit;2\Credit;2\Reference;
T2E	; **    Balance   **;
T3E	; ** Stat. ; ** Bill   ;
T4E	;AGS;GCS;
T5E	;Financial journal;Registered bills;
T6E	; ( amounts in ;
T7E	;Misc.;
T8E	; Date  Number-name/acc.-An.acc.;
	;
T0D	;Finanzjournal ;
T1D	; Datum Nummer-Name/Konto;\Soll;2\Haben;2\Referenz;
T2D	; **     Saldo    **;
T3D	; ** Auszug ; ** Wissel ;
T4D	;AKL;GKL;
T5D	;Finanzjournal;Ingeboekte wissels;
T6D	; ( Betrage in ;
T7D	;Diversen;
T8D	; Datum Nummer-Name/Kto.-An.Kto.;
	;
1	S DEC=QD,(SAL,VMSW)=0
11	I BR'="D" S K=@("^"_Q_"AR(BR,0)"),CD=$P(K,D,10),BN=$P(K,D,2),SWR=$P(K,D,17),I1=$S(SWR:"W",1:"")_$P(K,D),HBF=$P(K,D,11) D S1
13	I BR="D" S CD="DV",BN=$P($T(@("T7"_QT)),U,2),SWR=0,I1="D",HBF=BF
14	I BR="D",SRT S I1=BR_SRT,K=$G(@("^"_Q_"BA(""%T"",BR_$E(1E3+SRT,2,4))")) S:$L($P(K,D)) BN=$P(K,D) S:$L($P(K,D,2)) CD=$P(K,D,2)
15	S HD(1)=D_$P($T(@("T5"_QT)),U,2+SWR)_" : "_MNM_" ;;F82"
17	S HD(2)=D_CD_" - "_BN_$P($T(@("T6"_QT)),U,2)_$S(SWM:HBF,1:BF)_" )",HD(3)=D_$S(SWD:SWD_"   ",1:"")_SWU
19	S TAB="32\47\62\79",TIT(1)=$P($T(@$S(SWAV:"T8"_QT,1:"T1"_QT)),U,2)_$P($T(@("T1"_QT)),U,3,5)
	;
2	S (I2,UNR)=""
21	S I2=$O(@("^"_Q_"FI(BP,I1,I2)")) I I2="" G 4:$L(UNR),3
23	S N=^(I2)
25	I SWU,$P(N,D,3)'=SWU S BE=$P(N,D,$S(SWM:11,1:5)) S:$P(N,D,6)="D" BE=-BE S:UNR="" SAL=SAL+BE G 21
27	I SWD,$P(N,D,2)'=SWD S BE=$P(N,D,$S(SWM:11,1:5)) S:$P(N,D,6)="D" BE=-BE S:UNR="" SAL=SAL+BE G 21
29	G 5:$P(N,D,3)=UNR,4:$L(UNR)
	;
3	S TXT(1)=$P($T(@("T2"_QT)),U,2)_$J($TR($FN(SAL,"T,",DEC),",.",".,"),12)
31	F I=2:1:4 S TXT(I)=""
33	D ^cA334 I I2="" S END=1 D ^cA334 G YZ
35	S END=132 D ^cA334 G 5
	;
4	S TXT(1)=$P($T(@("T3"_QT)),U,2+SWR)_$E(UNR_$J("",5),1,5)_" **"_$J($TR($FN(SAL,"T,",DEC),",.",".,"),12)
41	F I=2:1:4 S TXT(I)=""
43	D ^cA334 I I2="" S END=1 D ^cA334 G YZ
45	S END=132 D ^cA334
	;
5	S TXT(1)=" "_$E($P(N,D,2),1,5)_" "_$TR($P(N,D,7),$P($T(@("T4"_QT)),U,2),$P($T(@("T4"_QT)),U,3))_"-"_$TR($P(N,D,8),"#","-")
51	I SWAV,$L($P(N,D,16)) S TXT(1)=$E(TXT(1)_$J("",23),1,23)_"-"_$P(N,D,16)
53	S TXT(2)=$P(N,D,$S(SWM:11,1:5))_"\\\\1\"_DEC_"\\1",TXT(3)=""
55	I $P(N,D,6)="C" S TXT(3)=TXT(2),TXT(2)=""
57	S TXT(4)=" "_$P(N,D,9) D ^cA334
59	S SAL=SAL-TXT(2)+TXT(3),UNR=$P(N,D,3) G 21
	;
YZ	D 
	. N BEST
	. D ^cA609 
	G:BEST'="FII" ^cT38 G:BEST="FII" ^cT39
	;
S1	I $P(BA39,D,11)'="",BJ<$P(BA39,D,6) S HBF=$P(K,D,4)
S10	S:HBF="" HBF=BF S:HBF'=BF&SWM VMSW=1,DEC=2
S100	S SWSW=0 I 'SWM,$P(BA39,D,11)'="",$P(BPB,D,2)\1<$P(BA39,D,6) S SWSW=$S($P(K,D,4)=$P(BA39,D,9):0,1:1)
S1A	; F BJ=J1:1:J4 Q:BP'>KM2(BJ)                           ; VJ-20.11.00
S1B	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
S1C	; S BPA=$E(BPA+.01_0,1,7) I BPA#1>.12 S BPA=BPA+.88    ; VJ-20.11.00
S1D	S S0=1 I BPA<KM1(BJ) S S1=VMSW/100+BJ-1,S2=25 S:SWSW S1=S1\1+.01 D S2
S1E	S S1=VMSW/100+BJ,S2=BX D S2
S1F	I VMSW,$D(@("^"_Q_"BA(11,HBF)")) S DEC=+$P(^(HBF),D,7)
S1Z	K S0 Q
	;
S2	S S3=$G(^(S1)),S4=$G(^(S1+.02)) I S0 S SAL=+S3,S0=0
S2A	I S2>2 F S5=2:1:S2-1 S SAL=SAL+$P(S3,D,S5)-$P(S4,D,S5)
S2B	I S1<BJ,'SWM S SAL=$$OMREK^cAFE1(Q,SAL,$S(SWSW:$P(^(0),D,4),1:$P($$MNTC^cAFE1(Q,S1\1),D)),BF,"F","")
S2Z	K S1,S2,S3,S4,S5 Q
	;
ZZ	; 24.02.06 - 15 u 49 * V8.06