pfc_propertycreatepages

pfcutil.pbl   >   pfc_u_tab_dwproperty_srv   >   pfc_propertycreatepages

Name	Datatype
li_page	Integer
li_rc	Integer
lnv_propertyattrib	n_cst_propertyattrib
lnv_string	n_cst_string
ls_page	String

event pfc_propertycreatepages;call super::pfc_propertycreatepages;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  pfc_PropertyCreatePages
//
//	Arguments: 
//	 as_service	The service being serviced.
//
//	Returns: Integer
//	 1 = successful
// -1 = Error
//
//	Description:
//	 Create the pages for the current service.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	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_page
Integer	li_rc
String	ls_page
n_cst_string lnv_string
n_cst_propertyattrib lnv_propertyattrib

// Validate that there is something to create.
as_pages = Trim(as_pages)
If IsNull(as_pages) or Len(as_pages) = 0 Then
	Return -1
End If

// Loop and create the appropriate TabPages. --
Do While Len(as_pages) > 0
	// Get a single page.
	ls_page = lnv_string.of_gettoken(as_pages, '~t')
	If Len(ls_page) > 0 Then
		
		// Create the page.
		li_page = UpperBound(iuo_tappage) + 1
		li_rc = OpenTab(iuo_tappage[li_page], ls_page, 0)
		If li_rc <= 0 or IsNull(iuo_tappage[li_page]) Or Not IsValid(iuo_tappage[li_page]) Then
			Return -1
		End If
		
		// Set the Tab Text.
		li_rc = iuo_tappage[li_page].of_GetPropertyInfo(lnv_propertyattrib)
		iuo_tappage[li_page].Text = lnv_propertyattrib.is_propertytabtext
		If Len(iuo_tappage[li_page].Text)=0 Then iuo_tappage[li_page].Text = 'UnAssigned'
		
	End If
Loop

Return UpperBound(iuo_tappage)
end event

Name	Owner
pfc_u_tab_dwproperty_srv.pfc_propertystart	pfc_u_tab_dwproperty_srv

Name	Owner
tab.opentab	tab
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.len	systemfunctions
systemfunctions.trim	systemfunctions
systemfunctions.upperbound	systemfunctions
pfc_n_cst_string.of_gettoken	pfc_n_cst_string
pfc_u_tabpg_dwproperty_base.of_getpropertyinfo	pfc_u_tabpg_dwproperty_base