Set Reactor wafer size based on installed
susceptor. Commit to change branches post-UAT 1. Commit to change branches. Commit to change branches. Final changes and re-factor duplicate code.
This commit is contained in:
Infineon\Mitchem
committed by
Stieber Daniel (CSC FI SPS MESLEO)
Stieber Daniel (CSC FI SPS MESLEO)
parent
2eff7c5a37
commit
8a5c1572e7
@ -6,7 +6,7 @@ COMPILE FUNCTION React_Item(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
|
||||
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 SUBROUTINE Set_Property, ErrMsg, obj_Appwindow, Btree.Extract, Send_Event, Post_Event, obj_React_Item, Forward_Event
|
||||
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
|
||||
|
||||
@ -15,6 +15,7 @@ $INSERT REACT_ITEM_EQUATES
|
||||
$INSERT REACT_ITEM_HIST_EQUATES
|
||||
$INSERT APPCOLORS
|
||||
$INSERT POPUP_EQUATES
|
||||
$INSERT LOGICAL
|
||||
|
||||
EQU COL$REACT_NO TO 1
|
||||
EQU COL$SVC_HRS TO 2
|
||||
@ -77,6 +78,9 @@ BEGIN CASE
|
||||
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 EntID = @WINDOW:'.RI_TYPE' AND Event = 'CHANGED' ; GOSUB RITypeChange
|
||||
CASE EntID = @WINDOW:'.PKT_SIZE' AND Event = 'CHANGED' ; GOSUB PktSizeChange
|
||||
CASE EntID = @WINDOW:'.PART_TYPE' AND Event = 'LOSTFOCUS' ; GOSUB PktSizeChange
|
||||
|
||||
CASE 1
|
||||
|
||||
@ -142,10 +146,6 @@ RETURN
|
||||
Read:
|
||||
* * * * * * *
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
GOSUB Refresh
|
||||
|
||||
RETURN
|
||||
@ -154,11 +154,6 @@ RETURN
|
||||
Write:
|
||||
* * * * * * *
|
||||
|
||||
Parent = Get_Property(@WINDOW,'PARENT')
|
||||
|
||||
IF Parent = 'REACTOR_LOG' OR Parent = 'REACT_STATE' THEN
|
||||
Post_Event(@WINDOW,'CLOSE')
|
||||
END
|
||||
|
||||
RETURN
|
||||
|
||||
@ -261,9 +256,68 @@ FOR Line = 1 TO ListCnt
|
||||
NEXT N
|
||||
END
|
||||
NEXT Line
|
||||
RIType = Get_Property(@Window:'.RI_TYPE', 'TEXT')
|
||||
If RIType EQ 'S' then
|
||||
Set_Property(@Window:'.SUSC_GROUP', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PKT_SIZE_LABEL', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PKT_SIZE', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.LU_PKT_SIZE', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PKT_SIZE_DESC', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PKT_QTY_LABEL', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.LU_PKT_QTY', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PPLUS_RDS_NO_LABEL', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PPLUS_RDS_NO', 'ENABLED', True$)
|
||||
end else
|
||||
Set_Property(@Window:'.SUSC_GROUP', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_SIZE_LABEL', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_SIZE', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_SIZE', 'TEXT', '')
|
||||
Set_Property(@Window:'.LU_PKT_SIZE', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_SIZE_DESC', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_SIZE_DESC', 'TEXT', '')
|
||||
Set_Property(@Window:'PKT_QTY_LABEL', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_QTY', 'TEXT', '')
|
||||
Set_Property(@Window:'.LU_PKT_QTY', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PPLUS_RDS_NO_LABEL', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PPLUS_RDS_NO', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PPLUS_RDS_NO', 'TEXT', '')
|
||||
end
|
||||
|
||||
RETURN
|
||||
|
||||
* * * * * * *
|
||||
RITypeChange:
|
||||
* * * * * * *
|
||||
|
||||
RIType = Get_Property(@Window:'.RI_TYPE', 'TEXT')
|
||||
If RIType EQ 'S' then
|
||||
Set_Property(@Window:'.SUSC_GROUP', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PKT_SIZE_LABEL', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PKT_SIZE', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.LU_PKT_SIZE', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PKT_SIZE_DESC', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PKT_QTY_LABEL', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.LU_PKT_QTY', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PPLUS_RDS_NO_LABEL', 'ENABLED', True$)
|
||||
Set_Property(@Window:'.PPLUS_RDS_NO', 'ENABLED', True$)
|
||||
end else
|
||||
Set_Property(@Window:'.SUSC_GROUP', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_SIZE_LABEL', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_SIZE', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_SIZE', 'TEXT', '')
|
||||
Set_Property(@Window:'.LU_PKT_SIZE', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_SIZE_DESC', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_SIZE_DESC', 'TEXT', '')
|
||||
Set_Property(@Window:'PKT_QTY_LABEL', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PKT_QTY', 'TEXT', '')
|
||||
Set_Property(@Window:'.LU_PKT_QTY', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PPLUS_RDS_NO_LABEL', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PPLUS_RDS_NO', 'ENABLED', False$)
|
||||
Set_Property(@Window:'.PPLUS_RDS_NO', 'TEXT', '')
|
||||
end
|
||||
|
||||
return
|
||||
|
||||
|
||||
* * * * * * *
|
||||
RetireItem:
|
||||
@ -443,19 +497,46 @@ RETURN
|
||||
LUPktSize:
|
||||
* * * * * * *
|
||||
|
||||
RetVal = Popup(@WINDOW,'','WAFER_SIZES')
|
||||
|
||||
IF RetVal NE '' THEN
|
||||
oaParms = RetVal:@RM:@WINDOW:'.PKT_SIZE'
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
END
|
||||
RIType = Get_Property(@Window:'.RI_TYPE', 'TEXT')
|
||||
If RIType EQ 'S' then
|
||||
PocketQty = ''
|
||||
Set_Property(@Window:'.PKT_QTY', 'TEXT', '')
|
||||
PartType = Get_Property(@Window: '.PART_TYPE', 'TEXT')
|
||||
If (PartType EQ 'HTR') OR (PartType EQ 'EPP') OR (PartType EQ 'ASM') then
|
||||
RetVal = Popup(@WINDOW,TypeOver,'WAFER_SIZES')
|
||||
IF RetVal NE '' THEN
|
||||
oaParms = RetVal:@RM:@WINDOW:'.PKT_SIZE'
|
||||
obj_Appwindow('LUValReturn',oaParms)
|
||||
Begin Case
|
||||
Case PartType EQ 'HTR'
|
||||
If RetVal EQ 8 then
|
||||
PocketQty = 3
|
||||
end else
|
||||
If RetVal EQ 6 then PocketQty = 5
|
||||
end
|
||||
Case PartType EQ 'EPP'
|
||||
If RetVal EQ 8 then
|
||||
PocketQty = 8
|
||||
end else
|
||||
If RetVal EQ 6 then PocketQty = 18
|
||||
end
|
||||
Case PartType EQ 'ASM'
|
||||
If RetVal EQ 8 OR RetVal EQ 6 then PocketQty = 1
|
||||
|
||||
End Case
|
||||
Set_Property(@Window:'.PKT_QTY', 'TEXT', PocketQty)
|
||||
END
|
||||
end else
|
||||
ErrMsg('A valid Part Type (EPP, ASM, HTR) must be selected before selecting Pocket Size.')
|
||||
end
|
||||
end
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
* * * * * * *
|
||||
* * * * * *
|
||||
LUPktQty:
|
||||
* * * * * * *
|
||||
* * * * * *
|
||||
|
||||
ReactType = Get_Property(@WINDOW:'.REACT_TYPE','INVALUE')
|
||||
|
||||
@ -508,3 +589,41 @@ obj_React_Item('PrintLabel',RINo:@RM:CurrRec)
|
||||
RETURN
|
||||
|
||||
|
||||
PktSizeChange:
|
||||
|
||||
RIType = Get_Property(@Window:'.RI_TYPE', 'TEXT')
|
||||
If RIType EQ 'S' then
|
||||
PocketQty = ''
|
||||
Set_Property(@Window:'.PKT_QTY', 'TEXT', '')
|
||||
PktSize = Get_Property(@Window: '.PKT_SIZE', 'TEXT')
|
||||
PartType = Get_Property(@Window: '.PART_TYPE', 'TEXT')
|
||||
If (PartType EQ 'HTR') OR (PartType EQ 'EPP') OR (PartType EQ 'ASM') then
|
||||
If PktSize EQ 6 OR PktSize EQ 8 then
|
||||
Begin Case
|
||||
Case PartType EQ 'HTR'
|
||||
If PktSize EQ 8 then
|
||||
PocketQty = 3
|
||||
end else
|
||||
If PktSize EQ 6 then PocketQty = 5
|
||||
end
|
||||
Case PartType EQ 'EPP'
|
||||
If PktSize EQ 8 then
|
||||
PocketQty = 8
|
||||
end else
|
||||
If PktSize EQ 6 then PocketQty = 18
|
||||
end
|
||||
Case PartType EQ 'ASM'
|
||||
If PktSize EQ 8 OR PktSize EQ 6 then PocketQty = 1
|
||||
|
||||
End Case
|
||||
Set_Property(@Window:'.PKT_QTY', 'TEXT', PocketQty)
|
||||
end else
|
||||
ErrMsg('A valid Pocket Size (6 or 8 in.) is required.')
|
||||
end
|
||||
end else
|
||||
ErrMsg('A valid Part Type (EPP, ASM, HTR) must be selected before selecting Pocket Size.')
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
return
|
||||
|
||||
Reference in New Issue
Block a user