33 lines
762 B
OpenEdge ABL
33 lines
762 B
OpenEdge ABL
|
VERSION 1.0 CLASS
|
||
|
|
BEGIN
|
||
|
|
MultiUse = -1 'True
|
||
|
|
END
|
||
|
|
Attribute VB_Name = "ItemCachedProject"
|
||
|
|
Attribute VB_GlobalNameSpace = False
|
||
|
|
Attribute VB_Creatable = False
|
||
|
|
Attribute VB_PredeclaredId = False
|
||
|
|
Attribute VB_Exposed = False
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Public category_ As TProjectCategory
|
||
|
|
Public name_ As String
|
||
|
|
Public manager_ As String
|
||
|
|
Public isActive_ As Boolean
|
||
|
|
|
||
|
|
Public Function Init(iCat As TProjectCategory, sProject$, sManager$, bIsActive As Boolean)
|
||
|
|
category_ = iCat
|
||
|
|
name_ = sProject
|
||
|
|
manager_ = sManager
|
||
|
|
isActive_ = bIsActive
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Public Function Clone() As ItemCachedProject
|
||
|
|
Set Clone = New ItemCachedProject
|
||
|
|
With Clone
|
||
|
|
.category_ = category_
|
||
|
|
.name_ = name_
|
||
|
|
.manager_ = manager_
|
||
|
|
.isActive_ = isActive_
|
||
|
|
End With
|
||
|
|
End Function
|