cT48	;Historiek klanten ;%T48 ;%T48* ; [ 01/03/01  7:28 PM ]
	G 1
	;
VB(KC,BTEMP,ACT,KEU,KJ,KM1,KM2,VMSW,MUNT,SWSAL)	; Ingang voor VB (zie ook BTMPHIS^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 11
	;
T0	;Historiek klanten ;
T1	;De klant\klanten\alfabetische\alfabetische;
T2	;Volgende klant ;
T3	;Historiek klanten;
	;
T0F	;Historique comptable des clients ;
T1F	;Client\clients\alphabétique\alphabétique;
T2F	;Client suivant ;
T3F	;Historique clients;
	;
T0E	;History customers ;
T1E	;Customer\customers\alphabetical\alphabetical; 
T2E	;Next customer ;
T3E	;History customers;
	;
	; vraagstelling
1	K SWVB
11	S TEXT=$P($T(@("T1"_QT)),U,2)_"\KL\K1",PROG=$T(+0) D ^cT480 G YZ:K="-"!(K=",")
	I '$G(SWVB),LIM2'="",LIM2'=" " S KEU("KL")="1\1",LIM1("KL")=LIM1,LIM2("KL")=LIM2
	;
	; opzetten variabelen
2	S Q0="^"_Q_"KL(I1)",Q01="^"_Q_"KL(I1,I4)",U9=$P($T(@("T3"_QT)),U,2),Q71="^"_Q_"VE(BP,A1)",Q61="^"_Q_"AA(BP,A1)"
21	S Q95="^"_Q_"FI(BP,$P(A1,""#""),$P(A1,""#"",2))",TXT="\KL\"_$P($T(@("T2"_QT)),U,2)
23	I $G(SWVB) S PTS=4
	I PTS=4!(PTS=3) D ^cT483  G YZ:$G(SWVB),1:QP G YZ
25	S FP=2201 W @F,@F1 D ^cT481 G 1:QP
	;
YZ	Q
	;
ZZ	; 18.05.04 - 15 u 48 * V8