cAT10	;Openstaande klantenfacturen ;%AT10 ;%AT10* ; [ 03/07/01  9:18 AM ]
	G 1
	;
VB(KC,BTEMP)	; Ingang voor VB (zie ook BTMPOF^cAFVBF03)  ; KU : 19.03.04
	; KC = klantnnr
	; BTEMP = programma uit te voeren voor ^mtemp99 op te bouwen
	S $ZT="TRAP^cAN000"
	N SWVB
	S SWVB=1
	G 2
	;
T0	;Openstaande klantenfacturen ;
T1	;de klant\klanten\alfabetische\alfabetische;
T2	;leverancier\klant;
	;
T0F	;Documents de client non soldés ;
T1F	;client\clients\alphabétique\alphabétique;
T2F	;fournisseur\client;
	;
T0E	;Outstanding invoices ;
T1E	;the customer\customers\alphabetical\alphabetical;
T2E	;supplier\customer;
	;
	; 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)_"\KL\K1\"_$P($T(@("T2"_QT)),U,2) D ^cAT103 G YZ:K="-"!(K=",")
21	I '$G(SWVB),LIM2'="",LIM2'=" " S KEU("KL")="1\1",LIM1("KL")=LIM1,LIM2("KL")=LIM2
	;
	; opzetten variabelen
3	S QH1="^HULP(boot,$J+.01,FNR)",QH2="^HULP(boot,$J+.02,I2)"
31	S Q0="^"_Q_"KL(I1)",Q01="^"_Q_"KL(I1,I2)",Q7="^"_Q_"VE(BP)",Q71="^"_Q_"VE(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)) ^cAT100 
	D:(PTS=3!(PTS=4)) ^cAT104
	I '$G(SWVB) G 1:QP
	;
YZ	Q
	;
ZZ	; 18.05.04 - 15 u 48 * V8