|
pfc_propertyunprotect
|
|
Full name
|
pfc_u_tabpg_dwproperty_status.dw_requestorview.pfc_propertyunprotect
|
Access
|
public
|
Extend of
|
integer
|
Return value
|
integer
|
Prototype
|
event integer pfc_propertyunprotect()
|
Name
|
Datatype
|
li_cnt
|
integer
|
li_rc
|
integer
|
li_upper
|
integer
|
li_value
|
integer
|
ls_collist
|
string[]
|
ls_modifyexp
|
string
|
ls_rc
|
string
|
event pfc_propertyunprotect;call super::pfc_propertyunprotect;//////////////////////////////////////////////////////////////////////////////
//
// Event: pfc_propertyunprotect
//
// Arguments: None
//
// Returns: Integer
// 1 = successful
// -1 = Error
//
// Description:
// Unprotects all columns.
//
//////////////////////////////////////////////////////////////////////////////
//
// 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_upper
integer li_cnt
integer li_value
string ls_rc
string ls_modifyexp
string ls_collist[]
// Validate required reference.
If IsNull(inv_reqcolumn) or Not IsValid(inv_reqcolumn) Then
Return -1
End If
// Get a list of the visible columns.
li_rc = inv_reqcolumn.of_GetObjects (ls_collist, "column", "*", true)
li_upper = UpperBound(ls_collist)
// Loop around all columns to unprotect them.
For li_cnt = 1 to li_upper
ls_modifyexp += ls_collist[li_cnt] + ".Protect = 0 "
Next
If Len(ls_modifyexp) > 0 Then
ls_rc = this.Modify(ls_modifyexp)
If Len(ls_rc) > 0 Then Return -1
End If
// Loop around all columns to make sure they have a tabsequence.
ls_modifyexp = ''
For li_cnt = 1 to li_upper
ls_modifyexp += ls_collist[li_cnt] + ".TabSequence="+ String(li_cnt+li_value)+ " "
li_value += 10
Next
If Len(ls_modifyexp) > 0 Then
ls_rc = this.Modify(ls_modifyexp)
If Len(ls_rc) > 0 Then Return -1
End If
Return 1
end event
Name
|
Owner
|
datawindow.modify |
datawindow
|
systemfunctions.isnull |
systemfunctions
|
systemfunctions.isvalid |
systemfunctions
|
systemfunctions.len |
systemfunctions
|
systemfunctions.string |
systemfunctions
|
systemfunctions.upperbound |
systemfunctions
|
pfc_n_cst_dwsrv.of_getobjects |
pfc_n_cst_dwsrv
|