Index: WS/TBX/HAEFELE/OrderServiceInternal.cls.xml
===================================================================
diff -u -r422 -r684
--- WS/TBX/HAEFELE/OrderServiceInternal.cls.xml	(.../OrderServiceInternal.cls.xml)	(revision 422)
+++ WS/TBX/HAEFELE/OrderServiceInternal.cls.xml	(.../OrderServiceInternal.cls.xml)	(revision 684)
@@ -23,7 +23,7 @@
 
 <Method name="ConfirmOrder">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>SecureKey:%String,EDInr:%Integer,RequestedDeliveryDate:%String</FormalSpec>
+<FormalSpec>SecureKey:%String,EDInr:%Integer,RequestedDeliveryDate:%String,HaefeleBestelRef:%String=""</FormalSpec>
 <ReturnType>WS.TBX.HAEFELE.ConfirmOrderResult</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
@@ -36,8 +36,11 @@
 	Do OrderServiceHelper.ControleerSecureKey(SecureKey)
 	Set wsOrder=OrderServiceHelper.OpenWSOrder(EDInr)
 	Set wsOrder.LeverTijd = $G(RequestedDeliveryDate)
+	If $piece(wsOrder.Opmerking1,$$$CRLF) '= HaefeleBestelRef {
+		Set wsOrder.Opmerking1 = HaefeleBestelRef_ $$$CRLF _wsOrder.Opmerking1
+	}
 	
-	Do Logger.Info("HAEFELE_ORDER","EDINr: "_EDInr_" Levertijd : "_$G(RequestedDeliveryDate))
+	Do Logger.Info("HAEFELE_ORDER","EDINr: "_EDInr_" Levertijd : "_$G(RequestedDeliveryDate)_" BestelRef : "_HaefeleBestelRef)
 
 	;Do OrderServiceHelper.SaveWSOrder(wsOrder)   ; Deze Save() is overbodig als de SubmitWSOrder() in ditzelfde caché-process wordt afgehandeld. 
 	Do OrderServiceHelper.SubmitWSOrder(wsOrder)