implemented support for BatchConv SAP interface

LSL2/STPROC/NDW_MAKEUP_WAFERS_EVENTS.txt

@@ -86,6 +86,19 @@ Event WINDOW.CREATE(CreateParam)
     
     MakeupWafers    = Material_Services('GetAvailableMakeupWafers', ThisWorkOrderNo, False$)
 
+	// Remove cassette being backfilled from available list
+	MakeupWafersClean = ''
+	NumMUCass         = DCount(MakeupWafers, @VM)
+	If NumMUCass GT 0 then
+		For CassIndex = 1 to NumMUCass
+			Row        = MakeupWafers<0, CassIndex>
+			MuWoMatKey = Row<0, 0, 1> : '*' : Row<0, 0, 2>
+			If (MuWoMatKey NE ThisWOMatKey) then MakeupWafersClean<0, -1> = Row
+		Next CassIndex
+	end
+
+	MakeupWafers = MakeupWafersClean
+
     Msg(@Window, MsgUp)
     
     GoSub Setup_OLE_Controls
@@ -320,13 +333,22 @@ Setup_OLE_Controls:
 
     Ctrl       = @Window : '.OLE_PIC_NO_WAFERS'
     SAPBatchNo = Xlate('WO_MAT', ThisWOMatKey, 'SAP_BATCH_NO', 'X')
-    If SAPBatchNo then
-        Caption  = 'This cassette cannot be converted into a makeup box because it has a batch number. Please contact FI.'
-        //Set_Property(@Window:'.PUB_OK', 'ENABLED', False$)
+    
+    IsEpiPro    = Get_Property(@Window, '@EPIPRO')
+	If IsEpiPro then
+		WMOKey    = Xlate('WO_MAT', ThisWOMatKey, 'WMO_KEY', 'X')
+		MakeupBox = Xlate('WM_OUT', WMOKey, 'MAKEUP_BOX', 'X')
+	end else
+		MakeupBox = Xlate('WO_MAT', ThisWOMatKey, 'MAKEUP_BOX', 'X')
+	end
+	
+	Caption = 'There are no makeup wafers available for this cassette.'
+	If MakeupBox then
+        Set_Property(@Window:'.PUB_OK', 'ENABLED', False$)
     end else
-        Caption = 'Click OK to convert this to a makeup box.'
+        Caption := @TM : 'Click OK to convert this to a makeup box.'
     end
-    Set_Property(Ctrl, 'OLE.Caption', 'There are no makeup wafers available for this cassette.' : @TM : Caption)
+    Set_Property(Ctrl, 'OLE.Caption', Caption)
 
 return