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

ready for unit testing

Browse Source
This commit is contained in:
Infineon\StieberD
2025-06-17 17:10:31 -07:00
committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 401c03d752
commit 03e85359d1
21 changed files with 1713 additions and 546 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
LSL2/STPROC/OBJ_RDS2.txt
View File

@ -26,10 +26,10 @@ COMPILE FUNCTION obj_RDS2(Method,Parms)
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, obj_Prod_Spec, Dialog_Box, obj_RDS_Test
DECLARE FUNCTION obj_React_Status, Logging_Services, Environment_Services, Database_Services, Error_Services
DECLARE FUNCTION Material_Services, SRP_Array
DECLARE FUNCTION Material_Services, SRP_Array, Lot_Services
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, obj_WO_Step, obj_RDS_Layer, obj_RDS_Test, obj_React_Status, obj_WO_Wfr
DECLARE SUBROUTINE RDS_React_Run, obj_WM_Out, obj_WM_In, ErrMsg, Send_Info, obj_Clean_Insp, Database_Services
DECLARE SUBROUTINE Logging_Services
DECLARE SUBROUTINE Logging_Services, Lot_Services
$INSERT MSG_EQUATES
$INSERT WO_VERIFY_EQU
@ -769,7 +769,14 @@ IF NOT(UnloadFailed) THEN
// Clear REACT_RUN data (copy cleared RDS data to REACT_RUN)
RDS_React_Run(RDSNo)
end
end else
LotId = Lot_Services('GetLotIdByLegacyLotIdAndType', RDSNo, 'RDS')
If Error_Services('NoError') then
Lot_Services('MoveOutLot', LotId, @User4) ; // Move out of POST_EPI operation
Lot_Services('MoveInLot', LotId, @User4) ; // Move into RDS_CLOSE operation
Lot_Services('CloseLot', LotId)
end
end
END ELSE
obj_Tables('UnlockRec',RTParms)
@ -1675,3 +1682,4 @@ RETURN