|
pfc_propertypopulate
|
|
Full name
|
pfc_u_tabpg_dwproperty_srvreqcolumn.pfc_propertypopulate
|
Access
|
public
|
Extend of
|
integer
|
Return value
|
integer
|
Prototype
|
event integer pfc_propertypopulate()
|
Name
|
Datatype
|
li_cntall
|
integer
|
li_cntreg
|
integer
|
li_index
|
integer
|
li_rc
|
integer
|
li_upperall
|
integer
|
li_upperreg
|
integer
|
ls_allcols
|
string[]
|
ls_registeredskipcols
|
string[]
|
event pfc_propertypopulate;call super::pfc_propertypopulate;//////////////////////////////////////////////////////////////////////////////
//
// Function: pfc_properypopulate
//
// 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_upperall, li_upperreg
integer li_cntall, li_cntreg
integer li_rc
integer li_index
string ls_allcols[]
string ls_registeredskipcols[]
// Validate references.
If IsNull(idw_requestor) or Not IsValid(idw_requestor) Then
Return -1
End If
If IsNull(idw_requestor.inv_reqcolumn) or &
Not IsValid(idw_requestor.inv_reqcolumn) Then
Return -1
End If
// Get all the columns.
li_rc = idw_requestor.inv_reqcolumn.of_GetRegisterable(ls_allcols)
// Get all the skip registered columns.
li_rc = idw_requestor.inv_reqcolumn.of_GetRegistered(ls_registeredskipcols)
// Add All of the columns and Select the skip Registered columns
li_upperall = UpperBound(ls_allcols)
li_upperreg = UpperBound(ls_registeredskipcols)
For li_cntall = 1 to li_upperall
li_index = lb_registeredskipcolumns.AddItem(ls_allcols[li_cntall])
// Determine if this is a skip Registered column.
For li_cntreg = 1 to li_upperreg
If ls_allcols[li_cntall] = ls_registeredskipcols[li_cntreg] Then
lb_registeredskipcolumns.SetState ( li_index, True )
Exit
End If
Next
Next
Return 1
end event