:top
time = strcat("15",@TAB,"30",@TAB,"45",@TAB,"1 Hour",@TAB,"2 Hours",@TAB,"3
Hours",@TAB,"4 Hours",@TAB,"5 Hours",@TAB,"6 Hours",@TAB,"7 Hours",@TAB,"1 day")
type= strcat("ServerBuild",@TAB,"ServerMaintenance",@TAB,"TapeChanges",@TAB,"StorageMaintenance",@TAB,"SwitchMaintenance",@TAB,"FirewallMaintenance",@TAB,"AppsSupport")
chart="\\mscis04\NetOps\chart.ini"
ops="OPS"
key=0
Opstime13=IniReadPvt( ops, "ServerBuild", "No Data", chart )
Opstime14=IniReadPvt( ops, "ServerMaintenance", "No Data", chart )
Opstime15=IniReadPvt( ops, "TapeChanges", "No Data", chart )
Opstime16=IniReadPvt( ops, "StorageMaintenance", "No Data", chart )
Opstime17=IniReadPvt( ops, "RouterMaintenance", "No Data", chart )
Opstime18=IniReadPvt( ops, "SwitchMaintenance", "No Data", chart )
Opstime19=IniReadPvt( ops, "FirewallMaintenance", "No Data", chart )
Opstime20=IniReadPvt( ops, "AppsSupport", "No Data", chart )
Opstime21=IniReadPvt( ops, key, "No Data", chart )
Opstime22=IniReadPvt( ops, key, "No Data", chart )
Opstime23=IniReadPvt( ops, key, "No Data", chart )
Opstime24=IniReadPvt( ops, key, "No Data", chart )
Opstime25=IniReadPvt( ops, key, "No Data", chart )
Opstime26=IniReadPvt( ops, key, "No Data", chart )
Opstime27=IniReadPvt( ops, key, "No Data", chart )
#DEFINESUBROUTINE MyDialogProc(Handle,DialogMessage,DialogControlID,param4,param5)
switch (DialogMessage)
case 0
DialogProcOptions(Handle, 7, 1); Pass item listbox
selection changes.
break;
case 7
ops01 = DialogControlGet(Handle,5,6); Get selection
ops02 = DialogControlGet(Handle,19,6); Get selection
ops01 = DialogControlGet(Handle,3,6); Get selection
break
endswitch
return -1
#ENDSUBROUTINE
MyDialogFormat=`WWWDLGED,6.1`
MyDialogCaption=`WIL Dialog 1`
MyDialogX=124
MyDialogY=095
MyDialogWidth=356
MyDialogHeight=296
MyDialogNumControls=030
MyDialogProcedure=`DEFAULT`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0
MyDialog001=`101,277,036,012,PUSHBUTTON,DEFAULT,"OK",1,1,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`239,277,036,012,PUSHBUTTON,DEFAULT,"Cancel",0,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`125,045,096,078,CALENDAR,date,DEFAULT,DEFAULT,3,DEFAULT,DEFAULT`
MyDialog004=`255,077,058,012,PUSHBUTTON,DEFAULT,"Update
DataBase",2,5,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog005=`031,057,058,084,DROPLISTBOX,type,DEFAULT,DEFAULT,6,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog006=`013,033,094,098,GROUPBOX,DEFAULT,"Type of Work and Time
spent",DEFAULT,7,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog007=`041,079,036,008,STATICTEXT,DEFAULT,"Time
Worked",DEFAULT,8,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog008=`111,033,124,098,GROUPBOX,DEFAULT,"Choose
Date",DEFAULT,9,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog009=`239,033,100,098,GROUPBOX,DEFAULT,"Update",DEFAULT,10,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog010=`053,015,012,012,STATICTEXT,DEFAULT,"1",DEFAULT,11,DEFAULT,"Microsoft
Sans Serif|9728|70|34","0|255|0",DEFAULT`
MyDialog011=`163,017,012,012,STATICTEXT,DEFAULT,"2",DEFAULT,12,DEFAULT,"Microsoft
Sans Serif|9728|70|34","0|255|0",DEFAULT`
MyDialog012=`279,017,012,012,STATICTEXT,DEFAULT,"3",DEFAULT,13,DEFAULT,"Microsoft
Sans Serif|9728|70|34","0|255|0",DEFAULT`
MyDialog013=`033,157,080,012,VARYTEXT,Opstime13,"",DEFAULT,14,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog014=`033,177,080,012,VARYTEXT,Opstime14,"",DEFAULT,15,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog015=`033,197,080,012,VARYTEXT,Opstime15,"",DEFAULT,16,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog016=`033,217,080,012,VARYTEXT,Opstime16,"",DEFAULT,17,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog017=`033,237,080,012,VARYTEXT,Opstime17,"",DEFAULT,18,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog018=`131,157,080,012,VARYTEXT,Opstime18,"",DEFAULT,20,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog019=`131,177,080,012,VARYTEXT,Opstime19,"",DEFAULT,21,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog020=`131,197,080,012,VARYTEXT,Opstime20,"",DEFAULT,22,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog021=`131,217,080,012,VARYTEXT,Opstime21,"",DEFAULT,23,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog022=`131,237,080,012,VARYTEXT,Opstime22,"",DEFAULT,24,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog023=`231,217,080,012,VARYTEXT,Opstime23,"",DEFAULT,25,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog024=`231,237,080,012,VARYTEXT,Opstime24,"",DEFAULT,26,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog025=`231,157,080,012,VARYTEXT,Opstime25,"",DEFAULT,28,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog026=`231,177,080,012,VARYTEXT,Opstime26,"",DEFAULT,29,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog027=`231,197,080,012,VARYTEXT,Opstime27,"",DEFAULT,30,DEFAULT,"Microsoft
Sans Serif|5632|40|34","0|0|255",DEFAULT`
MyDialog028=`013,139,326,124,GROUPBOX,DEFAULT,"Current
Statistics",DEFAULT,27,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog029=`031,089,058,080,DROPLISTBOX,time,DEFAULT,DEFAULT,19,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog030=`051,047,018,008,STATICTEXT,DEFAULT,"Type",DEFAULT,4,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed=Dialog("MyDialog",1)