Index: vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefLaatstGebruiktePalletCodeVoorToelevering/Test.cls.xml
===================================================================
diff -u -r73297 -r73320
--- vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefLaatstGebruiktePalletCodeVoorToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 73297)
+++ vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefLaatstGebruiktePalletCodeVoorToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 73320)
@@ -79,6 +79,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Verschillende ingescande DnaCodes in toelevering met A/B en rework op A-kant -&gt; PalletCode is die van hoogste TBP kant B">
+<Implementation><![CDATA[
+	#dim ScanTijdstippen As %List = $ListBuild("1000,1", "1000,2", "1000,3", "1000,4", "1000,5")
+	#dim PalletCodes As %List = $ListBuild("TBP10001", "TBP10002", "TBP10003A", "TBP10003B", "TBP10003A")
+	
+	#dim DnaCodeIteratorMock As TECH.Iterator = ..GeefDnaCodeIteratorMetScanTijdstippenEnPalletCodes(ScanTijdstippen, PalletCodes)
+	Do ..DnaCodeRepositoryMock.IndienMethodCall("ZoekViaToeleveringIdEnRecent", ..#DummyToeleveringId).DanReturn(DnaCodeIteratorMock)
+	
+	#dim PalletIDBepalerHelper = ##class(APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper).%New(..DnaCodeRepositoryMock)
+	#dim LaatstGescandePalletCode As %String = PalletIDBepalerHelper.GeefLaatstGebruiktePalletCodeVoorToelevering(..#DummyToeleveringId)
+	
+	Do $$$AssertEquals(LaatstGescandePalletCode, "TBP10003B")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Gebruikte PalletCodes hebben rollover na 99999 -&gt; PalletCode is die van hoogste TBP kleiner dan 50000">
 <Implementation><![CDATA[
 	#dim ScanTijdstippen As %List = $ListBuild("1000,1", "1000,2", "1000,3", "1000,4")
Index: APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml
===================================================================
diff -u -r73297 -r73320
--- APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(.../PalletIDBepalerHelper.cls.xml)	(revision 73297)
+++ APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(.../PalletIDBepalerHelper.cls.xml)	(revision 73320)
@@ -92,7 +92,7 @@
 		#dim PalletCode = GebruiktePalletCodeIterator.Next()
 		Set TbpNummer = $Extract(PalletCode, 4, 8)
 		
-		If ((TbpNummer >= $Extract(LaatstGebruiktePalletCode, 4, 8)) && ((MetRollOver = $$$False) || (TbpNummer < 50000)) && ($Extract(PalletCode, 9, 9) >= $Extract(LaatstGebruiktePalletCode, 9, 9))) {
+		If (..IsPalletCodeRecenterDanLaatstGebruikte(PalletCode, LaatstGebruiktePalletCode, MetRollOver)) {
 			Set LaatstGebruiktePalletCode = PalletCode
 		}
 	}
@@ -128,6 +128,24 @@
 <Implementation><![CDATA[	Quit $$$Not($Extract(PalletCode, 1, 3) = "TBP")
 ]]></Implementation>
 </Method>
+
+<Method name="IsPalletCodeRecenterDanLaatstGebruikte">
+<FormalSpec>HuidigePalletCode:%String,LaatstGebruiktePalletCode:%String,MetRollOver:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim HuidigePalletNummer = $Extract(HuidigePalletCode, 4, 8)
+	#dim LaatstGebruiktePalletNummer = $Extract(LaatstGebruiktePalletCode, 4, 8)
+	#dim IsPalletCodeRecenter As %Boolean = (HuidigePalletNummer >= LaatstGebruiktePalletNummer)
+	Set IsPalletCodeRecenter = (IsPalletCodeRecenter && ((MetRollOver = $$$False) || (HuidigePalletNummer < 50000)))
+	
+	If (($Extract(LaatstGebruiktePalletCode, 9, 9)  = "B") && (HuidigePalletNummer = LaatstGebruiktePalletNummer)) {
+		Set IsPalletCodeRecenter = $$$False
+	}
+	
+	Quit IsPalletCodeRecenter
+]]></Implementation>
+</Method>
 </Class>