added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
510
LSL2/STPROC/REACT_ITEM.txt
Normal file
510
LSL2/STPROC/REACT_ITEM.txt
Normal file
@ -0,0 +1,510 @@
|
||||
COMPILE FUNCTION React_Item(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for REACT_ITEM window
|
||||
|
||||
01/13/2014 - John C. Henry, J.C. Henry & Co., Inc. cloned from Graphite
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, ErrMsg, obj_Appwindow, Btree.Extract, Send_Event, Post_Event, obj_React_Item
|
||||
DECLARE FUNCTION Get_Property, Send_Message, NextKey, Popup, obj_Calendar, Printer_Select
|
||||
DECLARE FUNCTION Set_Printer, obj_Install, Start_Window, obj_React_Item_Hist, obj_React_Item, Dialog_Box
|
||||
|
||||
|
||||
$INSERT REACT_ITEM_EQUATES
|
||||
$INSERT REACT_ITEM_HIST_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
EQU COL$REACT_NO TO 1
|
||||
EQU COL$SVC_HRS TO 2
|
||||
EQU COL$SVC_WFRS TO 3
|
||||
EQU COL$RDS_WAFER_COUNT TO 4
|
||||
EQU COL$PCRC TO 5
|
||||
EQU COL$INST_DTM TO 6
|
||||
EQU COL$INST_REACT_HRS TO 7
|
||||
EQU COL$INST_REACT_WFRS TO 8
|
||||
EQU COL$INST_RL_ID TO 9
|
||||
EQU COL$REM_DTM TO 10
|
||||
EQU COL$REM_REACT_HRS TO 11
|
||||
EQU COL$REM_REACT_WFRS TO 12
|
||||
EQU COL$REM_RL_ID TO 13
|
||||
|
||||
EQU SPECIAL_BLUE$ TO 227 + (253*256) + (248*65536)
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
|
||||
EQU PI$LEFT TO 1
|
||||
EQU PI$TOP TO 2
|
||||
EQU PI$RIGHT TO 3
|
||||
EQU PI$BOTTOM TO 4
|
||||
EQU PI$WIDTH TO 5
|
||||
EQU PI$HEIGHT TO 6
|
||||
EQU PI$SIZE TO 7
|
||||
|
||||
|
||||
ErrTitle = 'Error in React_Item'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
CASE Event = 'CLEAR' ; GOSUB Clear
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
CASE Event = 'CLOSE' ; GOSUB Close
|
||||
CASE Event = 'WRITE' ; GOSUB Write
|
||||
CASE Event = 'READ' ; GOSUB Read
|
||||
CASE Event[1,3] = 'QBF' ; GOSUB Refresh
|
||||
END CASE
|
||||
|
||||
CASE EntID = @WINDOW:'.REACT_NO'
|
||||
|
||||
BEGIN CASE
|
||||
CASE Event = 'DBLCLK' ; GOSUB ReactDC
|
||||
|
||||
END CASE
|
||||
|
||||
CASE EntID = @WINDOW:'.LU_RI_NO' AND Event = 'CLICK' ; GOSUB LUReactItem
|
||||
CASE EntID = @WINDOW:'.NEW' AND Event = 'CLICK' ; GOSUB New
|
||||
CASE EntID = @WINDOW:'.LU_MFR_CD' AND Event = 'CLICK' ; GOSUB LUMfrCd
|
||||
CASE EntID = @WINDOW:'.LU_RI_TYPE' AND Event = 'CLICK' ; GOSUB LURIType
|
||||
CASE EntID = @WINDOW:'.LU_PART_TYPE' AND Event = 'CLICK' ; GOSUB LUPartType
|
||||
CASE EntID = @WINDOW:'.LU_TUBE_STYLE' AND Event = 'CLICK' ; GOSUB LUTubeStyle ;* Added by dkk 12/1/14
|
||||
CASE EntID = @WINDOW:'.LU_SUSC_SIZE' AND Event = 'CLICK' ; GOSUB LUSuscSize
|
||||
CASE EntID = @WINDOW:'.LU_PKT_SIZE' AND Event = 'CLICK' ; GOSUB LUPktSize
|
||||
CASE EntID = @WINDOW:'.LU_PKT_QTY' AND Event = 'CLICK' ; GOSUB LUPktQty
|
||||
CASE EntID = @WINDOW:'.RETIRE_BUTTON' AND Event = 'CLICK' ; GOSUB RetireItem
|
||||
CASE EntID = @WINDOW:'.PRINT_LABEL' AND Event = 'CLICK' ; GOSUB PrintLabel
|
||||
|
||||
CASE 1
|
||||
|
||||
ErrorMsg = 'Unknown Parameters ':EntID:' - ':Event:' passed to commuter'
|
||||
ErrMsg(ErrorMsg)
|
||||
|
||||
END CASE
|
||||
|
||||
IF ErrorMsg NE '' THEN
|
||||
ErrMsg(ErrTitle:@SVM:ErrorMsg)
|
||||
END
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
obj_Appwindow('Create',@WINDOW)
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
New:
|
||||
* * * * * * *
|
||||
|
||||
RINo = Get_Property(@WINDOW:'.REACT_ITEM','DEFPROP')
|
||||
|
||||
IF RINo = '' THEN
|
||||
NextRINo = NextKey('REACT_ITEM')
|
||||
obj_Appwindow('LoadFormKeys',@WINDOW:@RM:NextRINo)
|
||||
END
|
||||
|
||||
EnterBy = Get_Property(@WINDOW:'.ENTER_BY','DEFPROP')
|
||||
|
||||
IF EnterBy = '' THEN
|
||||
Set_Property(@WINDOW:'.ENTER_BY','INVALUE',@USER4)
|
||||
Set_Property(@WINDOW:'.ENTER_DTM','DEFPROP',obj_Calendar('CurrDTM'))
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * *
|
||||
|
||||
*DEBUG
|
||||
|
||||
obj_Appwindow('CardReturn',@WINDOW)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
Parent = Get_Property(@WINDOW,'PARENT')
|
||||
|
||||
IF Parent = 'REACTOR_LOG' OR Parent = 'REACT_STATE' THEN
|
||||
Post_Event(@WINDOW,'CLOSE')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Clear:
|
||||
* * * * * * *
|
||||
|
||||
*Send_Event(@WINDOW,'PAGE',1)
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.ENTER_BY':@RM ; Props = 'TEXT':@RM
|
||||
Ctrls := @WINDOW:'.ENTER_DTM' ; Props := 'TEXT'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
EnterBy = Vals[1,@RM]
|
||||
EnterDTM = Vals[COL2()+1,@RM]
|
||||
|
||||
IF EnterBy = '' THEN Vals = 1:@RM ELSE Vals = 0:@RM
|
||||
IF EnterDTM = '' THEN Vals := 1 ELSE Vals := 0
|
||||
|
||||
Props = 'ENABLED':@RM:'ENABLED'
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
* QBF buttons
|
||||
|
||||
Ctrls = @WINDOW:'.QBF_FIRST_FIX':@RM ; Props = 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.QBF_PREV_FIX':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.QBF_ABS_FIX':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.QBF_NEXT_FIX':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.QBF_LAST_FIX':@RM ; Props := 'ENABLED':@RM
|
||||
Ctrls := @WINDOW:'.QBF_STOP_FIX' ; Props := 'ENABLED'
|
||||
|
||||
IF Get_Property(@WINDOW,'QBFLIST') = '' THEN
|
||||
Vals = 0:@RM:0:@RM:0:@RM:0:@RM:0:@RM:0
|
||||
END ELSE
|
||||
Vals = 1:@RM:1:@RM:1:@RM:1:@RM:1:@RM:1
|
||||
END
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
|
||||
|
||||
* Turn edit table symbolic column backgrounds to green **************************************************
|
||||
|
||||
/*
|
||||
ETSymbolics = Get_Property(@WINDOW,'@ET_SYMBOLICS') ;* Loaded during 'Create' in obj_Appwindow
|
||||
|
||||
ETCtrls = ETSymbolics<1>
|
||||
ETCols = ETSymbolics<2>
|
||||
|
||||
FOR I = 1 TO COUNT(ETCtrls,@VM) + (ETCtrls NE '')
|
||||
ETCtrl = ETCtrls<1,I>
|
||||
ETList = Get_Property(ETCtrl,'LIST')
|
||||
FOR Line = 1 TO COUNT(ETList,@FM) + (ETList NE '')
|
||||
IF ETList<Line,1> NE '' THEN
|
||||
FOR N = 1 TO COUNT(ETCols<1,I>,@SVM) + (ETCols<1,I> NE '')
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',ETCols<1,I,N>,Line,GREEN$)
|
||||
NEXT N
|
||||
END
|
||||
NEXT I
|
||||
NEXT I
|
||||
|
||||
*/
|
||||
|
||||
|
||||
|
||||
ETCtrl = @WINDOW:'.REACT_NO'
|
||||
ETList = Get_Property(ETCtrl,'LIST')
|
||||
ListCnt = COUNT(ETList,@FM) + (ETList NE '')
|
||||
|
||||
|
||||
FOR Line = 1 TO ListCnt
|
||||
|
||||
IF MOD(Line,2) THEN
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$REACT_NO,Line,SPECIAL_BLUE$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$SVC_HRS,Line,VL_YELLOW$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$SVC_WFRS,Line,VL_YELLOW$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$RDS_WAFER_COUNT,Line,VL_YELLOW$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$PCRC,Line,VL_YELLOW$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$INST_DTM,Line,SPECIAL_BLUE$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$INST_REACT_HRS,Line,SPECIAL_BLUE$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$INST_REACT_WFRS,Line,SPECIAL_BLUE$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$INST_RL_ID,Line,SPECIAL_BLUE$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$REM_DTM,Line,SPECIAL_BLUE$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$REM_REACT_HRS,Line,RCV_BLUE$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$REM_REACT_WFRS,Line,RCV_BLUE$)
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',COL$REM_RL_ID,Line,RCV_BLUE$)
|
||||
|
||||
END ELSE
|
||||
FOR N = 1 TO 11
|
||||
stat = Send_Message(ETCtrl,'COLOR_BY_POS',N,Line,WHITE$)
|
||||
NEXT N
|
||||
END
|
||||
NEXT Line
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
RetireItem:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.RETIRE_DT':@RM ; Props = 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.RETIRE_BY' ; Props := 'INVALUE'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
RetDt = Vals[1,@RM]
|
||||
RetBy = Vals[COL2()+1,@RM]
|
||||
|
||||
IF RetBy NE '' THEN RETURN ;* Nothing to do
|
||||
|
||||
Vals = OCONV(Date(),'D4/'):@RM
|
||||
Vals := @USER4
|
||||
|
||||
Set_Property(Ctrls,Props,Vals)
|
||||
|
||||
GraphNo = Get_Property(@WINDOW:'.GR_NO','DEFPROP')
|
||||
|
||||
Send_Event(@WINDOW,'WRITE')
|
||||
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:GraphNo)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
ReactDC:
|
||||
* * * * * * *
|
||||
|
||||
CurrPos = Get_Property(EntID,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
GRNo = Get_Property(@WINDOW:'.GR_NO','DEFPROP')
|
||||
|
||||
IF GRNo = '' THEN RETURN
|
||||
|
||||
BEGIN CASE
|
||||
CASE CurrCol = COL$INST_RL_ID
|
||||
RLId = CurrRow<COL$INST_RL_ID>
|
||||
|
||||
CASE CurrCol = COL$REM_RL_ID
|
||||
RLId = CurrRow<COL$INST_RL_ID>
|
||||
|
||||
END CASE
|
||||
|
||||
RLId = Get_Property(EntID,'CELLPOS',CurrCol:@FM:CurrRow)
|
||||
|
||||
IF RLId NE '' THEN
|
||||
Dummy = Start_Window( 'REACTOR_LOG', @WINDOW, RLId:'*CENTER', '', '' )
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LURIType:
|
||||
* * * * * * *
|
||||
|
||||
RetVal = Popup(@WINDOW,'','REACT_ITEM_TYPE')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
oaParms = RetVal:@RM:@WINDOW:'.RI_TYPE'
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUReactItem:
|
||||
* * * * * * *
|
||||
|
||||
RetVal = Dialog_Box('DIALOG_REACT_ITEM_QUERY', @WINDOW)
|
||||
|
||||
Display = ''
|
||||
Display<PDISPLAY$> = RetVal
|
||||
Display<PMODE$> = 'K'
|
||||
|
||||
RetVal = Popup(@WINDOW,Display,'REACT_ITEM')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
|
||||
IF INDEX(RetVal,@VM,1) THEN
|
||||
Set_Property(@WINDOW,'QBFLIST',RetVal)
|
||||
END ELSE
|
||||
obj_AppWindow('LoadFormKeys',@WINDOW:@RM:RetVal)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUPartType:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RetVal = Popup(@WINDOW,'','RI_PART_TYPE')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
oaParms = RetVal:@RM:@WINDOW:'.PART_TYPE'
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUTubeStyle: ;* Added by dkk 12/1/14
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RetVal = Popup(@WINDOW,'','TUBE_STYLE')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
oaParms = RetVal:@RM:@WINDOW:'.TUBE_STYLE'
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUMfrCd:
|
||||
* * * * * * *
|
||||
|
||||
MfrCd = Popup(@WINDOW,'','REACT_VENDOR')
|
||||
|
||||
IF MfrCd NE '' THEN
|
||||
oaParms = MfrCd:@RM:@WINDOW:'.MFR_CD'
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUReactType:
|
||||
* * * * * * *
|
||||
|
||||
RetVal = Popup(@WINDOW,'','REACTOR_TYPE')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
oaParms = RetVal:@RM:@WINDOW:'.REACT_TYPE'
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
LUSuscSize:
|
||||
* * * * * * *
|
||||
RetVal = Popup(@WINDOW,'','WAFER_SIZES')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
oaParms = RetVal:@RM:@WINDOW:'.SUSC_SIZE'
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUPktSize:
|
||||
* * * * * * *
|
||||
|
||||
RetVal = Popup(@WINDOW,'','WAFER_SIZES')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
oaParms = RetVal:@RM:@WINDOW:'.PKT_SIZE'
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUPktQty:
|
||||
* * * * * * *
|
||||
|
||||
ReactType = Get_Property(@WINDOW:'.REACT_TYPE','INVALUE')
|
||||
|
||||
IF ReactType NE '' THEN
|
||||
|
||||
AllDisplayData = XLATE('SYSREPOSPOPUPS','LSL2**SUSCEPTOR_POCKETS',PDISPLAY$,'X')
|
||||
DisplayData = ''
|
||||
TypeOver = ''
|
||||
|
||||
DispCnt = COUNT(AllDisplayData,@VM) + (AllDisplayData NE '')
|
||||
|
||||
FOR I = 1 TO DispCnt
|
||||
DisplayLine = AllDisplayData<1,I>
|
||||
IF DisplayLine<1,1,2> = ReactType THEN
|
||||
DisplayData<1,-1> = DisplayLine
|
||||
END
|
||||
NEXT I
|
||||
|
||||
TypeOver<PDISPLAY$> = DisplayData
|
||||
|
||||
RetVal = Popup(@WINDOW,TypeOver,'SUSCEPTOR_POCKETS')
|
||||
|
||||
END ELSE
|
||||
RetVal = Popup(@WINDOW,'','SUSCEPTOR_POCKETS')
|
||||
END
|
||||
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
oaParms = RetVal:@RM:@WINDOW:'.PKT_QTY'
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PrintLabel:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.RI_NO':@RM ; Props = 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW ; Props := 'ATRECORD'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
RINo = Vals[1,@RM]
|
||||
CurrRec = Vals[COL2()+1,@RM]
|
||||
|
||||
obj_React_Item('PrintLabel',RINo:@RM:CurrRec)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
Reference in New Issue
Block a user