Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r72014 -r72016
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 72014)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 72016)
@@ -141,6 +141,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Indien er een SST product aanwezig is -&gt; Extra dna-code optie voor SST toevoegen">
+<Implementation><![CDATA[
+	#dim DnaCodeSst As %String = "OAAA1"
+	#dim ToeleveringLijnStub As vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock = ..GeefToeleveringlijnMock(..#DummyProductId, ..#DummyInventTransId, ..#DummyAxConfigId)
+	#dim ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringStub(..#DummyToeleveringId, ToeleveringLijnStub)	
+	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ..GeefProductMock(..#DummyProductId, ..#DummyKorttekst, ..#DummyLangtekst, ..#DummyDossierCode, ..#DummyFscClaim, ..LbxKenmerken)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
+	
+	#dim DnaCodeServiceMock As vhTest.Mock.APPS.Halux.AAP.DnaCodeService = ..GeefDnaCodeServiceMock(..#SequentieNummer, ..#DummyProductId, ..#DummyDnaCode)
+	#dim IngegevenKenmerkenSpaceStepHelperMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper = ..GeefIngegevenKenmerkenSpaceStepHelper($$$True, ..LbxKenmerken)
+	
+	#dim DnaCode1 As DOM.Halux.AAP.DnaCode = ..GeefDnaCode(..#DummyDnaCode)
+	#dim DnaCode2 As DOM.Halux.AAP.DnaCode = ..GeefDnaCode(DnaCodeSst)
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchIdEnSequentienummer", "", ..#SequentieNummerLade).DanReturn(DnaCodeIterator)
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeServiceMock, IngegevenKenmerkenSpaceStepHelperMock, DnaCodeRepositoryMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringStub, ..UitvoeringInfo)
+	
+	Do $$$AssertEquals(Resultaat.Size, 11)
+	Do ..AssertOptie(Resultaat.GetAt(4), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-DNA-code-SST", DnaCodeSst)	
+		
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+	Do DnaCodeServiceMock.Verifieer()
+	Do IngegevenKenmerkenSpaceStepHelperMock.Verifieer()
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefToeleveringlijnMock">
 <FormalSpec>ProductId:%String,AxInventTransId:%String,AxConfigId:%String</FormalSpec>
 <Private>1</Private>
@@ -210,6 +244,18 @@
 	Quit IngegevenKenmerkenSpaceStepHelper
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDnaCode">
+<FormalSpec>DnaCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.Halux.AAP.DnaCode</ReturnType>
+<Implementation><![CDATA[
+	Set DnaCodeObject = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCodeObject.DnaCode = DnaCode
+	
+	Quit DnaCodeObject
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r72014 -r72016
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 72014)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 72016)
@@ -86,7 +86,7 @@
 	
 	If (..IngegevenKenmerkenSpaceStepHelper.IsSpaceStep(IngegevenKenmerken)) {
 		#dim DnaCodeSst = ..GeefDnaCodeVoorSst(DnaCode, UitvoeringInfo)
-		Do LijstOpties.Insert(..GeefOptieVoorLade(UitvoeringInfo.SequentieNummerLade, "-" _ "DNA-code-SST", DnaCodeIngekort))
+		Do LijstOpties.Insert(..GeefOptieVoorLade(UitvoeringInfo.SequentieNummerLade, "-" _ "DNA-code-SST", DnaCodeSst))
 	}
 	
 	Quit LijstOpties