Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r71956 -r72033
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71956)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72033)
@@ -42,6 +42,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDnaCodesViaBatchIdEnSequentienummer">
+<FormalSpec>BatchId:%String,Sequentienummer:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefDnaCodesViaBatchIdEnSequentienummer",BatchId,Sequentienummer)
+]]></Implementation>
+</Method>
+
 <Method name="GeefVolgendeAfTeDrukkenDnaCode">
 <FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String="",Herafdruk:%Boolean=$$$False,BatchId:%String="",IsKlantEtiketSpaceStep:%Boolean=$$$False</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r71890 -r72033
--- vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71890)
+++ vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72033)
@@ -14,10 +14,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalParentDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Method name="DnaCodeBijwerkenMetBatchGegevens">
+<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
@@ -35,28 +34,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MagDnaCodeBijgewerktWorden">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductID:%String,Herafdruk:%Boolean,SequentieNummer:%String=""</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="GeefDnaCodesViaBatchIdEnSequentienummer">
+<FormalSpec>BatchId:%String,Sequentienummer:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
 </Method>
 
-<Method name="VulInSequentieId">
-<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="VulInSequentieIds">
-<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="DnaCodeBijwerkenMetBatchGegevens">
-<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="GeefVolgendeAfTeDrukkenDnaCode">
+<FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String="",Herafdruk:%Boolean=$$$False,BatchId:%String="",IsKlantEtiketSpaceStep:%Boolean=$$$False</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
@@ -71,24 +57,26 @@
 
 <Method name="VerwijderDnaCodesVoorBatch">
 <FormalSpec>BatchId:%String</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
-<Method name="MaakDnaCodesVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
-<ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Method name="VerwijderDnaCodesVoorToeleveringLijn">
+<FormalSpec>ToeleveringId:%String,ToeleveringLijnCode:%String</FormalSpec>
+<Implementation><![CDATA[
 ]]></Implementation>
 </Method>
 
-<Method name="VerwijderDnaCodesVoorToeleveringLijn">
-<FormalSpec>ToeleveringId:%String,ToeleveringLijnId:%String</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Method name="VulInSequentieId">
+<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String,ProductId:%String=""</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 
 <Method name="WijzigAantalDnaCodesVoorToeleveringLijn">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[
+]]></Implementation>
 </Method>
 </Class>
 
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r72017 -r72033
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 72017)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 72033)
@@ -18,18 +18,18 @@
 <Private>1</Private>
 </Property>
 
-<Property name="DnaCodeRepository">
-<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Property name="FscConverterNaarObjective">
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.FscNaarObjective</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="FscConverterNaarObjective">
-<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.FscNaarObjective</Type>
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ProductApi:DOM.PM.ProductAPI="",DnaCodeService:APPS.Halux.AAP.DnaCodeService="",IngegevenKenmerkenSpaceStepHelper:DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper="",DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository=""</FormalSpec>
+<FormalSpec>ProductApi:DOM.PM.ProductAPI="",DnaCodeService:APPS.Halux.AAP.DnaCodeService="",IngegevenKenmerkenSpaceStepHelper:DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -38,8 +38,8 @@
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	Set ..DnaCodeService = $$$Inject(DnaCodeService, ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService"))
 	Set ..IngegevenKenmerkenSpaceStepHelper = $$$Inject(IngegevenKenmerkenSpaceStepHelper, ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New())
-	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	Set ..FscConverterNaarObjective = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.FscNaarObjective).%New()
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("CalculatedProduct"))
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -99,24 +99,28 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim DnaCodeSst As %String = ""
-	#dim DnaCodes As TECH.DynamicIterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummerLade)
-	#dim AantalDnaCodes As %Integer = ##class(TECH.ListUtils).IteratorToList(DnaCodes).Size
-	Set DnaCodes = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummerLade)
+	#dim DnaCodes As TECH.DynamicIterator = ..DnaCodeService.GeefDnaCodesViaBatchIdEnSequentienummer(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummerLade)
 	
-	If (AantalDnaCodes = 2) {
-		#dim Gevonden As %Boolean = $$$False
-					
-		While ((DnaCodes.HasNext()) && $$$Not(Gevonden)) {
-			#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodes.Next()
-			
-			If (DnaCodeObject.DnaCode '= DnaCodeLade) {
-				Set DnaCodeSst = DnaCodeObject.DnaCode
-				Set Gevonden = $$$True
+	If $IsObject(DnaCodes) {
+		#dim AantalDnaCodes As %Integer = ##class(TECH.ListUtils).IteratorToList(DnaCodes).Size
+		Set DnaCodes = ..DnaCodeService.GeefDnaCodesViaBatchIdEnSequentienummer(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummerLade)
+		
+		If (AantalDnaCodes = 2) {
+			#dim Gevonden As %Boolean = $$$False
+						
+			While ((DnaCodes.HasNext()) && $$$Not(Gevonden)) {
+				#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodes.Next()
+				
+				If (DnaCodeObject.DnaCode '= DnaCodeLade) {
+					Set DnaCodeSst = DnaCodeObject.DnaCode
+					Set Gevonden = $$$True
+				}
 			}
+		} Else {
+			Do ..Logger.Warning("GeefDnaCodeVoorSst", "Er is/zijn '" _ AantalDnaCodes _ "' DnaCode(s) gevonden, terwijl er 2 verwacht waren om de DnaCode voor SST te op te halen voor MES.")
 		}
 	} Else {
-		Set DataCorruptException = ##class(TECH.Exceptions.DataCorruptException).%New("Er is/zijn '" _ AantalDnaCodes _ "' DnaCode(s) gevonden, terwijl er 2 verwacht waren om de DnaCode voor SST te op te halen voor MES.")
-		do ##class(TECH.ExceptionHandler).Throw(DataCorruptException)
+		Do ..Logger.Warning("GeefDnaCodeVoorSst", "Er is/zijn geen DnaCode(s) gevonden, terwijl er 2 verwacht waren om de DnaCode voor SST te op te halen voor MES.")
 	}
 	
 	Quit DnaCodeSst
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r71958 -r72033
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71958)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72033)
@@ -307,6 +307,13 @@
 	Quit DnaCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDnaCodesViaBatchIdEnSequentienummer">
+<FormalSpec>BatchId:%String,Sequentienummer:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, Sequentienummer)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r72017 -r72033
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 72017)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 72033)
@@ -151,17 +151,16 @@
 	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)
+	#dim DnaCodeServiceMock As vhTest.Mock.APPS.Halux.AAP.DnaCodeService = ..GeefDnaCodeServiceMock(..#SequentieNummer, ..#DummyProductId, ..#DummyDnaCode)
+	Do DnaCodeServiceMock.VerwachtMethodCall("GeefDnaCodesViaBatchIdEnSequentienummer", "", ..#SequentieNummerLade).DanReturn(DnaCodeIterator)
 	
-	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeServiceMock, IngegevenKenmerkenSpaceStepHelperMock, DnaCodeRepositoryMock)
+	#dim IngegevenKenmerkenSpaceStepHelperMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper = ..GeefIngegevenKenmerkenSpaceStepHelper($$$True, ..LbxKenmerken)
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeServiceMock, IngegevenKenmerkenSpaceStepHelperMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringStub, ..UitvoeringInfo)
 	
 	Do $$$AssertEquals(Resultaat.Size, 11)
@@ -171,11 +170,10 @@
 	Do ProductApiMock.Verifieer()
 	Do DnaCodeServiceMock.Verifieer()
 	Do IngegevenKenmerkenSpaceStepHelperMock.Verifieer()
-	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Indien er een SST product aanwezig is maar er is slechts 1 DNA-code beschikbaar -&gt; Error gooien">
+<Method name="Test: Indien er een SST product aanwezig is maar er is slechts 1 DNA-code beschikbaar -&gt; warning loggen">
 <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)
@@ -185,26 +183,25 @@
 	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 DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
 	
-	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchIdEnSequentienummer", "", ..#SequentieNummerLade).DanReturn(DnaCodeIterator)
+	#dim DnaCodeServiceMock As vhTest.Mock.APPS.Halux.AAP.DnaCodeService = ..GeefDnaCodeServiceMock(..#SequentieNummer, ..#DummyProductId, ..#DummyDnaCode)
+	Do DnaCodeServiceMock.VerwachtMethodCall("GeefDnaCodesViaBatchIdEnSequentienummer", "", ..#SequentieNummerLade).DanReturn(DnaCodeIterator)
+	#dim IngegevenKenmerkenSpaceStepHelperMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper = ..GeefIngegevenKenmerkenSpaceStepHelper($$$True, ..LbxKenmerken)
 	
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Er is/zijn '1' DnaCode(s) gevonden, terwijl er 2 verwacht waren om de DnaCode voor SST te op te halen voor MES.")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataCorruptException", Substrings))
-	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeServiceMock, IngegevenKenmerkenSpaceStepHelperMock, DnaCodeRepositoryMock)
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Warning","GeefDnaCodeVoorSst","Er is/zijn '1' DnaCode(s) gevonden, terwijl er 2 verwacht waren om de DnaCode voor SST te op te halen voor MES.", 0).DanDoeNiks()
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeServiceMock, IngegevenKenmerkenSpaceStepHelperMock, LoggerMock)
 	Do Generator.GenereerOptiesVoorLade(ToeleveringStub, ..UitvoeringInfo)
 	
 		
 	Do ProductMock.Verifieer()
 	Do ProductApiMock.Verifieer()
 	Do DnaCodeServiceMock.Verifieer()
 	Do IngegevenKenmerkenSpaceStepHelperMock.Verifieer()
-	Do DnaCodeRepositoryMock.Verifieer()
+	Do LoggerMock.Verifieer()
 ]]></Implementation>
 </Method>