open


pfcutil.pbl   >   pfc_w_dwproperty   >   open   

Full name pfc_w_dwproperty.open
Access public
Extend of
Return value
Prototype event open()

Name Datatype
No Data

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

     
Name Owner
No Data

     
Name Owner
powerobject.classname powerobject
systemfunctions.close systemfunctions
systemfunctions.isnull systemfunctions
systemfunctions.isvalid systemfunctions
systemfunctions.setpointer systemfunctions
pfc_w_master.of_setupdateable pfc_w_master
pfc_u_tab_dwproperty.pfc_propertyopen pfc_u_tab_dwproperty
pfc_u_tab_dwproperty.pfc_propertystart pfc_u_tab_dwproperty

     
Full name
pfc_w_dwproperty
demopfc

     
Name Scope
No Data