added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
438
LSL2/STPROC/REACTOR_PM_QUERY.txt
Normal file
438
LSL2/STPROC/REACTOR_PM_QUERY.txt
Normal file
@ -0,0 +1,438 @@
|
||||
COMPILE FUNCTION Reactor_PM_Query(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
|
||||
/*
|
||||
Commuter module for Reactor_PM_Query dialog window
|
||||
|
||||
05/29/2013 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status,Print_React_Read_Worksheet
|
||||
DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, Btree.Extract, obj_AppWindow,
|
||||
DECLARE SUBROUTINE End_Window,obj_React_Reads
|
||||
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals
|
||||
DECLARE FUNCTION Send_Message, Msg, Security_Check, obj_React_Run_CI, Key_Sort
|
||||
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT LSL_USERS_EQU
|
||||
$INSERT SECURITY_RIGHTS_EQU
|
||||
$INSERT REACT_READS_EQUATES
|
||||
$INSERT POPUP_EQUATES
|
||||
|
||||
EQU COL$REACT_NO TO 1
|
||||
EQU COL$REACT_TYPE TO 2
|
||||
EQU COL$REACT_RED_PRESS TO 3
|
||||
EQU COL$REACT_WAFER_SIZE TO 4
|
||||
EQU COL$REACT_LOC_DESC TO 5
|
||||
|
||||
EQU COL$SERV_ID TO 1
|
||||
EQU COL$SERV_DESC TO 2
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
EQU TAB$ TO \09\
|
||||
|
||||
|
||||
|
||||
ErrTitle = 'Error in Reactor_PM_Query commuter module'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE EntID = @WINDOW
|
||||
BEGIN CASE
|
||||
CASE Event = 'CREATE' ; GOSUB Create
|
||||
CASE Event = 'CLOSE' ; GOSUB Close
|
||||
END CASE
|
||||
|
||||
CASE EntID = @WINDOW:'.LU_REACT_NO' AND Event = 'CLICK' ; GOSUB LUReactor
|
||||
CASE EntID = @WINDOW:'.PERFORM_QUERY_BUTTON' AND Event = 'CLICK' ; GOSUB PerformQuery
|
||||
CASE EntID = @WINDOW:'.CANCEL_BUTTON' AND Event = 'CLICK' ; GOSUB Cancel
|
||||
|
||||
|
||||
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)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Close:
|
||||
* * * * * * * *
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
CtrlName = @WINDOW:'.READ_TABLE'
|
||||
|
||||
ReadList = Get_Property(CtrlName,'LIST')
|
||||
|
||||
LineCnt = INT(COUNT(ReadList,@FM) + (ReadList NE '')/2)
|
||||
|
||||
FOR I = 1 TO LineCnt
|
||||
LineWfrCnts = ReadList<I,COL$WAFER_CNT>
|
||||
|
||||
IF LineWfrCnts NE '' THEN
|
||||
BadLine = 0
|
||||
|
||||
IF LineWfrCnts AND NOT(NUM(LineWfrCnts)) THEN BadLine = 1
|
||||
|
||||
IF BadLine THEN
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',0,I,RED$)
|
||||
END ELSE
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',0,I,GREEN$)
|
||||
END
|
||||
END ELSE
|
||||
IF MOD(I,2) THEN
|
||||
stat = Send_Message(CtrlName,'COLOR_BY_POS',0,I,RCV_BLUE$)
|
||||
END
|
||||
END
|
||||
NEXT I
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
PerformQuery:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
OPEN 'DICT.REACTOR_PM' TO DictVar ELSE
|
||||
ErrMsg('Unable to open "DICT.REACTOR_PM" for Query.')
|
||||
RETURN
|
||||
END
|
||||
|
||||
Ctrls = @WINDOW:'.LAST_DONE_FROM':@RM ; Props = 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.LAST_DONE_THRU':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.DUE_FROM':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.DUE_THRU':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.COMPLETE_FROM':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.COMPLETE_THRU':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.REACTORS':@RM ; Props := 'ARRAY':@RM
|
||||
Ctrls := @WINDOW:'.REACT_SERVS':@RM ; Props := 'ARRAY':@RM
|
||||
Ctrls := @WINDOW:'.NOT_COMPLETE' ; Props := 'DEFPROP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props)
|
||||
|
||||
|
||||
LastDoneFrom = Vals[1,@RM]
|
||||
LastDoneThru = Vals[COL2()+1,@RM]
|
||||
DueFrom = Vals[COL2()+1,@RM]
|
||||
DueThru = Vals[COL2()+1,@RM]
|
||||
CompleteFrom = Vals[COL2()+1,@RM]
|
||||
CompleteThru = Vals[COL2()+1,@RM]
|
||||
Reactors = Vals[COL2()+1,@RM]<COL$REACT_NO>
|
||||
ReactServs = Vals[COL2()+1,@RM]<COL$SERV_ID>
|
||||
NotCompleted = Vals[COL2()+1,@RM]
|
||||
|
||||
LOOP
|
||||
TestChar = ReactServs[-1,1]
|
||||
UNTIL TestChar NE @VM OR ReactServs = ''
|
||||
ReactServs[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
LOOP
|
||||
TestChar = Reactors[-1,1]
|
||||
UNTIL TestChar NE @VM OR Reactors = ''
|
||||
Reactors[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
SearchString = ''
|
||||
|
||||
|
||||
IF Reactors NE '' THEN
|
||||
SearchString<-1> = 'REACTOR':@VM:Reactors:@FM
|
||||
END
|
||||
|
||||
BEGIN CASE
|
||||
CASE LastDoneFrom NE '' AND LastDoneThru = ''
|
||||
SearchString := 'LAST_DONE':@VM:'>=':LastDoneFrom:@FM
|
||||
|
||||
CASE LastDoneFrom = '' AND LastDoneThru NE ''
|
||||
SearchString := 'LAST_DONE':@VM:'<=':LastDoneThru:@FM
|
||||
|
||||
CASE LastDoneFrom NE '' AND LastDoneThru NE ''
|
||||
SearchString := 'LAST_DONE':@VM:LastDoneFrom:'...':LastDoneThru:@FM
|
||||
|
||||
CASE 1
|
||||
NULL
|
||||
END CASE
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE DueFrom NE '' AND DueThru = ''
|
||||
SearchString := 'DUE_DT':@VM:'>=':DueFrom:@FM
|
||||
|
||||
CASE DueFrom = '' AND DueThru NE ''
|
||||
SearchString := 'DUE_DT':@VM:'<=':DueThru:@FM
|
||||
|
||||
CASE DueFrom NE '' AND DueThru NE ''
|
||||
SearchString := 'DUE_DT':@VM:DueFrom:'...':DueThru:@FM
|
||||
|
||||
CASE 1
|
||||
NULL
|
||||
END CASE
|
||||
|
||||
|
||||
BEGIN CASE
|
||||
CASE CompleteFrom NE '' AND CompleteThru = ''
|
||||
SearchString := 'COMPLETE_DATE':@VM:'>=':CompleteFrom:@FM
|
||||
|
||||
CASE CompleteFrom = '' AND CompleteThru NE ''
|
||||
SearchString := 'COMPLETE_DATE':@VM:'<=':CompleteThru:@FM
|
||||
|
||||
CASE CompleteFrom NE '' AND CompleteThru NE ''
|
||||
SearchString := 'COMPLETE_DATE':@VM:CompleteFrom:'...':CompleteThru:@FM
|
||||
|
||||
CASE 1
|
||||
SearchString := 'COMPLETE_DATE':@VM:'':@FM ;* Not Completed
|
||||
|
||||
CASE 1
|
||||
NULL
|
||||
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
IF ReactServs <> '' THEN
|
||||
SearchString := 'REACT_SERV_ID':@VM:ReactServs:@FM
|
||||
END
|
||||
|
||||
ReactPMKeys = ''
|
||||
|
||||
IF SearchString NE '' THEN
|
||||
Set_Status(0)
|
||||
Btree.Extract(SearchString,'REACTOR_PM',DictVar,ReactPMKeys,'',Flag)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
END ;* End of check for null SearchString
|
||||
|
||||
|
||||
IF ReactPMKeys NE '' THEN
|
||||
ReactPMKeys = Key_Sort(ReactPMKeys,'REACTOR_PM','REACTOR':@FM:'SERV_DESC':@FM:'#LAST_DONE', 1 )
|
||||
End_Dialog(@WINDOW,ReactPMKeys)
|
||||
END ELSE
|
||||
MsgInfo = ''
|
||||
MsgInfo<mtext$> = 'No records found meeting your criteria...'
|
||||
MsgInfo<micon$> = '!'
|
||||
Void = msg( '', MsgInfo )
|
||||
END
|
||||
|
||||
RETURN 0
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'Cancel')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
LUReactor:
|
||||
* * * * * * *
|
||||
|
||||
IF NOT(ASSIGNED(Parm1)) THEN FocusControl = '' ELSE FocusControl = Parm1
|
||||
IF NOT(ASSIGNED(Parm2)) THEN FocusPos = '' ELSE FocusPos = Parm2
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
TypeOver = ''
|
||||
TypeOver<PSELECT$> = 2 ;* Multi Select
|
||||
|
||||
ReactNos = Popup(@WINDOW,TypeOver,'REACTORS')
|
||||
|
||||
IF ReactNos = '' THEN RETURN
|
||||
|
||||
CurrReactNos = Get_Property(@WINDOW:'.REACTORS','ARRAY')<1>
|
||||
|
||||
LOOP
|
||||
TestLine = CurrReactNos[-1,'B']
|
||||
UNTIL TestLine NE @VM OR CurrReactNos = ''
|
||||
CurrReactNos[-1,1] = ''
|
||||
REPEAT
|
||||
|
||||
ReactCnt = COUNT(ReactNos,@VM) + (ReactNos NE '')
|
||||
|
||||
FOR I = 1 TO ReactCnt
|
||||
ReactNo = ReactNos<1,I>
|
||||
LOCATE ReactNo IN CurrReactNos BY 'AR' USING @VM SETTING Pos ELSE
|
||||
CurrReactNos = INSERT(CurrReactNos,1,Pos,0,ReactNo)
|
||||
END
|
||||
NEXT I
|
||||
|
||||
|
||||
CurrCnt = COUNT(CurrReactNos,@VM) + (CurrReactNos NE '')
|
||||
|
||||
ReactTypes = XLATE('REACTOR',CurrReactNos,'REACT_TYPE_DESC_OPS','X')
|
||||
RedPressures = XLATE('REACTOR',CurrReactNos,'REDUCED_PRESS','X')
|
||||
WaferSizes = XLATE('REACTOR',CurrReactNos,'WAFER_SIZE','X')
|
||||
Locations = XLATE('REACTOR',CurrReactNos,'TOOL_LOC_DESC','X')
|
||||
|
||||
ReactList = ''
|
||||
|
||||
FOR I = 1 TO CurrCnt
|
||||
ReactList<I,COL$REACT_NO> = ReactNos<1,I>
|
||||
ReactList<I,COL$REACT_TYPE> = ReactTypes<1,I>
|
||||
ReactList<I,COL$REACT_RED_PRESS> = RedPressures<1,I>
|
||||
ReactList<I,COL$REACT_WAFER_SIZE> = WaferSizes<1,I>
|
||||
ReactList<I,COL$REACT_LOC_DESC> = Locations<1,I>
|
||||
NEXT I
|
||||
|
||||
|
||||
|
||||
|
||||
Set_Property(@WINDOW:'.REACTORS','LIST',ReactList)
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
CtrlEntID = @WINDOW:'.REACTORS'
|
||||
|
||||
ColCnt = COL$WAFER_CNT
|
||||
|
||||
PrevSelPos = Get_Property(CtrlEntId,"PREVSELPOS")
|
||||
PrevCol = PrevSelPos<1>
|
||||
PrevRow = PrevSelPos<2>
|
||||
|
||||
CurrPos = Get_Property(CtrlEntId,'SELPOS')
|
||||
CurrCol = CurrPos<1>
|
||||
CurrRow = CurrPos<2>
|
||||
|
||||
ListData = Get_Property(CtrlEntId,'LIST')
|
||||
ArrayData = Get_Property(CtrlEntId,'DEFPROP')
|
||||
|
||||
|
||||
IF CurrCol < COL$WAFER_CNT THEN
|
||||
Set_Property(CtrlEntId,"SELPOS",COL$WAFER_CNT:@FM:CurrRow)
|
||||
RETURN
|
||||
END
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
InsertRow:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.READ_TABLE'
|
||||
|
||||
stat = Send_Message(CtrlEntID, "DELETE", Parm1)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
DeleteRow:
|
||||
* * * * * * *
|
||||
|
||||
CtrlEntID = @WINDOW:'.READ_TABLE'
|
||||
|
||||
stat = Send_Message(CtrlEntID, "INSERT", Parm1, Parm2)
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Save:
|
||||
* * * * * * *
|
||||
|
||||
ReadList = Get_Property(@WINDOW:'.READ_TABLE','LIST')
|
||||
ReadBy = Get_Property(@WINDOW:'.READ_BY_ID','DEFPROP')
|
||||
ReadDTM = Get_Property(@WINDOW:'.READ_DTM','DEFPROP')
|
||||
|
||||
ReadCnt = COUNT(ReadList,@FM) + (ReadList NE '')
|
||||
|
||||
|
||||
|
||||
FOR I = 1 TO ReadCnt
|
||||
|
||||
IF ReadList<I,COL$WAFER_CNT> NE '' THEN
|
||||
|
||||
Parms = ReadList<I,COL$REACTOR>:@RM
|
||||
Parms := ReadBy:@RM
|
||||
Parms := ReadDTM:@RM
|
||||
Parms := ReadList<I,COL$WAFER_CNT>
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
obj_React_Reads('Create',Parms)
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END
|
||||
END
|
||||
NEXT I
|
||||
|
||||
Result = ''
|
||||
|
||||
End_Dialog(@WINDOW,Result)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
PrintForm:
|
||||
* * * * * * *
|
||||
|
||||
ReactList = Get_Property(@WINDOW:'.READ_TABLE','LIST')
|
||||
|
||||
Print_React_Read_Worksheet( ReactList )
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user