Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml
===================================================================
diff -u -r71913 -r71915
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml	(.../OrderOptiesGenerator.cls.xml)	(revision 71913)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml	(.../OrderOptiesGenerator.cls.xml)	(revision 71915)
@@ -34,10 +34,33 @@
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Orderreferentie", DocumentReferenties.OrderReferentie))
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Commissiereferentie", DocumentReferenties.CommissieReferentie))
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Klantordernummer", DocumentReferenties.KlantOrderNummer))
+	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Orderlijnreferentie", ..GeefOrderLijnReferentie(Order, UitvoeringInfo.ProductID)))
 	
 	Quit Opties
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOrderLijnReferentie">
+<FormalSpec>Order:DOM.VKP.Order,ProductId:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OrderlijnReferentie As %String = ""
+	#dim OrderLijnIterator As TECH.Iterator =  Order.GeefOrderLijnIterator()
+	#dim IsGevonden As %Boolean = $$$False
+	
+	While (OrderLijnIterator.HasNext() && $$$Not(IsGevonden)) {
+		#dim OrderLijn As DOM.VKP.impl.DataM.DataMProductOrderlijn = OrderLijnIterator.Next()
+		
+		If OrderLijn.GeefProductID() = ProductId {
+			Set OrderlijnReferentie = OrderLijn.GeefProjectReferentie()
+			Set IsGevonden = $$$True
+		}
+	}
+	
+	Quit OrderlijnReferentie
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r71913 -r71915
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71913)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71915)
@@ -3,45 +3,162 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator.GenereerOptiesVoorLade.Test">
 <Super>vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.Base</Super>
 
+<Parameter name="OrderId">
+<Type>%String</Type>
+<Default>111111</Default>
+</Parameter>
+
+<Parameter name="SequentieNummerLade">
+<Type>%Integer</Type>
+<Default>2</Default>
+</Parameter>
+
+<Property name="ToeleveringMock">
+<Type>vhTest.Mock.DOM.AKP.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	Do ##super(aTestCase)
+ 	Set ..ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Do ..ToeleveringMock.IndienMethodCall("GeefOrderID").DanReturn(..#OrderId)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Standaard gedrag">
 <Implementation><![CDATA[
 	#dim AxSalesId As %String = "VO123456"
 	#dim OrderReferentie As %String = "OrderReferentie"
 	#dim CommissieReferentie As %String = "CommissieReferentie"
 	#dim KlantOrderNummer As %String = "KlantOrderNummer"
-	#dim SequentieNummerLade As %Integer = 2
 	#dim OrderId As %String = "111111"
+	#dim ProductId1 As %String = "222222"
+	#dim ProductId2 As %String = "333333"
+	#dim OrderLijnReferentie1 As %String = "OrderLijnReferentie1"
+	#dim OrderLijnReferentie2 As %String = "OrderLijnReferentie2"
 	
-	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo(SequentieNummerLade,"","")
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo(..#SequentieNummerLade, "", ProductId2)	
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = ..GeefDocumentReferenties(OrderReferentie, CommissieReferentie, KlantOrderNummer)
 	
-	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	Do ToeleveringMock.VerwachtMethodCall("GeefOrderID").DanReturn(OrderId)
+	#dim ProductOrderLijn1 = ..GeefProductOrderLijn(ProductId1, OrderLijnReferentie1)
+	#dim ProductOrderLijn2 = ..GeefProductOrderLijn(ProductId2, OrderLijnReferentie2)
+	#dim OrderLijnIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(ProductOrderLijn1, ProductOrderLijn2)
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrderMock(OrderLijnIterator, DocumentReferenties, AxSalesId)
+	#dim OrderApiMock As vhTest.Mock.DOM.VKP.OrderAPI = ..GeefOrderApiMock(OrderMock, ..#OrderId)
 	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(..ToeleveringMock, UitvoeringInfo)
+	
+	Do $$$AssertEquals(Resultaat.Size, 5)	
+	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Verkoopordernummer", AxSalesId)
+	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Orderreferentie", OrderReferentie)
+	Do ..AssertOptie(Resultaat.GetAt(3), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Commissiereferentie", CommissieReferentie)
+	Do ..AssertOptie(Resultaat.GetAt(4), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Klantordernummer", KlantOrderNummer)
+	Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Orderlijnreferentie", OrderLijnReferentie2)
+	
+	Do OrderMock.Verifieer()
+	Do OrderApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien er geen productorderlijn gevonden wordt, is de orderlijnreferentie leeg">
+<Implementation><![CDATA[
+	#dim OrderId As %String = "111111"
+	#dim ProductId As %String = "222222"
+	
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo(..#SequentieNummerLade, "", ProductId)	
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = ..GeefDocumentReferenties()
+	#dim LegeOrderLijnIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects()
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrderMock(LegeOrderLijnIterator, DocumentReferenties)
+	#dim OrderApiMock As vhTest.Mock.DOM.VKP.OrderAPI = ..GeefOrderApiMock(OrderMock, ..#OrderId)
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(..ToeleveringMock, UitvoeringInfo)
+	
+	Do $$$AssertEquals(Resultaat.Size, 5)
+	Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Orderlijnreferentie", "null")
+	
+	Do OrderMock.Verifieer()
+	Do OrderApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien er meerdere productorderlijnen zijn maar zonder overeenkomstige productId, is de orderlijnreferentie leeg">
+<Implementation><![CDATA[
+	#dim OrderId As %String = "111111"
+	#dim ProductId As %String = "222222"
+	
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo(..#SequentieNummerLade, "", ProductId)	
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = ..GeefDocumentReferenties()	
+	#dim ProductOrderLijn = ..GeefProductOrderLijn(ProductId)
+	#dim OrderLijnIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(ProductOrderLijn)
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ..GeefOrderMock(OrderLijnIterator, DocumentReferenties)
+	#dim OrderApiMock As vhTest.Mock.DOM.VKP.OrderAPI = ..GeefOrderApiMock(OrderMock, ..#OrderId)
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(..ToeleveringMock, UitvoeringInfo)
+	
+	Do $$$AssertEquals(Resultaat.Size, 5)
+	Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Orderlijnreferentie", "null")
+	
+	Do OrderMock.Verifieer()
+	Do OrderApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocumentReferenties">
+<FormalSpec>OrderReferentie:%String="",CommissieReferentie:%String="",KlantOrderNummer:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.DocumentReferenties</ReturnType>
+<Implementation><![CDATA[
 	Set DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
 	Set DocumentReferenties.OrderReferentie = OrderReferentie
 	Set DocumentReferenties.CommissieReferentie = CommissieReferentie
 	Set DocumentReferenties.KlantOrderNummer = KlantOrderNummer
 	
+	Quit DocumentReferenties
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderLijn">
+<FormalSpec>ProductId:%String="",OrderLijnReferentie:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	Set ProductOrderLijn = ##class(vhTest.Mock.DOM.VKP.impl.DataM.DataMProductOrderlijn).%New()
+	Do ProductOrderLijn.IndienMethodCall("GeefProductID").DanReturn(ProductId)
+	Do ProductOrderLijn.IndienMethodCall("GeefProjectReferentie").DanReturn(OrderLijnReferentie)
+	
+	Quit ProductOrderLijn
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderMock">
+<FormalSpec>OrderLijnIterator:TECH.Iterator,DocumentReferenties:DOM.VKP.DocumentReferenties,AxSalesId:%String=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
 	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
-	Do OrderMock.VerwachtMethodCall("GeefAxSalesId").ExactAantalKeer(1).DanReturn(AxSalesId)
+	
+	Do OrderMock.VerwachtMethodCall("GeefOrderLijnIterator").ExactAantalKeer(1).DanReturn(OrderLijnIterator)
 	Do OrderMock.VerwachtMethodCall("GeefDocumentReferenties").ExactAantalKeer(1).DanReturn(DocumentReferenties)
+	Do OrderMock.VerwachtMethodCall("GeefAxSalesId").ExactAantalKeer(1).DanReturn(AxSalesId)
 	
+	Quit OrderMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderApiMock">
+<FormalSpec>Order:DOM.VKP.Order,OrderId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.VKP.OrderAPI</ReturnType>
+<Implementation><![CDATA[
 	#dim OrderApiMock As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
-	Do OrderApiMock.VerwachtMethodCall("GeefOrder", OrderId).ExactAantalKeer(1).DanReturn(OrderMock)
+	Do OrderApiMock.VerwachtMethodCall("GeefOrder", OrderId).ExactAantalKeer(1).DanReturn(Order)
 	
-	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OrderOptiesGenerator).%New(OrderApiMock)
-	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringMock, UitvoeringInfo)
-	
-	Do $$$AssertEquals(Resultaat.Size, 4)
-	
-	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ SequentieNummerLade, "00" _ SequentieNummerLade _ "-Verkoopordernummer", AxSalesId)
-	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ SequentieNummerLade, "00" _ SequentieNummerLade _ "-Orderreferentie", OrderReferentie)
-	Do ..AssertOptie(Resultaat.GetAt(3), "LADE 00" _ SequentieNummerLade, "00" _ SequentieNummerLade _ "-Commissiereferentie", CommissieReferentie)
-	Do ..AssertOptie(Resultaat.GetAt(4), "LADE 00" _ SequentieNummerLade, "00" _ SequentieNummerLade _ "-Klantordernummer", KlantOrderNummer)
-	
-	Do ToeleveringMock.Verifieer()
-	Do OrderMock.Verifieer()
-	Do OrderApiMock.Verifieer()
+	Quit OrderApiMock
 ]]></Implementation>
 </Method>
 </Class>