Added NCR barcode verification
This commit is contained in:
Infineon\Mitchem
committed by
Infineon\StieberD
Infineon\StieberD
parent
9f4a3f94b5
commit
bff81f70c4
@ -1369,84 +1369,87 @@ RejMat:
|
||||
ncrParms := MUCassIDs:@RM
|
||||
ncrParms := MUSlotNos
|
||||
|
||||
Set_Status(0)
|
||||
NCRNo = obj_NCR('Create',ncrParms) ;* Create new NCR for this wafer/group of wafers
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
BarcodeVerified = Dialog_Box('NDW_VERIFY_BARCODE', @Window, WMOKey, @User4)
|
||||
If BarcodeVerified EQ TRUE$ then
|
||||
Set_Status(0)
|
||||
NCRNo = obj_NCR('Create',ncrParms) ;* Create new NCR for this wafer/group of wafers
|
||||
|
||||
END ELSE
|
||||
RejDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
|
||||
END ELSE
|
||||
RejDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
||||
|
||||
RejWfrIDs = ''
|
||||
CurrSlotIDs = ''
|
||||
|
||||
FOR N = 1 TO COUNT(OutSlotNos,@VM) + (OutSlotNos NE '')
|
||||
|
||||
* * * * Added 4/23/2016 JCH - wafer history * * * *
|
||||
|
||||
CurrSlotID = WONo:'*':OutCassNos<1,N>:'*':OutSlotNos<1,N>
|
||||
|
||||
CurrSlotIDs<1,-1> = CurrSlotID
|
||||
|
||||
|
||||
IF MUWONos<1,N> = '' THEN
|
||||
RejWfrID = WONo:'*':InCassNos<1,N>:'*':InSlotNos<1,N>
|
||||
END ELSE
|
||||
RejWfrID = MUWONos<1,N>:'*':MUCassIDs<1,N>:'*':MUSlotNos<1,N>
|
||||
END
|
||||
|
||||
RejWfrIDs<1,-1> = RejWfrID
|
||||
|
||||
Parms = RejWfrID:@RM ;* WfrID
|
||||
Parms := RejDTM:@RM ;* EventDtm
|
||||
Parms := @USER4:@RM ;* EventBy
|
||||
Parms := 'NCR':@RM ;* Event
|
||||
Parms := '':@RM ;* NewSlotID
|
||||
Parms := '':@RM ;* RunLoc
|
||||
Parms := NCRNo:@RM ;* NCRNo
|
||||
Parms := '':@RM ;* TWUse
|
||||
Parms := CurrSlotID:@RM ;* CurrSlotID
|
||||
Parms := '':@RM ;* NewToolID
|
||||
Parms := '':@RM ;* CurrToolID
|
||||
Parms := '':@RM ;* NewInvLoc
|
||||
Parms := '':@RM ;* CurrInvLoc
|
||||
Parms := 'O' ;* Wfr Side
|
||||
|
||||
obj_WO_Wfr('AddEvent',Parms)
|
||||
|
||||
|
||||
LineNo = OutSlotNos<1,N>
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$RDS_NO:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$RDS_STATUS:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$POCKET:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$ZONE:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$IN_CASS:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$IN_SLOT:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS',NCRNo,COL$SLOT_NCR:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$MU_WO_NO:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$MU_WO_STEP:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$MU_CASS_NO:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$MU_SLOT_NO:@FM:LineNo)
|
||||
|
||||
NEXT N
|
||||
|
||||
END
|
||||
|
||||
RejWfrIDs = ''
|
||||
CurrSlotIDs = ''
|
||||
Set_Property(@WINDOW:'.SLOT','SELPOS',SlotSelection) ;* Toggle WM_IN select off
|
||||
|
||||
FOR N = 1 TO COUNT(OutSlotNos,@VM) + (OutSlotNos NE '')
|
||||
|
||||
* * * * Added 4/23/2016 JCH - wafer history * * * *
|
||||
|
||||
CurrSlotID = WONo:'*':OutCassNos<1,N>:'*':OutSlotNos<1,N>
|
||||
|
||||
CurrSlotIDs<1,-1> = CurrSlotID
|
||||
|
||||
|
||||
IF MUWONos<1,N> = '' THEN
|
||||
RejWfrID = WONo:'*':InCassNos<1,N>:'*':InSlotNos<1,N>
|
||||
END ELSE
|
||||
RejWfrID = MUWONos<1,N>:'*':MUCassIDs<1,N>:'*':MUSlotNos<1,N>
|
||||
END
|
||||
|
||||
RejWfrIDs<1,-1> = RejWfrID
|
||||
|
||||
Parms = RejWfrID:@RM ;* WfrID
|
||||
Parms := RejDTM:@RM ;* EventDtm
|
||||
Parms := @USER4:@RM ;* EventBy
|
||||
Parms := 'NCR':@RM ;* Event
|
||||
Parms := '':@RM ;* NewSlotID
|
||||
Parms := '':@RM ;* RunLoc
|
||||
Parms := NCRNo:@RM ;* NCRNo
|
||||
Parms := '':@RM ;* TWUse
|
||||
Parms := CurrSlotID:@RM ;* CurrSlotID
|
||||
Parms := '':@RM ;* NewToolID
|
||||
Parms := '':@RM ;* CurrToolID
|
||||
Parms := '':@RM ;* NewInvLoc
|
||||
Parms := '':@RM ;* CurrInvLoc
|
||||
Parms := 'O' ;* Wfr Side
|
||||
|
||||
obj_WO_Wfr('AddEvent',Parms)
|
||||
|
||||
|
||||
LineNo = OutSlotNos<1,N>
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$RDS_NO:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$RDS_STATUS:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$POCKET:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$ZONE:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$IN_CASS:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$IN_SLOT:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS',NCRNo,COL$SLOT_NCR:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$MU_WO_NO:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$MU_WO_STEP:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$MU_CASS_NO:@FM:LineNo)
|
||||
Set_Property(@WINDOW:'.SLOT','CELLPOS','',COL$MU_SLOT_NO:@FM:LineNo)
|
||||
|
||||
NEXT N
|
||||
Send_Event(@WINDOW,'WRITE')
|
||||
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW:'.SLOT','SELPOS',SlotSelection) ;* Toggle WM_IN select off
|
||||
|
||||
Send_Event(@WINDOW,'WRITE')
|
||||
|
||||
DetWindow = 'NCR'
|
||||
DetKeys = NCRNo
|
||||
DefaultRec = ''
|
||||
RetKey = WMOKey
|
||||
RetWin = @WINDOW
|
||||
RetPage = 1
|
||||
RetCtrl = @WINDOW:'.SLOT'
|
||||
RetPos = 1:@FM:1
|
||||
|
||||
obj_Appwindow('ViewNewDetail',DetWindow:@RM:DetKeys:@RM:DefaultRec:@RM:RetKey:@RM:RetPage:@RM:RetCtrl:@RM:RetPos)
|
||||
DetWindow = 'NCR'
|
||||
DetKeys = NCRNo
|
||||
DefaultRec = ''
|
||||
RetKey = WMOKey
|
||||
RetWin = @WINDOW
|
||||
RetPage = 1
|
||||
RetCtrl = @WINDOW:'.SLOT'
|
||||
RetPos = 1:@FM:1
|
||||
|
||||
obj_Appwindow('ViewNewDetail',DetWindow:@RM:DetKeys:@RM:DefaultRec:@RM:RetKey:@RM:RetPage:@RM:RetCtrl:@RM:RetPos)
|
||||
End
|
||||
end else
|
||||
// Cassette is on hold so material cannot be rejected.
|
||||
ErrorMessage = 'Create NCR denied!. The cassette must be taken off hold before rejecting material.'
|
||||
|
||||
Reference in New Issue
Block a user