CxFmsJobsCtrl Example

Scripting > CxHmiFms > CxFmsJobsCtrl Object > CxFmsJobsCtrl Example

CxFmsJobsCtrl Example

Use the CxFmsJobsCtrl object to display and manipulate an ActiveX CygNet FMS Jobs Control in a CygNet Studio screen environment.

CygNet FMS Jobs Control

To see an example FMS Jobs control implemented in a pre-designed screen, open the FMS Jobs Ctrl.csf file in the CygNet\Clients\CStudio\Screens\Examples folder.

CygNet Studio Screen Script: FMS Jobs Ctrl.csf

Sub btnApply_EventClick()

Dim This : Set This = btnApply

FmsJobs.SessionBeginDate = editStartDate.Text

FmsJobs.SessionEndDate = editEndDate.Text

FmsJobs.SessionDateFormat = cboDateFormat.Selection

FmsJobs.PITDateTime = editPIT.Text

FmsJobs.UsePIT = checkUsePIT.Check

FmsJobs.Apply True

End Sub

Sub btnCancel_EventClick()

Dim This : Set This = btnCancel

FmsJobs.Cancel

End Sub

Sub checkUsePIT_EventChange()

Dim This : Set This = checkUsePIT

FmsJobs.UsePIT = this.Check

editPIT.Enable this.Check

End Sub

Sub TheView_EventInitialize()

Dim This : Set This = TheView

editStartDate.Text = FmsJobs.SessionBeginDate

editEndDate.Text = FmsJobs.SessionEndDate

cboDateFormat.AddString "Device"

cboDateFormat.AddString "Contract"

cboDateFormat.AddString "Local"

cboDateFormat.Selection = FmsJobs.SessionDateFormat

checkUsePIT.Check = FmsJobs.UsePIT

editPIT.Text = FmsJobs.PITDateTime

editPIT.Enable = FmsJobs.UsePIT

End Sub