pfc_propertysyntax

pfcutil.pbl   >   pfc_u_tabpg_dwproperty_srvlinkage   >   pfc_propertysyntax

Name	Datatype
li_cnt	integer
li_rc	integer
li_row	integer
li_rowcount	integer
ls_detailcol	string
ls_mastercol	string
ls_syntax	string

event pfc_propertysyntax;call super::pfc_propertysyntax;//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		pfc_propertysyntax
//
//	Access:    		Public
//
//	Arguments:  	None
//
//	Returns:   		String
//	  The syntax required to create the currently selections.
//   '!' in error
//
//	Description:  
//	Create the required syntax to match the current selections.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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_rowcount
integer	li_row
integer	li_cnt
integer 	li_rc
string	ls_syntax
string	ls_mastercol
string	ls_detailcol

// Validate references.
If IsNull(idw_requestor) or Not IsValid(idw_requestor) Then
	Return '!'
End If
If IsNull(idw_requestor.inv_linkage) or Not IsValid(idw_requestor.inv_linkage) Then
	Return '!'
End If

// -- Start the service. --
ls_syntax += 'This.of_SetLinkage(True)~r~n'

// -- Style. --
If IsNumber(st_style.Text) Then
	ls_syntax += '~r~nThis.inv_linkage.of_SetStyle('+st_style.Text+')'	
Else
	ls_syntax += '~r~nThis.inv_linkage.of_SetStyle(inv_linkage.'+Upper(st_style.Text)+')'
End If

// -- Master DataWindow. -- 
If Upper(st_masterdw.Text) <> 'NONE' Then
	ls_syntax += '~r~nThis.inv_linkage.of_SetMaster('+st_masterdw.Text+')'
End If

// -- Arguments. -- 
li_rowcount = dw_arguments.RowCount()
For li_row = 1 to li_rowcount
	ls_mastercol = dw_arguments.object.mastercolumn.primary[li_row]
	ls_detailcol = dw_arguments.object.detailcolumn.primary[li_row]
	ls_syntax += '~r~nThis.inv_linkage.of_Register("'+ls_mastercol+'","'+ls_detailcol+'")'
Next

Return ls_syntax

end event

Name	Owner
datawindow.rowcount	datawindow
systemfunctions.isnull	systemfunctions
systemfunctions.isnumber	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.upper	systemfunctions
pfc_u_tabpg_dwproperty_base.pfc_propertysyntax	pfc_u_tabpg_dwproperty_base

Full name
pfc_u_tabpg_dwproperty_srvlinkage
pfc_u_tabpg_dwproperty_srvlinkage.st_masterdw
pfc_u_tabpg_dwproperty_srvlinkage.st_style