Index: WS/TBX/HAEFELE/TbxOrderInfoResult.cls.xml
===================================================================
diff -u
--- WS/TBX/HAEFELE/TbxOrderInfoResult.cls.xml	(revision 0)
+++ WS/TBX/HAEFELE/TbxOrderInfoResult.cls.xml	(revision 761)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.TBX.HAEFELE.TbxOrderInfoResult">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%XML.Adaptor,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="TbxHandel">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>TbxHandel:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..TbxHandel = TbxHandel
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
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>