cT812	;Fin & div: k/l facturen ;%T80 ; [ 08/07/01  3:33 PM ]
	G 4
	;
T0	;Fin & div: k/l facturen ;
T1	;Betaalde bedrag in ;[] = saldo ;   .[] = saldo-korting;
T2	;Referentie  \"[] = documentnummer";
T3	;Omschrijving\",[] = hernemen";
T4	;Verschil ;
T5	;K[] = korting contant   G[] = grootboekrekening   [] = verschil blijft;
	;
T0F	;Fin & div: c/f factures ;
T1F	;Montant payé en ;[] = solde ;   .[] = solde-escompte;
T2F	;Référence  \"[] = n° du document";
T3F	;Description\",[] = reprendre";
T4F	;Différence ;
T5F	;K[] = escompte comptant   G[] = compte grand-livre   [] = différence reste;
	;
T0E	;Financial and miscellaneous transactions: c/s invoices ;
T1E	;Payed amount in ;[] = balance ;   .[] = balance-discount;
T2E	;Reference  \"[] = document number";
T3E	;Description\",[] = retry";
T4E	;Difference ;
T5E	;K[] = in cash discount   G[] = general account   [] = difference remains;
	;
T0D	;Fin & Div: K/L Fakturen ;
T1D	;Bezahlte Betrag in ;[] = Saldo ;   .[] = Saldo-Skonto;
T2D	;Referenz  \"[] = Dokumentnummer";
T3D	;Bezeichnung\",[] = wiedernehmen";
T4D	;Differenz ;
T5D	;K[] = Skonto   G[] = Hauptbuchkonte   [] = Differenz bleibt;
	;
C1	W !?2,$P($T(@("T1"_QT)),U,3),HBF,$P($T(@("T1"_QT)),U,4+'HKK) Q
C2	W !?2,$P($T(@("T1"_QT)),U,3),VM Q
C3	W !?2,$P($T(@("T5"_QT)),U,2) Q
	;
4	S R=L,RS0=1 D S1^cT808 I FC="W" S K="" G 45
41	S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_HBF_"\C1\11\HBF" D R0 I K="-"!(K=",") S R=L,RS0=0 D S1^cT808 S FP=2101 W @F,@F1 G 3^cT811
42	I K["-" S K=-K
420	I $L(K),HOB<0 S K=-K I K<HOB G 41 ; negatief voorschot ***GD 24.06.05 ***
43	I $L(K),HOB>0,K>HOB G 41
45	S HBE=$S(K="":HOB,K=".":HOB-HKK,1:$J(K,0,HQD)),FP=2103 W @F,$P($T(@("T1"_QT)),U,2),HBF," : ",@F1 S R=HBE_"\\\"_HQD D R3
47	S BE=$J(HBE*PAR,0,QD),BEF=$J(HBE*PAR/PARF,0,QA) I K="."!(VM(VM)=VM(HBF)) G 55
49	I EMU S K=BEF G 53
	;
5	S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_VM_"\C2\11\VM" D R0 I K'="-" S:K["-" K=-K I $L(K),K>OBF G 5
51	I K="-"!(K=",") S FP=2101 W @F,@F1 G 41
53	S BEF=$S(K="":OBF,1:$J(K,0,QA)),FP=2153 W @F,VM," : " S R=BEF_"\\\"_QA D R3
55	S KX=$J(HOB-HBE,0,HQD),SW=1
57	I KX S R="SW\22\3\"_$P($T(@("T4"_QT)),U,2)_KX_" "_HBF_"\C3\1\\""-,KG""[K\\\1" D R0 G 51:K="-"!(K=",")
	;
6	S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\15" D R0 G 51:K="-"!(K=",")
61	S OM=$S($L(K):K,1:FNR),FP=2203 W @F,$P($P($T(@("T2"_QT)),U,2),D)," : ",OM,@F1
63	S R="OM1\23\3\"_$P($T(@("T3"_QT)),U,2)_"\50" D R0 G 6:K="-",51:K=","
65	I $L($P(BA86,D,5)),$L($P(BA86,D,6)),@$P(BA86,D,6) D @$P(BA86,D,5) G 63:K="-",51:K=","
67	I $L(SW) S BE=OB,BEF=OBF,HBE=HOB
	;
7	D ^cT816 ; (gedeeltelijke) afboeking
70	I KX,$L(SW),(HOB<0),(FC="C") S FC="F",KX=-KX ; negatief voorschot *** GM 06.09.06 ***
71	I KX&$L(SW) D ^cT817 G YZ ; korting/betalingsverschil
73	I VMSW,KX,SW="" S X=$D(@Q3),N=$G(^(I1,FNR)) I '$P(N,D,5),$P(N,D,10) G 8
75	G YZ
	;
	; tegenboeking koersverschil
8	S (HBE,HOB,BEF,OBF)=0,(BE,OB)=$P(N,D,10),FC=$P(N,D),VM=$P(N,D,9) S:VM="" VM=BF S OM=FNR,OM1="" D ^cT816
81	I K1="K"&(FC="F")!(K1="L"&(FC="C")) S CO="D",BR=$P(@("^"_Q_"BA(10,0)"),D),BRA="" I $P(SWAN,D,6)=1 S BRA="A"_$P(^(0),D,3)_" ",SWAV=1
83	I K1="K"&(FC="C")!(K1="L"&(FC="F")) S CO="C",BR=$P(@("^"_Q_"BA(10,1)"),D),BRA="" I $P(SWAN,D,7)=1 S BRA="A"_$P(^(1),D,3)_" ",SWAV=1
85	S BR=$P(BR," ")_" ",NMA=$P(@Q41,D,2) I BRA="" D ^cT843 G 85:K="-"
87	I $D(SWAV),SWAV D ^cT844 G 85:K="-",YZ  ; verwerking igv analytische bh
	;
9	L +@("^"_Q_"AR(BR)"):2 E  S R=14 D F2 G 9
91	S BNR=@Q93,@Q93=BNR+1 G 91:$D(@Q95) X:$D(KAS) KAS S BC(CO="C")=BE,HIS=$P(@Q41,D,3) D S1^cT842
93	S:CO="D" UX=UX+BE,HUX=HUX+HBE S:CO="C" UX=UX-BE,HUX=HUX-HBE
95	S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$P(BR," ")_"#"_NMA_D_VM_" - "_HBF_D_BPE_D_HBE_D_D_FNR_D
97	S K=K_SRT_D_OM1_D_D_D_D_HUXB_"#"_HUXV_D_UX_D_HUX_D_D_HBF_D_VM_D_BEF_D_PARF_D,$P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K
99	D S6^cT809
	;
YZ	D ^cT842E G Y^cT811
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),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
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
HBF	;K?1.N!(K?1.N1"-")!(K?.N1"."1.N&HQD&($L(K#1)-1'>HQD))!(K?.N1"."1.N1"-"&HQD&($L(K#1)-1'>HQD))!("-,"[K)!(K="."&HKK)
VM	;K?1.N!(K?1.N1"-")!(K?.N1"."1.N&QA&($L(K#1)-1'>QA))!(K?.N1"."1.N1"-"&QA&($L(K#1)-1'>QA))!("-,"[K)
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08