Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r71572 -r71573
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71572)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71573)
@@ -23,7 +23,7 @@
 <Default>111111</Default>
 </Parameter>
 
-<Method name="Test: StandaardGedrag">
+<Method name="Test: Standaardgedrag">
 <Implementation><![CDATA[
 	#dim DummyDnaCode As %String = "DummyDnaCode"
 	#dim DummyInventTransId As %String = "DummyInventTransId"
@@ -81,6 +81,76 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Meerdere dnacodes gevonden geeft een error">
+<Implementation><![CDATA[
+	#dim DummyDnaCode As %String = "DummyDnaCode"
+		
+	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Do ToeleveringMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyToeleveringId)
+	
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ProductMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyProductId)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
+	
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.DnaCode = DummyDnaCode
+	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode2.DnaCode = DummyDnaCode
+	#dim DnaCodeIterator As TECH.ItemIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	
+	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()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Meerdere dnacodes gevonden voor toelevering '222222', product '111111' en sequentienummer '2'.")
+	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, DnaCodeRepositoryMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringMock, UitvoeringInfo)
+	
+	Do ToeleveringMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen dnacodes gevonden geeft een error">
+<Implementation><![CDATA[
+	#dim DummyDnaCode As %String = "DummyDnaCode"
+		
+	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Do ToeleveringMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyToeleveringId)
+	
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ProductMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyProductId)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
+	
+	Set DnaCodeIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
+	
+	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()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen Dnacode gevonden voor toelevering '222222', product '111111' en sequentienummer '2'.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException",Substrings))
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeRepositoryMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringMock, UitvoeringInfo)
+	
+	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>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r71572 -r71573
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 71572)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 71573)
@@ -72,6 +72,12 @@
 		#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodeLijst.GetAt(1)
 		Set DnaCode = DnaCodeObject.DnaCode
 		Set DnaCodeIngekort = $Extract(DnaCode, $Length(DnaCode) - 2, $Length(DnaCode))
+	} ElseIf (DnaCodeLijst.Size = 0) {
+		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New("Geen Dnacode gevonden voor toelevering '" _ ToeleveringId _ "', product '" _ ProductId _ "' en sequentienummer '" _ SequentieNummerBinnenBatch _ "'.")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	} ElseIf (DnaCodeLijst.Size > 1) {
+		Set Exception = ##class(TECH.Exceptions.DataCorruptException).%New("Meerdere dnacodes gevonden voor toelevering '" _ ToeleveringId _ "', product '" _ ProductId _ "' en sequentienummer '" _ SequentieNummerBinnenBatch _ "'.")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	
 	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "DNA-code", DnaCode))