Index: WS/TBX/HAEFELE/OrderServiceInternal.cls.xml
===================================================================
diff -u -r729 -r761
--- WS/TBX/HAEFELE/OrderServiceInternal.cls.xml	(.../OrderServiceInternal.cls.xml)	(revision 729)
+++ WS/TBX/HAEFELE/OrderServiceInternal.cls.xml	(.../OrderServiceInternal.cls.xml)	(revision 761)
@@ -72,6 +72,51 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTbxOrderInfo">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SecureKey:%String,EDInr:%Integer</FormalSpec>
+<ReturnType>WS.TBX.HAEFELE.TbxOrderInfoResult</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	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)
+	
+	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
+	
+GeefTbxOrderInfoError
+	Set $ZTrap=""
+	Set Exception=##class(TECH.ExceptionHandler).Catch()
+	Set ErrorMessage=""
+	If (Exception.%Extends("WS.TBX.OrderService.VerwerkingException")) { 
+		// Deze specifieke exceptions zijn reeds gelogd. Hier enkel de SoapFault opzetten 
+		Set ErrorMessage=Exception.GeefOmschrijving()
+	}
+	Else
+	{
+		// Alle andere exceptions en caché-errors worden hier gelogd+gemaild naar ICT 
+		Set ErrorMessage="Error in confirmation of order "_EDInr_".  Van Hoecke ICT has been notified."
+		Do Logger.ErrorMail("HAEFELE_ORDER",ErrorMessage_$$$CRLF_Exception.GeefOmschrijving()_"  "_Exception.ToString())
+	}
+	Do ..ReturnFault(##class(WS.WSServerFault).%New(ErrorMessage, ..#SERVICENAME, "CO"))
+]]></Implementation>
+</Method>
+
 <Method name="ZetTBXHandel">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>OrderServiceHelper:WS.TBX.OrderService.Verwerker,WsOrder:WS.TBX.OrderAbstract</FormalSpec>