LotusScript Object-Oriented Programming

Class domobj_person
Gdoc_person as notesdocument

'**
Adequacy
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

'**
Proxy Information
Property get agentstatus
Agentstatus =
Gdoc_person.getitemvalue ("agentstart") (0)
End Property
'** Structure sub-
Sub
New (pstr_searchtype as string, pstr_searchkey as string)
Set gdoc_person =
Domf_docgetpersonal (pstr_searchtype, pstr_searchkey)
End sub

'**
method
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 getdefadedeputy () as domobj_person
set
getdefadedeputy = nothing
If (Me. agentstatus) Then
If
gdoc_person.getitemvalue ("deputyempno") (0) <> "then
set
getdefadedeputy = new domobj_person (" no ",
gdoc_person.getitemvalue ("deputyempno") (0 ))
end if
end
function
'--- get class Deputy
function getdeputybyclass (pstr_class as
string)
end function
end class