cT10	;Openstaande leveranciersfacturen ;%T10 ;%T10* ; [ 03/07/01  9:19 AM ]
	G 1
	;
VB(KC,BTEMP)	; Ingang voor VB (zie ook BTMPOF^cAFVBF03)  ; KU : 19.03.04
	; KC = Leveranciersnr
	; BTEMP = programma uit te voeren voor ^mtemp99 op te bouwen
	S $ZT="TRAP^cAN000"
	N SWVB
	S SWVB=1
	G 2
	;
T0	;Openstaande leveranciersfacturen ;
T1	;de leverancier\leveranciers\alfabetische\alfabetische;
T2	;klant\leverancier;
	;
T0F	;Documents de fournisseur non soldés ;
T1F	;fournisseur\fournisseurs\alphabétique\alphabétique;
T2F	;client\fournisseur;
	;
T0E	;Outstanding purchase vouchers ;
T1E	;the supplier\suppliers\alphabetical\alphabetical;
T2E	;customer\supplier;
	;
	; titel
1	I QP S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	K SWVB
	;
	; vraagstelling
2	S PROG=$T(+0),TEXT=$P($T(@("T1"_QT)),U,2)_"\LE\L1\"_$P($T(@("T2"_QT)),U,2) D ^cAT103 G YZ:K="-"!(K=",")
21	I '$G(SWVB),LIM2'="",LIM2'=" " S KEU("LE")="1\1",LIM1("LE")=LIM1,LIM2("LE")=LIM2
	;
	; opzetten variabelen
3	S QH1="^HULP(boot,$J+.03,FNR)",QH2="^HULP(boot,$J+.04,I2)"
31	S Q0="^"_Q_"LE(I1)",Q01="^"_Q_"LE(I1,I2)",Q7="^"_Q_"AA(BP)",Q71="^"_Q_"AA(BP,FNR)"
33	S Q95="^"_Q_"FI(BP,$P(A2,""#""),$P(A2,""#"",2))"
35	I $G(SWVB) S PTS=4 G 37
	I TP,(PTS'="F") S (LIN,LINE)="",$P(LINE,"-",73)="-",$P(LINE,"-")="@F30,""",$P(LINE,"-",74)=""",@F30",LIN=LINE,$P(LINE,"-",2)="-----" F I=11,18,28,46,60 S $P(LIN,"-",I)=""",@F30,"""
	S FP=2201 W @F,@F1
37	D:(PTS'=3&(PTS'=4)) ^cT100
	D:(PTS=3!(PTS=4)) ^cT104
	I '$G(SWVB) G 1:QP
	;
YZ	Q
	;
ZZ	; 18.05.04 - 15 u 48 * V8