Class DOMobj_Person
gdoc_Person As NotesDocument
' **
屬性
Property Get Document
Set Document = gdoc_Person
End
Property
Property Set Document
Set gdoc_Person = Document
End
Property
Property Get NotesID
NotesID =
gdoc_Person.GetItemValue("NotesID")(0)
End Property
Property Get
No
No = gdoc_Person.GetItemValue("EmpNo")(0)
End
Property
Property Get CName
CName =
gdoc_Person.GetItemValue("EmpCName")(0)
End Property
Property Get
EName
EName = gdoc_Person.GetItemValue("EmpName")(0)
End
Property
Property Get DeptNo
DeptNo =
gdoc_Person.GetItemValue("DeptNo")(0)
End Property
Property Get
DeptName
DeptName = gdoc_Person.GetItemValue("DeptCName")(0)
End
Property
Property Get DeptLayer
DeptLayer =
gdoc_Person.GetItemValue("DeptLayer")(0)
End Property
' **
代理資訊
Property Get AgentStatus
AgentStatus =
gdoc_Person.GetItemValue("AgentStart")(0)
End Property
' ** 建構子
Sub
New(pstr_SearchType As String , pstr_SearchKey As String)
Set gdoc_Person =
domf_docGetPersonal(pstr_SearchType , pstr_SearchKey)
End Sub
' **
方法
Function getPerson(pstr_SearchType As String , pstr_SearchKey As
String)
Set gdoc_Person =
domf_docGetPersonal(pstr_SearchType,pstr_SearchKey)
End Function
'---get
First Item Value
Function getFirstItemValue(pstr_item As String) As
Variant
getFirstItemValue =
Me.gdoc_Person.getFirstItemValue(pstr_item)
End Function
'---get Default
Deputy
Function getDefaultDeputy() As DOMobj_Person
Set
getDefaultDeputy = Nothing
If (Me.AgentStatus) Then
If
gdoc_Person.GetItemValue("DeputyEmpNo")(0) <> "" Then
Set
getDefaultDeputy = New DOMobj_Person("NO" ,
gdoc_Person.GetItemValue("DeputyEmpNo")(0))
End If
End If
End
Function
'---get Class Deputy
Function getDeputyByClass(pstr_Class As
String)
End Function
End Class