Index: vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler/LijnReferentieBepaler/ZoekLijnReferentie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler/LijnReferentieBepaler/ZoekLijnReferentie/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler/LijnReferentieBepaler/ZoekLijnReferentie/Test.cls.xml	(revision 63577)
@@ -0,0 +1,130 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler.ZoekLijnReferentie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ToeleveringId">
+<Type>%String</Type>
+<Default>298104</Default>
+</Parameter>
+
+<Property name="OrderApiMock">
+<Type>DOM.VKP.OrderAPI</Type>
+</Property>
+
+<Property name="OrderStub">
+<Type>DOM.VKP.Order</Type>
+</Property>
+
+<Property name="StandaardProductlijn">
+<Type>DOM.VKP.impl.DataM.DataMProductOrderlijn</Type>
+</Property>
+
+<Property name="OrderLijnen">
+<Type>%ListOfObjects</Type>
+</Property>
+
+<Property name="ToeleveringApiMock">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+</Property>
+
+<Property name="ToeleveringStub">
+<Type>DOM.AKP.Toelevering</Type>
+</Property>
+
+<Property name="ToeleveringLijnStub">
+<Type>DOM.AKP.ToeleveringLijn</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Set ..OrderStub = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	Do ..OrderStub.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(..OrderLijnen))
+	Set ..StandaardProductlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(..OrderStub)
+	Do ..StandaardProductlijn.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
+	Set ..OrderLijnen = ##class(%ListOfObjects).%New()
+	Do ..OrderLijnen.Insert(..StandaardProductlijn)
+	Set ..ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()	
+	Set ..ToeleveringStub = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Set ..ToeleveringLijnStub = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
+	Do ..ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
+	Do ..ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(..ToeleveringLijnStub))
+]]></Implementation>
+</Method>
+
+<Method name="aaaaTest: standaardgedrag: order met 1 orderlijn met juiste product">
+<Implementation><![CDATA[
+	Do ..OrderApiMock.VerwachtMethodCall("GeefOrder",..OrderStub.GeefID()).DanReturn(..OrderStub)
+	
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler).%New(..ToeleveringApiMock,..OrderApiMock)
+	#dim Referentie As %String = LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,1000)
+	
+	Do $$$AssertEquals(Referentie,"EenSkoonReferentie")
+	
+	Do ..OrderApiMock.Verifieer()
+	Do ..ToeleveringApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: onbekend product -&gt; leeg result">
+<Implementation><![CDATA[
+	Do ..OrderApiMock.VerwachtMethodCall("GeefOrder",..OrderStub.GeefID()).DanReturn(..OrderStub)
+	
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler).%New(..ToeleveringApiMock,..OrderApiMock)
+	
+	#dim Referentie As %String = LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,999)
+	
+	Do $$$AssertEquals(Referentie,"")
+	
+	Do ..OrderApiMock.Verifieer()
+	Do ..ToeleveringApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: order bestaat niet -&gt; leeg result">
+<Implementation><![CDATA[
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	Do OrderApiStub.IndienMethodCall("GeefOrder",OrderMock.GeefID()).DanException($$$DummyException)
+	
+	Do ..ToeleveringApiMock.IndienMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler).%New(..ToeleveringApiMock,OrderApiStub)
+	
+	#dim Referentie As %String = LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,999)
+	
+	Do $$$AssertEquals(Referentie,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: meerdere toeleveringlijnen -&gt; lijn met juist product gebruiken">
+<Implementation><![CDATA[
+	#dim StandaardProductLijn2 As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(..OrderStub)
+	Do StandaardProductLijn2.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenAndereSkoonReferentie")
+	Do StandaardProductLijn2.IndienMethodCall("GeefProductID").DanReturn(1001)
+	Do ..OrderLijnen.Insert(StandaardProductLijn2)
+	
+	Do ..OrderStub.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(..OrderLijnen))
+	
+	Do ..OrderApiMock.VerwachtMethodCall("GeefOrder",..OrderStub.GeefID()).DanReturn(..OrderStub)
+	
+	#dim ToeleveringLijnStub2 = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
+	Do ..ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(..ToeleveringLijnStub, ToeleveringLijnStub2))
+	Do ..ToeleveringApiMock.IndienMethodCall("GeefToelevering",..#ToeleveringId).DanReturn(..ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler).%New(..ToeleveringApiMock,..OrderApiMock)
+	
+	Do $$$AssertEquals(LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,1000),"EenSkoonReferentie")
+	Do $$$AssertEquals(LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,1001),"EenAndereSkoonReferentie")
+	Do $$$AssertEquals(LijnReferentieBepaler.ZoekLijnReferentie(..#ToeleveringId,1002),"")
+	
+	Do ..OrderApiMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler/LijnReferentieBepaler.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler/LijnReferentieBepaler.cls.xml	(revision 0)
+++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler/LijnReferentieBepaler.cls.xml	(revision 63577)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="ToeleveringApi">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI,OrderApi:DOM.VKP.OrderAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ToeleveringApi = $$$Inject(ToeleveringApi, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZoekLijnReferentie">
+<FormalSpec>ToeleveringID:%String,ProductId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Try {
+		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
+		#dim ToeleveringLijnIterator As TECH.Iterator = Toelevering.GeefToeleveringLijnIterator()
+		#dim ToeleveringLijn As DOM.AKP.ToeleveringLijn
+		#dim Order As DOM.VKP.Order
+		#dim OrderLijn As DOM.VKP.ProductOrderlijn
+		#dim OrderLijnIterator As TECH.Iterator
+		#dim ProductInOrder As %Boolean = $$$False
+		While ToeleveringLijnIterator.HasNext() {
+			Set ToeleveringLijn = ToeleveringLijnIterator.Next()
+			Set Order = ..OrderApi.GeefOrder(Toelevering.GeefOrderID())
+			Set OrderLijnIterator = Order.GeefOrderLijnIterator()
+			While ((OrderLijnIterator.HasNext()) && ($$$Not(ProductInOrder))) {
+				Set OrderLijn = OrderLijnIterator.Next()
+				If OrderLijn.GeefID()=ToeleveringLijn.GeefOrderLijnID() {
+					Set:(OrderLijn.GeefProductID()=ProductId) ProductInOrder=$$$True
+				}
+			}
+			
+			Quit:ProductInOrder
+		}
+		
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New().Warning("LijnReferentieBepaler","De referentie voor product '"_ProductId_"' op toelevering '"_ToeleveringID_"' kon niet bepaald worden")
+		Set ProductInOrder = $$$False
+	}
+	Quit $$$If(ProductInOrder,OrderLijn.GeefProjectReferentie(),"")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml
===================================================================
diff -u -r63092 -r63577
--- BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml	(.../HtmlInhoudProboxEtiketBepaler.cls.xml)	(revision 63092)
+++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxEtiketBepaler.cls.xml	(.../HtmlInhoudProboxEtiketBepaler.cls.xml)	(revision 63577)
@@ -14,7 +14,7 @@
 </Property>
 
 <Property name="LijnReferentieBepaler">
-<Type>BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler</Type>
+<Type>BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -27,7 +27,7 @@
 <Implementation><![CDATA[
 	Set ..ProductApi = $$$Inject(ProductApi,##class(DOM.PM.impl.ProductAPI).%New())
 	Set ..ConfiguratorService = $$$Inject(ConfiguratorService,##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New())
-	Set ..LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).%New()
+	Set ..LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler.LijnReferentieBepaler).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>