PfsTimeModells

Remarks:

The TimeModells collection contains the existing time models of a PFS equipment. The time models contain the shift/break times of an equipment. Any number of time models can exist in an equipment.

Time models have to be unique within an equipment.

With the Item method you can access a time model. With the Item method combined with the Count property you can iterate through the existing models.

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
  'create new TimeModel
  Set zPFS_TML = zPFS_GRP.TimeModells.CreateModell("Temporary")
  '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
  Next i
  Set zPFS_TML = Nothing
  'delete TimeModel
  zPFS_GRP.TimeModells.DeleteModell ("Temporary")
  'save changes
  zPFS.Save
End Sub