Index: vhUnitTest/APPS/TBXWeb/TestWebOrderVerwerker.cls.xml
===================================================================
diff -u -r34770 -r34772
--- vhUnitTest/APPS/TBXWeb/TestWebOrderVerwerker.cls.xml	(.../TestWebOrderVerwerker.cls.xml)	(revision 34770)
+++ vhUnitTest/APPS/TBXWeb/TestWebOrderVerwerker.cls.xml	(.../TestWebOrderVerwerker.cls.xml)	(revision 34772)
@@ -149,7 +149,7 @@
 <Method name="TestSFSOrder">
 <Implementation><![CDATA[
  	do ..MaakTestOrder()
- 	Set ..WebOrder.KLNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).SFS())
+ 	Set ..WebOrder.KLNummer = $$$DummyString
     set ..WebOrder.WebDomain = "tbx.sfsunimarket.biz"
  	
     #dim Offerte As Flow.Offerte.Hoofding = ..MaakOfferte()
@@ -170,6 +170,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestHaefeleBEOrder">
+<Implementation><![CDATA[
+ 	Do ..MaakTestOrder()
+ 	Set ..WebOrder.KLNummer = $$$DummyString
+    Set ..WebOrder.WebDomain = $$$TBoxWebDomeinHFLB
+ 	Set ..WebOrder.Opmerking1 = "12345 SAPnr HBE 6789"
+ 	
+    #dim Offerte As Flow.Offerte.Hoofding = ..MaakOfferte()
+   
+	#dim Commentaar As %String = ##class(TECH.StringUtils).Replace(Offerte.Commentaar,$$$CRLF,"[CRLF]")
+    do $$$AssertEquals(Commentaar,"Levertijd: zo snel mogelijk[CRLF]TBX-EDI-nr: 1012345[CRLF]Opmerking:[CRLF]12345 SAPnr HBE 6789[CRLF]")
+    
+    do $$$AssertEquals(Offerte.DocumentReferenties.KlantOrderNummer,"12345 SAPnr HBE 6789")
+	
+	do ..VerwijderOfferte(Offerte.%Id())
+]]></Implementation>
+</Method>
+
 <Method name="TestReferentie">
 <Implementation><![CDATA[
  	do ..MaakTestOrder()