HA$PBExportHeader$pfc_u_tabpg_dwproperty_srvlinkage.sru $PBExportComments$PFC DataWindow Property - The Linkage service tabpage 1 forward global type pfc_u_tabpg_dwproperty_srvlinkage from u_tabpg_dwproperty_base end type type st_label_masterdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage end type type st_masterdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage end type type st_label_detaldw from u_st within pfc_u_tabpg_dwproperty_srvlinkage end type type st_label_style from u_st within pfc_u_tabpg_dwproperty_srvlinkage end type type st_style from u_st within pfc_u_tabpg_dwproperty_srvlinkage end type type st_label_masterarg from u_st within pfc_u_tabpg_dwproperty_srvlinkage end type type dw_arguments from u_dw within pfc_u_tabpg_dwproperty_srvlinkage end type type st_label_rootdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage end type type st_rootdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage end type type mle_detaildw from u_mle within pfc_u_tabpg_dwproperty_srvlinkage end type type st_label_currentdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage end type type st_currentdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage end type end forward global type pfc_u_tabpg_dwproperty_srvlinkage from u_tabpg_dwproperty_base st_label_masterdw st_label_masterdw st_masterdw st_masterdw st_label_detaldw st_label_detaldw st_label_style st_label_style st_style st_style st_label_masterarg st_label_masterarg dw_arguments dw_arguments st_label_rootdw st_label_rootdw st_rootdw st_rootdw mle_detaildw mle_detaildw st_label_currentdw st_label_currentdw st_currentdw st_currentdw end type global pfc_u_tabpg_dwproperty_srvlinkage pfc_u_tabpg_dwproperty_srvlinkage forward prototypes public function integer of_getinfo (ref n_cst_infoattrib anv_infoattrib) public function integer of_getpropertyinfo (ref n_cst_propertyattrib anv_attrib) end prototypes public function integer of_getinfo (ref n_cst_infoattrib anv_infoattrib);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetInfo // // Access: Public // // Arguments: // anv_infoattrib (By reference) The Information attributes. // // Returns: Integer // 1 for success. // -1 for error. // // Description: // Gets the Object Information. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// // Populate Information. anv_infoattrib.is_name = 'DW Property Linkage Service' anv_infoattrib.is_description = 'DW Property Linkage Service' Return 1 end function public function integer of_getpropertyinfo (ref n_cst_propertyattrib anv_attrib);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetPropertyInfo // // Access: Public // // Arguments: // anv_attrib (By ref.) The Property Information attributes. // // Returns: Integer // 1 for success. // -1 for error. // // Description: // Gets the Service Property Information. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// n_cst_infoattrib lnv_infoattrib // Get the first two attributes from the Main Information attributes. of_GetInfo(lnv_infoattrib) anv_attrib.is_name = lnv_infoattrib.is_name anv_attrib.is_description = lnv_infoattrib.is_description // The Property Tab Text. anv_attrib.is_propertytabtext ='General' Return 1 end function on pfc_u_tabpg_dwproperty_srvlinkage.create int iCurrent call super::create this.st_label_masterdw=create st_label_masterdw this.st_masterdw=create st_masterdw this.st_label_detaldw=create st_label_detaldw this.st_label_style=create st_label_style this.st_style=create st_style this.st_label_masterarg=create st_label_masterarg this.dw_arguments=create dw_arguments this.st_label_rootdw=create st_label_rootdw this.st_rootdw=create st_rootdw this.mle_detaildw=create mle_detaildw this.st_label_currentdw=create st_label_currentdw this.st_currentdw=create st_currentdw iCurrent=UpperBound(this.Control) this.Control[iCurrent+1]=this.st_label_masterdw this.Control[iCurrent+2]=this.st_masterdw this.Control[iCurrent+3]=this.st_label_detaldw this.Control[iCurrent+4]=this.st_label_style this.Control[iCurrent+5]=this.st_style this.Control[iCurrent+6]=this.st_label_masterarg this.Control[iCurrent+7]=this.dw_arguments this.Control[iCurrent+8]=this.st_label_rootdw this.Control[iCurrent+9]=this.st_rootdw this.Control[iCurrent+10]=this.mle_detaildw this.Control[iCurrent+11]=this.st_label_currentdw this.Control[iCurrent+12]=this.st_currentdw end on on pfc_u_tabpg_dwproperty_srvlinkage.destroy call super::destroy destroy(this.st_label_masterdw) destroy(this.st_masterdw) destroy(this.st_label_detaldw) destroy(this.st_label_style) destroy(this.st_style) destroy(this.st_label_masterarg) destroy(this.dw_arguments) destroy(this.st_label_rootdw) destroy(this.st_rootdw) destroy(this.mle_detaildw) destroy(this.st_label_currentdw) destroy(this.st_currentdw) end on event pfc_propertypopulate;call super::pfc_propertypopulate;////////////////////////////////////////////////////////////////////////////// // // Function: pfc_propertypopulate // // 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 // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// integer li_row integer li_upper integer li_cnt integer li_rc integer li_index integer li_style string ls_details u_dw ldw_temp u_dw ldw_details[] n_cst_linkageattrib lnv_linkageattrib // Validate references. If IsNull(idw_requestor) or Not IsValid(idw_requestor) Then Return -1 End If If IsNull(idw_requestor.inv_linkage) or Not IsValid(idw_requestor.inv_linkage) Then Return -1 End If // Get the Current datawindow. st_currentdw.Text = idw_requestor.ClassName() // Get the Root datawindow. li_rc = idw_requestor.inv_linkage.of_FindRoot(ldw_temp) If IsValid(ldw_temp) Then st_rootdw.Text = ldw_temp.ClassName() End If // Get the Master datawindow. li_rc = idw_requestor.inv_linkage.of_GetMaster(ldw_temp) If IsValid(ldw_temp) Then st_masterdw.Text = ldw_temp.ClassName() End If // Get the Detail datawindow(s). li_rc = idw_requestor.inv_linkage.of_GetDetails(ldw_details) li_upper = Upperbound(ldw_details) For li_cnt = 1 to li_upper If IsValid(ldw_details[li_cnt]) Then If Len(ls_details) > 0 Then ls_details += '~r~n' ls_details += ldw_details[li_cnt].ClassName() End If Next If Len(ls_details) > 0 Then mle_detaildw.Text = ls_details End If // Get the Style. li_style = idw_requestor.inv_linkage.of_GetStyle() Choose Case li_style Case idw_requestor.inv_linkage.FILTER st_style.Text = 'Filter' Case idw_requestor.inv_linkage.RETRIEVE st_style.Text = 'Retrieve' Case idw_requestor.inv_linkage.SCROLL st_style.Text = 'Scroll' Case Else st_style.Text = String(li_style) End Choose // Get the Registered arguments. li_rc = idw_requestor.inv_linkage.of_GetRegistered(lnv_linkageattrib) If IsValid(lnv_linkageattrib) Then li_upper = UpperBound(lnv_linkageattrib.is_mastercolarg) For li_cnt = 1 to li_upper If Len(Trim(lnv_linkageattrib.is_mastercolarg[li_cnt])) > 0 Then li_row = dw_arguments.Event pfc_addrow() If li_row > 0 Then dw_arguments.object.mastercolumn.primary[li_row] = & Trim(lnv_linkageattrib.is_mastercolarg[li_cnt]) dw_arguments.object.detailcolumn.primary[li_row] = & Trim(lnv_linkageattrib.is_detailcolarg[li_cnt]) End If End If Next End If Return 1 end event event pfc_propertyapply;call super::pfc_propertyapply;////////////////////////////////////////////////////////////////////////////// // // Function: pfc_PropertyApply // // Access: Public // // Arguments: None // // Returns: Integer // 1 if it succeeds. // -1 if an error occurs. // // Description: // Apply the requested changes. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// // Validate references. If IsNull(idw_requestor) or Not IsValid(idw_requestor) Then Return -1 End If If IsNull(idw_requestor.inv_linkage) or Not IsValid(idw_requestor.inv_linkage) Then Return -1 End If Return 1 end event 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 // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// 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 type st_label_masterdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage integer x = 27 integer y = 116 integer width = 462 string text = "Master: " end type type st_masterdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage integer x = 521 integer y = 116 integer width = 1221 boolean bringtotop = true string text = "None" end type type st_label_detaldw from u_st within pfc_u_tabpg_dwproperty_srvlinkage integer x = 27 integer y = 356 integer width = 462 boolean bringtotop = true string text = "Detail(s):" end type type st_label_style from u_st within pfc_u_tabpg_dwproperty_srvlinkage integer x = 27 integer y = 276 integer width = 462 boolean bringtotop = true string text = "Style:" end type type st_style from u_st within pfc_u_tabpg_dwproperty_srvlinkage integer x = 521 integer y = 276 integer width = 1221 boolean bringtotop = true string text = "None" end type type st_label_masterarg from u_st within pfc_u_tabpg_dwproperty_srvlinkage integer x = 27 integer y = 608 integer width = 462 boolean bringtotop = true string text = "Arguments:" end type type dw_arguments from u_dw within pfc_u_tabpg_dwproperty_srvlinkage integer x = 521 integer y = 608 integer width = 1175 integer height = 376 integer taborder = 20 string dataobject = "d_dwproperty_linkageargs" boolean border = false borderstyle borderstyle = stylebox! end type event constructor;call super::constructor;this.of_SetUpdateable(False) end event type st_label_rootdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage integer x = 27 integer y = 36 integer width = 462 boolean bringtotop = true string text = "Root:" end type type st_rootdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage integer x = 521 integer y = 36 integer width = 1221 boolean bringtotop = true string text = "None" end type type mle_detaildw from u_mle within pfc_u_tabpg_dwproperty_srvlinkage integer x = 521 integer y = 356 integer width = 1175 integer height = 212 integer taborder = 10 long backcolor = 80263581 boolean border = false boolean vscrollbar = true boolean displayonly = true borderstyle borderstyle = stylebox! end type type st_label_currentdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage integer x = 27 integer y = 196 integer width = 462 boolean bringtotop = true string text = "Current:" end type type st_currentdw from u_st within pfc_u_tabpg_dwproperty_srvlinkage integer x = 521 integer y = 196 integer width = 1221 boolean bringtotop = true string text = "None" end type
File: pfc_u_tabpg_dwproperty_srvlinkage.sru
Size: 17720
Date: Sat, 23 Mar 2013 16:23:04 +0100
Size: 17720
Date: Sat, 23 Mar 2013 16:23:04 +0100
- u_tabpg_dwproperty_base pfc_u_tabpg_dwproperty_srvlinkage(sru)
- of_getinfo (ref n_cst_infoattrib anv_infoattrib) returns integer
- of_getpropertyinfo (ref n_cst_propertyattrib anv_attrib) returns integer
- u_st st_label_masterdw
- u_st st_masterdw
- u_st st_label_detaldw
- u_st st_label_style
- u_st st_style
- u_st st_label_masterarg
- u_dw dw_arguments
- u_st st_label_rootdw
- u_st st_rootdw
- u_mle mle_detaildw
- u_st st_label_currentdw
- u_st st_currentdw