PfsTimeModell

Remarks:

A TimeModell contains shifts and breaks and defines the operating time of an equipment.

Properties:

Methods:

Samples:

Sub PFS_Sample()
Dim i As Integer
Dim zPFS As PfsEngine
Dim zPFS_GRP As PfsGroup
Dim zPFS_TML As PfsTimeModell
  'get PFS Engine
  Set zPFS = MyWorkspace.ActiveDocument.Pfs
  'get 1st found group
  Set zPFS_GRP = zPFS.Groups.Item(0)
  'get count of TimeModels
  Debug.Print "TimeModels: " & zPFS_GRP.TimeModells.Count
  'enumerate TimeModels
  For i = 0 To zPFS_GRP.TimeModells.Count - 1
	Set zPFS_TML = zPFS_GRP.TimeModells.Item(i)
	Debug.Print "Nr." & i & ": " & zPFS_TML.Name
	'check actual day...
	Select Case zPFS_TML.IsOnDay(Now)
	Case tpPfsDefaultDay
		Debug.Print "  tpPfsDefaultDay"
	Case tpPfsDefaultHDay
		Debug.Print "  tpPfsDefaultHDay"
	Case tpPfsExecute
		Debug.Print "  tpPfsExecute"
	Case tpPfsSkip
		Debug.Print "  tpPfsSkip"
	Case tpPfsUnused
		Debug.Print "  tpPfsUnused"
	End Select
  Next i
End Sub