pfc_default


pfcapsrv.pbl   >   pfc_w_selection   >   pfc_default   

Full name pfc_w_selection.pfc_default
Access public
Extend of
Return value
Prototype event pfc_default()

Name Datatype
No Data

Name Datatype
la_returnval any[]
li_cnt integer
li_numcolumns integer
ll_currow long

event pfc_default;call w_response::pfc_default;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  pfc_default
//
//	Description:  
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.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.
//
//////////////////////////////////////////////////////////////////////////////

any		la_returnval[]
integer	li_cnt
integer	li_numcolumns
long		ll_currow

// Initialize return values
inv_selectionattrib.ia_returnval = la_returnval

// Return column data requested
ll_currow = dw_1.GetRow()
if ll_currow > 0 then
	li_numcolumns = UpperBound (inv_selectionattrib.is_columnreturn[])
	// No columns were specified, so default to column 1
	if li_numcolumns = 0 then
		li_numcolumns = Integer (dw_1.object.datawindow.column.count)
		if li_numcolumns > 0 then
			inv_selectionattrib.ia_returnval[1] = dw_1.inv_rowselect.of_GetItemAny (ll_currow, 1)
		end if
	else
		for li_cnt = 1 to li_numcolumns
			inv_selectionattrib.ia_returnval[li_cnt] = dw_1.inv_rowselect.of_GetItemAny (ll_currow, inv_selectionattrib.is_columnreturn[li_cnt])
		next
	end if
end if

CloseWithReturn (this, inv_selectionattrib)
end event

     
Name Owner
pfc_w_selection.dw_1.doubleclicked dw_1
pfc_w_selection.cb_ok.clicked cb_ok

     
Name Owner
datawindow.getrow datawindow
systemfunctions.closewithreturn systemfunctions
systemfunctions.integer systemfunctions
systemfunctions.upperbound systemfunctions
pfc_n_cst_dwsrv.of_GetItemany pfc_n_cst_dwsrv
pfc_n_cst_dwsrv.of_GetItemany pfc_n_cst_dwsrv
pfc_w_response.pfc_default pfc_w_response

     
Full name
pfc_w_selection

     
Name Scope
No Data