pre cutover push

LSL2/STPROC/WM_OUT_EVENTS.txt

@@ -37,8 +37,14 @@ Function WM_OUT_Events(CtrlEntId, Event, @PARAMS)
 $insert APP_INSERTS
 $insert EVENT_SETUP
 $insert WM_OUT_EQUATES
+$insert POPUP_EQUATES
+
+EQU APPGREEN$  TO 192 + (220*256) + (192*65536)
+EQU APPRED$    TO 255 + (128*256) + (128*65536)
+EQU APPORANGE$ TO 255 + (176*256) + (0*65536)
 
 Declare subroutine Start_Window
+Declare function   Signature_Services
 
 SubclassInfo    = Form_Services('FindSubclassControl')
 Subclass        = SubclassInfo<1>
@@ -82,6 +88,9 @@ end event
 
 Event WINDOW.CLEAR(bSaveKey, bSuppressWarning, bMaintainFocus, CtrlIDFocus)
 
+    Set_Property(@Window, '@ORIG_WFR_CTR_QTY', '')
+	Set_Property(@WINDOW:'.EDL_WAFER_COUNTER_QTY','BACKCOLOR', APPGREEN$)
+
 end event
 
 
@@ -101,9 +110,61 @@ Event SLOT.DBLCLK(CtrlKey, ShiftKey, MouseButton)
 end event
 
 
+Event PUB_SIG_PROFILE.CLICK()
+    
+    WONo     = Get_Property(@Window:'.WO_NO', 'TEXT')
+    CassNo   = Get_Property(@Window:'.OUT_CASS_NO', 'TEXT')
+    WOMatKey = WONo:'*':CassNo
+    
+    If ( (WONo NE '') and (CassNo NE '') ) then
+        SigData = Signature_Services('GetSigProfile', WOMatKey, False$)
+        Display = ''
+        RowCnt = COUNT(SigData<1>,@VM) + (SigData<1> NE '')
+        
+        FOR I = 1 TO RowCnt
+            Display<1,I,1> = SigData<1,I>
+            Display<1,I,2> = SigData<2,I>
+            Display<1,I,3> = SigData<3,I>
+            Display<1,I,4> = SigData<4,I>
+        NEXT I
+        
+        TypeOver = ''
+        TypeOver<PDISPLAY$> = Display
+        
+        void = Popup(@WINDOW,TypeOver,'SIG_PROFILE')   
+    end
+    
+end event
+
+
+Event EDL_WAFER_COUNTER_QTY.CHANGED(NewData)
+	
+	QtyBackColor = APPGREEN$
+	WONo         = Get_Property(@Window:'.WO_NO', 'TEXT')
+	WOStep       = Get_Property(@Window:'.PROC_STEP_NO', 'TEXT')
+	Cassette     = Get_Property(@Window:'.OUT_CASS_NO', 'TEXT')
+	WMOKey       = WONo:'*':WOStep:'*':Cassette
+	If WMOKey NE '**' then
+		WafersFilled    = Get_Property(@WINDOW:'.WAFER_CNT','TEXT')
+		WaferCounterQty = NewData
+		If (WaferCounterQty NE '') then
+			If (WaferCounterQty NE WafersFilled) then QtyBackColor = APPRED$
+		end else
+			QtyBackColor = APPORANGE$
+		end
+		
+		OrigWCQty = Get_Property(@Window, '@ORIG_WFR_CTR_QTY')
+		OrigRec   = @Record
+		CurrRec   = Get_Property(@Window, 'ATRECORD')
+		Savewarn  = (OrigRec NE CurrRec) or (OrigWCQty NE WaferCounterQty)
+		Set_Property(@Window, 'SAVEWARN', Savewarn)
+	end
+	Set_Property(@WINDOW:'.EDL_WAFER_COUNTER_QTY','BACKCOLOR', QtyBackColor)
+	
+end event
+
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 // Internal GoSubs
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 
 
-