From 3e8cf4fe83f09ce05f37bcc61cfc1344f80c0097 Mon Sep 17 00:00:00 2001
From: Sun Haoran <haoransun@microsoft.com>
Date: Wed, 11 Sep 2024 12:04:42 +0200
Subject: [PATCH] [24.5] fix split list to include the leftovers (#2006)

<!-- Thank you for submitting a Pull Request. If you're new to
contributing to BCApps please read our pull request guideline below
* https://github.com/microsoft/BCApps/Contributing.md
-->
#### Summary <!-- Provide a general summary of your changes -->

port from #2001

#### Work Item(s) <!-- Add the issue number here after the #. The issue
needs to be open and approved. Submitting PRs with no linked issues or
unapproved issues is highly discouraged. -->
Fixes
[AB#548441](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/548441)
---
 .../App/Data Administration/src/MediaCleanupImpl.Codeunit.al   | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/System Application/App/Data Administration/src/MediaCleanupImpl.Codeunit.al b/src/System Application/App/Data Administration/src/MediaCleanupImpl.Codeunit.al
index f3a2cbb45d..92926aaabf 100644
--- a/src/System Application/App/Data Administration/src/MediaCleanupImpl.Codeunit.al	
+++ b/src/System Application/App/Data Administration/src/MediaCleanupImpl.Codeunit.al	
@@ -236,6 +236,7 @@ codeunit 1928 "Media Cleanup Impl."
         FilterText := FilterText.TrimEnd('|');
     end;
 
+    // 322, 100 will result in [[1, 100], [101, 200], [201, 300], [301, 322]]
     local procedure SplitListIntoSubLists(var InputList: List of [Guid]; SubListCount: Integer; var SplitList: List of [List of [Guid]])
     var
         Math: Codeunit Math;
@@ -244,7 +245,7 @@ codeunit 1928 "Media Cleanup Impl."
         From: Integer;
         ToInt: Integer;
     begin
-        for ListNumber := 0 to Round(InputList.Count() / SubListCount, 1) - 1 do begin
+        for ListNumber := 0 to Round(InputList.Count() / SubListCount, 1) do begin
             Clear(SubList);
             From := ListNumber * SubListCount + 1;
             ToInt := Math.Min(SubListCount, InputList.Count() - ListNumber * SubListCount);