Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r71485 -r71572
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 71485)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 71572)
@@ -45,7 +45,8 @@
 	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorAxInventTransIdEnAxConfigId(Toelevering, Product, SequentieNummerBinnenToelevering))
 		
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Korttekst", Product.GeefKorttekst()))
-	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Langtekst", Product.GeefLangtekst()))
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Langtekst", Product.GeefLangtekst(Taal)))
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Dossiercode", Product.GeefDossierCode()))
 	
 	#dim FscHoutCertificaat As %String = ..FscConverterNaarObjective.Converteer(Product.GeefFSCHout())
@@ -95,13 +96,15 @@
 	
 	While (ToeleveringLijnIterator.HasNext() && $$$Not(ToeleveringLijnGevonden)) {
 		#dim ProductToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = ToeleveringLijnIterator.Next()
+		
 		If ProductToeleveringLijn.GeefProductID() = Product.GeefID() {
 			Set AxInventTransId = ProductToeleveringLijn.GeefAxInventTransId()
 			Set AxConfigId = ProductToeleveringLijn.GeefAxConfigId()
+			
 			Set ToeleveringLijnGevonden = $$$True
 		}
 	}
-	
+
 	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "InventTransID", AxInventTransId))
 	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "AxConfigId", AxConfigId))
 	
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/ToeleveringLijnMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/ToeleveringLijnMock.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/ToeleveringLijnMock.cls.xml	(revision 71572)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock">
+<Super>%RegisteredObject,DOM.AKP.impl.DataM.DataMProductToeleveringLijn,Tools.Mock.MockClassBase</Super>
+
+<Method name="%OnNew">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,LijnNr:%Integer,GlobalNode:TECH.Persistentie.GlobalNode</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwerkMethodCall("GeefProductID")
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxInventTransId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwerkMethodCall("GeefAxInventTransId")
+]]></Implementation>
+</Method>
+
+<Method name="GeefAxConfigId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwerkMethodCall("GeefAxConfigId")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(revision 71572)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="DummyToeleveringId">
+<Type>%Integer</Type>
+<Default>222222</Default>
+</Parameter>
+
+<Parameter name="SequentieNummerBinnenToelevering">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="SequentieNummer">
+<Type>%Integer</Type>
+<Default>2</Default>
+</Parameter>
+
+<Parameter name="DummyProductId">
+<Type>%String</Type>
+<Default>111111</Default>
+</Parameter>
+
+<Method name="Test: StandaardGedrag">
+<Implementation><![CDATA[
+	#dim DummyDnaCode As %String = "DummyDnaCode"
+	#dim DummyInventTransId As %String = "DummyInventTransId"
+	#dim DummyAxConfigId As %String = "DummyAxConfigId"
+	#dim DummyKorttekst As %String = "DummyKorttekst"
+	#dim DummyLangtekst As %String = "DummyLangtekst"
+	#dim DummyDossierCode As %String = "DummyDossierCode"
+	
+	Set ToeleveringLijnStub = ##class(vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock).%New()
+	Do ToeleveringLijnStub.IndienMethodCall("GeefProductID").DanReturn(..#DummyProductId)
+	Do ToeleveringLijnStub.IndienMethodCall("GeefAxInventTransId").DanReturn(DummyInventTransId)
+	Do ToeleveringLijnStub.IndienMethodCall("GeefAxConfigId").DanReturn(DummyAxConfigId)
+	
+	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Do ToeleveringMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyToeleveringId)
+	Do ToeleveringMock.VerwachtMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijnStub))
+	
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ProductMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyProductId)
+	Do ProductMock.VerwachtMethodCall("GeefKorttekst").DanReturn(DummyKorttekst)
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	Do ProductMock.VerwachtMethodCall("GeefLangtekst", Taal, $$$True).DanReturn(DummyLangtekst)
+	Do ProductMock.VerwachtMethodCall("GeefDossierCode").DanReturn(DummyDossierCode)
+	Do ProductMock.VerwachtMethodCall("GeefFSCHout").DanReturn("")
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
+	
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = DummyDnaCode
+	#dim DnaCodeIterator As TECH.ItemIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent", 222222, 2, 111111).DanReturn(DnaCodeIterator)
+	
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo()
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeRepositoryMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringMock, UitvoeringInfo)
+	
+	Do $$$AssertEquals(Resultaat.Size, 9)
+	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-DNA-code", DummyDnaCode)
+	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-PIN", DummyDnaCode)
+	Do ..AssertOptie(Resultaat.GetAt(3), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-SHORTPIN", "ode")	
+	Do ..AssertOptie(Resultaat.GetAt(4), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-InventTransID", DummyInventTransId)	
+	Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-AxConfigId", DummyAxConfigId)	
+	Do ..AssertOptie(Resultaat.GetAt(6), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Korttekst", DummyKorttekst)	
+	Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Langtekst", DummyLangtekst)
+	Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Dossiercode", DummyDossierCode)
+	Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-FSC-claim", "NonApplicable")		
+	
+	Do ToeleveringMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitvoeringInfo">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[
+	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo).%New()
+	Set UitvoeringInfo.SequentieNummerBinnenToelevering = ..#SequentieNummerBinnenToelevering
+	Set UitvoeringInfo.SequentieNummer = ..#SequentieNummer
+	Set UitvoeringInfo.ProductID = ..#DummyProductId
+	
+	Quit UitvoeringInfo
+]]></Implementation>
+</Method>
+
+<Method name="AssertOptie">
+<FormalSpec>Optie:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions,Omschrijving:%String,Naam:%String,Waarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(Optie.Omschrijving, Omschrijving)
+	Do $$$AssertEquals(Optie.Naam, Naam)
+	Do $$$AssertEquals(Optie.Waarde, Waarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>