Index: vhUnitTest/APPS/OV/impl/OrderBevestiging/EDIOrderBevestigingMaker/Test.cls.xml
===================================================================
diff -u -r29059 -r31704
--- vhUnitTest/APPS/OV/impl/OrderBevestiging/EDIOrderBevestigingMaker/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/OV/impl/OrderBevestiging/EDIOrderBevestigingMaker/Test.cls.xml	(.../Test.cls.xml)	(revision 31704)
@@ -17,76 +17,98 @@
 <Default>123456</Default>
 </Parameter>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
+]]></Implementation>
+</Method>
+
 <Method name="TestOorsprongUniShopMetLegrabox">
 <Implementation><![CDATA[
-	#dim ProductTypeIsZichtbaar As %Boolean = 1
+	#dim ProductTypeIsZichtbaar As %Boolean = $$$True
 	#dim ProductType As APPS.EC.enu.ProductType = ##class(APPS.EC.enu.ProductType).Legrabox()	
 	#dim Oorsprong As BL.Flow.Offerte.enu.Oorsprong = ##class(BL.Flow.Offerte.enu.Oorsprong).UniShop()
-	#dim OrderID As %String = ..MaakOrder(Oorsprong,..GeefWillekeurigLegraboxProductID())	
-	Do ..AssertOrder(Oorsprong,ProductType,OrderID,ProductTypeIsZichtbaar)
+	#dim OrderID As %String = ..MaakOrder(Oorsprong, ..GeefWillekeurigLegraboxProductID())
+		
+	Do ..AssertOrder(Oorsprong, ProductType, OrderID, ProductTypeIsZichtbaar)
 ]]></Implementation>
 </Method>
 
 <Method name="TestOorsprongUniShopMetTandembox">
 <Implementation><![CDATA[
-	#dim ProductTypeIsZichtbaar As %Boolean = 1
+	#dim ProductTypeIsZichtbaar As %Boolean = $$$True
 	#dim ProductType As APPS.EC.enu.ProductType = ##class(APPS.EC.enu.ProductType).Tandembox()	
 	#dim Oorsprong As BL.Flow.Offerte.enu.Oorsprong = ##class(BL.Flow.Offerte.enu.Oorsprong).UniShop()
-	#dim OrderID As %String = ..MaakOrder(##class(BL.Flow.Offerte.enu.Oorsprong).UniShop(),..GeefWillekeurigTandemboxProductID())
-	Do ..AssertOrder(Oorsprong,ProductType,OrderID,ProductTypeIsZichtbaar)
+	#dim OrderID As %String = ..MaakOrder(##class(BL.Flow.Offerte.enu.Oorsprong).UniShop(), ..GeefWillekeurigTandemboxProductID())
+	
+	Do ..AssertOrder(Oorsprong, ProductType, OrderID, ProductTypeIsZichtbaar)
 ]]></Implementation>
 </Method>
 
 <Method name="TestOorsprongTandemboxWebMetTandembox">
 <Implementation><![CDATA[
-	#dim ProductTypeIsZichtbaar As %Boolean = 0
+	#dim ProductTypeIsZichtbaar As %Boolean = $$$False
 	#dim ProductType As APPS.EC.enu.ProductType = ##class(APPS.EC.enu.ProductType).Tandembox()	
 	#dim Oorsprong As BL.Flow.Offerte.enu.Oorsprong = ##class(BL.Flow.Offerte.enu.Oorsprong).TandemboxWebsite()
-	#dim OrderID As %String = ..MaakOrder(Oorsprong,..GeefWillekeurigTandemboxProductID())
-	Do ..AssertOrder(Oorsprong,ProductType,OrderID,ProductTypeIsZichtbaar)
+	#dim OrderID As %String = ..MaakOrder(Oorsprong, ..GeefWillekeurigTandemboxProductID())
+	
+	Do ..AssertOrder(Oorsprong, ProductType, OrderID, ProductTypeIsZichtbaar)
 ]]></Implementation>
 </Method>
 
 <Method name="TestOorsprongEDIMetTandembox">
 <Implementation><![CDATA[
-	#dim ProductTypeIsZichtbaar As %Boolean = 0
+	#dim ProductTypeIsZichtbaar As %Boolean = $$$False
 	#dim ProductType As APPS.EC.enu.ProductType = ##class(APPS.EC.enu.ProductType).Tandembox()	
 	#dim Oorsprong As BL.Flow.Offerte.enu.Oorsprong = ##class(BL.Flow.Offerte.enu.Oorsprong).EDIBestand()
-	#dim OrderID As %String = ..MaakOrder(Oorsprong,..GeefWillekeurigTandemboxProductID())
-	Do ..AssertOrder(Oorsprong,ProductType,OrderID,ProductTypeIsZichtbaar)
+	#dim OrderID As %String = ..MaakOrder(Oorsprong, ..GeefWillekeurigTandemboxProductID())
+	
+	Do ..AssertOrder(Oorsprong, ProductType, OrderID, ProductTypeIsZichtbaar)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertOrder">
 <FormalSpec>Oorsprong:BL.Flow.Offerte.enu.Oorsprong,ProductType:APPS.EC.enu.ProductType,OrderID:%String,ProductTypeIsZichtbaar:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim OrderBevestigingMaker As APPS.OV.OrderBevestiging.impl.OrderBevestigingMaker = ##class(APPS.OV.OrderBevestiging.impl.OrderBevestigingMaker).%New()	
+	#dim EDIOrderBevestiging as APPS.OV.dto.EDIOrderBevestiging = OrderBevestigingMaker.MaakEDIOrderBevestigingDTO(OrderID)
 	
-	Set EDIOrderBevestigingMaker = ##class(APPS.OV.OrderBevestiging.impl.OrderBevestigerSFS.OrderBevestigingMaker).%New()	
-	#dim EDIOB as APPS.OV.dto.EDIOrderBevestiging = EDIOrderBevestigingMaker.MaakEDIOrderBevestigingDTO(OrderID)
-	
-	If $$$AssertTrue($IsObject(EDIOB))
-	{
-		Do $$$AssertEquals(EDIOB.EDIBron,Oorsprong)
-		Do $$$AssertEquals(EDIOB.Munt,"EUR")
-		Do $$$AssertEquals(EDIOB.OrderNummer,"123456")
+	If $$$AssertTrue($IsObject(EDIOrderBevestiging)) {
+		Do $$$AssertEquals(EDIOrderBevestiging.EDIBron, Oorsprong)
+		Do $$$AssertEquals(EDIOrderBevestiging.Munt, "EUR")
+		Do $$$AssertEquals(EDIOrderBevestiging.OrderNummer, "123456")
 		
-		If $$$AssertTrue($IsObject(EDIOB.Orderlijnen.GetAt(1)))
-		{
-			If ProductTypeIsZichtbaar{
-				#dim OrderBevestigingLijn As APPS.OV.dto.EDIOrderBevestigingLijn = EDIOB.Orderlijnen.GetAt(1)
-				Do $$$AssertEquals(OrderBevestigingLijn.ProductType,ProductType)
+		If $$$AssertTrue($IsObject(EDIOrderBevestiging.Orderlijnen.GetAt(1))) {
+			If (ProductTypeIsZichtbaar) {
+				#dim OrderBevestigingLijn As APPS.OV.dto.EDIOrderBevestigingLijn = EDIOrderBevestiging.Orderlijnen.GetAt(1)
+				
+				Do $$$AssertEquals(OrderBevestigingLijn.ProductType, ProductType)
 			}
 		}
 	}
 	
+	#dim ProductTypeTag As %String = "<Product_Type>" _ ProductType _ "</Product_Type>"
 	#dim XMLEDIOrderBevestigingMaker As %String = ""
-	Do EDIOB.XMLExportToString(.XMLEDIOrderBevestigingMaker,,"literal,indent")
-	#dim ProductTypeTag As %String = "<Product_Type>"_ProductType_"</Product_Type>"
-	If ProductTypeIsZichtbaar {
-		Do $$$AssertContains(XMLEDIOrderBevestigingMaker,ProductTypeTag,"ProductType '"_ProductType_"' moet vermeld zijn in dto voor Oorsprong '"_Oorsprong_"'.")	
-	}Else{
-		Do $$$AssertFalse(XMLEDIOrderBevestigingMaker[ProductTypeTag,"ProductType '"_ProductType_"' mag niet zichtbaar zijn in dto voor Oorsprong '"_Oorsprong_"'.")
+	
+	Do EDIOrderBevestiging.XMLExportToString(.XMLEDIOrderBevestigingMaker,, "literal,indent")
+	
+	If (ProductTypeIsZichtbaar) {
+		Do $$$AssertContains(XMLEDIOrderBevestigingMaker, ProductTypeTag, "ProductType '" _ ProductType _ "' moet vermeld zijn in dto voor Oorsprong '" _ Oorsprong _ "'.")	
+	} Else {
+		Do $$$AssertFalse(XMLEDIOrderBevestigingMaker[ProductTypeTag, "ProductType '" _ ProductType _ "' mag niet zichtbaar zijn in dto voor Oorsprong '" _ Oorsprong _ "'.")
 	}
 ]]></Implementation>
 </Method>
@@ -96,12 +118,11 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#dim OrderLevenCyclusService As APPS.VKP.OrderLevenCyclusService = ##class(APPS.VKP.OrderLevenCyclusService).%New()
+	#dim Order As DOM.VKP.Order = OrderLevenCyclusService.MaakOrderMetKlantGegevens(..Klant.GeefID(), ..#OrderID)
 	
-	Set OrderLevenCyclusService = ##class(APPS.VKP.OrderLevenCyclusService).%New()
-	#dim Order As DOM.VKP.Order = OrderLevenCyclusService.MaakOrderMetKlantGegevens(..Klant.GeefID(),..#OrderID)
 	Do Order.ZetOorsprong(Oorsprong)	
-	do OrderLevenCyclusService.VoegToeProductVoorKlant(Order,..Klant.GeefID(),ProductID,1)
-	
+	Do OrderLevenCyclusService.VoegToeProductVoorKlant(Order, ..Klant.GeefID(), ProductID, 1)
 	Do Order.Save()
 	
 	Quit Order.GeefID()
@@ -121,24 +142,6 @@
 <Implementation><![CDATA[	Quit ##class(vhTest.Utils.Producten).GeefWillekeurigProductIDDatStartMet("TB6")
 ]]></Implementation>
 </Method>
-
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-	do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
-	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
-]]></Implementation>
-</Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
-	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(..#OrderID)
-]]></Implementation>
-</Method>
 </Class>