Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductIdBepaler.cls.xml
===================================================================
diff -u
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductIdBepaler.cls.xml	(revision 0)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductIdBepaler.cls.xml	(revision 54164)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductIdBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductRepository">
+<Type>APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI,ProductRepository:APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..ProductRepository = $$$Inject(ProductRepository, ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalProductId">
+<FormalSpec>KlantNummer:%String,Product:APPS.EDI.common.dto.Product</FormalSpec>
+<Implementation><![CDATA[
+	#dim ProductID As %String = ""
+	#dim PakketReferentie As %String = ""
+	
+	If $$$HasLength(Product.Korttekst) {
+		Set ProductID = ..ProductApi.GeefProductVolgensKorttekst(Product.Korttekst).GeefID()
+	}
+	
+	If ProductID = "" {
+		Set ProductID = ..ProductRepository.ZoekViaKlantEnPakketReferentie(KlantNummer,Product.PakketReferentie	)
+	}
+	
+	Quit ProductID
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml
===================================================================
diff -u -r53230 -r54164
--- APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 53230)
+++ APPS/EDI/Bestel/impl/BestelService/UnishopBesteller.cls.xml	(.../UnishopBesteller.cls.xml)	(revision 54164)
@@ -23,11 +23,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductRepository">
-<Type>APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="OrderIngaveService">
 <Type>APPS.VKP.OrderIngaveService</Type>
 <Private>1</Private>
@@ -69,7 +64,7 @@
 </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,ProductValidator:APPS.EDI.common.impl.ProductValidator,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository</FormalSpec>
+<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,ProductValidator:APPS.EDI.common.impl.ProductValidator,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository,ProductRepository:APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository,ProductApi:DOM.PM.ProductAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -78,7 +73,6 @@
 	Set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService,##class(APPS.EC.Verkoop.impl.Edi.VerkoopService).%New())
 	Set ..ProductConverter = $$$Inject(ProductConverter,##class(APPS.EDI.common.impl.ProductConverter).%New())
 	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
-	Set ..ProductRepository = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
 	Set ..OrderIngaveService = $$$Inject(OrderIngaveService,##class(APPS.VKP.OrderIngaveService).%New())
 	Set ..OfferteHoofding = $$$Inject(OfferteHoofding,##class(APPS.EC.dto.Hoofding).%New())
 	Set ..ProductValidator = $$$Inject(ProductValidator,##class(APPS.EDI.common.impl.ProductValidator).%New())
@@ -218,10 +212,10 @@
 <FormalSpec>Offerte:APPS.VKP.Offerte,Lijn:APPS.EDI.common.dto.ProductLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim PakketReferentie As %String = Lijn.Product.PakketReferentie	
-	#dim ProductID As %String = ..ProductRepository.ZoekViaKlantEnPakketReferentie(##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Offerte.GeefKlantID()),PakketReferentie)
+	#dim ProductID As %String
+	Set ProductID = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductIdBepaler).%New().BepaalProductId(##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Offerte.GeefKlantID()), Lijn.Product)
 	
-	Do ..OfferteService.VoegToeProduct(Offerte, ProductID, Lijn.Aantal, PakketReferentie, Lijn.Referentie)
+	Do ..OfferteService.VoegToeProduct(Offerte, ProductID, Lijn.Aantal, Lijn.Product.PakketReferentie, Lijn.Referentie)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductIdBepaler/BepaalProductId/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductIdBepaler/BepaalProductId/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/ProductIdBepaler/BepaalProductId/Test.cls.xml	(revision 54164)
@@ -0,0 +1,134 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductIdBepaler.BepaalProductId.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KlantNummer">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Parameter name="DummyPakketReferentie">
+<Type>%String</Type>
+<Default>DummyPakketReferentie</Default>
+</Parameter>
+
+<Parameter name="DummyKorttekst">
+<Type>%String</Type>
+<Default>DummyKorttekst</Default>
+</Parameter>
+
+<Parameter name="ProductID">
+<Type>%String</Type>
+<Default>UT_ProductId</Default>
+</Parameter>
+
+<Method name="Test: Voorgedefinieerd product met PakketReferentie ingevuld">
+<Implementation><![CDATA[
+	Set ProductRepositoryMock = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
+	Do ProductRepositoryMock.VerwachtMethodCall("ZoekViaKlantEnPakketReferentie",..#KlantNummer,..#DummyPakketReferentie).ExactAantalKeer(1).DanReturn(..#ProductID)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProductVolgensKorttekst",$$$ElkeWaarde).Nooit()
+	
+	Set VoorgedefinieerdProduct = ##class(APPS.EDI.common.dto.v001.VoorgedefinieerdProduct).%New()
+	Set VoorgedefinieerdProduct.PakketReferentie = ..#DummyPakketReferentie
+	
+	Set ProductIdBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductIdBepaler).%New(ProductApiMock,ProductRepositoryMock)
+	#dim Resultaat As %String = ProductIdBepaler.BepaalProductId(..#KlantNummer, VoorgedefinieerdProduct)
+	
+	Do ProductApiMock.Verifieer()
+	Do ProductRepositoryMock.Verifieer()
+	
+	Do $$$AssertEquals(Resultaat, ..#ProductID)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voorgedefinieerd product met Korttekst ingevuld">
+<Implementation><![CDATA[
+	Set ProductRepositoryMock = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
+	Do ProductRepositoryMock.VerwachtMethodCall("ZoekViaKlantEnPakketReferentie",$$$ElkeWaarde,$$$ElkeWaarde).Nooit()
+	
+	Set DummyProduct = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do DummyProduct.IndienMethodCall("GeefID").DanReturn(..#ProductID)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProductVolgensKorttekst",..#DummyKorttekst).DanReturn(DummyProduct)
+	
+	Set VoorgedefinieerdProduct = ##class(APPS.EDI.common.dto.v001.VoorgedefinieerdProduct).%New()
+	Set VoorgedefinieerdProduct.Korttekst = ..#DummyKorttekst
+	
+	Set ProductIdBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductIdBepaler).%New(ProductApiMock,ProductRepositoryMock)
+	#dim Resultaat As %String = ProductIdBepaler.BepaalProductId(..#KlantNummer, VoorgedefinieerdProduct)
+	
+	Do ProductApiMock.Verifieer()
+	Do ProductRepositoryMock.Verifieer()
+	
+	Do $$$AssertEquals(Resultaat, ..#ProductID)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voorgedefinieerd product met Korttekst en PakketReferentie ingevuld">
+<Implementation><![CDATA[
+	Set ProductRepositoryMock = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
+	Do ProductRepositoryMock.VerwachtMethodCall("ZoekViaKlantEnPakketReferentie",$$$ElkeWaarde,$$$ElkeWaarde).Nooit()
+	
+	Set DummyProduct = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do DummyProduct.IndienMethodCall("GeefID").DanReturn(..#ProductID)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProductVolgensKorttekst",..#DummyKorttekst).DanReturn(DummyProduct)
+	
+	Set VoorgedefinieerdProduct = ##class(APPS.EDI.common.dto.v001.VoorgedefinieerdProduct).%New()
+	Set VoorgedefinieerdProduct.PakketReferentie = ..#DummyPakketReferentie
+	Set VoorgedefinieerdProduct.Korttekst = ..#DummyKorttekst
+	
+	Set ProductIdBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductIdBepaler).%New(ProductApiMock,ProductRepositoryMock)
+	#dim Resultaat As %String = ProductIdBepaler.BepaalProductId(..#KlantNummer, VoorgedefinieerdProduct)
+	
+	Do ProductApiMock.Verifieer()
+	Do ProductRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voorgedefinieerd product met onbekende Korttekst ingevuld -&gt; exception">
+<Implementation><![CDATA[
+	Set ProductRepositoryMock = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
+	Do ProductRepositoryMock.VerwachtMethodCall("ZoekViaKlantEnPakketReferentie",..#KlantNummer,..#DummyPakketReferentie).Nooit()
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.IndienMethodCall("GeefProductVolgensKorttekst",$$$ElkeWaarde).DanException($$$DummyException)
+	
+	Set VoorgedefinieerdProduct = ##class(APPS.EDI.common.dto.v001.VoorgedefinieerdProduct).%New()
+	Set VoorgedefinieerdProduct.Korttekst = ..#DummyKorttekst
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyException")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+
+	Set ProductIdBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductIdBepaler).%New(ProductApiMock,ProductRepositoryMock)
+	#dim Resultaat As %String = ProductIdBepaler.BepaalProductId(..#KlantNummer, VoorgedefinieerdProduct)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voorgedefinieerd product met onbekende PakketReferentie ingevuld">
+<Implementation><![CDATA[
+	Set ProductRepositoryMock = ##class(vhTest.Mock.APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductRepository).%New()
+	Do ProductRepositoryMock.IndienMethodCall("ZoekViaKlantEnPakketReferentie",..#KlantNummer,..#DummyPakketReferentie).DanException($$$DummyException)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProductVolgensKorttekst",$$$ElkeWaarde).Nooit()
+	
+	Set VoorgedefinieerdProduct = ##class(APPS.EDI.common.dto.v001.VoorgedefinieerdProduct).%New()
+	Set VoorgedefinieerdProduct.PakketReferentie = ..#DummyPakketReferentie
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyException")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+
+	Set ProductIdBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.UnishopBesteller.ProductIdBepaler).%New(ProductApiMock,ProductRepositoryMock)
+	#dim Resultaat As %String = ProductIdBepaler.BepaalProductId(..#KlantNummer, VoorgedefinieerdProduct)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>