cT842E	;Fin & div: verschil 0.01 ;%T80 ; [ 08/07/01  4:21 PM ]
	G 1
	;
T0	;Fin & div: verschil 0.01 ;
T1	;De rekening;
T2	;Grootboekrekening : ;
T3	;Boekingsbedrag in ;xxxxxxx[] = debet    xxxxxxxx-[] = credit   [] = ;
T4	;Referentie;
T5	;Omschrijving\",[] = hernemen boeking";
	;
T0F	;Fin & div: diff. 0.01 ;
T1F	;Compte;
T2F	;Compte grand-livre: ;
T3F	;Montant en ;xxxxxxx[] = débit   xxxxxxx-[] = crédit   [] = ;
T4F	;Référence;
T5F	;Description\",[] = reprendre mouvement";
	;
T0E	;Fin & misc: diff. 0.01 ;
T1E	;The account;
T2E	;General account : ;
T3E	;Registered amount in ;xxxxxxx[] = debit    xxxxxxxx-[] = credit   [] = ;
T4E	;Reference; 
T5E	;Description\",[] = retry registration";
	;
T0D	;Fin & Div: Differenz 0.01 ;
T1D	;De Rechnung;
T2D	;Hauptbuchkonte : ;
T3D	;Buchungsbetrag in ;xxxxxxx[] = Soll    xxxxxxxx-[] = Haben   [] = ;
T4D	;Referenz;
T5D	;Bezeichnung\",[] = wiedernehmen Buchung";
	;
	; cumuls & historieken
S1	I $$NAKED^cT00B(BJ,BX,BC(0),BC(1),HIS,BP,"F#"_RB_"#"_BNR,SRT,DAT,NUM) G S1Z
	S %=$T(+0) D ^cA400
S1Z	K S1,S2 S (BC(0),BC(1))=0 Q
	;
1	I 'HUX G YZ                   ; er is geen saldo
	I $$ABS(HUX)>.01 G YZ         ; saldo groter 0.01 EUR
	I HBF'="EUR" G YZ             ; enkel voor euro
	I K1'="K" G YZ                ; enkel voor klantenfacturen
	I VMSW G YZ                   ; bank met VM
	;
2	S BR=$P($G(@("^"_Q_"BA")@("%T",2)),D,16) G YZ:BR="",YZ:'$D(@Q41)
21	I $P(@Q41,D,13)!$L($P(^(0),D,10))!(K2[(D_+BR_D)) G YZ
23	S NMA=$P(^(0),D,2) S FP=2003 W @F,$P($T(@("T2"_QT)),U,2),BR,NMA,@F1
25	D ^cT843 G YZ:K="-"
	;
3	S A=-HUX,DEC=HQD,K=""
31	S:K="" K=$FN(A,"T",DEC) S:K["-" K=-K S HBE=K,BE=$J(HBE*PAR,1,QD),CO=$E("DC",K<0+1)
32	S FP=2103 W @F,$P($T(@("T3"_QT)),U,2),HBF," : ",$$IP^cAFA1(HBE,HQD,0),@F1 
35	S OM=$P($G(@("^"_Q_"BA")@("%T",2)),D,17)
36	W /CUP(22,3),$P($T(@("T4"_QT)),U,2)," : ",OM
37	S OM1=""
38	S KOS=$P(@("^"_Q_"AR(BR,0)"),D,22) ; I $L(KOS),$L($G(@("^"_Q_"BA(""%T"",8,""G"",""I"")"))) X ^("I") G 37:K="-",2:K=","
39	S:CO="C" HBE=-HBE,BE=-BE
	;
4	I $D(SWAV),SWAV D ^cT844 G YZ
40	L +@("^"_Q_"AR(BR)"):2 E  S R=14 D F2 G 40
41	S BNR=@Q93,@Q93=BNR+1 G 41:$D(@Q95) X:$D(KAS) KAS S BC(CO="C")=BE,HIS=$P(@Q41,D,3) D S1
43	S:CO="D" UX=UX+BE,HUX=HUX+HBE S:CO="C" UX=UX-BE,HUX=HUX-HBE
45	S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$P(BR," ")_"#"_NMA_D_OM_D_BPE_D_HBE_D_D
47	S K=K_D_SRT_D_OM1_D_D_D_D_HUXB_"#"_HUXV_D_UX_D_HUX_D_D_HBF_D_HBF_D_HBE_D_$S(VMSW&HBE:$J(BE/HBE,1,4),1:PAR)_D
49	S $P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K
	;
5	D S6^cT809
51	; I $L(KOS),$L($G(@("^"_Q_"BA(""%T"",8,""G"",""R"")"))) X ^("R")
	;
YZ	K NMA,OM,OM1,BE,HBE,CO,KOS Q
	;
	; absolute waarde
ABS(R)	I R<0 S R=-R
ABSZ	Q R
	;
C1	W !?2,$P($T(@("T3"_QT)),U,3),$FN(A,"T",DEC) Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
DEC	;K?1.N!(K?1.N1"-")!(K?.N1"."1.N&DEC&($L(K#1)-1'>DEC))!(K?.N1"."1.N1"-"&DEC&($L(K#1)-1'>DEC))!("-,"[K)
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8