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

