This file was automatically generated by Tlb2Html utility
Type library name: VPTLib
Description: VAKCER Project Tracker 2.1 Type Library

Index


Class ActivityRecord

Properties:

  • Property Active As Boolean [r/o]
  • Property ActivityTimer As ActivityTimer [r/o]
  • Property Application As Application [r/o]
  • Property Category As CategoryRecord [r/w]
  • Property Cost As Long [r/o]
  • Property Description As String [r/w]
  • Property EndDate As Date [r/o]
  • Property Index As Long [r/o]
  • Property Parent As ActivityRecords [r/o]
  • Property StartDate As Date [r/o]
  • Property Time As Long [r/o]
  • Property TimeTable As TimeTable [r/o]
  • Property Type As VptActivityType [r/o]

Methods:

  • Sub Delete()
  • Sub Fill(ByVal StartDate As Date, ByVal EndDate As Date, [ByVal UseWorkTime As Boolean = False], [ByVal Reset As Boolean = True])

Class ActivityRecords

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As ActivityRecord [r/o] [default]
  • Property Parent As Object [r/o]

Methods:

  • Function Add(ByVal StartDate As Date, ByVal EndDate As Date, [ByVal Description As String = ""], [ByVal UseWorkTime As Boolean = False]) As ActivityRecord
  • Function GetTimeLimits(ByRef StartHour As Long, ByRef EndHour As Long) As Boolean
  • Function Track([ByVal Description As String = ""], [ByVal Visible As Boolean = True], [ByVal Master As Boolean = False]) As ActivityRecord

Class ActivityTimer

Properties:

  • Property Active As Boolean [r/o]
  • Property ActivityRecord As ActivityRecord [r/o]
  • Property Application As Application [r/o]
  • Property Index As Long [r/o]
  • Property Master As Boolean [r/w]
  • Property Parent As ActivityTimers [r/o]
  • Property Paused As Boolean [r/w]
  • Property Visible As Boolean [r/w]

Methods:

  • Sub Activate()
  • Sub Close()
  • Sub Discard()

Class ActivityTimers

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As ActivityTimer [r/o] [default]
  • Property Parent As Object [r/o]

Class Application

Properties:

  • Property ActiveProject As Project [r/o]
  • Property ActivityTimers As ActivityTimers [r/o]
  • Property Application As Application [r/o]
  • Property BackupPath As String [r/o]
  • Property Clients As Clients [r/o]
  • Property DefaultWorkTime As WorkTime [r/o]
  • Property FullName As String [r/o]
  • Property IsDialogOpen As Boolean [r/o]
  • Property Locked As Boolean [r/w]
  • Property Minimized As Boolean [r/w]
  • Property Name As String [r/o] [default]
  • Property OpenProjectLimit As Long [r/o]
  • Property Parent As Application [r/o]
  • Property Path As String [r/o]
  • Property PluginPath As String [r/o]
  • Property Presets As Presets [r/o]
  • Property ProjectPath As String [r/o]
  • Property ProjectRecords As ProjectRecords [r/o]
  • Property Projects As Projects [r/o]
  • Property ReportPath As String [r/o]
  • Property Reports As Reports [r/o]
  • Property SelectedActivity As ActivityRecord [r/o]
  • Property SelectedApplication As AppRecord [r/o]
  • Property SelectedDocument As DocRecord [r/o]
  • Property SelectedProject As Project [r/o]
  • Property SelectionType As VptSelectionType [r/o]
  • Property SessionUnattendedTime As TimeTable [r/o]
  • Property SessionUpTime As TimeTable [r/o]
  • Property TALPath As String [r/o]
  • Property TotalUnattendedTime As TimeTable [r/o]
  • Property TotalUpTime As TimeTable [r/o]
  • Property Unattended As Boolean [r/w]
  • Property UnattendedTime As Long [r/o]
  • Property Version As String [r/o]
  • Property VersionBuild As Long [r/o]
  • Property VersionMajor As Long [r/o]
  • Property VersionMinor As Long [r/o]
  • Property Visible As Boolean [r/w]

Methods:

  • Function DateToHour(ByVal Date As Date) As Long
  • Function FormatTime(ByVal Time As Long, [ByVal Signed As Boolean = False]) As String
  • Function HourToDate(ByVal Hour As Long) As Date
  • Function MakeHour(ByVal Hour As Long, ByVal Day As Long, ByVal Month As Long, ByVal Year As Long) As Long
  • Sub Quit()

Class AppRecord

Properties:

  • Property ActiveDocRecords As DocRecords [r/o]
  • Property Application As Application [r/o]
  • Property BaseRate As Long [r/w]
  • Property Category As String [r/o]
  • Property Cost As Long [r/o]
  • Property DisableUnattended As Boolean [r/w]
  • Property DocLevelRate As Boolean [r/w]
  • Property DocRecords As DocRecords [r/o]
  • Property InactiveDocRecords As DocRecords [r/o]
  • Property Index As Long [r/o]
  • Property Name As String [r/o] [default]
  • Property Parent As Project [r/o]
  • Property Rates As RateRecords [r/o]
  • Property Time As Long [r/o]
  • Property Tracked As Boolean [r/w]

Methods:

  • Function CalculateCost(ByVal Time As Long) As Long
  • Function CostForInterval(ByVal StartHour As Long, ByVal EndHour As Long) As Long
  • Function GetRate(ByVal Time As Long) As Long
  • Function GetTimeLimits(ByRef StartHour As Long, ByRef EndHour As Long) As Boolean
  • Function TimeForInterval(ByVal StartHour As Long, ByVal EndHour As Long) As Long

Class AppRecords

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As AppRecord [r/o] [default]
  • Property Parent As Project [r/o]

Methods:

  • Function Find(ByVal Name As String) As AppRecord

Class CategoryRecord

Properties:

  • Property Active As Boolean [r/w]
  • Property Activities As ActivityRecords [r/o]
  • Property Application As Application [r/o]
  • Property Cost As Long [r/o]
  • Property Icon As Long [r/w]
  • Property Index As Long [r/o]
  • Property Name As String [r/w] [default]
  • Property Parent As CategoryRecords [r/o]
  • Property Rate As Long [r/w]
  • Property Time As Long [r/o]

Methods:


Class CategoryRecords

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As CategoryRecord [r/o] [default]
  • Property Parent As Project [r/o]

Methods:

  • Function Add(ByVal Name As String, [ByVal Rate As Long = 0], [ByVal Icon As Long = 0], [ByVal Active As Boolean = True]) As CategoryRecord

Class Client

Properties:

  • Property Application As Application [r/o]
  • Property Contact As ContactInfo [r/o]
  • Property Index As Long [r/o]
  • Property Name As String [r/w] [default]
  • Property Parent As Clients [r/o]

Methods:

  • Sub Delete()
  • Sub UpdateFromProject(ByVal Project As Project)

Class Clients

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Client [r/o] [default]
  • Property Parent As Application [r/o]

Methods:

  • Function Add(ByVal Name As String) As Client
  • Function AddFromProject(ByVal Name As String, ByVal Project As Project) As Client

Class ContactBlock

Properties:

  • Property Address As String [r/w]
  • Property Application As Application [r/o]
  • Property Cellular As String [r/w]
  • Property City As String [r/w]
  • Property Company As String [r/w]
  • Property Country As String [r/w]
  • Property Email As String [r/w]
  • Property EveningPhone As String [r/w]
  • Property Fax As String [r/w]
  • Property Name As String [r/w] [default]
  • Property Parent As ContactInfo [r/o]
  • Property Phone As String [r/w]
  • Property State As String [r/w]
  • Property URL As String [r/w]
  • Property ZipCode As String [r/w]

Methods:


Class ContactInfo

Properties:

Methods:


Class DeliveryInfo

Properties:

  • Property Application As Application [r/o]
  • Property LocalCourierAccount As String [r/w]
  • Property LocalCourierName As String [r/w]
  • Property LocalCourierPhone As String [r/w]
  • Property Parent As ProjectInfo [r/o]
  • Property PrivateCourierAccount As String [r/w]
  • Property PrivateCourierName As String [r/w]
  • Property Term As VptDeliveryTerm [r/w]
  • Property Type As VptDeliveryType [r/w]

Methods:

  • Sub Clear()

Class DocRecord

Properties:

  • Property Accesses As Long [r/o]
  • Property Active As Boolean [r/o]
  • Property Application As Application [r/o]
  • Property Cost As Long [r/o]
  • Property Created As Date [r/o]
  • Property Excluded As Boolean [r/w]
  • Property Index As Long [r/o]
  • Property IsCostAccurate As Boolean [r/o]
  • Property LastAccessed As Date [r/o]
  • Property Name As String [r/o] [default]
  • Property Parent As DocRecords [r/o]
  • Property Time As Long [r/o]
  • Property TimeTable As TimeTable [r/o]

Methods:

  • Function CostForInterval(ByVal StartHour As Long, ByVal EndHour As Long) As Long
  • Sub Delete()
  • Function IsCostForIntervalAccurate(ByVal StartHour As Long, ByVal EndHour As Long) As Boolean
  • Function MoveInterval(ByVal AppRecord As AppRecord, [ByVal StartHour As Long = 0], [ByVal EndHour As Long = 0]) As DocRecord
  • Function MoveTo(ByVal AppRecord As AppRecord) As DocRecord
  • Function TimeForInterval(ByVal StartHour As Long, ByVal EndHour As Long) As Long

Class DocRecords

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As DocRecord [r/o] [default]
  • Property Parent As AppRecord [r/o]

Methods:

  • Function Add(ByVal Name As String) As DocRecord
  • Function Find(ByVal Name As String, [ByVal CaseSensitive As Boolean = True]) As DocRecord

Class ExpenseRecord

Properties:

  • Property Application As Application [r/o]
  • Property Cost As Long [r/w]
  • Property Created As Date [r/w]
  • Property Index As Long [r/o]
  • Property Name As String [r/w] [default]
  • Property Parent As ExpenseRecords [r/o]

Methods:

  • Sub Delete()

Class ExpenseRecords

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As ExpenseRecord [r/o] [default]
  • Property Parent As Project [r/o]

Methods:

  • Function Add(ByVal Name As String, ByVal Cost As Long, [ByVal Created As Date = 12:00:00 AM]) As ExpenseRecord
  • Function GetTimeLimits(ByRef StartHour As Long, ByRef EndHour As Long) As Boolean

Class FinishingInfo

Properties:

  • Property Application As Application [r/o]
  • Property Caption(ByVal Index As Long) As String [r/o]
  • Property Parent As ProjectInfo [r/o]
  • Property Value(ByVal Index As Long) As Boolean [r/w] [default]

Methods:

  • Sub Clear()

Class InputMediaInfo

Properties:

  • Property Application As Application [r/o]
  • Property Bernoulli As Boolean [r/w]
  • Property ColorProofs As Boolean [r/w]
  • Property Floppy As Boolean [r/w]
  • Property FPOs As Boolean [r/w]
  • Property Internet As Boolean [r/w]
  • Property Jaz As Boolean [r/w]
  • Property LaserProofs As Boolean [r/w]
  • Property MediaText As String [r/o]
  • Property Optical As Boolean [r/w]
  • Property Other As Boolean [r/w]
  • Property OtherMediaName As String [r/w]
  • Property Parent As ProjectInfo [r/o]
  • Property SyQuest As Boolean [r/w]
  • Property Zip As Boolean [r/w]

Methods:

  • Sub Clear()

Class IPlugin

Methods:

  • Sub About(ByVal CommandIndex As Long)
  • Function Enabled(ByVal CommandIndex As Long, ByVal Selection As VptSelectionType) As Boolean
  • Sub Execute(ByVal CommandIndex As Long, ByVal Popup As Boolean, ByVal hWnd As Long)
  • Function GetContactMenuItem(ByVal CommandIndex As Long, ByVal Page As VptContactPage) As String
  • Function GetFlags(ByVal CommandIndex As Long) As VptPluginFlags
  • Function GetMenuItem(ByVal CommandIndex As Long) As String
  • Function GetModuleFlags() As VptPluginFlags
  • Function GetName(ByVal CommandIndex As Long) As String
  • Function GetNumToolIcons() As Long
  • Function GetPopupMenuItem(ByVal CommandIndex As Long, ByVal Selection As VptSelectionType) As String
  • Function GetToolIconIndex(ByVal CommandIndex As Long) As Long
  • Function GetToolIconModule() As Long
  • Function GetToolIconResourceID() As Long
  • Function GetToolTip(ByVal CommandIndex As Long) As String
  • Sub Initialize(ByVal Application As Object, ByVal CommandIndex As Long)
  • Sub InitializeModule(ByVal Application As Object)
  • Function OnLoad() As Long
  • Sub OnUnload()
  • Sub ProcessContact(ByVal CommandIndex As Long, ByVal Contact As ContactInfo, ByVal hWnd As Long)
  • Sub SetupModule(ByVal hWnd As Long)
  • Sub UnInitialize(ByVal CommandIndex As Long)
  • Sub UnInitializeModule()

Class OrderInfo

Properties:

  • Property Account As String [r/w]
  • Property Application As Application [r/o]
  • Property BillingInfo As VptBillingInfo [r/w]
  • Property CallWhenReady As Boolean [r/w]
  • Property CustJobName As String [r/w]
  • Property CustJobNumber As String [r/w]
  • Property DateDue As String [r/w]
  • Property DateReceived As String [r/w]
  • Property DirectPhone As String [r/w]
  • Property JobDescription As String [r/w]
  • Property JobNumber As String [r/w]
  • Property OrderInputBy As String [r/w]
  • Property Parent As ProjectInfo [r/o]
  • Property Rush As Boolean [r/w]
  • Property TimeDue As String [r/w]

Methods:

  • Sub Clear()

Class OutputMediaInfo

Properties:

  • Property Application As Application [r/o]
  • Property Bernoulli As Boolean [r/w]
  • Property CropMarks As Boolean [r/w]
  • Property DyeSubProofs As Boolean [r/w]
  • Property EmulsionDown As Boolean [r/w]
  • Property Film As Boolean [r/w]
  • Property Floppy As Boolean [r/w]
  • Property InkJetProofs As Boolean [r/w]
  • Property Internet As Boolean [r/w]
  • Property Jaz As Boolean [r/w]
  • Property LaserProofs As Boolean [r/w]
  • Property LaserProofType As VptLaserProofType [r/w]
  • Property MediaText As String [r/o]
  • Property Negative As Boolean [r/w]
  • Property Optical As Boolean [r/w]
  • Property Other As Boolean [r/w]
  • Property OtherMediaName As String [r/w]
  • Property OtherProofs As Boolean [r/w]
  • Property OtherProofsName As String [r/w]
  • Property Paper As Boolean [r/w]
  • Property Parent As ProjectInfo [r/o]
  • Property ProofsRequired As Boolean [r/w]
  • Property Resolution As Long [r/w]
  • Property ScreenFrequency As Long [r/w]
  • Property Spreads As Boolean [r/w]
  • Property SyQuest As Boolean [r/w]
  • Property URL As String [r/w]
  • Property Zip As Boolean [r/w]

Methods:

  • Sub Clear()

Class Preset

Properties:

  • Property Application As Application [r/o]
  • Property Index As Long [r/o]
  • Property Name As String [r/w] [default]
  • Property Parent As Presets [r/o]
  • Property PresetAppRecords As PresetAppRecords [r/o]

Methods:

  • Sub Delete()
  • Sub Save()
  • Sub UpdateFromProject(ByVal Project As Project)

Class PresetAppRecord

Properties:

  • Property Application As Application [r/o]
  • Property BaseRate As Long [r/w]
  • Property Category As String [r/o]
  • Property DisableUnattended As Boolean [r/w]
  • Property DocLevelRate As Boolean [r/w]
  • Property Index As Long [r/o]
  • Property Name As String [r/o] [default]
  • Property Parent As PresetAppRecords [r/o]
  • Property Rates As RateRecords [r/o]
  • Property Tracked As Boolean [r/w]

Methods:

  • Function GetRate(ByVal Time As Long) As Long

Class PresetAppRecords

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As PresetAppRecord [r/o] [default]
  • Property Parent As Preset [r/o]

Methods:


Class Presets

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Preset [r/o] [default]
  • Property Parent As Application [r/o]

Methods:

  • Function Add(ByVal Name As String, [ByVal AllTracked As Boolean = True], [ByVal BaseRate As Long = 0]) As Preset
  • Function AddFromProject(ByVal Name As String, ByVal Project As Project) As Preset

Class Project

Properties:

  • Property Active As Boolean [r/o]
  • Property Activities As ActivityRecords [r/o]
  • Property ActivityTimers As ActivityTimers [r/o]
  • Property Application As Application [r/o]
  • Property AppRecords As AppRecords [r/o]
  • Property Categories As CategoryRecords [r/o]
  • Property Client As Client [r/w]
  • Property Cost As Long [r/o]
  • Property DataRecords As ProjectDataRecords [r/o]
  • Property Dirty As Boolean [r/w]
  • Property Editable As Boolean [r/o]
  • Property Expenses As ExpenseRecords [r/o]
  • Property Index As Long [r/o]
  • Property Info As ProjectInfo [r/o]
  • Property IsOpen As Boolean [r/o]
  • Property LockCount As Long [r/o]
  • Property Locked As Boolean [r/o]
  • Property Name As String [r/w] [default]
  • Property Parent As Projects [r/o]
  • Property Protected As Boolean [r/o]
  • Property Time As Long [r/o]
  • Property TrackedAppRecords As AppRecords [r/o]
  • Property UserName As String [r/w]
  • Property WorkTime As WorkTime [r/o]

Methods:

  • Sub Activate()
  • Sub ApplyPreset(ByVal Preset As Preset)
  • Sub ChangePassword([ByVal Password As String])
  • Sub Close()
  • Function CostForInterval(ByVal StartHour As Long, ByVal EndHour As Long) As Long
  • Function GetTimeLimits(ByRef StartHour As Long, ByRef EndHour As Long) As Boolean
  • Sub Lock()
  • Sub Merge(ByVal Project As Project)
  • Sub Open()
  • Sub Save()
  • Sub SaveToFile(ByVal FileName As String)
  • Sub SignOff()
  • Sub SignOn([ByVal Password As String])
  • Function TimeForInterval(ByVal StartHour As Long, ByVal EndHour As Long) As Long
  • Sub Unlock()
  • Function UserSignOn([ByVal hWnd As Long = 0]) As Boolean

Class ProjectDataRecord

Properties:

  • Property Application As Application [r/o]
  • Property DataSize As Long [r/o]
  • Property Name As String [r/w] [default]
  • Property Parent As ProjectDataRecords [r/o]
  • Property Type As VptDataType [r/o]
  • Property Value As Variant [r/w]

Methods:

  • Sub Clear()
  • Sub Delete()
  • Function GetDataAsArray()() As Byte
  • Sub GetDataAsString(ByRef Data As String, ByRef Size As Long)
  • Sub SetDataAsArray(ByRef Array() As Byte)
  • Sub SetDataAsString(ByVal Data As String)
  • Sub SetValue(ByVal Type As VptDataType, ByVal Value As Variant)

Class ProjectDataRecords

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As ProjectDataRecord [r/o] [default]
  • Property Parent As Project [r/o]

Methods:


Class ProjectInfo

Properties:


Class ProjectRecord

Properties:

  • Property Application As Application [r/o]
  • Property ClientName As String [r/o]
  • Property Cost As Long [r/o]
  • Property FileName As String [r/o]
  • Property Index As Long [r/o]
  • Property IsOpen As Boolean [r/o]
  • Property LastModified As Date [r/o]
  • Property Name As String [r/w] [default]
  • Property NumActivities As Long [r/o]
  • Property NumApplications As Long [r/o]
  • Property NumDocuments As Long [r/o]
  • Property NumNonEmptyApps As Long [r/o]
  • Property Parent As ProjectRecords [r/o]
  • Property Time As Long [r/o]

Methods:


Class ProjectRecords

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As ProjectRecord [r/o] [default]
  • Property Parent As Application [r/o]

Class Projects

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Project [r/o] [default]
  • Property Parent As Application [r/o]

Methods:

  • Function Add(ByVal Name As String, ByVal Client As Client, [ByVal Preset As Preset = 0], [ByVal Open As Boolean = False]) As Project
  • Function LoadFromFile(ByVal FileName As String) As Project

Class RateRecord

Properties:

  • Property Application As Application [r/o]
  • Property Index As Long [r/o]
  • Property Parent As RateRecords [r/o]
  • Property Rate As Long [r/w]
  • Property Time As Long [r/w]

Methods:

  • Sub Delete()
  • Sub Move(ByVal Position As Long)

Class RateRecords

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As RateRecord [r/o] [default]
  • Property Parent As Object [r/o]
  • Property Time As Long [r/o]

Methods:

  • Function Add(ByVal Time As Long, ByVal Rate As Long) As RateRecord
  • Sub Clear()
  • Function Insert(ByVal Time As Long, ByVal Rate As Long, ByVal Position As Long) As RateRecord

Class Report

Properties:

  • Property Application As Application [r/o]
  • Property Description As String [r/w]
  • Property Name As String [r/w] [default]
  • Property Parent As Reports [r/o]
  • Property TemplateFile As String [r/w]

Methods:

  • Sub Delete([ByVal DeleteTemplate As Boolean = True])
  • Sub Generate([ByRef Projects As Variant], [ByVal Period As VptReportPeriod = vptReportWhole (0)], [ByVal StartHour As Long = 0], [ByVal EndHour As Long = 0], [ByVal FileName As String], [ByVal LaunchBrowser As Boolean = True], [ByVal CombinedReport As Boolean = True], [ByVal ShowDialog As Boolean = True])

Class Reports

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As Report [r/o] [default]
  • Property Parent As Application [r/o]

Methods:

  • Function Add(ByVal Name As String, ByVal TemplateFile As String, [ByVal Description As String], [ByVal FileName As String]) As Report
  • Function Find(ByVal Name As String) As Report

Class TimeRecord

Properties:

  • Property Application As Application [r/o]
  • Property Hour As Long [r/o]
  • Property Index As Long [r/o]
  • Property Parent As TimeRecords [r/o]
  • Property Time As Long [r/w] [default]

Methods:

  • Sub Delete()

Class TimeRecords

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/o]
  • Property Item(ByVal Index As Long) As TimeRecord [r/o] [default]
  • Property Parent As TimeTable [r/o]

Methods:

  • Function Add(ByVal Hour As Long, ByVal Time As Long) As TimeRecord
  • Sub Clear()

Class TimeTable

Properties:

  • Property Application As Application [r/o]
  • Property Parent As Object [r/o]
  • Property Time As Long [r/o] [default]
  • Property TimeRecords As TimeRecords [r/o]

Methods:

  • Sub Clear()
  • Sub DeleteInterval(ByVal StartHour As Long, ByVal EndHour As Long)
  • Sub Fill(ByVal StartDate As Date, ByVal Duration As Long)
  • Function GetTimeLimits(ByRef StartHour As Long, ByRef EndHour As Long) As Boolean
  • Sub Merge(ByVal TimeTable As TimeTable)
  • Sub Pack()
  • Sub Reclaim(ByVal EndDate As Date, ByVal Duration As Long)
  • Sub Sort([ByVal SortDir As VptTimeSortDir = vptAscending (0)])
  • Function TimeForHour(ByVal Hour As Long) As Long
  • Function TimeForInterval(ByVal StartHour As Long, ByVal EndHour As Long) As Long

Class WorkTime

Properties:

  • Property Application As Application [r/o]
  • Property Item(ByVal DayOfWeek As Long) As WorkTimeRecord [r/o] [default]
  • Property Parent As Object [r/o]

Methods:

  • Function GetCount(ByVal DayOfWeek As Long) As Long
  • Function GetFromTime(ByVal DayOfWeek As Long, ByVal Index As Long) As Long
  • Function GetTime(ByVal DayOfWeek As Long, ByVal Hour As Long, ByVal Minute As Long, ByVal Second As Long) As Long
  • Function GetToTime(ByVal DayOfWeek As Long, ByVal Index As Long) As Long
  • Function GetType(ByVal DayOfWeek As Long) As VptWorkDayType
  • Function IsWorkHour(ByVal Hour As Long) As Boolean
  • Function IsWorkTime(ByVal DayOfWeek As Long, ByVal Hour As Long, ByVal Minute As Long) As Boolean

Class WorkTimeRecord

Properties:

  • Property Application As Application [r/o]
  • Property Count As Long [r/w]
  • Property FromTime(ByVal Index As Long) As Long [r/w]
  • Property Parent As WorkTime [r/o]
  • Property ToTime(ByVal Index As Long) As Long [r/w]
  • Property Type As VptWorkDayType [r/w]

Enum VptActivityType

  • vptActivityAutomatic As Long=0
  • vptActivityManual As Long=1

Enum VptBillingInfo

  • vptBillNone As Long=0
  • vptBillCash As Long=1
  • vptBillCredit As Long=2
  • vptBillAccount As Long=3

Enum VptContactPage

  • vptContactPrimary As Long=0
  • vptContactShipping As Long=1
  • vptContactBilling As Long=2

Enum VptDataType

  • vptDataDefault As Long=0
  • vptDataEmpty As Long=1
  • vptDataLong As Long=2
  • vptDataDouble As Long=3
  • vptDataString As Long=4
  • vptDataDate As Long=5
  • vptDataCurrency As Long=6
  • vptDataBoolean As Long=7
  • vptDataBinary As Long=8

Enum VptDeliveryTerm

  • vptStandard As Long=0
  • vptSecondDay As Long=1
  • vptNextAfternoon As Long=2
  • vptNextMorining As Long=3

Enum VptDeliveryType

  • vptNoDelivery As Long=0
  • vptCustomerPickup As Long=1
  • vptLocalCourier As Long=2
  • vptPrivateCourier As Long=3

Enum VptLaserProofType

  • vptComposite As Long=0
  • vptSeparation As Long=1

Enum VptPluginFlags

  • vptPluginMenu As Long=1
  • vptPluginToolBar As Long=2
  • vptPluginPrjMenu As Long=4
  • vptPluginAppMenu As Long=8
  • vptPluginDocMenu As Long=16
  • vptPluginActMenu As Long=32
  • vptPluginAbout As Long=64
  • vptPluginContact As Long=128
  • vptPluginSetup As Long=256

Enum VptReportPeriod

  • vptReportWhole As Long=0
  • vptReportCustom As Long=1
  • vptReportLast2Hours As Long=2
  • vptReportLast6Hours As Long=3
  • vptReportToday As Long=4
  • vptReportLast24Hours As Long=5
  • vptReportYesterday As Long=6
  • vptReportLast2Days As Long=7
  • vptReportThisWeek As Long=8
  • vptReportLast7Days As Long=9
  • vptReportThisMonth As Long=10
  • vptReportLastMonth As Long=11

Enum VptSelectionType

  • vptNoSelection As Long=0
  • vptProjectSelected As Long=1
  • vptApplicationSelected As Long=2
  • vptDocumentSelected As Long=3
  • vptActivitySelected As Long=4

Enum VptTimeSortDir

  • vptAscending As Long=0
  • vptDescending As Long=1

Enum VptWorkDayType

  • vptDefaultDay As Long=0
  • vptNonWorkingDay As Long=1
  • vptWorkingDay As Long=2

 


Copyright 1998-2003 by VAKCER