added LSL2 stored procedures
This commit is contained in:
Infineon\StieberD
277
LSL2/STPROC/COMM_DIALOG_NCR_REJ_SLOT.txt
Normal file
277
LSL2/STPROC/COMM_DIALOG_NCR_REJ_SLOT.txt
Normal file
@ -0,0 +1,277 @@
|
||||
COMPILE FUNCTION Comm_Dialog_NCR_Rej_Slot(Method, Parm1, Parm2)
|
||||
|
||||
/*
|
||||
Commuter module for Dialog_NCR_Rej_Slot window.
|
||||
|
||||
08/20/2008 - John C. Henry, J.C. Henry & Co., Inc.
|
||||
*/
|
||||
|
||||
DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status, ErrMsg, Send_Event, obj_RDS_Test
|
||||
DECLARE SUBROUTINE obj_Appwindow, Start_Window, Msg, End_Dialog, Send_Message, ErrMsg
|
||||
DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Popup, Send_Message, obj_Test_Point_Map, obj_RDS_Test
|
||||
|
||||
|
||||
EQU CRLF$ TO \0D0A\
|
||||
|
||||
$INSERT MSG_EQUATES
|
||||
$INSERT WO_MAT_EQUATES
|
||||
$INSERT NCR_EQU
|
||||
$INSERT APPCOLORS
|
||||
|
||||
EQU WFR_COL$SLOT TO 1
|
||||
EQU WFR_COL$WAFER_ID TO 2
|
||||
EQU WFR_COL$SLOT_NCR TO 3
|
||||
EQU WFR_COL$MET_NO TO 4
|
||||
EQU WFR_COL$MOVED_TO_SLOT TO 5
|
||||
EQU WFR_COL$REPLACED_BY TO 6
|
||||
|
||||
EQU NCR_COL$SLOT_NO TO 1
|
||||
EQU NCR_COL$WAFER_ID TO 2
|
||||
EQU NCR_COL$PREV_NCR TO 3
|
||||
EQU NCR_COL$REJ_MET_NO TO 4
|
||||
|
||||
|
||||
ErrTitle = 'Error in Comm_Dialog_NCR_Rej_Slot'
|
||||
ErrorMsg = ''
|
||||
|
||||
Result = ''
|
||||
|
||||
BEGIN CASE
|
||||
CASE Method = 'Create' ; GOSUB Create
|
||||
CASE Method = 'WOMatClick' ; GOSUB WOMatClick
|
||||
CASE Method = 'RejWafers' ; GOSUB RejWafers
|
||||
CASE Method = 'RepWafers' ; GOSUB RepWafers
|
||||
CASE Method = 'Apply' ; GOSUB Apply
|
||||
CASE MEthod = 'Cancel' ; GOSUB Cancel
|
||||
|
||||
CASE 1
|
||||
ErrMsg(ErrTitle:@SVM:'Unknown method ':QUOTE(Method):' passed to routine.')
|
||||
|
||||
END CASE
|
||||
|
||||
|
||||
RETURN Result
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Create:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
obj_AppWindow('Create')
|
||||
|
||||
* get the current style
|
||||
|
||||
EQU MULTILINE_STYLE$ TO 512 ;* MultiLine Select
|
||||
|
||||
* Set Material Slot edit table to multi-line select
|
||||
|
||||
Style = Get_Property(@WINDOW:'.WO_MAT_SLOT', 'STYLE')
|
||||
|
||||
IF Style [1,2] _EQC "0x" THEN
|
||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
||||
Style = ICONV(Style [3,99], "MX")
|
||||
END
|
||||
|
||||
Style = BitOr(Style, MULTILINE_STYLE$)
|
||||
Set_Property(@WINDOW:'.WO_MAT_SLOT', "STYLE", Style)
|
||||
|
||||
|
||||
* Set NCR Reject Wafers edit table to multi-line select
|
||||
|
||||
Style = Get_Property(@WINDOW:'.SLOT_REJECT', 'STYLE')
|
||||
|
||||
IF Style [1,2] _EQC "0x" THEN
|
||||
CONVERT @LOWER.CASE TO @UPPER.CASE IN STYLE
|
||||
Style = ICONV(Style [3,99], "MX")
|
||||
END
|
||||
|
||||
Style = BitOr(Style, MULTILINE_STYLE$)
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT', "STYLE", Style)
|
||||
|
||||
|
||||
CONVERT '/' TO @RM IN Parm1
|
||||
|
||||
Ctrls = @WINDOW:'.WO_MAT_SLOT':@RM ; Props = 'LIST':@RM
|
||||
Ctrls := @WINDOW:'.SLOT_REJECT':@RM ; Props := 'LIST':@RM
|
||||
Ctrls := @WINDOW:'.WO_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.CASS_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.NCR_NO' ; Props := 'DEFPROP'
|
||||
|
||||
Set_Property(Ctrls,Props,Parm1)
|
||||
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
WOMatClick:
|
||||
* * * * * * *
|
||||
|
||||
SlotList = Get_Property(@WINDOW:'.WO_MAT_SLOT','LIST')
|
||||
|
||||
SlotSelection = Get_Property(@WINDOW:'.WO_MAT_SLOT','SELPOS')
|
||||
|
||||
SelectedLines = SlotSelection<2>
|
||||
SelCnt = COUNT(SelectedLines,@VM) + (SelectedLines NE '')
|
||||
|
||||
BadLines = ''
|
||||
|
||||
FOR I = 1 TO SelCnt
|
||||
LineNo = SelectedLines<1,I>
|
||||
IF SlotList<LineNo,WFR_COL$WAFER_ID> = '' THEN
|
||||
BadLines<1,-1> = LineNo
|
||||
END
|
||||
NEXT I
|
||||
|
||||
|
||||
IF BadLines NE '' THEN
|
||||
Set_Property(@WINDOW:'.WO_MAT_SLOT','SELPOS',1:@FM:BadLines)
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Apply:
|
||||
* * * * * * *
|
||||
|
||||
Ctrls = @WINDOW:'.WO_MAT_SLOT':@RM ; Props = 'ARRAY':@RM
|
||||
Ctrls := @WINDOW:'.SLOT_REJECT':@RM ; Props := 'LIST':@RM
|
||||
Ctrls := @WINDOW:'.WO_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.CASS_NO':@RM ; Props := 'DEFPROP':@RM
|
||||
Ctrls := @WINDOW:'.NCR_NO' ; Props := 'DEFPROP'
|
||||
|
||||
Vals = Get_Property(Ctrls,Props,Parm1)
|
||||
|
||||
WOMatSlotArray = Vals[1,@RM]
|
||||
NCRRejList = Vals[COL2()+1,@RM]
|
||||
WONo = Vals[COL2()+1,@RM]
|
||||
CassNo = Vals[COL2()+1,@RM]
|
||||
NCRNo = Vals[COL2()+1,@RM]
|
||||
|
||||
End_Dialog(@WINDOW,WOMatSlotArray:@RM:NCRRejList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Refresh:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
* * * * * * *
|
||||
Cancel:
|
||||
* * * * * * *
|
||||
|
||||
End_Dialog(@WINDOW,'')
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
RejWafers:
|
||||
* * * * * * *
|
||||
|
||||
NCRNo = Get_Property(@WINDOW:'.NCR_NO','DEFPROP')
|
||||
SlotList = Get_Property(@WINDOW:'.WO_MAT_SLOT','LIST')
|
||||
|
||||
SlotSelection = Get_Property(@WINDOW:'.WO_MAT_SLOT','SELPOS')
|
||||
SelectedSlots = SlotSelection<2>
|
||||
|
||||
IF SelectedSlots = '' THEN RETURN
|
||||
SelCnt = COUNT(SelectedSlots,@VM) + (SelectedSlots NE '')
|
||||
|
||||
WaferArray = Get_Property(@WINDOW:'.SLOT_REJECT','ARRAY')
|
||||
|
||||
FOR I = 1 TO SelCnt
|
||||
SlotLine = SelectedSlots<1,I>
|
||||
SlotNo = SlotList<SlotLine,1>
|
||||
WaferID = SlotList<SlotLine,2>
|
||||
PrevNCR = SlotList<SlotLine,3>
|
||||
RejMetNo = SlotList<SLotLine,4>
|
||||
|
||||
LOCATE SlotNo IN WaferArray<1> BY 'AR' USING @VM SETTING POS ELSE
|
||||
WaferArray = INSERT(WaferArray,1,Pos,0,SlotNo)
|
||||
WaferArray = INSERT(WaferArray,2,Pos,0,WaferID)
|
||||
WaferArray = INSERT(WaferArray,3,Pos,0,PrevNCR)
|
||||
WaferArray = INSERT(WaferArray,4,Pos,0,RejMetNo)
|
||||
END
|
||||
|
||||
SlotList<SlotLine,WFR_COL$WAFER_ID> = ''
|
||||
SlotList<SlotLine,WFR_COL$SLOT_NCR> = NCRNo
|
||||
SlotList<SlotLine,WFR_COL$REPLACED_BY> = ''
|
||||
SlotList<SlotLine,WFR_COL$MET_NO> = ''
|
||||
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT','ARRAY',WaferArray)
|
||||
Set_Property(@WINDOW:'.WO_MAT_SLOT','LIST',SlotList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
RepWafers:
|
||||
* * * * * * *
|
||||
|
||||
WaferList = Get_Property(@WINDOW:'.SLOT_REJECT','LIST')
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
|
||||
|
||||
WaferSelection = Get_Property(@WINDOW:'.SLOT_REJECT','SELPOS')
|
||||
SelectedWafers = WaferSelection<2>
|
||||
|
||||
IF SelectedWafers = '' THEN RETURN
|
||||
|
||||
SelCnt = COUNT(SelectedWafers,@VM) + (SelectedWafers NE '')
|
||||
WaferCnt = COUNT(WaferList,@FM) + (WaferList NE '')
|
||||
|
||||
IF SelCnt = WaferCnt THEN
|
||||
ErrMesg = 'There must be at least one rejected wafer on the NCR. '
|
||||
ErrMesg := 'If you are moving wafers from one slot to another, '
|
||||
ErrMesg := 'reject wafers from the cassette and then replace '
|
||||
ErrMesg := 'from the NCR.':CRLF$:CRLF$
|
||||
ErrMesg := 'If you are going to delete the NCR completely, '
|
||||
ErrMesg := 'you do not need to replace the wafers. The program '
|
||||
ErrMesg := 'will replace them during the NCR delete process.'
|
||||
ErrMsg(ErrMesg)
|
||||
RETURN
|
||||
END
|
||||
|
||||
SlotList = Get_Property(@WINDOW:'.WO_MAT_SLOT','LIST')
|
||||
|
||||
FOR I = SelCnt TO 1 STEP -1
|
||||
SelectedWafer = SelectedWafers<1,I>
|
||||
|
||||
SlotNo = WaferList<SelectedWafer,NCR_COL$SLOT_NO>
|
||||
WaferID = WaferList<SelectedWafer,NCR_COL$WAFER_ID>
|
||||
PrevNCR = WaferList<SelectedWafer,NCR_COL$PREV_NCR>
|
||||
RejMetNo = WaferList<SelectedWafer,NCR_COL$REJ_MET_NO>
|
||||
|
||||
WaferList = DELETE(WaferList,SelectedWafer,0,0)
|
||||
|
||||
SlotList<SlotNo,WFR_COL$SLOT> = SlotNo
|
||||
SlotList<SlotNo,WFR_COL$WAFER_ID> = WaferID
|
||||
SlotList<SlotNo,WFR_COL$SLOT_NCR> = PrevNCR
|
||||
SlotList<SlotNo,WFR_COL$MET_NO> = RejMetNo
|
||||
IF PrevNCR NE '' THEN
|
||||
SlotList<SlotNo,WFR_COL$REPLACED_BY> = WaferID
|
||||
END
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT','LIST',WaferList)
|
||||
Set_Property(@WINDOW:'.WO_MAT_SLOT','LIST',SlotList)
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user