pre cutover push
This commit is contained in:
Infineon\StieberD
@ -269,66 +269,71 @@ WaferList = Get_Property(@WINDOW:'.SLOT_REJECT','LIST')
|
||||
WONo = Get_Property(@WINDOW:'.WO_NO','DEFPROP')
|
||||
CassNo = Get_Property(@WINDOW:'.CASS_NO','DEFPROP')
|
||||
|
||||
NCRNo = Get_Property(@Window:'.NCR_NO', 'TEXT')
|
||||
SAPBatchNo = Xlate('NCR', NCRNo, 'SAP_BATCH_NO', 'X')
|
||||
|
||||
WaferSelection = Get_Property(@WINDOW:'.SLOT_REJECT','SELPOS')
|
||||
SelectedWafers = WaferSelection<2>
|
||||
If SAPBatchNo EQ '' then
|
||||
|
||||
WaferSelection = Get_Property(@WINDOW:'.SLOT_REJECT','SELPOS')
|
||||
SelectedWafers = WaferSelection<2>
|
||||
|
||||
IF SelectedWafers = '' THEN RETURN
|
||||
IF SelectedWafers = '' THEN RETURN
|
||||
|
||||
SelCnt = COUNT(SelectedWafers,@VM) + (SelectedWafers NE '')
|
||||
WaferCnt = COUNT(WaferList,@FM) + (WaferList NE '')
|
||||
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
|
||||
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:'.WM_OUT_SLOT','LIST')
|
||||
SlotList = Get_Property(@WINDOW:'.WM_OUT_SLOT','LIST')
|
||||
|
||||
FOR I = SelCnt TO 1 STEP -1
|
||||
SelectedWafer = SelectedWafers<1,I>
|
||||
|
||||
FOR I = SelCnt TO 1 STEP -1
|
||||
SelectedWafer = SelectedWafers<1,I>
|
||||
|
||||
|
||||
OutSlot = WaferList<SelectedWafer,NCR_COL$OUT_SLOT>
|
||||
RDSNo = WaferList<SelectedWafer,NCR_COL$RDS>
|
||||
Pocket = WaferList<SelectedWafer,NCR_COL$POCKET>
|
||||
Zone = WaferList<SelectedWafer,NCR_COL$ZONE>
|
||||
InCass = WaferList<SelectedWafer,NCR_COL$IN_CASS>
|
||||
InSlot = WaferList<SelectedWafer,NCR_COL$IN_SLOT>
|
||||
PrevNCR = WaferList<SelectedWafer,NCR_COL$PREV_NCR>
|
||||
MUWONo = WaferList<SelectedWafer,NCR_COL$MU_WO_NO>
|
||||
MUWOStep = WaferList<SelectedWafer,NCR_COL$MU_STEP>
|
||||
MUCassID = WaferList<SelectedWafer,NCR_COL$MU_CASS>
|
||||
MUSlot = WaferList<SelectedWafer,NCR_COL$MU_SLOT>
|
||||
|
||||
WaferList = DELETE(WaferList,SelectedWafer,0,0) ;* Removes rejected wafer from NCR list
|
||||
|
||||
SlotList<OutSlot,WFR_COL$OUT_SLOT> = OutSlot
|
||||
SlotList<OutSlot,WFR_COL$RDS> = RDSNo
|
||||
SlotList<OutSlot,WFR_COL$POCKET> = Pocket
|
||||
SlotList<OutSlot,WFR_COL$ZONE> = Zone
|
||||
SlotList<OutSlot,WFR_COL$IN_CASS> = InCass
|
||||
SlotList<OutSlot,WFR_COL$IN_SLOT> = InSlot
|
||||
SlotList<OutSlot,WFR_COL$SLOT_NCR> = PrevNCR
|
||||
SlotList<OutSlot,WFR_COL$MU_WO_NO> = MUWONo
|
||||
SlotList<OutSlot,WFR_COL$MU_STEP> = MUWOStep
|
||||
SlotList<OutSlot,WFR_COL$MU_CASS> = MUCassID
|
||||
SlotList<OutSlot,WFR_COL$MU_SLOT> = MUSlot
|
||||
|
||||
NEXT I
|
||||
OutSlot = WaferList<SelectedWafer,NCR_COL$OUT_SLOT>
|
||||
RDSNo = WaferList<SelectedWafer,NCR_COL$RDS>
|
||||
Pocket = WaferList<SelectedWafer,NCR_COL$POCKET>
|
||||
Zone = WaferList<SelectedWafer,NCR_COL$ZONE>
|
||||
InCass = WaferList<SelectedWafer,NCR_COL$IN_CASS>
|
||||
InSlot = WaferList<SelectedWafer,NCR_COL$IN_SLOT>
|
||||
PrevNCR = WaferList<SelectedWafer,NCR_COL$PREV_NCR>
|
||||
MUWONo = WaferList<SelectedWafer,NCR_COL$MU_WO_NO>
|
||||
MUWOStep = WaferList<SelectedWafer,NCR_COL$MU_STEP>
|
||||
MUCassID = WaferList<SelectedWafer,NCR_COL$MU_CASS>
|
||||
MUSlot = WaferList<SelectedWafer,NCR_COL$MU_SLOT>
|
||||
|
||||
WaferList = DELETE(WaferList,SelectedWafer,0,0) ;* Removes rejected wafer from NCR list
|
||||
|
||||
SlotList<OutSlot,WFR_COL$OUT_SLOT> = OutSlot
|
||||
SlotList<OutSlot,WFR_COL$RDS> = RDSNo
|
||||
SlotList<OutSlot,WFR_COL$POCKET> = Pocket
|
||||
SlotList<OutSlot,WFR_COL$ZONE> = Zone
|
||||
SlotList<OutSlot,WFR_COL$IN_CASS> = InCass
|
||||
SlotList<OutSlot,WFR_COL$IN_SLOT> = InSlot
|
||||
SlotList<OutSlot,WFR_COL$SLOT_NCR> = PrevNCR
|
||||
SlotList<OutSlot,WFR_COL$MU_WO_NO> = MUWONo
|
||||
SlotList<OutSlot,WFR_COL$MU_STEP> = MUWOStep
|
||||
SlotList<OutSlot,WFR_COL$MU_CASS> = MUCassID
|
||||
SlotList<OutSlot,WFR_COL$MU_SLOT> = MUSlot
|
||||
|
||||
NEXT I
|
||||
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT','LIST',WaferList)
|
||||
Set_Property(@WINDOW:'.WM_OUT_SLOT','LIST',SlotList)
|
||||
Set_Property(@WINDOW:'.SLOT_REJECT','LIST',WaferList)
|
||||
Set_Property(@WINDOW:'.WM_OUT_SLOT','LIST',SlotList)
|
||||
end else
|
||||
ErrMsg('Wafers cannot be replaced because an SAP batch number has been assigned. Contact FI for further assistance.')
|
||||
end
|
||||
|
||||
RETURN
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user