Added NCR barcode verification
This commit is contained in:
Infineon\Mitchem
committed by
Infineon\StieberD
Infineon\StieberD
parent
9f4a3f94b5
commit
bff81f70c4
@ -483,75 +483,78 @@ RejMat:
|
||||
ncrParms := RejWaferIDs:@RM ;* Rejected Wafer ID's
|
||||
ncrParms := PrevNCRNos ;* Previous NCR No's
|
||||
|
||||
Set_Status(0)
|
||||
|
||||
NCRNo = obj_NCR('Create',ncrParms) ;* Create new NCR for this wafer/group of wafers
|
||||
SAPBatchNo = Get_Property(@WINDOW:'.SAP_BATCH_NO','DEFPROP')
|
||||
MUFlag = XLATE('WO_MAT', WOMatKey, 'MakeupBox', 'X')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END ELSE
|
||||
IF SAPBatchNo NE '' THEN
|
||||
IF SAPBatchNo[-1,1] NE 'R' THEN
|
||||
MUFlag = Xlate('NCR', NCRNo, 'MAKEUP_BOX', 'X')
|
||||
MUFlag = OCONV(MUFlag ,'BYes,')
|
||||
PartNoID = Xlate('NCR', NCRNo, 'WO_MAT_PART_NO', 'X')
|
||||
RejCnt = Xlate('NCR', NCRNo, 'REJ_CNT', 'X')
|
||||
Recipients = XLATE('NOTIFICATION', 'NCR_AFTER_GR', NOTIFICATION_USER_ID$, 'X')
|
||||
SentFrom = @USER4
|
||||
Subject = 'SAP Post - GR Scrap Qty - NCR Reported' ;* Modified subject line - dkk 7/17/14
|
||||
Message = "NCR: ":NCRNo:CRLF$:"Batch_No: ":SAPBatchNo:CRLF$:"MU Box: ":MUFlag:CRLF$:"Epi PN: ":PartNoID:CRLF$:"Qty: ":RejCnt ;* Added Epi PN on the end - dkk 7/17/14
|
||||
AttachWindow = 'NCR'
|
||||
AttachKey = NCRNo
|
||||
SendToGroup = ''
|
||||
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
obj_Notes('Create',Parms)
|
||||
BarcodeVerified = Dialog_Box('NDW_VERIFY_BARCODE', @Window, RDSNo, @User4)
|
||||
If BarcodeVerified EQ TRUE$ then
|
||||
Set_Status(0)
|
||||
|
||||
NCRNo = obj_NCR('Create',ncrParms) ;* Create new NCR for this wafer/group of wafers
|
||||
SAPBatchNo = Get_Property(@WINDOW:'.SAP_BATCH_NO','DEFPROP')
|
||||
MUFlag = XLATE('WO_MAT', WOMatKey, 'MakeupBox', 'X')
|
||||
|
||||
IF Get_Status(errCode) THEN
|
||||
ErrMsg(errCode)
|
||||
END ELSE
|
||||
IF SAPBatchNo NE '' THEN
|
||||
IF SAPBatchNo[-1,1] NE 'R' THEN
|
||||
MUFlag = Xlate('NCR', NCRNo, 'MAKEUP_BOX', 'X')
|
||||
MUFlag = OCONV(MUFlag ,'BYes,')
|
||||
PartNoID = Xlate('NCR', NCRNo, 'WO_MAT_PART_NO', 'X')
|
||||
RejCnt = Xlate('NCR', NCRNo, 'REJ_CNT', 'X')
|
||||
Recipients = XLATE('NOTIFICATION', 'NCR_AFTER_GR', NOTIFICATION_USER_ID$, 'X')
|
||||
SentFrom = @USER4
|
||||
Subject = 'SAP Post - GR Scrap Qty - NCR Reported' ;* Modified subject line - dkk 7/17/14
|
||||
Message = "NCR: ":NCRNo:CRLF$:"Batch_No: ":SAPBatchNo:CRLF$:"MU Box: ":MUFlag:CRLF$:"Epi PN: ":PartNoID:CRLF$:"Qty: ":RejCnt ;* Added Epi PN on the end - dkk 7/17/14
|
||||
AttachWindow = 'NCR'
|
||||
AttachKey = NCRNo
|
||||
SendToGroup = ''
|
||||
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
obj_Notes('Create',Parms)
|
||||
END
|
||||
END
|
||||
|
||||
RejDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
||||
|
||||
RejWfrIDs = ''
|
||||
CurrSlotIDs = ''
|
||||
|
||||
sCnt = COUNT(SlotNos,@VM) + (SlotNos NE '')
|
||||
FOR N = 1 TO sCnt
|
||||
* * * * Added 3/23/2016 JCH - wafer history * * * *
|
||||
|
||||
RejWfrID = RejWaferIDs<1,N>
|
||||
CurrSlotID = WONo:'*':CassNo:'*':SlotNos<1,N>
|
||||
|
||||
Convert '.' To '*' In RejWfrID
|
||||
|
||||
RejWfrIDs<1,-1> = RejWfrID
|
||||
CurrSlotIDs<1,-1> = CurrSlotID
|
||||
|
||||
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 = SlotNos<1,N>
|
||||
NEXT N
|
||||
END
|
||||
END
|
||||
|
||||
RejDTM = OCONV(Date(),'D4/'):' ':OCONV(Time(),'MTS')
|
||||
|
||||
RejWfrIDs = ''
|
||||
CurrSlotIDs = ''
|
||||
|
||||
sCnt = COUNT(SlotNos,@VM) + (SlotNos NE '')
|
||||
FOR N = 1 TO sCnt
|
||||
* * * * Added 3/23/2016 JCH - wafer history * * * *
|
||||
|
||||
RejWfrID = RejWaferIDs<1,N>
|
||||
CurrSlotID = WONo:'*':CassNo:'*':SlotNos<1,N>
|
||||
|
||||
Convert '.' To '*' In RejWfrID
|
||||
|
||||
RejWfrIDs<1,-1> = RejWfrID
|
||||
CurrSlotIDs<1,-1> = CurrSlotID
|
||||
|
||||
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 = SlotNos<1,N>
|
||||
NEXT N
|
||||
END
|
||||
|
||||
Set_Property(@WINDOW:'.SLOT','SELPOS',SlotSelection) ;* Toggle WM_IN select off
|
||||
Set_Property(@WINDOW, 'SAVEWARN', False$)
|
||||
rv = Dialog_Box('NCR', @WINDOW, NCRNo)
|
||||
Send_Event(@WINDOW, 'READ')
|
||||
Set_Property(@WINDOW:'.SLOT','SELPOS',SlotSelection) ;* Toggle WM_IN select off
|
||||
Set_Property(@WINDOW, 'SAVEWARN', False$)
|
||||
rv = Dialog_Box('NCR', @WINDOW, NCRNo)
|
||||
Send_Event(@WINDOW, 'READ')
|
||||
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