cFN56	;Facturatie - selectie bons ;%FN55 ;Do naar %FN57,%FN40,%FN65 ; [ 03/27/00  5:33 PM ]
	G 1
	;
T0	;Facturatie - selectie bons ;
T2	;Printen factuur\"P[] = printen";
T3	;Factuurbedrag kleiner dan voorschot. Facturatie onmogelijk;
T4	;Gegevens ok\"[] = ok";
T5	;Totaal document pos. ... betaald bedrag neg. ... fact. onmogelijk;
T6	;Totaal document neg. ... betaald bedrag pos. ... fact. onmogelijk;
	;
T0F	;Facturatie - selectie bons ;
T2F	;Edition de la facture\"P[] = imprimer";
T3F	;Total fact. inférieur à l'acompte. Facturation impossible;
T4F	;Données ok\"[] = ok";
T5F	;Total document pos.  ... acompte négatif     ... fact. impossible;
T6F	;Total document nég.  ... acompte positif     ... fact. impossible;
	;
1	N BEDRBV D S1 G YZ:K="-" S UDO=$G(@("^"_Q_"UL(0,US,""UDO"")"))
10	S UPM=^("LNT") I $L($P(UDO,D)) D @$P(UDO,D) G YZ:K="-"!(K=",")
11	I $L(SRT) D V^cFN65 G YZ:K="-"!(K=",")
12	L (@("^"_Q_"KL(@(""^""_Q_""K1(KCF)""))"),@("^"_Q_"UL(KC,US)")):2 E  D TXT^cAFA1(60) G 12
14	S (HQ,QQ)=Q D QBH^cFN999 S HQ=Q,Q=QQ K QQ
16	S @%Q1=0,R="FNR\V\"_SRT_D_BJ_D_2_D_HQ D ^cA337 I 'FNR S K="-" G YZ
	; --- VJ 20.09.02 ---
	I $L($P(UDO,D,11)) X $P(UDO,D,11)
	; -------------------
	;
2	S UPAR="",HQD=QD I VM'="" S UPAR=$$CNVC^cAFE1(Q,BJ,1,VM,"V",99),HQD=$P(@("^"_Q_"BA(11,VM)"),D,7)
22	S FP=UD*100+1 W @F,@F1
24	K KBW,KCN,KFA,Q5,UBN,UBO,UFA,URR,USC,USM,UVM,UMK,UMC
26	D ^cFN57 S @%Q1=1 I $D(UWV) S $P(UWV,D,4)=KCF
28	G 33:'$D(@("^"_Q_"BA(50)")),33:$P(^(50),D)'[2 S K=$P(@("^"_Q_"KL(^"_Q_"K1(KCF),0)"),D,16) S OK=$$IC^cTI0(K,$$DCO^cAFD1($TR(BP_".01",".",""))) G 33:'OK
29	S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\" D R0 X:$L($P(@("^"_Q_"BA(50)"),D,3)) $P(@("^"_Q_"BA(50)"),D,3) S R=U_BP_U_FNR_U_US_U_23_U_UD D ^cTI0 X:$L($P(@("^"_Q_"BA(50)"),D,4)) $P(@("^"_Q_"BA(50)"),D,4)
33	I $P(UPM,D,92),$G(SWTBREG) G 41  ; indien vanuit toonbankverkopen
	S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\""-,P""[K&$L(K)\\",$P(R,D,11)=1 D R0 I "-,"[K S K="," G 41
37	S UGB="FB",UGL="UL",UGX="FX",UO=@("^"_Q_"UL(0,US,""UDFO"")") I $D(^(QT_"UDFO")) S UDFO=^(QT_"UDFO")
	S UM=^("UDFA"),KCX=KC,(I1,I2)=FNR,Q1="^"_Q_"KL(^"_Q_"K1(KC),0)"
4	S SWG=$P(UPM,D,22) D 5^cFN40 K A,UO,UM,KCX,I1,I2,UGX S UGL="UL",UGB="UB",Q1="^"_Q_UGL_"(0,US,""UR"")",K=","
41	G YZ:$D(SWM) S:'$D(UMD) UMD="" I '$L(UMD) S USM=@("^"_Q_"UL(0,US,""USM""_UMD)") F I="UMK","UMC" I $D(^(I_UMD)) S @I=^(I_UMD)
43	I $L(UMD) F I="USM","UMK","UMC" S @I=$S($D(@("^"_Q_UGL_"(0,US,I_UMD)")):^(I_UMD),1:^BIB($S("ODULTOLRFTB"[UGL:"UGL",1:UGL),I,UMD))
	;
YZ	Q
	;
MS	S K=R D TXT^cAFA1(250) Q
	;
S1	S (K,Y)="",(TOV,TOT,KKT,BEDRBV)=0,XUR=UR
	F  S Y=$O(UTF(Y)) Q:'$L(Y)  I $D(@("^"_Q_"UL(KC,US,Y,1)")) D
	. S UR=Y,U5=^(1)
	. D F^cFN2759
	. ; tot.te betalen, totaal betaald, totaal kort.cont
	. S TOT=TOT+TTB,TOV=TOV+$P(U5,D,12),BEDRBV=BEDRBV+$P(U5,D,47)
	. S BEDR=TOV+BEDRBV
	S OK=0
	I TOT'<0,TOV'<0,TOV>TOT S K=$P($T(@("T3"_QT)),U,2) G S1A
	I TOT<0,TOV<0,TOV<TOT S K=$P($T(@("T3"_QT)),U,2) G S1A
	I 'TOT,TOV S K=$P($T(@("T3"_QT)),U,2) G S1A
	I TOT<0,TOV>0 S K=$P($T(@("T6"_QT)),U,2) G S1A
	I TOT>0,TOV<0 S K=$P($T(@("T5"_QT)),U,2) G S1A
	S OK=1
S1A	I 'OK K UTF,BEDR D TXT^cAFA1(250) S K="-"
S1Z	S UR=XUR K TOV,TOT,XUR Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 12.11.02 - 15 u 51 * V7.93