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

Merged PR 11300: removed wafer quantity override at FQA as it was deemed unecessary after impl...

Browse Source 
removed wafer quantity override at FQA as it was deemed unecessary after implementing feature 132028
This commit is contained in:
Stieber Daniel (CSC FI SPS MESLEO)
2025-02-20 20:47:16 +01:00
parent 924a208264
commit 06eee980e7
2 changed files with 524 additions and 1305 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
LSL2/STPROC/RDS_POST_EPI_EVENTS.txt
View File

@ -276,61 +276,18 @@ Event SIGN_BUTTON.CLICK()
end
end
*************************
* Verify Wafer Quantity *
*************************
***********************************
* Verify Scheduled Wafer Quantity *
***********************************
CassSchedWafers = Get_Property(@Window : '.WAFERS_SCHEDULED', 'TEXT')
WafersOut = Get_Property(@Window : '.WAFERS_OUT', 'TEXT')
MakeupBox = Xlate('RDS', RDSNo, 'MAKEUP_BOX', 'X')
SpecType = Xlate('RDS', RDSNo, 'SPEC_TYPE', 'X')
OverrideAllowed = (SpecType EQ 'Q')
If MakeupBox NE True$ then
If ( (CassSchedWafers NE WafersOut) and (OverrideAllowed EQ True$) ) then
Message = 'Unable to sign FQA because the Scheduled' : CRLF$ : 'Qty does not equal the '
Message := 'Wafers Out Qty.' : CRLF$ : 'Lead or supervisor must override.'
LeadMessage = 'Scheduled Wafers Quantity does not equal the Wafers Out Quantity.'
If NOT( MemberOf(@USER4, 'LEAD') OR MemberOf(@USER4, 'SUPERVISOR') ) then
Response = Msg(@Window, '', 'POST_EPI_WAFER_OUT', '', Message)
end else
Response = Msg(@Window, '', 'POST_EPI_WAFER_OUT', '', LeadMessage)
end
Begin Case
Case Response EQ 1
Response = True$ ; // User Clicked Override
Case Response EQ 2
Response = False$ ; // User Clicked Cancel
Case Response EQ char(27)
Response = False$ ; // User Pressed Escape Key
End Case
If Response EQ True$ then
Response = Dialog_Box('NDW_VERIFY_USER', @WINDOW, @USER4 : @FM : 'LEAD' : @VM : 'SUPERVISOR')
Valid = Response<1>
Username = Response<2>
If NOT(Valid) then
Return
end else
Set_Property(@Window : '.FINAL_QA_WAFER_OUT_SIG', 'DEFPROP', Username)
Set_Property(@Window : '.FINAL_QA_WAFER_OUT_NAME', 'TEXT', OConv(Username, '[XLATE_CONV,LSL_USERS*FIRST_LAST]'))
Set_Property(@Window : '.FINAL_QA_WAFER_OUT_DATE', 'DEFPROP', Oconv(Date(), 'D2/'))
Set_Property(@Window : '.FINAL_QA_WAFER_OUT_TIME', 'DEFPROP', Oconv(Time(), 'MTS'))
end
end else
Return
end
end else if (CassSchedWafers NE WafersOut) then
// Inform user
Title = 'Process Error'
ErrorMsg = 'Scheduled Wafers Quantity does not equal the Wafers Out Quantity.':CRLF$
ErrorMsg := 'Override not allowed due to spec type.'
Response = Msg(@Window, '', 'OK', '', Title:@FM:ErrorMsg)
return
end
If ( (MakeupBox NE True$) and (CassSchedWafers NE WafersOut) ) then
Title = 'Process Error'
ErrorMsg = 'Scheduled Wafers Quantity does not equal the Wafers Out Quantity.'
Response = Msg(@Window, '', 'OK', '', Title:@FM:ErrorMsg)
return
end
*********************************
@ -754,13 +711,3 @@ Setup_OLE_Controls:
return