migrated from OI 9
This commit is contained in:
Infineon\StieberD
@ -11,8 +11,8 @@ COMPILE FUNCTION Comm_RDS(Method, Parm1, Parm2)
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Send_Event, Set_Status, ErrMsg, Security_Err_Msg, Popup, Print_Cass_Labels
|
||||
DECLARE SUBROUTINE Print_Prod_Labels, obj_WO_Mat_Log, obj_Post_Log, obj_Tables, obj_React_Run, Post_Event
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Start_Window,Print_Cleanroom_Labels_Thermal
|
||||
DECLARE SUBROUTINE Print_Prod_Labels, obj_WO_Mat_Log, obj_Post_Log, obj_Tables, obj_React_Run, Post_Event, Hold_Services
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Btree.Extract, Msg, Start_Window,Print_Cleanroom_Labels_Thermal, Error_Services
|
||||
DECLARE SUBROUTINE obj_RDS_Test, obj_Notes, Print_Control_Plan, obj_WO_Mat, Send_Event, Print_RDS_Instruction, obj_RDS
|
||||
DECLARE SUBROUTINE Start_Window, Development_Services, Dialog_Box, SAP_Services, End_Window, Logging_Services, Rds_Services
|
||||
|
||||
@ -20,7 +20,7 @@ DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Send_Message, Po
|
||||
DECLARE FUNCTION obj_Tables, obj_Clean_Insp, obj_WO_Mat_QA, obj_RDS_Test, obj_WO_Mat, Signature_Services
|
||||
DECLARE FUNCTION obj_WO_Step, Security_Check, obj_RDS_Audit, obj_WM_In, Create_Dialog, obj_NCR, obj_WO_Mat, MemberOf
|
||||
DECLARE FUNCTION Start_Window, Database_Services, Development_Services, RDS_Services, RTI_Lock_Owner, Logging_Services
|
||||
DECLARE FUNCTION Environment_Services, Wafer_Counter_Services, Error_Services
|
||||
DECLARE FUNCTION Environment_Services, Wafer_Counter_Services, Error_Services, Hold_Services
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
@ -309,6 +309,15 @@ Refresh:
|
||||
Set_Property( @WINDOW:'.VIEW_MOD_HIST', 'VISIBLE', 1 )
|
||||
END
|
||||
|
||||
RDSNo = Get_Property(@Window:'.RDS_NO', 'TEXT')
|
||||
WOMatKey = Xlate('RDS', RDSNo, 'WO_MAT_KEY', 'X', '')
|
||||
HoldCheck = Hold_Services('CheckForHold', WOMatKey, '')
|
||||
IF HoldCheck THEN
|
||||
Set_Property(@WINDOW:'.HOLD_BUTTON2','TEXT','Remove Hold')
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.HOLD_BUTTON2','TEXT','Place on Hold')
|
||||
END
|
||||
|
||||
|
||||
* Wafers Accounting and update section
|
||||
|
||||
@ -1258,7 +1267,14 @@ FirstRead:
|
||||
* * * * * * *
|
||||
* Hooked from RDS (first wafer) screen
|
||||
|
||||
|
||||
RDSNo = Get_Property(@Window:'.RDS_NO', 'TEXT')
|
||||
WOMatKey = Xlate('RDS', RDSNo, 'WO_MAT_KEY', 'X', '')
|
||||
HoldCheck = Hold_Services('CheckForHold', WOMatKey, '')
|
||||
IF HoldCheck THEN
|
||||
Set_Property(@WINDOW:'.HOLD_BUTTON2','TEXT','Remove Hold')
|
||||
END ELSE
|
||||
Set_Property(@WINDOW:'.HOLD_BUTTON2','TEXT','Place on Hold')
|
||||
END
|
||||
|
||||
* * * * * * *
|
||||
FirstRefresh:
|
||||
@ -2031,6 +2047,7 @@ MoveMetToZone:
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
HoldClick:
|
||||
* * * * * * *
|
||||
@ -2041,13 +2058,23 @@ HoldClick:
|
||||
|
||||
Send_Event(@WINDOW,'WRITE')
|
||||
Send_Event(@WINDOW,'CLEAR') ; // 12/21/2017 - DMB - Although WRITE normally clears the form, QBF mode will prevent the clear so do this explicitly so the lock is removed from the RDS record.
|
||||
|
||||
HoldEntity = 'RDS'
|
||||
HoldEntityID = RDSNo
|
||||
|
||||
obj_WO_Mat('ToggleHold',WOMatKey:@RM:HoldEntity:@RM:HoldEntityID:@RM:CtrlEnt)
|
||||
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
IF RDSNo NE '' then
|
||||
HoldEntity = 'RDS'
|
||||
HoldEntityID = RDSNo
|
||||
|
||||
//obj_WO_Mat('ToggleHold',WOMatKey:@RM:HoldEntity:@RM:HoldEntityID:@RM:CtrlEnt)
|
||||
Transition = Hold_Services('CheckForHold', WOMatKey, CtrlEnt)
|
||||
HoldType = 'HOLD'
|
||||
HoldData = ''
|
||||
HoldData = Dialog_Box('DIALOG_HOLD',@WINDOW,Transition:@FM:@FM:HoldType)
|
||||
If HoldData NE 'Cancel' then
|
||||
Hold_Services('ToggleHold', WOMatKey, HoldEntity, HoldEntityID, CtrlEnt, '', HoldData, '')
|
||||
IF Error_Services("HasError") THEN
|
||||
ErrCode = Error_Services("GetMessage")
|
||||
ErrMsg(errCode)
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:RDSNo)
|
||||
|
||||
@ -2072,10 +2099,24 @@ HoldDC:
|
||||
HistoryCols = Get_Property(CtrlEntID, "COLUMN")
|
||||
ColName = HistoryCols<1,1,CurrCol>
|
||||
|
||||
WOMatRec = Database_Services("ReadDataRow", "WO_MAT", WOMatKey, "", "", FALSE$)
|
||||
|
||||
IF INDEX(ColName,'START',1) THEN
|
||||
HoldStartReason = WOMatRec<WO_MAT_HOLD_START_REASON$,CurrRow>
|
||||
UpdatedText = Dialog_Box('DIALOG_TEXT',@WINDOW,'Hold Start Reason':@FM:HoldStartReason)
|
||||
END ELSE
|
||||
IF INDEX(ColName,'STOP',1) THEN
|
||||
HoldStopReason = WOMatRec<WO_MAT_HOLD_STOP_REASON$,CurrRow>
|
||||
UpdatedText = Dialog_Box('DIALOG_TEXT',@WINDOW,'Hold Stop Reason':@FM:HoldStopReason)
|
||||
END
|
||||
END
|
||||
|
||||
obj_WO_Mat('EditHoldReason',WOMatKey:@RM:ColName:@RM:CurrRow)
|
||||
IF Get_Status(errCode) THEN ErrMsg(errCode)
|
||||
|
||||
If UpdatedText NE 'Cancel' then
|
||||
Hold_Services("EditHoldReason",WOMatKey, ColName, CurrRow, UpdatedText)
|
||||
End
|
||||
IF Error_Services("NoError") NE TRUE$ THEN
|
||||
ErrMsg(Error_Services("GetMessage"))
|
||||
end
|
||||
Send_Event(CtrlEntID,'CALCULATE',CurrCol)
|
||||
|
||||
RETURN
|
||||
@ -2880,3 +2921,4 @@ return
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user