Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r1247 -r1410
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1247)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 1410)
@@ -1088,12 +1088,16 @@
 PrepareHistVTL
 #define KLNrClean   $S(KLNr=$$$KLNrListAll:"", 1:KLNr)
 	  ;s:('$D(ClientIP)) ClientIP="192.168.1.97"
-	New tmpAr,KLNrSel,i,wsID,Ref,WizMode,sDomain2,tmpKLNr,blnListALL,tmpNaam,BonType,Munt,ClientHostIP,MinShowH,MaxShowH,blnListHidden
+	New tmpAr,KLNrSel,i,wsID,Ref,WizMode,sDomain2,tmpKLNr,blnListALL,tmpNaam,BonType,Munt,ClientHostIP,MinShowH,MaxShowH,blnListHidden,blnListHiddenOnly,KLNrIsTestKlant
 	Kill arHistVTL
+ 
+	Set KLNrIsTestKlant=0
+	If (sDomVERW="VHEPN") && ( (KLNr?1(1"4682",1"1000",1"4645"))||($$$ValIsBetween(KLNr,15827,15836)) )  { Set KLNrIsTestKlant=1 }
+ 
 	Set blnListHidden=($G(%request.Data("SHOWALL",1))="1")
 	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("csp.vhisie.TBX.Main_ToonHistoriekVoorTestklanten"))
 	{
-		Set blnListHidden=(blnListHidden)||(KLNr?1(1"4682",1"1000",1"4645"))
+		Set blnListHidden=(blnListHidden || KLNrIsTestKlant)
 	}
 	Set blnListHiddenOnly=0
 	Set blnListALL=(KLNr=$$$KLNrListAll)
@@ -1111,9 +1115,10 @@
 	. Set:(blnListHiddenOnly) MaxShowH=$$$shShownForVHEPN-1
 	Else  If (sMode="PROCESS")||(blnListALL) Do
 	. Set MinShowH=$S(VERW'="VHEPN":$$$shShownForVERW, 1:$$$shShownForVHEPN)
+	Else  If KLNrIsTestKlant Do
+	. Set MinShowH=$$$shShownForVHEPN
 	Else  If 0  && ($G(%RemoteIP)?1(1"192.168.1.")) Do
 	. Set MinShowH=$$$shShownForVHEPN
-	Set:(KLNrSel?1(1"1000",1"4645",1"4682")) MinShowH=$$$shShownForVHEPN
  
 	&SQL(DECLARE crsHist CURSOR FOR 
 			SELECT Top 1000  KLNummer, KLNaam, BonType, ID, IngaveTijdStip, TotAantal Qty, TotPrijs Prijs, Commissie, SubmitTS, ShowInHist
@@ -1183,5 +1188,4 @@
 	Set BonType=$$$pg.ConvertBonType(arHistVTL("LN",i,"BonType"),VERW,WizMode)
 	Set:(blnLMC||blnSFS||blnMBHO) arHistVTL("LN",i,"BonType")=BonType
 	Set arHistVTL("LN",i,"BonTypeVTL")=$$$pg.WebTextValue("FT_"_BonType,Taal,"L")
-	Quit
- 
\ No newline at end of file
+	Quit
\ No newline at end of file