From 8f233705a26c9ae1795da84c496c3e880b6c43e7 Mon Sep 17 00:00:00 2001
From: "Infineon\\StieberD" <daniel.stieber@infineon.com>
Date: Wed, 23 Jul 2025 15:54:30 -0700
Subject: [PATCH] added call to clean array to prevent null values from
 truncating the list

---
 LSL2/STPROC/WORK_ORDER_SERVICES.txt | 24 +++---------------------
 1 file changed, 3 insertions(+), 21 deletions(-)

diff --git a/LSL2/STPROC/WORK_ORDER_SERVICES.txt b/LSL2/STPROC/WORK_ORDER_SERVICES.txt
index 133b60d..0aaa875 100644
--- a/LSL2/STPROC/WORK_ORDER_SERVICES.txt
+++ b/LSL2/STPROC/WORK_ORDER_SERVICES.txt
@@ -938,29 +938,13 @@ Service PrintLabels(WONo)
                 Msg(@WINDOW,MsgUp)
                 
             end ELSE
-                RDSNos = XLATE('WO_STEP',WOSteps<1,1>,WO_STEP_RDS_KEY$,'X')
-            end
-            
-            If MemberOf(@USER4,'OI_ADMIN') then
-                WOMatKeys = XLATE('WO_LOG',WONo,WO_LOG_WO_MAT_KEY$,'X')
-                CONVERT @VM TO @FM IN WOMatKeys
-                AllRDSNos = XLATE('WO_MAT',WOMatKeys,WO_MAT_RDS_NO$,'X')
-                
-                RDSNos = ''
-                
-                LOOP
-                    CassRDSNos = AllRDSNos[1,@FM]
-                    AllRDSNos[1,COL2()] = ''
-                UNTIL CassRdsNos = ''
-                    RDSNos := CassRdsNos<1,WOStep>:@VM
-                REPEAT
-                
-                RDSNos[-1,1] = ''
-                
+                WOMatKeys = Xlate('WO_LOG', WONo, WO_LOG_WO_MAT_KEY$, 'X')
+                RDSNos    = Xlate('WO_MAT', WOMatKeys, WO_MAT_RDS_NO$, 'X')
             end
             
             If INDEX(RDSNos,@VM,1) then
                 TypeOver              = ''
+                RDSNos                = SRP_Array('Clean', RDSNos, 'TrimAndMakeUnique', @VM)
                 TypeOver<PDISPLAY$>   = RDSNos
                 TypeOver<PFIELD$>     = 2
                 TypeOver<PTYPE$>      = 'K'
@@ -976,9 +960,7 @@ Service PrintLabels(WONo)
                 ErrMsg('No RDS Numbers Selected or Work Order Not Yet Released to Production.')
             end ELSE
                 CONVERT @VM TO @FM IN RDSKeys
-                
                 Print_Cass_Labels(RDSKeys,MultiStepFlag)				;* Updated labels with Akrion Bar Codes
-                
             end
         end
     end