Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r43 -r66
--- WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 43)
+++ WS/TBX/Order.cls.xml	(.../Order.cls.xml)	(revision 66)
@@ -869,6 +869,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MarkeerAlsVerwerkt">
+<Description>
+Manuele tool om test-orders te markeren als verwerkt, zodat deze niet meer tevoorschijn komen in het overzicht van de niet-verwerkte orders. 
+Zie klasse APPS.TBXWeb.OrderChecker 
+
+Method handmatig oproepen via : 
+  s WSOrd=##class(WS.TBX.Order).MarkeerAlsVerwerkt(wsID,0)   w WSOrd,!</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>wsID:%String,ForceerWijziging:%Boolean</FormalSpec>
+<ReturnType>WS.TBX.Order</ReturnType>
+<Implementation><![CDATA[
+	Set WSOrd=..%OpenId(wsID)
+	If ('$IsObject(WSOrd)) {
+		Set WSOrd=""
+	}
+	Else {
+		Set sc=##class(APPS.TBXWeb.OrderChecker).MarkeerTBXOrderAlsVerwerkt(wsID,.ForceerWijziging)
+	}
+	Quit WSOrd
+]]></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>
Index: APPS/TBXWeb/OrderChecker.cls.xml
===================================================================
diff -u -r22 -r66
--- APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 22)
+++ APPS/TBXWeb/OrderChecker.cls.xml	(.../OrderChecker.cls.xml)	(revision 66)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.TBXWeb.OrderChecker">
-<IncludeCode>vhLib.Macro,TECH.Error</IncludeCode>
+<IncludeCode>vhLib.Macro,APPS.TBXWeb,TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -220,5 +220,59 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="MarkeerTBXOrderAlsVerwerkt">
+<Description>
+Manuele tool om test-orders te markeren, zodat deze niet meer tevoorschijn komen in het overzicht van de niet-verwerkte orders. 
+By default wordt gecontroleerd op Testklant VH en  VHCC_01 tot VHCC_09 .
+
+Oproepen via 
+  Set sc=##class(APPS.TBXWeb.OrderChecker).MarkeerTBXOrderAlsVerwerkt(WSOrderID,0)   w sc,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WSOrderID:%String,ForceerWijziging:%Boolean=0</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set TBXOrder=##class(WS.TBX.Order).%OpenId(WSOrderID)
+	Set KlantID=TBXOrder.KLNummer
+
+	Set MagWijzigen=0
+	If ForceerWijziging {
+		Set MagWijzigen=1
+	}
+	Else {
+		Set MagWijzigen=(TBXOrder.WebDomain=$$$TBoxWebDomeinVHEPN) && ((KlantID?1(1"4682",1"1000",1"4645"))||($$$ValIsBetween(KlantID,15827,15836)))
+	}
+
+	Write !
+	Write "Order ID = "_TBXOrder.mID,!
+	Write "Klant = "_TBXOrder.KLNummer_" - "_TBXOrder.KLNaam,!
+	Write "Huidige waarde in TransferLog = "_$$$LCVT(TBXOrder.TransferLog),!
+	Write !
+	If MagWijzigen=0 {
+		Write !
+		Write "Dit TBXOrder wordt NIET gemarkeerd als verwerkt. ",!
+		Write !
+		Write "Probeer met  parameter ForceerWijziging=1 ",!
+	}
+	Else {
+		Write "Dit TBXOrder markeren als verwerkt [J/N] ? "
+		Read Key,!
+		Set MagWijzigen=(Key?1(1"J",1"j"))
+	}
+	Write !
+	
+	If MagWijzigen {
+		Write "Order EDI "_TBXOrder.mID,!
+		Set sc=TBXOrder.AddToTransferLog(99,"","Manueel via MarkeerTBXOrderAlsVerwerkt")
+		
+		write "New submitlog : "_$$$LCVT(TBXOrder.TransferLog),!
+
+		Set sc="skipped"
+		Set sc=TBXOrder.%Save()
+		write "Save "_sc,!
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 </Export>