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/SVC_SCHEDULER_INFO.txt
+++ b/LSL2/STPROC/SVC_SCHEDULER_INFO.txt
@ -0,0 +1,85 @@
+Function SVC_Scheduler_Info(Service, Param1, Param2, Param3, Param4, Param5, Param6)
+
+/******************************************************************************************************** 
+
+    This program is proprietary and is not to be used by or disclosed to others, nor is it to
+    be copied without written permission.
+
+    Name        :   
+
+    Description :   
+
+    Tags		:	[SRP]   
+
+    Parameters  :
+
+    History (Date, Initials, Notes)
+        11/12/09	fjt     Initial development
+
+********************************************************************************************************/
+
+$insert SRP_APP_INSERTS
+$insert SERVICE_INSERT
+
+Gosub Init
+Begin Case
+	Case Service _eqc "Create"			; GoSub Create
+End Case
+
+Return Ans
+
+
+!----- INTERNAL ROUTINES --------------------------------------------------------------------------------
+
+
+Init:
+	Ctrl = @Window:".EDT_INFO"
+return
+
+
+Create:
+	Fill  = "White" :@FM: "S L=60"
+	Font  = "Tahoma" :@SVM: 8 :@SVM: 700
+	Font2 = "MS LineDraw" :@SVM: 8
+	Fixed = "1,3,5,7,9,11,13,15,17,19,21,23"
+	Hdrs  = "Customer,WO,Wafer,EPI No.,PSN,Process Time,Commit,Complete,Thick/Resist,Cycles,Remaining,Notes"
+
+	// General
+	Set_Property(Ctrl, "OLE.Dimension",					10:@FM:3)
+	Set_Property(Ctrl, "OLE.BorderType",				"Bevel Sunken")
+	Set_Property(Ctrl, "OLE.RowsToRecords",				3)
+	Set_Property(Ctrl, "OLE.SelectionStyle",			@VM:"S L=90":@FM:@FM:@FM:@FM:0:@FM:0)
+	Set_Property(Ctrl, "OLE.QuickTabOut",				No$)
+	Set_Property(Ctrl, "OLE.TitleList",					"")
+	Set_Property(Ctrl, "OLE.TrimOutput"					Yes$)
+	Set_Property(Ctrl, "OLE.WorkspaceBkColor",			"Window")
+	Set_Property(Ctrl, "OLE.SuppressMouseMoveEvent",	Yes$)
+	
+	Set_Property(Ctrl, "OLE.HeaderRow[All]",			@FM:No$)
+	Set_Property(Ctrl, "OLE.HeaderColumn[All]",			@FM:No$)
+	Set_Property(Ctrl, "OLE.DataRow[All]",				@FM:@FM:@FM:Yes$)
+	Set_Property(Ctrl, "OLE.DataColumn[2]",				@FM:@FM:@FM:Yes$)
+	Set_Property(Ctrl, "OLE.DataColumn[3]",				100)
+	Set_Property(Ctrl, "OLE.DataColumn[4]",				@FM:@FM:@FM:Yes$)
+	Set_Property(Ctrl, "OLE.DataColumn[5]",				058)
+	Set_Property(Ctrl, "OLE.DataColumn[6]",				100)
+	Set_Property(Ctrl, "OLE.DataColumn[7]",				068)
+	Set_Property(Ctrl, "OLE.DataColumn[8]",				075)
+	Set_Property(Ctrl, "OLE.DataColumn[9]",				085)
+	Set_Property(Ctrl, "OLE.DataColumn[10]",			@FM:@FM:@FM:Yes$)
+	Set_Property(Ctrl, "OLE.CellProtection[All;All]",	"Full")
+	
+	Set_Property(Ctrl, "OLE.CellMerge[2;1]",			3:@FM:1)
+	Set_Property(Ctrl, "OLE.CellMerge[6;3]",			5:@FM:1)
+	
+	For i = 1 to 23
+		Locate i in Fixed using "," setting Pos then
+			Set_Property(Ctrl, "OLE.CellColors[":i:";1]",	Fill)
+			Set_Property(Ctrl, "OLE.CellFont[":i:";1]",		Font)
+			Set_Property(Ctrl, "OLE.CellText[":i:";1]",		Field(Hdrs, ",", Pos))
+		end
+	Next i
+	
+	Set_Property(Ctrl, "OLE.CellFont[18;1]",		Font2)
+return
+