Index: vhTest/Fake/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml
===================================================================
diff -u -r73169 -r73297
--- vhTest/Fake/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(.../PalletIDBepalerHelper.cls.xml)	(revision 73169)
+++ vhTest/Fake/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(.../PalletIDBepalerHelper.cls.xml)	(revision 73297)
@@ -14,6 +14,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLaatstGebruiktePalletCodeVoorToelevering">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefPalletCodeVanLaatstGebruiktePalletVoorToelevering">
+<FormalSpec>ToeleveringId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefSuffixVoorPalletCode">
 <FormalSpec>ToeleveringId:%String,LaatstGescandePalletCode:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml
===================================================================
diff -u -r73281 -r73297
--- APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 73281)
+++ APPS/Halux/PPS/impl/PalletIDBepaler.cls.xml	(.../PalletIDBepaler.cls.xml)	(revision 73297)
@@ -51,7 +51,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim LaatstGescandePalletCode = ..PalletIDBepalerHelper.GeefPalletCodeVanLaatstGescandeLade(ToeleveringId)
+	#dim LaatstGescandePalletCode = ..PalletIDBepalerHelper.GeefLaatstGebruiktePalletCodeVoorToelevering(ToeleveringId)
 	#dim NieuwePalletCode As %String
 	#dim PalletNr As %Integer
 	
Index: vhTest/Mock/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml
===================================================================
diff -u -r73169 -r73297
--- vhTest/Mock/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(.../PalletIDBepalerHelper.cls.xml)	(revision 73169)
+++ vhTest/Mock/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(.../PalletIDBepalerHelper.cls.xml)	(revision 73297)
@@ -15,10 +15,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPalletCodeVanLaatstGescandeLade">
+<Method name="GeefLaatstGebruiktePalletCodeVoorToelevering">
 <FormalSpec>ToeleveringId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPalletCodeVanLaatstGescandeLade",ToeleveringId)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLaatstGebruiktePalletCodeVoorToelevering",ToeleveringId)
 ]]></Implementation>
 </Method>
 
Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r73114 -r73297
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 73114)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 73297)
@@ -645,6 +645,7 @@
 	#dim lbDragerIDs As %List = $G(Lookup(ORDNr,PRNr))
 	
 	If $LL(lbDragerIDs) {
+		Set lbDragerIDs = ..VerwijderDubbelePalletCodes(lbDragerIDs)
 		Set DragerTypeBepaler = ##class(DOM.PM.impl.DragerTypeBepaler).%New()
 		#dim DragerType As DOM.PM.enu.DragerType = DragerTypeBepaler.BepaalDragerType($ListGet(lbDragerIDs))
 		
@@ -954,5 +955,17 @@
 	Quit OorsprongKetting
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderDubbelePalletCodes">
+<FormalSpec>lbDragerIDs:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	#dim PalletCodesLijst = ##class(TECH.ListUtils).ListbuildToList(lbDragerIDs)
+	#dim PalletCodeLijstZonderDubbels = ##class(TECH.ListUtils).RemoveDuplicateItems(PalletCodesLijst)
+	
+	Quit ##class(TECH.ListUtils).ListToListbuild(PalletCodeLijstZonderDubbels)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml
===================================================================
diff -u -r73169 -r73297
--- APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(.../PalletIDBepalerHelper.cls.xml)	(revision 73169)
+++ APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper.cls.xml	(.../PalletIDBepalerHelper.cls.xml)	(revision 73297)
@@ -65,24 +65,39 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPalletCodeVanLaatstGescandeLade">
+<Method name="GeefLaatstGebruiktePalletCodeVoorToelevering">
 <FormalSpec>ToeleveringId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnRecent(ToeleveringId)
-	#dim LaatsteScanTijdstip As %Integer = "1,1"
-	#dim PalletCodeLaatstGescandeLade As %String = ""
+	#dim MetRollOver = $$$False
+	#dim GebruiktePalletCodeLijst = ##class(%ListOfDataTypes).%New()
+	#dim TbpNummer As %String
 	
 	While DnaCodeIterator.HasNext() {
 		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 		
-		If ($$$Not(DnaCode.ScanTijdstip = "") && ..DateTimeApi.HorologIsGroterDan(DnaCode.ScanTijdstip, LaatsteScanTijdstip)) {
-			Set LaatsteScanTijdstip = DnaCode.ScanTijdstip
-			Set PalletCodeLaatstGescandeLade = DnaCode.PalletCode
+		If ($$$Not(DnaCode.ScanTijdstip = "") && $$$Not(..IsPalletCodeVoorOnderdelenDoos(DnaCode.PalletCode))) {
+			Set TbpNummer = $Extract(DnaCode.PalletCode, 4, 8)
+			
+			Do GebruiktePalletCodeLijst.Insert(DnaCode.PalletCode)
+			Set:(TbpNummer = "00001") MetRollOver = $$$True
 		}
 	}
 	
-	Quit PalletCodeLaatstGescandeLade
+	#dim LaatstGebruiktePalletCode As %String = ""
+	#dim GebruiktePalletCodeIterator = ##class(TECH.ListIterator).%New(GebruiktePalletCodeLijst)
+	
+	While GebruiktePalletCodeIterator.HasNext() {
+		#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))) {
+			Set LaatstGebruiktePalletCode = PalletCode
+		}
+	}
+	
+	Quit LaatstGebruiktePalletCode
 ]]></Implementation>
 </Method>
 
@@ -105,6 +120,14 @@
 	Quit VerpakkingType
 ]]></Implementation>
 </Method>
+
+<Method name="IsPalletCodeVoorOnderdelenDoos">
+<FormalSpec>PalletCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$Not($Extract(PalletCode, 1, 3) = "TBP")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/Flow/Proxy/pxPakbon.cls.xml
===================================================================
diff -u -r73234 -r73297
--- BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 73234)
+++ BL/Flow/Proxy/pxPakbon.cls.xml	(.../pxPakbon.cls.xml)	(revision 73297)
@@ -147,10 +147,13 @@
 	. Set User=""
 	. For  Set User=$o(arProduct(SortKey,User)) Quit:User=""  Do
 	. . Set VNR=""
+	. . Set ReedsVoorgekomenPalletIDs = ##class(%ListOfDataTypes).%New()
 	. . For  Set VNR=$O(arProduct(SortKey,User,VNR)) Quit:VNR=""  Do
 	. . . Set lbPickInfo=arProduct(SortKey,User,VNR)
 	. . . Set pxPicking=##class(pxPakbonPicking).%New()
 	. . . Set PalletID=$LI(lbPickInfo,1)
+	. . . Quit:(ReedsVoorgekomenPalletIDs.Find(PalletID, 0))
+	. . . Do ReedsVoorgekomenPalletIDs.Insert(PalletID)
 	. . . For i=$L(PalletID):1:7 Set PalletID="0"_PalletID
 	. . . Set pxPicking.PalletID=PalletID
 	. . . Set pxPicking.Aantal=$LI(lbPickInfo,3)
Index: vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/GeefNieuwPalletID/Test.cls.xml
===================================================================
diff -u -r73281 -r73297
--- vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/GeefNieuwPalletID/Test.cls.xml	(.../Test.cls.xml)	(revision 73281)
+++ vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/GeefNieuwPalletID/Test.cls.xml	(.../Test.cls.xml)	(revision 73297)
@@ -93,7 +93,7 @@
 	#dim LaatstGescandePalletCode As %String = ""
 	
 	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefVerpakkingTypeVanProduct", ..#DummyProductNr).DanReturn("Probox")
-	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefPalletCodeVanLaatstGescandeLade", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefLaatstGebruiktePalletCodeVoorToelevering", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
 	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefSuffixVoorPalletCode", ..#DummyToeleveringId, LaatstGescandePalletCode).DanReturn("A")
 	
 	#dim Type = "TBP"
@@ -109,7 +109,7 @@
 	#dim LaatstGescandePalletCode As %String = "TBP12345B"
 	
 	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefVerpakkingTypeVanProduct", ..#DummyProductNr).DanReturn("Probox")
-	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefPalletCodeVanLaatstGescandeLade", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefLaatstGebruiktePalletCodeVoorToelevering", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
 	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefSuffixVoorPalletCode", ..#DummyToeleveringId, LaatstGescandePalletCode).DanReturn("A")
 	
 	#dim Type = "TBP"
@@ -125,7 +125,7 @@
 	#dim LaatstGescandePalletCode As %String = "TBP12345A"
 	
 	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefVerpakkingTypeVanProduct", ..#DummyProductNr).DanReturn("Probox")
-	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefPalletCodeVanLaatstGescandeLade", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefLaatstGebruiktePalletCodeVoorToelevering", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
 	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefSuffixVoorPalletCode", ..#DummyToeleveringId, LaatstGescandePalletCode).DanReturn("B")
 	
 	#dim Type = "TBP"
@@ -141,7 +141,7 @@
 	#dim LaatstGescandePalletCode As %String = "TBX12345"
 	
 	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefVerpakkingTypeVanProduct", ..#DummyProductNr).DanReturn("Probox")
-	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefPalletCodeVanLaatstGescandeLade", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
+	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefLaatstGebruiktePalletCodeVoorToelevering", ..#DummyToeleveringId).DanReturn(LaatstGescandePalletCode)
 	Do ..PalletIDBepalerHelperMock.IndienMethodCall("GeefSuffixVoorPalletCode", ..#DummyToeleveringId, LaatstGescandePalletCode).DanReturn("B")
 	
 	#dim Type = "TBP"
Index: vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefLaatstGebruiktePalletCodeVoorToelevering/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefLaatstGebruiktePalletCodeVoorToelevering/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefLaatstGebruiktePalletCodeVoorToelevering/Test.cls.xml	(revision 73297)
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.impl.PalletIDBepaler.PalletIDBepalerHelper.GeefLaatstGebruiktePalletCodeVoorToelevering.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="DummyToeleveringId">
+<Type>%String</Type>
+<Default>200000</Default>
+</Parameter>
+
+<Property name="DnaCodeRepositoryMock">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>TestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(TestName)
+	
+	Set ..DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen andere DnaCodes in toelevering -&gt; Lege PalletCode">
+<Implementation><![CDATA[
+	#dim DnaCodeIteratorMock AS TECH.Iterator = ..EmptyIterator()
+	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, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen ingescande DnaCodes in toelevering -&gt; lege PalletCode">
+<Implementation><![CDATA[
+	#dim ScanTijdstippen As %List = $ListBuild("")
+	#dim PalletCodes As %List = $ListBuild("TBP12345")
+	
+	#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, "")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschillende ingescande DnaCodes in toelevering -&gt; PalletCode is die met hoogste nummer">
+<Implementation><![CDATA[
+	#dim ScanTijdstippen As %List = $ListBuild("1000,2", "1000,1", "1000,5", "1000, 3", "1000, 4")
+	#dim PalletCodes As %List = $ListBuild("TBP10002", "TBP10001", "TBP10005", "TBP10003", "TBP10004")
+	
+	#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, "TBP10005")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschillende ingescande DnaCodes in toelevering met A/B -&gt; PalletCode is die van hoogste TBP kant B">
+<Implementation><![CDATA[
+	#dim ScanTijdstippen As %List = $ListBuild("1000,1", "1000,2", "1000,5", "1000,4", "1000,6")
+	#dim PalletCodes As %List = $ListBuild("TBP10001", "TBP10002", "TBP10003A", "TBP10003B", "TBP10001")
+	
+	#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")
+	#dim PalletCodes As %List = $ListBuild("TBP99998", "TBP99999", "TBP00001", "TBP00002")
+	
+	#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, "TBP00002")
+]]></Implementation>
+</Method>
+
+<Method name="GeefDnaCodeIteratorMetScanTijdstippenEnPalletCodes">
+<FormalSpec>ScanTijdstippen:%List,PalletCodes:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCodeLijst = ##class(%ListOfObjects).%New()
+	#dim DnaCodeMock As DOM.Halux.AAP.DnaCode
+	#dim Index As %Integer = 1
+	
+	For Index = 1:1:$ListLength(ScanTijdstippen) {
+		Set DnaCodeMock = ##class(DOM.Halux.AAP.DnaCode).%New()
+		Set DnaCodeMock.ScanTijdstip = $List(ScanTijdstippen, Index)
+		Set DnaCodeMock.PalletCode = $List(PalletCodes, Index)
+		
+		Do DnaCodeLijst.Insert(DnaCodeMock)
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(DnaCodeLijst)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 73297 refers to a dead (removed) revision in file `vhUnitTest/APPS/Halux/PPS/impl/PalletIDBepaler/PalletIDBepalerHelper/GeefPalletCodeVanLaatstGescandeLade/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?