clsfyiprocedure.cls

来自「欢迎您使用审批系统!该系统主要面向银行内部人员,但也为客户提供一些信息." 登陆」· CLS 代码 · 共 95 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsFYIProcedure"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Implements IProcedureItem

Private Property Let IProcedureItem_CompleteDate(ByVal vData As String)

End Property

Private Property Get IProcedureItem_CompleteDate() As String

End Property

Private Function IProcedureItem_getNextProcedure() As IProcedureItem

End Function

Private Function IProcedureItem_IsProcedureComplete() As Boolean

End Function

Private Property Get IProcedureItem_NextProcedureID() As String

End Property

Private Sub IProcedureItem_Populate(domProcedure As MSXML.IXMLDOMDocument)

End Sub

Private Property Let IProcedureItem_ProcedureID(ByVal vData As String)

End Property

Private Property Get IProcedureItem_ProcedureID() As String

End Property

Private Property Get IProcedureItem_ProcedureProcess() As String

End Property

Private Property Let IProcedureItem_ProcedureProcessID(ByVal RHS As String)

End Property

Private Function IProcedureItem_procedureStart() As Boolean

End Function

Private Function IProcedureItem_procedureStop() As Boolean

End Function

Private Property Let IProcedureItem_Response(ByVal vData As String)

End Property

Private Property Get IProcedureItem_Response() As String

End Property

Private Property Let IProcedureItem_StartDate(ByVal vData As Date)

End Property

Private Property Get IProcedureItem_StartDate() As Date

End Property

Private Property Let IProcedureItem_StepType(ByVal RHS As String)

End Property

Private Property Get IProcedureItem_StepType() As String

End Property

Private Property Let IProcedureItem_WorkflowID(ByVal vData As String)

End Property

Private Property Get IProcedureItem_WorkflowID() As String

End Property