diff --git a/LSL2/STPROC/NCR_ACTIONS.txt b/LSL2/STPROC/NCR_ACTIONS.txt index 3f59c5f..759c9e3 100644 --- a/LSL2/STPROC/NCR_ACTIONS.txt +++ b/LSL2/STPROC/NCR_ACTIONS.txt @@ -322,17 +322,19 @@ WRITE_RECORD: * Verify the need to "Auto-Sign" the box after returning from the NCR form * **************************************************************************** - CassetteQty = XLATE('WO_MAT', WOMatKey, 'WAFER_QTY', 'X') - WMOKey = WONo:'*':WOStep:'*':CassNo - NCRNos = Xlate('WM_OUT', WMOKey, 'SLOT_NCR', 'X') - RejectedQty = 0 + CassetteQty = XLATE('WO_MAT', WOMatKey, 'WAFER_QTY', 'X') + CurrWfrCount = Xlate('WM_OUT', WMOKey, 'WAFER_CNT', 'X') + If CurrWfrCount EQ '' then CurrWfrCount = 0 + WMOKey = WONo:'*':WOStep:'*':CassNo + NCRNos = Xlate('WM_OUT', WMOKey, 'SLOT_NCR', 'X') + RejectedQty = 0 If NCRNos NE '' then For each NCRNo in NCRNos using @VM RejectedQty += (NCRNo NE '') Next NCRNo end - - IF (RejectedQty GE CassetteQty) THEN + + If ( (CurrWfrCount EQ 0) and (RejectedQty GE CassetteQty) ) then // Full box reject ***************************** @@ -756,3 +758,4 @@ LogRecord: return +