Index: vhUnitTest/APPS/TBXWeb/OrderVerwerker/ConverteerWebOrderNaarOfferte/TestDocRefsKlantOrderNummer.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TBXWeb/OrderVerwerker/ConverteerWebOrderNaarOfferte/TestDocRefsKlantOrderNummer.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TBXWeb/OrderVerwerker/ConverteerWebOrderNaarOfferte/TestDocRefsKlantOrderNummer.cls.xml	(revision 34768)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TBXWeb.OrderVerwerker.ConverteerWebOrderNaarOfferte.TestDocRefsKlantOrderNummer">
+<Super>vhUnitTest.TestCase,vhUnitTest.APPS.TBXWeb.OrderVerwerker.ConverteerWebOrderNaarOfferte.OfferteBase</Super>
+
+<Property name="KlantInstellingServiceStub">
+<Type>vhTest.Mock.APPS.common.KlantInstellingenService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	#dim OrderVerwerkingAPI As vhTest.Mock.APPS.OV.OrderVerwerkingAPI = ##class(vhTest.Mock.APPS.OV.OrderVerwerkingAPI).MockInstance()
+	Set ..KlantInstellingServiceStub = ##class(vhTest.Mock.APPS.common.KlantInstellingenService).%New()
+	
+	Do OrderVerwerkingAPI.IndienMethodCall("GeefKlantInstellingenService", "").DanReturn(..KlantInstellingServiceStub)	
+
+ 	Do ..MaakWebOrder()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(APPS.ApplicatieContext).Instance().Reset()
+	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantIDVoorHandel">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
+]]></Implementation>
+</Method>
+
+<Method name="Test Indien GebruiktKlantOrderNummer=TRUE dan wordt DocRefsKlantOrderNummer WEL overgenomen van Opmerking1">
+<Implementation><![CDATA[
+	Do ..KlantInstellingServiceStub.IndienMethodCall("GebruiktKlantOrderNummer", ..GeefKlantIDVoorHandel()).DanReturn(1)
+   
+    #dim Offerte As Flow.Offerte.Hoofding = ..MaakOfferte()
+   
+    Do $$$AssertEquals(Offerte.DocumentReferenties.KlantOrderNummer,"12345 SAPnr 6789")
+    Do ..AssertCommentaarBevatOpmerking1(Offerte)
+	
+	Do ..VerwijderOfferte(Offerte.%Id())
+]]></Implementation>
+</Method>
+
+<Method name="Test Indien GebruiktKlantOrderNummer=FALSE dan wordt DocRefsKlantOrderNummer NIET overgenomen van Opmerking1">
+<Implementation><![CDATA[
+	Do ..KlantInstellingServiceStub.IndienMethodCall("GebruiktKlantOrderNummer", ..GeefKlantIDVoorHandel()).DanReturn(0)
+  
+    #dim Offerte As Flow.Offerte.Hoofding = ..MaakOfferte()
+   
+    Do $$$AssertEquals(Offerte.DocumentReferenties.KlantOrderNummer,"")
+    Do ..AssertCommentaarBevatOpmerking1(Offerte)
+	
+	Do ..VerwijderOfferte(Offerte.%Id())
+]]></Implementation>
+</Method>
+
+<Method name="AssertCommentaarBevatOpmerking1">
+<FormalSpec>Offerte:Flow.Offerte.Hoofding</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#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 6789[CRLF]")
+]]></Implementation>
+</Method>
+
+<Method name="MaakWebOrder">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantNummerVoorHandel As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(..GeefKlantIDVoorHandel())
+
+	Set ..WebOrder = ##class(WS.TBX.Order).%New()	
+	Set ..WebOrder.BonType = "BBON"
+	Set ..WebOrder.KLNummer = $$$DummyString
+	Set ..WebOrder.LeverTijd = "zo snel mogelijk"
+	Set ..WebOrder.LeverTijdID = "ASAP"
+	Set ..WebOrder.Opmerking1 = "12345 SAPnr 6789"
+	Set ..WebOrder.WebDomain = ##class(APPS.TBXWeb.TBXContext).GeefWebDomeinVoorKlant(KlantNummerVoorHandel)
+	Set ..WebOrder.mID = 12345
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TBXWeb/OrderVerwerker/ConverteerWebOrderNaarOfferte/OfferteBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TBXWeb/OrderVerwerker/ConverteerWebOrderNaarOfferte/OfferteBase.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TBXWeb/OrderVerwerker/ConverteerWebOrderNaarOfferte/OfferteBase.cls.xml	(revision 34768)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TBXWeb.OrderVerwerker.ConverteerWebOrderNaarOfferte.OfferteBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="WebOrder">
+<Type>WS.TBX.OrderAbstract</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="MaakOfferte">
+<Private>1</Private>
+<ReturnType>Flow.Offerte.Hoofding</ReturnType>
+<Implementation><![CDATA[
+    set Verwerker = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkerMock).%New()
+    
+    #dim OfferteID As %String = ""
+    
+    if ..WebOrder.%Extends("WS.TBX.GroepOrder") { set OfferteID = Verwerker.ConverteerWebGroepOrderNaarOfferte(..WebOrder) }
+    else { set OfferteID = Verwerker.ConverteerWebOrderNaarOfferte(..WebOrder) }
+    do $$$AssertEquals(OfferteID,..GeefLaatstGemaakteOfferteID())
+    #dim Offerte As Flow.Offerte.Hoofding = Verwerker.GeefOfferte()
+	do $$$AssertTrue(Offerte.%ValidateObject(),"Validatie offerte is ok")    
+	
+	quit Offerte
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOfferte">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ##class(Flow.Offerte.Hoofding).%DeleteId(OfferteID)
+	do $$$AssertFalse(##class(Flow.Offerte.Hoofding).%ExistsId(OfferteID))
+]]></Implementation>
+</Method>
+
+<Method name="GeefLaatstGemaakteOfferteID">
+<Final>1</Final>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ^Flow.Offerte.HoofdingD
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>