added LSL2 stored procedures

LSL2/STPROC/TOOL_WFR.txt

@@ -0,0 +1,142 @@
+COMPILE FUNCTION Tool_Wfr(EntID,Event,Parm1,Parm2,Parm3,Parm4,Parm5)
+
+/*
+	Commuter module for Tool_Wfr window
+	
+	09/2/2016 - John C. Henry, J.C. Henry & Co., Inc.
+*/
+
+DECLARE SUBROUTINE Set_Property, End_Dialog, Set_Status,Print_React_Read_Worksheet, Start_Window
+DECLARE SUBROUTINE ErrMsg, Send_Message, Set_Property, Send_Event, obj_AppWindow, 
+DECLARE SUBROUTINE End_Window,obj_React_Reads
+
+DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Popup, Collect.Ixvals
+DECLARE FUNCTION Send_Message, Msg, Security_Check, obj_WO_Log, WO_Purge, Set_Property
+
+$INSERT WO_WFR_EQUATES
+$INSERT WO_MAT_EQUATES
+$INSERT WO_MAT_WFR_EQUATES
+
+$INSERT MSG_EQUATES
+$INSERT APPCOLORS
+
+
+
+EQU CRLF$	TO \0D0A\
+EQU TAB$	TO \09\
+
+ErrTitle = 'Error in Tool_Wfr commuter module'
+ErrorMsg = ''
+
+Result = ''
+
+
+BEGIN CASE
+
+	CASE EntID = @WINDOW
+		BEGIN CASE
+			CASE Event = 'CREATE' 			; GOSUB Create
+			
+			CASE Event = 'DELETE'			; GOSUB Delete
+		
+			*CASE Event = 'WRITE'			; *GOSUB Write
+		
+		END CASE
+	
+	
+	CASE EntID = @WINDOW:'.WFR_ID' 			AND Event = 'DBLCLK'	; GOSUB WfrIDDC
+	
+	
+	CASE 1
+		ErrorMsg = 'Unknown Parameters ':EntID:' - ':Event:' passed to commuter'
+		ErrMsg(ErrorMsg)
+		
+END CASE
+
+IF ErrorMsg NE '' THEN
+	ErrMsg(ErrTitle:@SVM:ErrorMsg)
+END
+
+RETURN Result
+
+
+
+* * * * * * *
+Create:
+* * * * * * *
+
+
+obj_Appwindow('Create',@WINDOW)
+
+
+RETURN
+
+
+
+* * * * * * *
+WfrIDDC:
+* * * * * * *
+
+CtrlEntID = @WINDOW:'.WFR_ID'
+
+CurrPos = Get_Property(CtrlEntID,'SELPOS')
+CurrCol = CurrPos<1>
+CurrRow = CurrPos<2>
+
+CtrlList	= Get_Property(CtrlEntID,'LIST')
+
+
+
+IF CurrCol = 1 THEN
+
+	WfrID = CtrlList<CurrRow,1>
+	
+	obj_Appwindow('ViewRelated','WO_WFR':@RM:WfrID:@RM:'')
+
+END
+
+IF CurrCol = 2 THEN
+
+	RDSNo = CtrlList<CurrRow,2>
+    IF RDSNo NE '' then Start_Window('REACT_RUN', '', RDSNo)
+    
+* 	IF RDSNo = '' THEN
+*		RETURN
+* 	END ELSE
+*		obj_Appwindow('ViewRelated','REACT_RUN':@RM:RDSNo:@RM:'')
+* 	END
+	
+END
+
+/*
+IF CurrCol = COL$TOOL_TYPE THEN
+
+	CellValue = CtrlList<CurrRow,COL$TOOL_TYPE>
+	
+	IF INDEX(CellValue,'*',1) THEN
+		obj_Appwindow('ViewRelated','LOCATION':@RM:CellValue:@RM:'')	;* This is the key to a LOCATION record
+	END ELSE
+		obj_Appwindow('ViewRelated','TOOL_CLASS':@RM:CellValue:@RM:'')	;* * This is the Key to a TOOL_CLASS record
+	END
+
+
+END
+*/
+
+
+
+
+
+RETURN
+
+
+
+* * * * * * *
+Delete:
+* * * * * * *
+
+Result = 0
+
+ErrMsg('Deletions NOT allowed.')
+
+RETURN