From 7b0d78a2d3975647ee76f794e1edbe908a0f6fc0 Mon Sep 17 00:00:00 2001 From: "Stieber Daniel (CSC FI SPS MESLEO)" Date: Wed, 26 Feb 2025 19:20:25 +0100 Subject: [PATCH] Merged PR 11298: added a null cass no check to the unload epipro service added a null cass no check to the unload epipro service --- LSL2/STPROC/OBJ_WM_OUT.txt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/LSL2/STPROC/OBJ_WM_OUT.txt b/LSL2/STPROC/OBJ_WM_OUT.txt index 28bd7fb..3e6f096 100644 --- a/LSL2/STPROC/OBJ_WM_OUT.txt +++ b/LSL2/STPROC/OBJ_WM_OUT.txt @@ -613,9 +613,11 @@ NextOpenSlots: FOR I = 1 TO COUNT(WMOKeys,@VM) + (WMOKeys NE '') CassNo = WMOKeys<1,I>[-1,'B*'] - LOCATE CassNo IN CassNos BY 'AR' USING @VM SETTING Pos ELSE - CassNos = INSERT(CassNos,1,Pos,0,CassNo) - END + If CassNo NE '' then + LOCATE CassNo IN CassNos BY 'AR' USING @VM SETTING Pos ELSE + CassNos = INSERT(CassNos,1,Pos,0,CassNo) + END + end NEXT I END @@ -625,7 +627,6 @@ NextOpenSlots: * Start Counting at the last box and work backward FOR I = CassCnt TO 1 STEP -1 - CassNo = CassNos<1,I> WMOutRec = XLATE('WM_Out',WONo:'*':WOStep:'*':CassNo,'','X') SlotCnt = COUNT(WMOutRec,@VM) + (WMOutRec NE '')