pfc_propertyunprotect


pfcutil.pbl   >   pfc_u_tabpg_dwproperty_status   >   dw_requestorview   >   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
No Data

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
pfc_u_tabpg_dwproperty_status.pfc_propertyinitialize pfc_u_tabpg_dwproperty_status

     
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

     
Full name
No Data

     
Name Scope
No Data