added LSL2 stored procedures

2024-03-25 14:46:21 -07:00
parent 09f1a66046
commit c667dd56eb
1655 changed files with 527967 additions and 0 deletions
--- a/LSL2/STPROC/NDW_SCHEDULE_SEARCH_EVENTS.txt
+++ b/LSL2/STPROC/NDW_SCHEDULE_SEARCH_EVENTS.txt
@ -0,0 +1,111 @@
+Function NDW_SCHEDULE_SEARCH_EVENTS(CtrlEntId, Event, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8, Param9, Param10, Param11, Param12, Param13, Param14, Param15)
+/******************************************************************************************************** 
+
+    This program is proprietary and is not to be used by or disclosed to others, nor is it to
+    be copied without written permission from SRP Computer Solutions, Inc.
+
+    Name        :   
+
+    Description :
+    
+	Tags		:	[SRP]
+
+    Parameters  :
+
+    History (Date, Initials, Notes)
+        09/17/08    fjt     Initial development
+
+********************************************************************************************************/
+
+$insert SRP_APP_INSERTS
+$insert SRP_EVENT_SETUP
+
+Equ Sched_Win$ to "WO_MASTER_SCHEDULER"
+Equ Ctrl$	   to Sched_Win$:".OLE_SCHEDULE"
+
+Declare subroutine SRP_Redirect_OLE_Events, Update_Index, Extract_SI_Keys
+Declare function   SRP_Rotate_Array
+
+Begin Case
+
+	Case Event EQ "OnClick"
+		Begin Case
+			Case Control EQ "HYP_GO"			; GoSub OnClick.HYP_GO
+			Case Control EQ "HYP_FIND"			; GoSub OnClick.HYP_FIND
+		End Case
+		
+	Case Event EQ "OnItemClick"
+		Begin Case
+			Case Control EQ "RPT_RESULTS"		; GoSub OnItemClick.RPT_RESULTS
+		End Case
+
+    Case Control EQ Window
+        Begin Case
+        	Case Event EQ "CREATE"              ; GoSub Window.CREATE
+        End Case
+
+End Case
+
+If Assigned(Ans) else Ans = 1
+Return Ans
+
+
+
+OnClick.HYP_GO:
+	rv = Get_Property(@Window:".COB_REACT_NO", "TEXT")
+	If rv then Send_Message(Ctrl$, "OLE.EnsureVisible", rv)
+return
+
+
+OnClick.HYP_FIND:
+	List  = ""
+	Table = "WO_MAST_SCHED"
+	Find  = Get_Property(@Window:".EDL_FIND", "TEXT")
+	Field = Get_Property(@Window:".COB_FIELD", "TEXT")
+	If Find and Field then
+		Begin Case
+			Case Field EQ "WO"  ; Field = "WO_NO2"
+			Case Field EQ "PSN" ; Field = "PSN_NO"
+		End Case
+		Update_Index(Table, Field, No$)
+		Extract_SI_Keys(Table, Field, Find, Keys)
+		rv = Xlate(Table, Keys, "REACT_NO", "X") :@FM: Xlate(Table, Keys, "WO_NO", "X") :@FM: Keys
+		Appts = "";!!
+		Cnt = Count(rv<3>, @VM) + (rv<3> NE "")
+		For i = 1 to Cnt
+			List<i> = "R":rv<1,i> :" : ": "WO":rv<2,i> :@VM: rv<3,i>
+		Next i
+		Set_Property(@Window:".RPT_RESULTS", "OLE.List", List)
+	end
+return
+
+
+OnItemClick.RPT_RESULTS:
+	If Param2 EQ "Left" then
+		Row  = Get_Property(CtrlEntId, "OLE.RowData[":Param1:"]")
+		Appt = Row<2>
+		If Appt then
+			Send_Message(Ctrl$, "OLE.EnsureVisible", Appt)
+			Set_Property(Ctrl$, "OLE.SelAppt", Appt)
+		end
+	end
+return
+
+
+Window.CREATE:
+	// Result reporttable setup
+	rv = ""
+	rv<01> = "Results" :@VM:"Text":@VM:"045":@VM:1:@VM:1:@VM:@VM:1
+	rv<02> = "Key"     :@VM:"Text":@VM:"0":@VM:0:@VM:0:@VM:@VM:0
+	Set_Property(@Window:".RPT_RESULTS", "OLE.ColumnList", rv)
+
+	// Reactor dropdown
+	rv = ""
+	For i = 20 to 69
+		rv := i :@FM
+	Next i
+	rv[-1,1] = ""
+	Set_Property(@Window:".COB_REACT_NO", "LIST", rv)
+	
+	SRP_Redirect_OLE_Events()
+return