|
open
|
|
Full name
|
pfc_w_dwproperty.open
|
Access
|
public
|
Extend of
|
|
Return value
|
|
Prototype
|
event open()
|
Name
|
Datatype
|
ldw_obj
|
u_dw
|
li_rc
|
integer
|
li_row
|
integer
|
ls_dataobject
|
string
|
event open;integer li_rc
integer li_row
u_dw ldw_obj
string ls_dataobject
SetPointer (HourGlass!)
// Get the Message.
If IsValid(Message.PowerObjectParm) Then
If Message.PowerObjectParm.ClassName() = inv_attrib.ClassName() Then
inv_attrib = Message.PowerObjectParm
End If
End If
// There is nothing to update.
ib_disableclosequery = True
of_SetUpdateable(False)
// Validate.
If IsNull(inv_attrib) Or Not IsValid(inv_attrib) Then
Close (this)
End If
If IsNull(inv_attrib.idw_requestor) or Not IsValid(inv_attrib.idw_requestor) Then
Close(this)
End If
// If not type u_dw Then Close(This)
// Update the title to include the databoject name.
this.Title += ' ' + inv_attrib.idw_requestor.DataObject
// Perform Initialize.
li_rc = tab_property.Event pfc_PropertyStart(inv_attrib)
If li_rc <= 0 Then
Close(This)
Return
End If
// Reset the information on the tab/tabpages.
li_rc = tab_property.Event pfc_PropertyOpen()
Return
end event