Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r37473 -r37474
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 37473)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 37474)
@@ -10,68 +10,68 @@
 
 <Method name="Test: Plaatsbestelling indien geen problemen wordt de offerte besteld">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 
-	set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock)
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(..GeefAanvraag())
 	
-	if ($IsObject(Resultaat.Exceptie)) {
+	If ($IsObject(Resultaat.Exceptie)) {
 		// Enkel bedoeld om gemakkelijker te kunnen debuggen indien een fout opgetreden. Anders weet je niks van de exceptie. 
 		Do ##class(TECH.ExceptionHandler).Throw(Resultaat.Exceptie)
 	}
 	
-	do $$$AssertEquals(Resultaat.OfferteID,"OfferteID")
-	do $$$AssertEquals(Resultaat.Exceptie,"")
+	Do $$$AssertEquals(Resultaat.OfferteID,"OfferteID")
+	Do $$$AssertEquals(Resultaat.Exceptie,"")
 	
-	do ExterneVerkoopServiceMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Indien er een probleem is bij de verwerking wordt verwijder offerte opgeroepen en bevat het resultaat een exceptie, natuurlijk wordt de offerte dan niet besteld">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID).ExactAantalKeer(0)
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID).ExactAantalKeer(0)
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 		
-	set FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock)
+	Set FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = FalendeBestelService.MaakOfferte(..GeefAanvraag())
 	
-	do $$$AssertEquals(Resultaat.OfferteID,"")
-	do $$$AssertNotEquals(Resultaat.Exceptie,"")
+	Do $$$AssertEquals(Resultaat.OfferteID,"")
+	Do $$$AssertNotEquals(Resultaat.Exceptie,"")
 	
-	do ExterneVerkoopServiceMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Bij ongeldige Leverdatum wordt verwijder offerte opgeroepen en bevat het resultaat een exceptie, natuurlijk wordt de offerte dan niet besteld">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID).ExactAantalKeer(0)
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID).ExactAantalKeer(0)
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
-	set Aanvraag.Order.GevraagdeLeverdatum = "UT_Ongeldig"
-	set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock)
+	Set Aanvraag.Order.GevraagdeLeverdatum = "UT_Ongeldig"
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock)
 	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
 	
-	if $$$AssertTrue($IsObject(Resultaat.Exceptie)) {
-		do $$$AssertEquals(Resultaat.Exceptie.GeefOmschrijving() ,"RequestedDeliveryDate not valid. 'UT_Ongeldig'")
+	If $$$AssertTrue($IsObject(Resultaat.Exceptie)) {
+		Do $$$AssertEquals(Resultaat.Exceptie.GeefOmschrijving() ,"RequestedDeliveryDate not valid. 'UT_Ongeldig'")
 	}
 	
-	do ExterneVerkoopServiceMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Indien 1 LBX in Aanvraag: 1x VoegToeMaatwerk oproepen">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("LBX", Orderlijnen)
@@ -94,18 +94,18 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Bij lege Leverdatum wordt loopt alles normaal">
+<Method name="Test: Bij lege Leverdatum loopt alles normaal, geen errors">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("LBX", Orderlijnen)
 	
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ..GeefAanvraag()
 	Set Aanvraag.Order.Lijnen = Orderlijnen
-	set Aanvraag.Order.GevraagdeLeverdatum = ""
+	Set Aanvraag.Order.GevraagdeLeverdatum = ""
 	
 	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.impl.ProductConverter).%New()
 	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
@@ -124,9 +124,9 @@
 
 <Method name="Test: Indien 1 LBX en 1 TAX in Aanvraag: 2x VoegToeMaatwerk oproepen">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("LBX", Orderlijnen)
@@ -152,9 +152,9 @@
 
 <Method name="Test: Indien 1 TBX in Aanvraag: 0x VoegToeMaatwerk oproepen">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)
@@ -178,9 +178,9 @@
 
 <Method name="Test: Indien 2 TBX in Aanvraag: 0x VoegToeMaatwerk oproepen">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)
@@ -205,9 +205,9 @@
 
 <Method name="Test: Indien 2 TBX en 1 LBX  in Aanvraag: 1x VoegToeMaatwerk oproepen">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)
@@ -234,9 +234,9 @@
 
 <Method name="Test: Indien 2 TBX en 2 LBX en 1 TAX in Aanvraag: 3x VoegToeMaatwerk oproepen">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)
@@ -364,10 +364,10 @@
 
 <Method name="Test: 2 LBX lijnen met fouten">
 <Implementation><![CDATA[
-	set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
-	do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).DanReturn(##class(APPS.EC.dto.OfferteIDEnWinkelkarID).%New("OfferteID","WinkelkarID"))
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",$$$ElkeWaarde).ExactAantalKeer(1)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)
@@ -383,7 +383,7 @@
 	
 	Do $$$AssertEquals(Resultaat.Exceptie.GeefOmschrijving(),"Ongeldige data UNIShopBesteller op lijn(en)  2 3")
 	
-	do ExterneVerkoopServiceMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -472,10 +472,10 @@
 <Private>1</Private>
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
 <Implementation><![CDATA[
-	set Aanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	set Aanvraag.Header.KlantID = ..#KlantID
-	set Aanvraag.Header.PersonalityID = ..#PersonalityID
-	set Aanvraag.Order.GevraagdeLeverdatum = "2011.01.01"
+	Set Aanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
+	Set Aanvraag.Header.KlantID = ..#KlantID
+	Set Aanvraag.Header.PersonalityID = ..#PersonalityID
+	Set Aanvraag.Order.GevraagdeLeverdatum = "2011.01.01"
 	quit Aanvraag
 ]]></Implementation>
 </Method>