cT49	;Historiek leveranciers ;%T49 ;%T48* ; [ 01/03/01  10:53 AM ]
	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 leveranciers ;
T1	;De leverancier\leveranciers\alfabetische\alfabetische;
T2	;Volgende leverancier ;
T3	;Historiek leveranciers;
	;
T0F	;Historique comptable des fournisseurs ;
T1F	;Fournisseur\fournisseurs\alphabétique\alphabétique;
T2F	;Fournisseur suivant ;
T3F	;Historique fournisseurs;
	;
T0E	;History suppliers ;
T1E	;The supplier\suppliers\alphabetical\alphabetical;
T2E	;Next supplier ;
T3E	;History suppliers;
	;
	; vraagstelling
1	K SWVB
11	S TEXT=$P($T(@("T1"_QT)),U,2)_"\LE\L1",PROG=$T(+0) D ^cT480 G YZ:K="-"!(K=",")
	I '$G(SWVB),LIM2'="",LIM2'=" " S KEU("LE")="1\1",LIM1("LE")=LIM1,LIM2("LE")=LIM2
	;
	; opzetten variabelen
2	S Q0="^"_Q_"LE(I1)",Q01="^"_Q_"LE(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="\LE\"_$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
24	S FP=2201 W @F,@F1 D ^cT481 G 1:QP
	;
YZ	Q
	;
ZZ	; 18.05.04 - 15 u 48 * V8