cT802	;Fin & div: betalingssaldo ;%T80 ; [ 02/19/01  11:20 AM ]
	G 1
	;
T0	;Fin & div: betalingssaldo ;
T1	;Bedrag v.d. bankverrichting\"xxxxxxx[] of xxxxxxx-[] = bedrag in "_HBF_$S(VMSW:" ("_$$S1^cA3331(HBF,PAR,"F")_")",1:"")_"    -[] = einde uittreksel";
T2	;Nieuw saldo\"xxxxxxx[] of xxxxxxx-[] = saldo in "_HBF;
	;
T0F	;Fin & div: introduction solde ;
T1F	;Montant du mouvement\"xxxxxxx[] ou xxxxxxx-[] = montant en "_HBF_$S(VMSW:" ("_$$S1^cA3331(HBF,PAR,"F")_")",1:"")_"   -[] = fin de l'extrait";
T2F	;Nouveau solde\"xxxxxxx[] ou xxxxxxx-[] = solde en "_HBF;
	;
T0E	;Financial and miscellaneouus transactions: payment balance ;
T1E	;Amount of the financial transaction\"xxxxxxx[] of xxxxxxx-[] = amount in "_HBF_$S(VMSW:" ("_$$S1^cA3331(HBF,PAR,"F")_")",1:"")_"    -[] = end statement";
T2E	;New balance\"xxxxxxx[] of xxxxxxx-[] = balance in "_HBF;
	;
T0D	;Fin & div: betalingssaldo ;
T1D	;Buchungsbetrag\"xxxxxxx[] oder xxxxxxx-[] = Betrag in "_HBF_$S(VMSW:" ("_$$S1^cA3331(HBF,PAR,"F")_")",1:"")_"    -[] = Ende des Auszugs";
T2D	;Neuer Saldo\"xxxxxxx[] oder xxxxxxx-[] = Saldo "_HBF;
	;
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
	;
	; diversen
1	I $E(RB)="D" D ^cT803 G 7
	;
	; automatische boeking koersverschillen
2	;G 3:'UX!'VMSW S CO=$E("CD",UX<0+1)
	G 3:'UX S CO=$E("CD",UX<0+1)  ; VJ 02.01.01
21	S BE=UX*(UX<0*-2+1),BR=$P(@("^"_Q_"BA(10,CO=""C"")"),D)_" ",BC(CO="C")=BE,NMA=$P(@Q41,D,2)
23	S BRA="" D  I $L(BRA) D ^cT845 S UX=0 G 3                   ; analyt.
	. I CO="D",$P(SWAN,D,6)=1 S BRA=$P(@("^"_Q_"BA(10,0)"),D,3)_" "
	. I CO="C",$P(SWAN,D,7)=1 S BRA=$P(@("^"_Q_"BA(10,1)"),D,3)_" "
	. S HBE=HUX,OM=HBF_" - "_BF,OM1="" K SW I BRA="" Q
	. L +^HULPE(0) S HULPE=$G(^HULPE(0),1),^(0)=HULPE+1 L -^HULPE(0)
	. K ^(HULPE) S ^(HULPE,BRA)=BE_D_HBE
25	S BNR=@Q93,@Q93=BNR+1 G 25:$D(@Q95) S HIS=$P(@Q41,D,3) D S1 ; niet an.
27	S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$P(BR," ")_"#"_NMA_D_OM_D_BPE_D_HUX_D_D_D_SRT_D_OM1_D_BRA_D_D_D_HUXB_"#"_HUXV_D_D_D_D_HBF_D_BF_D_HUX_D_PAR_D
29	S $P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K,UX=0 D S6^cT809
	;
	; GM 21.05.04 Extra cumuls
	; GM 20.06.05 Extra cumuls verwezen naar FIE, ipv FI
	D ECUM^cTA180("FI",BP,RB,BNR)
	;
	; ingave verrichting
3	S R="HUX\20\3\"_$P($T(@("T1"_QT)),U,2)_"\13\\$L(K)\\\1" D R0 G 5:K="-"!(K=",")
31	I SWKAS,K[VMKAS,$P(K,VMKAS,2)="",$$G^cAFI2($P(K,VMKAS),VMKAS,1) S K=$$OMREK^cAFE1(Q,+K,VMKAS,HBF,"F","")_$S(HUX["-":"-",1:""),HUX=K
33	I '$$W^cAFI2(K,HQD,1) G 3
35	S UX=$J(PAR*HUX,1,QD) S T(HUX["-"+4)=T(HUX["-"+4)+UX,T(HUX["-"+6)=T(HUX["-"+6)+HUX
37	S:HUX["-" HUX=-HUX,UX=-UX S HUXV=HUXV+1,HUXB=HUX,SAL=SAL+HUX D S4^cT809
	;
	; tegenboeking(en)
4	I K'="-",K'="," D ^cT803 G 2
	;
	; nieuw saldo
5	S A=0,R="X\20\3\"_$P($T(@("T2"_QT)),U,2)_"\13",$P(R,D,11)=1 D R0 G 2:K="-"!(K=",")
51	I SWKAS,K[VMKAS,$P(K,VMKAS,2)="",$$G^cAFI2($P(K,VMKAS),VMKAS,1) S K=$$OMREK^cAFE1(Q,+K,VMKAS,HBF,"F","")_$S(X["-":"-",1:""),X=K,A=.05
53	I '$$W^cAFI2(K,HQD,1) G 5
55	S:K["-" K=-K S BE=K-SAL,CO="D" S:BE<0 BE=-BE,CO="C" I BE>A S A=0
57	I A=0,BE>0 S K=$P($P($T(@("T2"_QT)),U,2),D)_" = "_$FN(SAL,"T",HQD)_HBF D TXT^cAFA1(250) G 5
59	I 'BE G 67
	;
	; koersverschil tgv inboeken kas in EMU-munt
6	S T(CO="C"+4)=T(CO="C"+4)+BE,T(CO="C"+6)=T(CO="C"+6)+BE     ; fin.rek.
60	S CO=$S(CO="D":"C",1:"D")                                   ; omkeren
61	S BR=$P(@("^"_Q_"BA(10,CO=""C"")"),D)_" ",BC(CO="C")=BE,NMA=$P(@Q41,D,2)
62	S BRA="" D  I $L(BRA) D ^cT845 G 66                         ; analyt.
	. I CO="D",$P(SWAN,D,6)=1 S BRA=$P(@("^"_Q_"BA(10,0)"),D,3)_" "
	. I CO="C",$P(SWAN,D,7)=1 S BRA=$P(@("^"_Q_"BA(10,1)"),D,3)_" "
	. S (HBE,HUX,HUXB)=BE,OM=HBF_" - "_VMKAS,OM1="" K SW I BRA="" Q
	. L +^HULPE(0) S HULPE=$G(^HULPE(0),1),^(0)=HULPE+1 L -^HULPE(0)
	. K ^(HULPE) S ^(HULPE,BRA)=BE_D_HBE
63	S BNR=@Q93,@Q93=BNR+1 G 63:$D(@Q95) S HIS=$P(@Q41,D,3) D S1 ; niet an.
64	S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$P(BR," ")_"#"_NMA_D_OM_D_BPE_D_HUX_D_D_D_SRT_D_OM1_D_BRA_D_D_D_HUXB_"#"_HUXV_D_D_D_D_HBF_D_VMKAS_D_HUX_D_PAR_D
65	S $P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K D S6^cT809
	;
	; GM 21.05.04 Extra cumuls
	D ECUM^cTA180("FI",BP,RB,BNR)
	;
66	S (UX,HUX,HUXB)=0 D S4^cT809
	;
	; globale boeking op financiële rekening
67	G 7:'T(4)&'T(5) S BR=RB,BC(0)=T(4),BC(1)=T(5) D 8 G 7:'VMSW S K=^(S1),^(S1)=$P(K,D,1,4)_D_($P(K,D,5)+T(6))_D_($P(K,D,6)+T(7))
69	F X=0,1 I T(X+6) S S1=X*.02+BJ+.01,$P(^(S1),D,BX)=$P(^(S1),D,BX)+T(X+6)
	;
	; globale boeking basisrekeningen KL en LE
7	I T(0)!T(1) S BR=$P(K2,D,2),BC(0)=T(0),BC(1)=T(1) D 8
71	I T(2)!T(3) S BR=$P(K2,D,4),BC(0)=T(2),BC(1)=T(3) D 8
73	S:$D(@("^"_Q_"FI(BP,RB)")) @("^"_Q_"BA(BP,112)")=$H,^(RB_" ")=$H K T,DMU,DFA D 2^cT809 G 7^cT800
	;
	; boeking per verrichting
8	S BR=BR_" " S:'$D(@Q41) BR=BR_$J("",7-$L(BR)) S HIS='$D(@Q41) L @("^"_Q_"AR(BR)")
	;
S1	S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A	F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B	S BH=BH\1 D:BPE @BPEC I HIS S S1="B"_RB_"#"_BNR_D G S1D
S1C	S S1=BH_"B"_RB,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=NUM_D_DAT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S1Z
S1D	S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E	I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z	S (BC(0),BC(1))=0 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04