pfc_propertypopulate

pfcutil.pbl   >   pfc_u_tabpg_dwproperty_srvcalendar2   >   pfc_propertypopulate

Name	Datatype
ld_empty	date[]
ld_registered	date[]
li_cnt	integer
li_rc	integer
li_row	integer
li_upper	integer

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_upper
integer	li_cnt
integer 	li_rc
integer	li_row
date		ld_registered[]
date		ld_empty[]

// Validate references.
If IsNull(idw_requestor) or Not IsValid(idw_requestor) Then
	Return -1
End If
If IsNull(idw_requestor.iuo_calendar) or Not IsValid(idw_requestor.iuo_calendar) Then
	Return -1
End If

// Determine if Bold Saturday is enabled.
cbx_boldsaturdays.Checked = idw_requestor.iuo_calendar.of_IsSaturdayBold()

// Determine the Saturday color.
em_colorsaturday.Text = String(idw_requestor.iuo_calendar.of_GetSaturdayColor())

// Determine if Bold Sunday is enabled.
cbx_boldsundays.Checked = idw_requestor.iuo_calendar.of_IsSundayBold()

// Determine the Sunday color.
em_colorsunday.Text = String(idw_requestor.iuo_calendar.of_GetSundayColor())

// Determine if Bold Holiday is enabled.
cbx_boldholidays.Checked = idw_requestor.iuo_calendar.of_IsHolidayBold()

// Determine the Holiday color.
em_colorholiday.Text = String(idw_requestor.iuo_calendar.of_GetHolidayColor())

// Get the dates of the Holidays.
ld_registered = ld_empty
idw_requestor.iuo_calendar.of_GetHoliday(ld_registered)
li_upper = UpperBound(ld_registered)
For li_cnt = 1 to li_upper
	li_row = dw_holidays.InsertRow(0)
	If li_row > 0 Then	
		dw_holidays.object.date.primary[li_row] = ld_registered[li_cnt]
	End If
Next
If dw_holidays.RowCount() = 0 Then
	// Insert a blank row.
	li_row = dw_holidays.InsertRow(0)	
End If

// Determine if Bold MarkedDay is enabled.
cbx_boldmarkeddays.Checked = idw_requestor.iuo_calendar.of_IsMarkedDayBold()

// Determine the Markedday color.
em_colormarkedday.Text = String(idw_requestor.iuo_calendar.of_GetMarkeddayColor())

// Get the dates of the MarkedDays.
ld_registered = ld_empty
idw_requestor.iuo_calendar.of_GetMarkedDay(ld_registered)
li_upper = UpperBound(ld_registered)
For li_cnt = 1 to li_upper
	li_row = dw_markeddays.InsertRow(0)
	If li_row > 0 Then	
		dw_markeddays.object.date.primary[li_row] = ld_registered[li_cnt]
	End If
Next
If dw_markeddays.RowCount() = 0 Then
	// Insert a blank row.
	li_row = dw_markeddays.InsertRow(0)	
End If

Return 1

end event

Name	Owner
datawindow.insertrow	datawindow
datawindow.rowcount	datawindow
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.string	systemfunctions
systemfunctions.upperbound	systemfunctions
pfc_u_calendar.of_IsHolidayBold	pfc_u_calendar
pfc_u_calendar.of_IsMarkeddayBold	pfc_u_calendar
pfc_u_calendar.of_IsSundayBold	pfc_u_calendar
pfc_u_calendar.of_IsSaturdayBold	pfc_u_calendar
pfc_u_calendar.of_GetHolidayColor	pfc_u_calendar
pfc_u_calendar.of_GetMarkeddayColor	pfc_u_calendar
pfc_u_calendar.of_GetSaturdayColor	pfc_u_calendar
pfc_u_calendar.of_GetSundayColor	pfc_u_calendar
pfc_u_calendar.of_getholiday	pfc_u_calendar
pfc_u_calendar.of_getmarkedday	pfc_u_calendar
pfc_u_tabpg_dwproperty_base.pfc_propertypopulate	pfc_u_tabpg_dwproperty_base

Full name
pfc_u_tabpg_dwproperty_srvcalendar2