Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r33 -r43
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 33)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 43)
@@ -733,31 +733,11 @@
 	Set WSOrd.SubmitTS=""   ; bij (her)berekening vervalt de (vorige) sumbit-flag.
 	Set WSOrd.TransferLog=""
 	
- /*   */
 	// Status voor ShowInHist invullen 
-	Set ClientHostIP=$G(%RemoteIP)
-	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("cspBasis.GAProdTBox_ForceerBooleanIsExternIP"))
-	{
-		// Op de DEMO-versie van TBoxWeb : geen orders verbergen in de historiek, dus niet testen op IP-adres en doen alsof iedere request van extern komt. 
-		Set blnIsExternIP=1
-	}
-	Else 
-	{
-		Set blnIsExternIP=(ClientHostIP'?1"192.168.1.".E)
-	}
-
-	  ;d WL^vhDBG("Old Hist :"_WSOrd.ShowInHist_" IsExternIP:"_blnIsExternIP)
-	Set blnVHEPN=$G(blnVHEPN,1)
-	If WSOrd.ShowInHist="" Do
-	. Set WSOrd.ShowInHist=$S(blnIsExternIP:$$$shShownForKlant, 'blnVHEPN:$$$shShownForVERW, 1:$$$shShownForVHEPN)
-	Else  If (WSOrd.ShowInHist=$$$shShownForVHEPN)&&(blnIsExternIP) Do
-	. Set WSOrd.ShowInHist=$$$shShownForKlant
-	Else  Do
-	. ; Don't change the ShowInHist value 
+	Set IsDomeinVHEPN=$G(blnVHEPN,1)
+	Do WSOrd.SetStatusShowInHist($G(%RemoteIP),IsDomeinVHEPN)
 	  ;d WL^vhDBG("New Hist :"_WSOrd.ShowInHist)
 
- /*   */
-
 	Set SaveOK=WSOrd.%Save()
 	Set wsID=WSOrd.%Id()
 	Do cdwAddToLog
@@ -898,11 +878,10 @@
 	If ##class(WS.TBX.Order).%ExistsId(wsID) Set WSOrd=##class(WS.TBX.Order).%OpenId(wsID)
 	Else  Quit ""
 	Do WSOrd.DataArrayFromWS(.arFullDataOrig)
-	For nd="ID","IngaveTijdStip","KLKorting","KLNummer","KLPrijsKlasse","SubmitTS","TotAantal","TotPrijs" Do
+	For nd="ID","IngaveTijdStip","KLKorting","KLNummer","KLPrijsKlasse","SubmitTS","TotAantal","TotPrijs","ShowInHist" Do   ; Deze properties zullen niet gewijzigd worden t.o.v. de waarden reeds aanwezig in het WSOrd 
 	. Kill arFullDataNew("KLT",nd)
 	Merge arFullDataOrig=arFullDataNew
 	Do WSOrd.FillFromArray(.arFullDataOrig)
-	;Set WSOrd.IngaveTijdStip=$ZDT($H,3)
 	Do WSOrd.%Save()
 	Quit ""
 ]]></Implementation>
Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r18 -r43
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 18)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 43)
@@ -255,10 +255,24 @@
  If 'id Set id=$INCREMENT($$$StorageIndexNode)
  Else  Set:(id>$G($$$StorageIndexNode)) $$$StorageIndexNode=id
  Set:(id'=..mID) ..mID=id
+ 
+ Set:('IsNew) sc=..ControleerWaarden()
+ 
  Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="ControleerWaarden">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	// Controle ShowInHist
+	If (..ShowInHist="") {
+		Do ##class(vhLib.Logger).%New("TBXWeb").WarningMail("CHECK_SAVE_VALUES","De waarde ShowInHist is leeg (WSOrd="_..mID_"). "_$$$CRLF_"Uitzoeken welke code hiervoor verantwoordelijk is! "_$$$CRLF_$$GetStackToString^vhLib())
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="OverwriteOID">
 <Description>
 Verwijdert het object met (OID=ID) en vervangt het door het huidige object (door hetzelfde ID in the nemen).
@@ -855,6 +869,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SetStatusShowInHist">
+<Description>
+De status ShowInHist van het WSOrder invullen op basis van het ClientIP, zodat het order al dan niet zichtbaar wordt in de Historiek. </Description>
+<FormalSpec>ClientHostIP:%String,IsDomeinVHEPN:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("cspBasis.GAProdTBox_ForceerBooleanIsExternIP"))
+	{
+		// Op de DEMO-versie van TBoxWeb : geen orders verbergen in de historiek, dus niet testen op IP-adres en doen alsof iedere request van extern komt. 
+		Set blnIsExternIP=1
+	}
+	Else 
+	{
+		Set blnIsExternIP=(ClientHostIP'?1"192.168.1.".E)
+	}
+
+	  ;d WL^vhDBG("Old Hist :"_..ShowInHist_" IsExternIP:"_blnIsExternIP)
+	If ..ShowInHist="" {
+		Set ..ShowInHist=$S(blnIsExternIP:$$$shShownForKlant, 'IsDomeinVHEPN:$$$shShownForVERW, 1:$$$shShownForVHEPN)
+	}
+	ElseIf (..ShowInHist=$$$shShownForVHEPN)&&(blnIsExternIP) { 
+		Set ..ShowInHist=$$$shShownForKlant
+	}
+	Else { 
+		; Don't change the ShowInHist value 
+	}
+	  ;d WL^vhDBG("New Hist :"_..ShowInHist)
+]]></Implementation>
+</Method>
+
 <Method name="UpdateShowInHist">
 <Description>
 De status ShowInHist van het WSOrder wijzigen, zodat het order al dan niet zichtbaar wordt in de Historiek.