86 lines
2.8 KiB
Plaintext
86 lines
2.8 KiB
Plaintext
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
|
|
|