Index: WS/TBX/HAEFELE/OrderServiceInternal.cls.xml
===================================================================
diff -u -r761 -r763
--- WS/TBX/HAEFELE/OrderServiceInternal.cls.xml	(.../OrderServiceInternal.cls.xml)	(revision 761)
+++ WS/TBX/HAEFELE/OrderServiceInternal.cls.xml	(.../OrderServiceInternal.cls.xml)	(revision 763)
@@ -81,21 +81,16 @@
 	Set $ZTrap="GeefTbxOrderInfoError"
 	
 	Set Logger = ##class(WS.TBX.OrderService.Logger).%New("WS_TBX_HAEFELE")
-
-	Set TBXHandelBepaler = ##class(WS.TBX.OrderService.TBXHandelBepaler).%New()
-	Set TBXHandel = TBXHandelBepaler.BepaalTBXHandelViaEDINr(EDInr)
 	
-	/*
-	Set Logger = ##class(WS.TBX.OrderService.Logger).%New("WS_TBX_HAEFELE")
-	Set OrderServiceHelper=##class(WS.TBX.OrderService.Verwerker).%New("",Logger)
+	If ($G(EDInr) > 1000000) && ($L(##class(WS.TBX.OrderAbstract).IDViaEDINr(EDInr,$$$True))) {
+		Set TBXHandelBepaler = ##class(WS.TBX.OrderService.TBXHandelBepaler).%New()
+		Set TBXHandel = TBXHandelBepaler.BepaalTBXHandelViaEDINr(EDInr)
+	}
+	Else {
+		// Dit is wellicht geen EDINr van een TBoxWeb order 
+		Set TBXHandel = ""
+	}
 	
-	Do OrderServiceHelper.ControleerSecureKey(SecureKey)
-	Set wsOrder=OrderServiceHelper.OpenWSOrder(EDInr)
-	
-	Set TBXHandelBepaler = ##class(WS.TBX.OrderService.TBXHandelBepaler).%New()
-	Set TBXHandel = TBXHandelBepaler.BepaalTBXHandel(WsOrder)
-	*/
-	
 	Set TbxOrderInfoResult=##class(WS.TBX.HAEFELE.TbxOrderInfoResult).%New(TBXHandel)
 	Quit TbxOrderInfoResult