phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bug fix to ensure correct WM_OUT key is identified and created. Added services to ensure WM_IN and WM_OUT indexes are maintained.

Browse Source
This commit is contained in:
Infineon\StieberD
2025-07-31 13:55:07 -07:00
parent 898f21b73d
commit 3186ec1ad6
4 changed files with 546 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
LSL2/STPROC/OBJ_WM_OUT.txt
View File

@ -19,11 +19,11 @@ Compile Function obj_WM_Out(Method,Parms)
Declare Function Get_Status, Msg, Utility, obj_Tables, NextKey, obj_WO_Verify, obj_Prod_Spec, Send_Dyn, obj_RDS_Makeup
Declare Function obj_RDS2, obj_WM_Out, Delete, Signature_Services, Environment_Services, Logging_Services
Declare Function Database_Services
Declare Function Database_Services, SRP_Array
Declare Subroutine Set_Status, Msg, obj_Tables, Send_Dyn, obj_WO_Step, obj_RDS_Layer, obj_RDS_Test, Btree.Extract
Declare Subroutine Extract_SI_Keys, obj_WM_Out, obj_WO_Mat, obj_Post_Log, obj_WO_Mat_Log, ErrMsg, obj_WO_Wfr
Declare Subroutine Logging_Services, Material_Services, Database_Services, Update_Index, Work_Order_Services
Declare Subroutine Service_Services, obj_Notes
Declare Subroutine Service_Services, obj_Notes, Delay
$Insert MSG_EQUATES
$Insert APP_INSERTS
@ -40,6 +40,8 @@ $Insert CLEAN_INSP_EQUATES
$Insert WMO_WFRS_EQUATES
$Insert REACT_RUN_EQUATES
EQU NUM_RETRIES$ TO 50
ErrTitle = 'Error in Stored Procedure "obj_WM_Out"'
ErrorMsg = ''
ErrCode = ''
@ -167,14 +169,37 @@ Create:
WMOutKeys = XLATE('WO_STEP',WONo:'*':WOStep,WO_STEP_WM_OUT_KEYS$,'X')
IF WMOutKeys = '' THEN
WMOutKeys = SRP_Array('SortRows', WMOutKeys, 'AR3', 'LIST', @VM, '*')
If WMOutKeys NE '' then
LastCassNo = WMOutKeys[-1, 'B*']
end else
LastCassNo = 0
end
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
CassNo = ''
CandidateCassNo = LastCassNo + 1
Loop
CandidateWmOutKey = WONo:'*':WOStep:'*':CandidateCassNo
If Not(RowExists('WM_OUT', CandidateWmOutKey)) then
Lock hSysLists, CandidateWmOutKey then
CassNo = CandidateCassNo
end
end
Until (CassNo NE '')
CandidateCassNo += 1
Repeat
IF (CassNo EQ 1) THEN
WMOStartBox = 1
WMOStartSlot = 1
END ELSE
LastBoxOut = WMOutKeys[-1,'B':@VM]
LastWMORec = XLATE('WM_OUT',LastBoxOut,'','X')
PrevCassNo = CassNo - 1
LastBoxOut = WONo:'*':WOStep:'*':PrevCassNo
LastWMORec = XLATE('WM_OUT',LastBoxOut,'','X')
LastBoxLastSlot = LastWMORec<WM_OUT_SLOT_NO$>[-1,'B':@VM]
IF LastBoxLastSlot < CassLoadQty THEN
IF ( (LastBoxLastSlot NE '') and (LastBoxLastSlot LT CassLoadQty) ) THEN
WMOStartBox = FIELD(LastBoxOut,'*',3) ;* Start IN the last box
WMOStartSlot = LastBoxLastSlot + 1 ;* Start with first slot past current and less than Load Qty
END ELSE
@ -225,7 +250,8 @@ Create:
NumAttempts = 0
Loop
NumAttempts += 1
Database_Services('WriteDataRow', 'WM_OUT', WMOutKey, WMOutRec)
If NumAttempts GT 1 then Delay(NumAttempts)
Database_Services('WriteDataRow', 'WM_OUT', WMOutKey, WMOutRec, True$, False$, False$)
If Error_Services('HasError') then
// Log the error
LogData = ''
@ -247,9 +273,11 @@ Create:
Logging_Services('AppendLog', objReleaseLog, LogData, @RM, @FM)
Done = True$
end
Until ( (NumAttempts EQ 10) or (Done EQ True$) )
Until ( (NumAttempts GT NUM_RETRIES$) or (Done EQ True$) )
Repeat
Unlock hSysLists, CandidateWmOutKey else Null
WMOutRec = Database_Services('ReadDataRow', 'WM_OUT', WMOutKey)
If WMOutRec EQ '' then
// Record did not write to the database
@ -280,7 +308,6 @@ Create:
WMOCassNo += 1
WMOSlotNo = 1
REPEAT
Result = OutOnlyCassIDs
@ -1961,5 +1988,3 @@ ConvertCleanInsp:
RETURN