Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r37902 -r38006
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 37902)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 38006)
@@ -38,6 +38,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LijnenIterator">
+<Type>TECH.DynamicIterator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService,ProductConverter:APPS.EDI.common.impl.ProductConverter,OfferteService:APPS.VKP.OfferteService,OrderIngaveService:APPS.VKP.OrderIngaveService,OfferteHoofding:APPS.EC.dto.Hoofding</FormalSpec>
 <Private>1</Private>
@@ -64,18 +69,22 @@
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(Aanvraag.Header.GebruikerID)
 	
 	set ..Aanvraag = Aanvraag
+	set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 	
-	#dim Offerte As APPS.EC.dto.OfferteIDEnWinkelkarID = ..ExterneVerkoopService.MaakOfferte(Aanvraag.Header.KlantID,Aanvraag.Header.PersonalityID)
-	
-	try {
-		do ..ZetHoofding(Offerte.OfferteID,Aanvraag.Order,Aanvraag.Header.PersonalityID)
-		do ..VoegToeLijnen(Offerte.OfferteID,Aanvraag.Order)
-		set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.OfferteID)
-	} catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		do ..ExterneVerkoopService.WisOfferte(Offerte.OfferteID)
-	 	set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
-	 	set Resultaat.Exceptie = Exception
+	Do ..MaakLijnenIterator()
+	If ..LijnenIterator.HasNext() {	
+		#dim Offerte As APPS.EC.dto.OfferteIDEnWinkelkarID = ..ExterneVerkoopService.MaakOfferte(Aanvraag.Header.KlantID,Aanvraag.Header.PersonalityID)
+		
+		try {
+			do ..ZetHoofding(Offerte.OfferteID,Aanvraag.Order,Aanvraag.Header.PersonalityID)
+			do ..VoegToeLijnen(Offerte.OfferteID,Aanvraag.Order)
+			set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(Offerte.OfferteID)
+		} catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			do ..ExterneVerkoopService.WisOfferte(Offerte.OfferteID)
+		 	set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
+		 	set Resultaat.Exceptie = Exception
+		}
 	}
 	quit Resultaat
 ]]></Implementation>
@@ -136,29 +145,19 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Quit:$$$Not($IsObject(Order))
-	
-	Set ValueList = ##class(TECH.KeyValue.List).%New()
-	Do ValueList.InsertKeyValue("Product.Type","LBX")
-	Do ValueList.InsertKeyValue("Product.Type","TAX")
-	Do ValueList.InsertKeyValue("Product.Type","PredefinedProduct")
-	
-	Set Filter = ##class(TECH.Filter.PropertyBasedFilter).%New(ValueList)
-	
-	Set Iterator = ##class(TECH.ListIterator).%New(Order.Lijnen)
-	#dim FilterIterator As TECH.Iterator = ##class(TECH.DynamicIterator).%New(Iterator,,Filter)
 	#dim ProbleemLijnen As %String = ""
 	
-	While FilterIterator.HasNext() {
+	While ..LijnenIterator.HasNext() {
 		Try {
-			#dim ProductLijn As APPS.EDI.common.dto.ProductLijn = FilterIterator.Next()
+			#dim ProductLijn As APPS.EDI.common.dto.ProductLijn = ..LijnenIterator.Next()
 			If ProductLijn.Product.Type = "PredefinedProduct" {
 				Do ..VoegToeProductLijn(OfferteID,ProductLijn)
 			} Else {
 				Do ..VoegToeMaatwerkLijn(OfferteID,ProductLijn)
 			}
 		} Catch {
 			#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			Set ProbleemLijnen = ProbleemLijnen _ " " _ FilterIterator.Key()
+			Set ProbleemLijnen = ProbleemLijnen _ " " _ ..LijnenIterator.Key()
 		}
 		If $$$HasLength(ProbleemLijnen) {			
 			Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige data UNIShopBesteller op lijn(en) "_ProbleemLijnen)
@@ -213,6 +212,22 @@
 	Quit FilterIterator.HasNext()
 ]]></Implementation>
 </Method>
+
+<Method name="MaakLijnenIterator">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ValueList = ##class(TECH.KeyValue.List).%New()
+	Do ValueList.InsertKeyValue("Product.Type","LBX")
+	Do ValueList.InsertKeyValue("Product.Type","TAX")
+	Do ValueList.InsertKeyValue("Product.Type","PredefinedProduct")
+	
+	Set Filter = ##class(TECH.Filter.PropertyBasedFilter).%New(ValueList)
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(..Aanvraag.Order.Lijnen)
+	
+	Set ..LijnenIterator = ##class(TECH.DynamicIterator).%New(Iterator,,Filter)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml
===================================================================
diff -u -r37337 -r38006
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml	(.../UnishopBestellerSpy.cls.xml)	(revision 37337)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBestellerSpy.cls.xml	(.../UnishopBestellerSpy.cls.xml)	(revision 38006)
@@ -22,6 +22,8 @@
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat</ReturnType>
 <Implementation><![CDATA[
 	Set ..UitvoerTijdstip = $zts
+	Set ..Aanvraag = Aanvraag
+	Do ..MaakLijnenIterator()
 	Do ..VoegToeLijnen(1234,Aanvraag.Order)
 	Quit ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New(1234)
 ]]></Implementation>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r37736 -r38006
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 37736)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 38006)
@@ -8,16 +8,30 @@
 <Default>1000</Default>
 </Parameter>
 
-<Method name="Test: Plaatsbestelling indien geen problemen wordt de offerte besteld">
+<Method name="Test: Indien geen problemen wordt de offerte gemaakt">
 <Implementation><![CDATA[
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	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",DummyHoofdingDto).ExactAantalKeer(1)
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID").ExactAantalKeer(0)
+	Set OfferteStub = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.IndienMethodCall("GeefOfferte","OfferteID").DanReturn(OfferteStub)
+	Do OfferteServiceMock.IndienMethodCall("VoegToeProduct").DanDoeNiks()
+	Do OfferteServiceMock.IndienMethodCall("VoegToeMaatwerk",OfferteStub,"","","").DanDoeNiks()
+	Set ProductConverterStub = ##class(vhTest.Mock.APPS.EDI.common.impl.ProductConverter).%New()
+	Do ProductConverterStub.IndienMethodCall("Convert",$$$ElkeWaarde,$$$ElkeWaarde).DanReturn($$$NULLOREF)
 
-	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,,,,DummyHoofdingDto)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(..GeefAanvraag())
+	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 UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,ProductConverterStub,OfferteServiceMock,,DummyHoofdingDto)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(Aanvraag)
+	
 	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)
@@ -30,17 +44,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Indien geen lijnen, wordt er geen offerte gemaakt">
+<Implementation><![CDATA[
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).ExactAantalKeer(0)
+
+	Set UnishopBesteller = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller).%New(ExterneVerkoopServiceMock,,,,)
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = UnishopBesteller.MaakOfferte(..GeefAanvraag())
+	
+	Do $$$AssertEquals(Resultaat.OfferteID,"")
+	Do $$$AssertEquals(Resultaat.Exceptie,"")
+	
+	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 DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	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",DummyHoofdingDto).ExactAantalKeer(1)
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 		
+	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 FalendeBestelService = ##class(vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.FalendeBestelService).%New(ExterneVerkoopServiceMock,,,,DummyHoofdingDto)
-	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = FalendeBestelService.MaakOfferte(..GeefAanvraag())
+	#dim Resultaat As APPS.EDI.Bestel.BestelService.UnishopBesteller.PlaatsBestelling.Resultaat = FalendeBestelService.MaakOfferte(Aanvraag)
 	
 	Do $$$AssertEquals(Resultaat.OfferteID,"")
 	Do $$$AssertNotEquals(Resultaat.Exceptie,"")
@@ -56,8 +90,13 @@
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("BestelOfferte","OfferteID",..#KlantID,..#PersonalityID).ExactAantalKeer(0)
 	Do ExterneVerkoopServiceMock.VerwachtMethodCall("WisOfferte","OfferteID")
 	
+	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 = "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)
 	
@@ -156,12 +195,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Indien 1 TBX in Aanvraag: 0x VoegToeMaatwerk oproepen">
+<Method name="Test: Indien 1 TBX in Aanvraag: 0x VoegToeMaatwerk oproepen, 0x de functies van de ExterneVerkoopService oproepen">
 <Implementation><![CDATA[
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	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",DummyHoofdingDto).ExactAantalKeer(1)
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).ExactAantalKeer(0)
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(0)
 	
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)
@@ -183,12 +222,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Indien 2 TBX in Aanvraag: 0x VoegToeMaatwerk oproepen">
+<Method name="Test: Indien 2 TBX in Aanvraag: 0x VoegToeMaatwerk oproepen, 0x de functies van de ExterneVerkoopService oproepen">
 <Implementation><![CDATA[
 	Set DummyHoofdingDto = ##class(APPS.EC.dto.Hoofding).%New()
 	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",DummyHoofdingDto).ExactAantalKeer(1)
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("MaakOfferte",..#KlantID,..#PersonalityID).ExactAantalKeer(0)
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","OfferteID",DummyHoofdingDto).ExactAantalKeer(0)
 
 	Set Orderlijnen = ##class(%ListOfDataTypes).%New()
 	Do ..VoegToeLade("TBX", Orderlijnen)