Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r36971 -r37088
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 36971)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 37088)
@@ -74,7 +74,7 @@
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -101,8 +101,8 @@
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TAX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
+	Do ..VoegToeLade("TAX", Orderlijnen)
 
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -129,7 +129,7 @@
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -155,8 +155,8 @@
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -182,9 +182,9 @@
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen	
@@ -211,11 +211,11 @@
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TAX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
+	Do ..VoegToeLade("TAX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -238,9 +238,9 @@
 <Method name="Test: 1 LBX en 1 TBX en 1 TAX lijn">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TAX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
+	Do ..VoegToeLade("TAX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -268,7 +268,7 @@
 <Method name="Test: 1 LBX lijn">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -282,8 +282,8 @@
 <Method name="Test: 2 LBX lijnen">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -298,8 +298,8 @@
 <Method name="Test: 1 LBX en 1 TAX lijn">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TAX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
+	Do ..VoegToeLade("TAX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -314,9 +314,9 @@
 <Method name="Test: 3 TBX lijnen">
 <Implementation><![CDATA[
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
@@ -336,13 +336,12 @@
 	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
-	Do ..VoegLadeTypeToe("TBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
-	Do ..VoegLadeTypeToe("LBX", Orderlijnen)
+	Do ..VoegToeLade("TBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
+	Do ..VoegToeLade("LBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
-	
 
 	Set WebOrder = ##class(WS.TBX.Order).%New()
 	#dim UnishopBesteller As APPS.EDI.Bestel.impl.BestelService.UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock)
@@ -354,7 +353,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegLadeTypeToe">
+<Method name="VoegToeLade">
 <FormalSpec><![CDATA[LadeType:%String,&OrderLijnen:%ListOfDataTypes]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[