phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

81
LSL2/STPROC/COMM_DIALOG_NCR_REJ_SLOT.txt
View File

@ -226,53 +226,58 @@ 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')
If SAPBatchNo EQ '' then
WaferSelection = Get_Property(@WINDOW:'.SLOT_REJECT','SELPOS')
SelectedWafers = WaferSelection<2>
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:'.WO_MAT_SLOT','LIST')
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>
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
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)
Set_Property(@WINDOW:'.SLOT_REJECT','LIST',WaferList)
Set_Property(@WINDOW:'.WO_MAT_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