Index: BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/LijnReferentieBepaler.cls.xml
===================================================================
diff -u
--- BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/LijnReferentieBepaler.cls.xml	(revision 0)
+++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/LijnReferentieBepaler.cls.xml	(revision 57535)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.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 = ""
+	}
+	Quit $$$If(ProductInOrder,OrderLijn.GeefProjectReferentie(),"")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/LijnReferentieBepaler/ZoekLijnReferentie/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/LijnReferentieBepaler/ZoekLijnReferentie/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler/LijnReferentieBepaler/ZoekLijnReferentie/Test.cls.xml	(revision 57535)
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler.ZoekLijnReferentie.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: standaardgedrag: order met 1 orderlijn met juiste product">
+<Implementation><![CDATA[
+	#dim ToeleveringId = 298104
+	
+	Set OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	Do OrderApiMock.VerwachtMethodCall("GeefOrder",OrderMock.GeefID()).DanReturn(OrderMock)
+	
+	Set OrderLijnen = ##class(%ListOfObjects).%New()
+	#dim StandaardProductLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(OrderMock)
+	Do StandaardProductLijn.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
+	Do OrderLijnen.Insert(StandaardProductLijn)
+	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(OrderLijnen))
+	
+	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	
+	#dim ToeleveringLijnStub = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
+	Do ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
+	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijnStub))
+	Do ToeleveringApiMock.VerwachtMethodCall("GeefToelevering",ToeleveringId).DanReturn(ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.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[
+	#dim ToeleveringId = 298104
+	
+	Set OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	Do OrderApiMock.VerwachtMethodCall("GeefOrder",OrderMock.GeefID()).DanReturn(OrderMock)
+	
+	Set OrderLijnen = ##class(%ListOfObjects).%New()
+	#dim StandaardProductLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(OrderMock)
+	Do StandaardProductLijn.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
+	Do OrderLijnen.Insert(StandaardProductLijn)
+	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(OrderLijnen))
+	
+	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	
+	#dim ToeleveringLijnStub = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
+	Do ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
+	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijnStub))
+	Do ToeleveringApiMock.VerwachtMethodCall("GeefToelevering",ToeleveringId).DanReturn(ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.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[
+	#dim ToeleveringId = 298104
+	
+	Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	w !,"orderid = "_OrderMock.GeefID()
+	Do OrderApiStub.IndienMethodCall("GeefOrder",OrderMock.GeefID()).DanException($$$DummyException)
+	
+	Set OrderLijnen = ##class(%ListOfObjects).%New()
+	#dim StandaardProductLijn As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(OrderMock)
+	Do StandaardProductLijn.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
+	Do OrderLijnen.Insert(StandaardProductLijn)
+	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(OrderLijnen))
+	
+	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	
+	#dim ToeleveringLijnStub = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
+	Do ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
+	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijnStub))
+	Do ToeleveringApiMock.IndienMethodCall("GeefToelevering",ToeleveringId).DanReturn(ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.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[
+	w !,"start"
+	#dim ToeleveringId = 298104
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder()
+	
+	Set OrderLijnen = ##class(%ListOfObjects).%New()
+	
+	#dim StandaardProductLijn1 As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(OrderMock)
+	Do StandaardProductLijn1.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenSkoonReferentie")
+	Do StandaardProductLijn1.IndienMethodCall("GeefProductID").DanReturn(1000)
+	Do OrderLijnen.Insert(StandaardProductLijn1)
+	
+	#dim StandaardProductLijn2 As vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn = ##class(vhTest.Utils.DOM.VKP.ProductOrderlijn).StandaardProductLijn(OrderMock)
+	Do StandaardProductLijn2.IndienMethodCall("GeefProjectReferentie",).DanReturn("EenAndereSkoonReferentie")
+	Do StandaardProductLijn2.IndienMethodCall("GeefProductID").DanReturn(1001)
+	Do OrderLijnen.Insert(StandaardProductLijn2)
+	
+	Do OrderMock.IndienMethodCall("GeefOrderLijnIterator").DanReturn(##class(TECH.ListIterator).%New(OrderLijnen))
+	
+	Set OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiMock.VerwachtMethodCall("GeefOrder",OrderMock.GeefID()).DanReturn(OrderMock)
+	
+	#dim ToeleveringApiMock As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	
+	#dim ToeleveringLijnStub1 = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
+	#dim ToeleveringLijnStub2 = ##class(vhTest.Utils.DOM.AKP.ToeleveringLijn).ToeleveringLijnMetKomLink()
+	Do ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn(100000)
+	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijnStub1, ToeleveringLijnStub2))
+	Do ToeleveringApiMock.IndienMethodCall("GeefToelevering",ToeleveringId).DanReturn(ToeleveringStub)
+	Set LijnReferentieBepaler = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.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/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml
===================================================================
diff -u -r57032 -r57535
--- BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml	(.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml)	(revision 57032)
+++ BL/PPS/TBX/DocsV1/HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml	(.../HtmlInhoudProboxOverdoosEtiketBepaler.cls.xml)	(revision 57535)
@@ -91,7 +91,7 @@
 	Set Resultaat = Resultaat_"<td align=""right"">"_IngegevenKenmerken.CorpusWandDikte_"</td>"
 	Set Resultaat = Resultaat_"<td>"_IngegevenKenmerken.LadeKleur_"</td>"
 	Set Resultaat = Resultaat_"<td align=""right"">"_$P(Bufferlijn,"\",5)_"</td>"
-	Set Resultaat = Resultaat_"<td>"_""_"</td>"  //de lijnreferentie zou opgehaald kunnen worden indien in de buffer naast de toelevering, ook de toeleveringlijn zou staan
+	Set Resultaat = Resultaat_"<td>"_##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler.LijnReferentieBepaler).ZoekLijnReferentie($P(Bufferlijn,"\",8),Product.GeefID())_"</td>"
 	Set Resultaat = Resultaat_"</tr>"
 	
 	Quit Resultaat