Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r72485 -r72799
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 72485)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 72799)
@@ -18,17 +18,7 @@
 <Method name="ZoekViaPalletCodeEnRecent">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	#dim DnaCodeIterator As TECH.DynamicIterator
-	
-	If ..IsABPalletCode(PalletCode) {
-		#dim BasisPalletCode = $Extract(PalletCode, 1, 8)
-		Set DnaCodeIterator = ..ZoekViaFilter("PalletCode like ? and not status = ? and (AanmaakTijdstip > current_date - 30)", $LB(BasisPalletCode _ "%", ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()))
-	} Else {
-		Set DnaCodeIterator = ..ZoekViaFilter("PalletCode = ? and not status = ? and (AanmaakTijdstip > current_date - 30)", $LB(PalletCode, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()))
-	}
-	
-	Quit DnaCodeIterator
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("PalletCode like ? and not status = ? and (AanmaakTijdstip > current_date - 30)", $LB(PalletCode _ "%", ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()))
 ]]></Implementation>
 </Method>
 
@@ -42,7 +32,7 @@
 <Method name="ZoekVoorProboxEtiket">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ..ZoekViaFilter("PalletCode = ? and (AanmaakTijdstip > current_date - 30)", $LB(PalletCode))
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("PalletCode like ? and (AanmaakTijdstip > current_date - 30)", $LB(PalletCode _ "%"))
 ]]></Implementation>
 </Method>
 
@@ -57,20 +47,13 @@
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	#dim DnaCodeIterator As TECH.DynamicIterator
 	#dim AantalDagenTerug As %Integer = 30
 	
 	If ##class(APPS.VisiDot.impl.Tech).IsFrameID(PalletCode) {
 		Set AantalDagenTerug = 5
 	}
-	If ..IsABPalletCode(PalletCode) {
-		#dim BasisPalletCode = $Extract(PalletCode, 1, 8)
-		Set DnaCodeIterator = ..ZoekViaFilter("PalletCode like ? and (AanmaakTijdstip > current_date - ?)", $LB(BasisPalletCode _ "%", AantalDagenTerug))
-	} Else {
-		Set DnaCodeIterator = ..ZoekViaFilter("PalletCode = ? and (AanmaakTijdstip > current_date - ?)", $LB(PalletCode, AantalDagenTerug))
-	}
-	
-	Quit DnaCodeIterator
+
+	Quit ..ZoekViaFilter("PalletCode = ? and (AanmaakTijdstip > current_date - ?)", $LB(PalletCode, AantalDagenTerug))
 ]]></Implementation>
 </Method>
 
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r72484 -r72799
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72484)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 72799)
@@ -722,7 +722,7 @@
 	Try {
 		Set Response = ##class(WS.Halux.AAP.GeefVolgendeTbpCodeResponse).%New()
 		#dim PalletIDBepaler As APPS.Halux.PPS.PalletIDBepaler = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefPalletIDBepaler()
-		Set Response.VolgendeTbpCode = PalletIDBepaler.GeefNieuwPalletID(##class(BL.PPS.TBX.enu.PalletEtiketType).Probox(), GeefVolgendeTbpCodeRequest.DnaCode)
+		Set Response.VolgendeTbpCode = PalletIDBepaler.GeefNieuwPalletID(##class(BL.PPS.TBX.enu.PalletEtiketType).Probox(), GeefVolgendeTbpCodeRequest.ToeleveringId, GeefVolgendeTbpCodeRequest.ProductNummer)
 		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
Index: APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml
===================================================================
diff -u -r72483 -r72799
--- APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 72483)
+++ APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 72799)
@@ -18,95 +18,138 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantInstellingenRepository">
+<Type>DOM.Halux.AAP.KlantinstellingenRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ConfiguratorService">
 <Type>APPS.VKP.Maatwerk.impl.ConfiguratorService</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",DateTimeApi:TECH.DateTime.DateTimeAPI="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",DateTimeApi:TECH.DateTime.DateTimeAPI="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",KlantInstellingenRepository:DOM.Halux.AAP.KlantinstellingenRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	Set ..DateTimeApi = $$$Inject(DateTimeApi, ##class(TECH.DateTime.impl.DateTimeAPI).%New())
 	Set ..ConfiguratorService = $$$Inject(ConfiguratorService, ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New())
+	Set ..KlantInstellingenRepository = $$$Inject(KlantInstellingenRepository, ##class(DOM.Halux.AAP.KlantinstellingenRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefNieuwPalletID">
-<FormalSpec>Type:BL.PPS.TBX.enu.PalletEtiketType,DnaCode:DOM.Halux.AAP.DnaCode=""</FormalSpec>
+<FormalSpec>Type:BL.PPS.TBX.enu.PalletEtiketType,ToeleveringId:%String,ProductNummer:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#define LengteBarcode 8
 	
 	#dim PalletNr As %Integer
-	#dim PalletCode As %String
+	#dim NieuwePalletCode As %String
 	
-	If ($IsObject(DnaCode) && (..GeefVerpakkingTypeVanDnaCode(DnaCode) = "Probox")) {
-		Set PalletCode = ..GeefPalletCodeVoorProbox(Type, DnaCode)
+	If (..GeefVerpakkingTypeVanProduct(ProductNummer) = "Probox") {
+		Set NieuwePalletCode = ..GeefPalletCodeVoorProbox(Type, ToeleveringId, $$$LengteBarcode)
 	} Else {
 		Set PalletNr = ..GeefVolgendPalletNr()
 		do ..Verwerk(Type)
-		Set PalletCode = ..Prefix _ ##class(TECH.StringUtils).AlignRight(PalletNr,0,$$$LengteBarcode-$length(..Prefix))
+		Set NieuwePalletCode = ..Prefix _ ##class(TECH.StringUtils).AlignRight(PalletNr, 0, $$$LengteBarcode - $Length(..Prefix))
 	}
 	
-	Quit PalletCode
+	Quit NieuwePalletCode
 ]]></Implementation>
 </Method>
 
 <Method name="GeefPalletCodeVoorProbox">
-<FormalSpec>Type:BL.PPS.TBX.enu.PalletEtiketType,DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<FormalSpec>Type:BL.PPS.TBX.enu.PalletEtiketType,ToeleveringId:%String,LengteBarcode:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim LaatstGescandePalletCode = ..GeefPalletCodeVanLaatstGescandeLade(DnaCode.PalletCode)
-	#dim PalletCode As %String
 	
-	If (LaatstGescandePalletCode = "") || ($Extract(LaatstGescandePalletCode, 9, 9) = "B") {
+	#dim LaatstGescandePalletCode = ..GeefPalletCodeVanLaatstGescandeLade(ToeleveringId)
+	#dim NieuwePalletCode As %String
+	
+	#dim Suffix As %String = ..GeefSuffixVoorPalletCode(ToeleveringId, LaatstGescandePalletCode)
+	If (Suffix = "A") {
 		#dim PalletNr As %Integer = ..GeefVolgendPalletNr()
-		do ..Verwerk(Type)
-		Set PalletCode = ..Prefix _ ##class(TECH.StringUtils).AlignRight(PalletNr,0,$$$LengteBarcode-$length(..Prefix)) _ "A"
+		Do ..Verwerk(Type)
+		Set NieuwePalletCode = ..Prefix _ ##class(TECH.StringUtils).AlignRight(PalletNr,0, LengteBarcode - $Length(..Prefix)) _ "A"
 	} Else {
-		Set PalletCode = $Extract(LaatstGescandePalletCode, 1, 8) _ "B"
+		Set NieuwePalletCode = $Extract(LaatstGescandePalletCode, 1, 8) _ "B"
 	}
 	
-	Quit PalletCode
+	Quit NieuwePalletCode
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSuffixVoorPalletCode">
+<FormalSpec>ToeleveringId:%String,LaatstGescandePalletCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
+	#dim IsKlantVoorHalvePallet As %Boolean = $$$False
+	
+	If DnaCodeIterator.HasNext() {
+		#dim KlantId As %String = DnaCodeIterator.Next().KlantNummer
+		#dim KlantInstellingenIterator As TECH.Iterator = ..KlantInstellingenRepository.ZoekViaKlantId(KlantId)
+		
+		If KlantInstellingenIterator.HasNext() {
+			Set IsKlantVoorHalvePallet = KlantInstellingenIterator.Next().HalvePallet
+		}
+	}
+	// Do DnaCodeIterator.Reset()
+	
+	#dim Suffix As %String
+	If IsKlantVoorHalvePallet || (LaatstGescandePalletCode = "") || ($Extract(LaatstGescandePalletCode, 9, 9) = "B") {
+		Set Suffix = "A"
+	} Else {
+		Set Suffix = "B"
+	}
+	
+	Quit Suffix
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletCodeVanLaatstGescandeLade">
-<FormalSpec>PalletCode:%String</FormalSpec>
+<FormalSpec>ToeleveringId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim LaatsteScanTijdstip As %Integer = "99999,99999"
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
+	#dim LaatsteScanTijdstip As %Integer = "1,1"
 	#dim PalletCodeLaatstGescandeLade As %String = ""
-	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekAlleRecenteViaPalletCode(PalletCode)
 	
 	While DnaCodeIterator.HasNext() {
 		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 		
-		If ($$$Not(DnaCode.ScanTijdstip = "") && ..DateTimeApi.HorologIsGroterDan(LaatsteScanTijdstip, DnaCode.ScanTijdstip)) {
+		If ($$$Not(DnaCode.ScanTijdstip = "") && ..DateTimeApi.HorologIsGroterDan(DnaCode.ScanTijdstip, LaatsteScanTijdstip)) {
 			Set LaatsteScanTijdstip = DnaCode.ScanTijdstip
 			Set PalletCodeLaatstGescandeLade = DnaCode.PalletCode
 		}
 	}
+	// Do DnaCodeIterator.Reset()
 	
 	Quit PalletCodeLaatstGescandeLade
 ]]></Implementation>
 </Method>
 
-<Method name="GeefVerpakkingTypeVanDnaCode">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Method name="GeefVerpakkingTypeVanProduct">
+<FormalSpec>ProductNummer:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(DnaCode.ProductNummer)
-	Quit IngegevenKenmerken.VerpakkingType
+	#dim VerpakkingType As %String = ""
+	Try {
+		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(ProductNummer)
+		Set VerpakkingType = IngegevenKenmerken.VerpakkingType
+	} Catch {}
+	
+	Quit VerpakkingType
 ]]></Implementation>
 </Method>
 
Index: WS/Halux/AAP/GeefVolgendeTbpCodeRequest.cls.xml
===================================================================
diff -u -r72530 -r72799
--- WS/Halux/AAP/GeefVolgendeTbpCodeRequest.cls.xml	(.../GeefVolgendeTbpCodeRequest.cls.xml)	(revision 72530)
+++ WS/Halux/AAP/GeefVolgendeTbpCodeRequest.cls.xml	(.../GeefVolgendeTbpCodeRequest.cls.xml)	(revision 72799)
@@ -13,21 +13,30 @@
 <Required>1</Required>
 </Property>
 
-<Property name="DnaCode">
+<Property name="ToeleveringId">
 <Type>%String</Type>
 </Property>
 
+<Property name="ProductNummer">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>GeefVolgendeTbpCodeRequestState</State>
 <StreamLocation>^WS.Halux.AAP.GeefVolgendAB12S</StreamLocation>
 <Data name="GeefVolgendeTbpCodeRequestState">
+<Structure>listnode</Structure>
+<Subscript/>
 <Value name="1">
 <Value>Header</Value>
 </Value>
 <Value name="2">
-<Value>DnaCode</Value>
+<Value>ToeleveringId</Value>
 </Value>
+<Value name="3">
+<Value>ProductNummer</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/GeefNieuwPalletID/Test.cls.xml
===================================================================
diff -u -r72483 -r72799
--- vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/GeefNieuwPalletID/Test.cls.xml	(.../Test.cls.xml)	(revision 72483)
+++ vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/GeefNieuwPalletID/Test.cls.xml	(.../Test.cls.xml)	(revision 72799)
@@ -8,6 +8,16 @@
 <Default>12345</Default>
 </Parameter>
 
+<Parameter name="DummyToeleveringId">
+<Type>%String</Type>
+<Default>200000</Default>
+</Parameter>
+
+<Parameter name="DummyProductNr">
+<Type>%String</Type>
+<Default>1000</Default>
+</Parameter>
+
 <Property name="PalletNr">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -33,6 +43,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantInstellingenRepositoryMock">
+<Type>DOM.Halux.AAP.KlantinstellingenRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>TestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -44,6 +59,7 @@
 	Set ..DateTimeApiMock = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
 	Set ..DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Set ..ConfiguratorServiceMock = ##class(vhTest.Mock.APPS.VKP.Maatwerk.impl.ConfiguratorService).%New()
+	Set ..KlantInstellingenRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.KlantinstellingenRepository).%New()
 ]]></Implementation>
 </Method>
 
@@ -56,7 +72,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefPalletId type TBP zonder DnaCode geeft volgende PalletId zonder A/B">
+<Method name="Test: GeefPalletId type TBP zonder ToeleveringId geeft volgende PalletId zonder A/B">
 <Implementation><![CDATA[
 	#dim Type = "TBP"
 	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New()
@@ -66,7 +82,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefPalletId type TBX zonder DnaCode geeft volgende PalletId zonder A/B">
+<Method name="Test: GeefPalletId type TBX zonder ToeleveringId geeft volgende PalletId zonder A/B">
 <Implementation><![CDATA[
 	#dim Type = "TBX"
 	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New()
@@ -76,91 +92,106 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefPalletId type TBP met DnaCode niet op probox geeft volgende PalletId zonder A/B">
+<Method name="Test: GeefPalletId type TBP met ProductNummer niet op probox geeft volgende PalletId zonder A/B">
 <Implementation><![CDATA[
 	#dim IngegevenKenmerkenStub = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
-	#dim DnaCodeMock = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCodeMock.ProductNummer = "1000"
 	
-	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", "1000").DanReturn(IngegevenKenmerkenStub)
+	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", ..#DummyProductNr).DanReturn(IngegevenKenmerkenStub)
 	
 	#dim Type = "TBP"
 	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(,, ..ConfiguratorServiceMock)
-	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, DnaCodeMock)
+	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, ..#DummyToeleveringId, ..#DummyProductNr)
 	
 	Do $$$AssertEquals(PalletId, "TBP12346")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefPalletId type TBP met DnaCode op probox en geen gescande DnaCodes geeft volgende PalletId A">
+<Method name="Test: GeefPalletId type TBP met ProductNummer op Probox en geen gescande DnaCodes in toelevering geeft volgende PalletId A">
 <Implementation><![CDATA[
 	#dim IngegevenKenmerkenStub = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
 	Set IngegevenKenmerkenStub.VerpakkingType = "Probox"
 	
 	#dim DnaCodeMock = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCodeMock.ProductNummer = "1000"
-	Set DnaCodeMock.PalletCode = "TBP99999A"
+	Set DnaCodeMock.Toelevering = ..#DummyToeleveringId
 	
 	#dim DnaCodeLijst = ##class(%ListOfObjects).%New()
 	Do DnaCodeLijst.Insert(DnaCodeMock)
 	#dim DnaCodeIteratorMock As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodeLijst)
 	
-	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", "1000").DanReturn(IngegevenKenmerkenStub)
-	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekAlleRecenteViaPalletCode", "TBP99999A").DanReturn(DnaCodeIteratorMock)
+	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", ..#DummyProductNr).DanReturn(IngegevenKenmerkenStub)
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
 	
 	#dim Type = "TBP"
 	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(..DnaCodeRepositoryMock,, ..ConfiguratorServiceMock)
-	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, DnaCodeMock)
+	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, ..#DummyToeleveringId, ..#DummyProductNr)
 	
 	Do $$$AssertEquals(PalletId, "TBP12346A")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefPalletId type TBP met DnaCode op probox met laatst gescande DnaCode B geeft volgende PalletId A">
+<Method name="Test: GeefPalletId type TBP met ProductNummer op Probox en laatst gescande DnaCode B geeft volgende PalletId A">
 <Implementation><![CDATA[
 	#dim IngegevenKenmerkenStub = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
 	Set IngegevenKenmerkenStub.VerpakkingType = "Probox"
 	
-	#dim DnaCodeMock = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCodeMock.ProductNummer = "1000"
-	Set DnaCodeMock.PalletCode = "TBP99999B"
-	Set DnaCodeMock.ScanTijdstip = "10000,10000"
+	#dim DnaCodeMockEen = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCodeMockEen.Toelevering = ..#DummyToeleveringId
+	Set DnaCodeMockEen.PalletCode = "TBP99999A"
+	Set DnaCodeMockEen.ScanTijdstip = "10000,10001"
 	
+	#dim DnaCodeMockTwee = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCodeMockTwee.Toelevering = ..#DummyToeleveringId
+	Set DnaCodeMockTwee.PalletCode = "TBP99999B"
+	Set DnaCodeMockTwee.ScanTijdstip = "10000,10002"
+	
 	#dim DnaCodeLijst = ##class(%ListOfObjects).%New()
-	Do DnaCodeLijst.Insert(DnaCodeMock)
+	Do DnaCodeLijst.Insert(DnaCodeMockEen)
+	Do DnaCodeLijst.Insert(DnaCodeMockTwee)
 	#dim DnaCodeIteratorMock As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodeLijst)
 	
-	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", "1000").DanReturn(IngegevenKenmerkenStub)
-	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekAlleRecenteViaPalletCode", "TBP99999B").DanReturn(DnaCodeIteratorMock)
+	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", ..#DummyProductNr).DanReturn(IngegevenKenmerkenStub)
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
 	
 	#dim Type = "TBP"
 	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(..DnaCodeRepositoryMock,, ..ConfiguratorServiceMock)
-	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, DnaCodeMock)
+	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, ..#DummyToeleveringId, ..#DummyProductNr)
 	
 	Do $$$AssertEquals(PalletId, "TBP12346A")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefPalletId type TBP met DnaCode op probox met laatst gescande DnaCode A geeft dezelfde PalletId B">
+<Method name="Test: GeefPalletId type TBP met ProductNummer op Probox en laatst gescande DnaCode A geeft dezelfde PalletId B">
 <Implementation><![CDATA[
 	#dim IngegevenKenmerkenStub = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
 	Set IngegevenKenmerkenStub.VerpakkingType = "Probox"
 	
-	#dim DnaCodeMock = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCodeMock.ProductNummer = "1000"
-	Set DnaCodeMock.PalletCode = "TBP99999A"
-	Set DnaCodeMock.ScanTijdstip = "10000,10000"
+	#dim DnaCodeMockEen = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCodeMockEen.Toelevering = ..#DummyToeleveringId
+	Set DnaCodeMockEen.PalletCode = "TBP99998A"
+	Set DnaCodeMockEen.ScanTijdstip = "10000,10001"
 	
+	#dim DnaCodeMockTwee = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCodeMockTwee.Toelevering = ..#DummyToeleveringId
+	Set DnaCodeMockTwee.PalletCode = "TBP99998A"
+	Set DnaCodeMockTwee.ScanTijdstip = "10000,10002"
+	
+	#dim DnaCodeMockDrie = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCodeMockDrie.Toelevering = ..#DummyToeleveringId
+	Set DnaCodeMockDrie.PalletCode = "TBP99999A"
+	Set DnaCodeMockDrie.ScanTijdstip = "10000,10003"
+	
 	#dim DnaCodeLijst = ##class(%ListOfObjects).%New()
-	Do DnaCodeLijst.Insert(DnaCodeMock)
+	Do DnaCodeLijst.Insert(DnaCodeMockEen)
+	Do DnaCodeLijst.Insert(DnaCodeMockTwee)
+	Do DnaCodeLijst.Insert(DnaCodeMockDrie)
 	#dim DnaCodeIteratorMock As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodeLijst)
 	
-	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", "1000").DanReturn(IngegevenKenmerkenStub)
-	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekAlleRecenteViaPalletCode", "TBP99999A").DanReturn(DnaCodeIteratorMock)
+	Do ..ConfiguratorServiceMock.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", ..#DummyProductNr).DanReturn(IngegevenKenmerkenStub)
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
 	
 	#dim Type = "TBP"
 	#dim PalletIdBepaler = ##class(APPS.Halux.PPS.impl.PalletIDBepaler).%New(..DnaCodeRepositoryMock,, ..ConfiguratorServiceMock)
-	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, DnaCodeMock)
+	#dim PalletId = PalletIdBepaler.GeefNieuwPalletID(Type, ..#DummyToeleveringId, ..#DummyProductNr)
 	
 	Do $$$AssertEquals(PalletId, "TBP99999B")
 ]]></Implementation>