|
pfc_propertypopulate
|
|
Full name
|
pfc_u_tabpg_dwproperty_srvmultitable.pfc_propertypopulate
|
Access
|
public
|
Extend of
|
|
Return value
|
|
Prototype
|
event pfc_propertypopulate()
|
Name
|
Datatype
|
li_cnt
|
integer
|
li_rc
|
integer
|
li_rowcount
|
integer
|
ls_table
|
string
|
event pfc_propertypopulate;call super::pfc_propertypopulate;//////////////////////////////////////////////////////////////////////////////
//
// Function: pfc_propertypopulate
//
// Access: Public
//
// Arguments: None
//
// Returns: Integer
// 1 if it succeeds.
// -1 if an error occurs.
//
// Description:
// Populate the screen edit controls with the current service values.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0 Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
// Copyright © 1996-1997 Sybase, Inc. and its subsidiaries. All rights reserved.
// Any distribution of the PowerBuilder Foundation Classes (PFC)
// source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////
integer li_rc
integer li_rowcount
integer li_cnt
string ls_table
// Validate references.
If IsNull(idw_requestor) or Not IsValid(idw_requestor) Then
Return -1
End If
If IsNull(idw_requestor.inv_multitable) or Not IsValid(idw_requestor.inv_multitable) Then
Return -1
End If
// Populate the datastore.
li_rc = this.Event pfc_propertypopulateds()
If li_rc < 0 Then Return -1
// Set the appropriate Filter/Sort as to Populate the Table object.
li_rowcount = of_SetData('pfc_mainrows')
If li_rowcount = 0 Then Return 1
// Populate the Table list.
For li_cnt = 1 to li_rowcount
ls_table = ids_data.object.pfc_table.primary[li_cnt]
ddlb_table.AddItem(ls_table)
Next
// Show the first table.
ddlb_table.SelectItem(1)
ddlb_table.Event selectionchanged(1)
Return 1
end event