$PBExportHeader$pfc_n_cst_dssrv.sru $PBExportComments$PFC DataStore Base service forward global type pfc_n_cst_dssrv from n_base end type end forward global type pfc_n_cst_dssrv from n_base end type global pfc_n_cst_dssrv pfc_n_cst_dssrv type variables Public: // Column Display Name Style settings // Note: The constant DEFAULT=0 is used in descendants. constant integer DEFAULT = 0 constant integer DBNAME =1 constant integer HEADER = 2 Protected: integer ii_source = DEFAULT string is_defaultheadersuffix = "_t" string is_displayunits = "rows" string is_displayitem = "this row" n_ds ids_requestor end variables forward prototypes public function integer of_getobjects (ref string as_objlist[], string as_objtype, string as_band, boolean ab_visibleonly) public function integer of_getcolumnnamesource () public function string of_getheadername (string as_column) public function string of_GetItem (long al_row, string as_column) public function string of_GetItem (long al_row, integer ai_column) public function string of_GetItem (long al_row, integer ai_column, dwbuffer adw_buffer, boolean ab_orig_value) public function integer of_setitem (long al_row, integer ai_column, string as_value) public function integer of_getobjects (ref string as_objlist[]) public function string of_Modify (string as_attribute, string as_value, string as_col) public function string of_modify (string as_attribute, string as_value, string as_objtype, string as_band, boolean ab_visible_only) public function string of_Modify (string as_attribute, string as_value) public function string of_getheadername (string as_column, string as_suffix) public function any of_GetItemany (long al_row, integer ai_column) public function any of_GetItemany (long al_row, integer ai_column, dwbuffer adw_buffer, boolean ab_orig_value) public function any of_GetItemany (long al_row, string as_column) public function long of_getheight () public function long of_getwidth () public function integer of_describe (ref n_cst_dwobjectattrib a_dwobject_attrib[], string as_attribute, string as_objtype, string as_band, boolean ab_visible_only) public function integer of_describe (ref n_cst_dwobjectattrib a_dwobject_attrib[], string as_attribute) public function integer of_describe (ref n_cst_dwobjectattrib a_dwobject_attrib[], string as_attribute, string as_col) public function string of_getdefaultheadersuffix () public function integer of_setdefaultheadersuffix (string as_suffix) public function integer of_SetDisplayUnits (string as_displayunits) public function integer of_SetDisplayItem (string as_displayitem) public function string of_GetDisplayItem () public function string of_GetDisplayUnits () public function integer of_setcolumnnamesource (integer ai_colsource) public function integer of_setrequestor (n_ds ads_requestor) public function any of_buildexpression (long al_row, string as_column, string as_operator) public function any of_buildexpression (long al_row, string as_column) public function string of_getdescription () public function string of_getcolumndisplayname (string as_colname) public function string of_getcolumndisplayname (integer ai_colnumber) public function integer of_getcolumndisplaynamestyle () public function integer of_setcolumndisplaynamestyle (integer ai_coldisplaynamestyle) public function integer of_getinfo (ref n_cst_infoattrib anv_infoattrib) public function string of_getitem (long al_row, string as_column, dwbuffer adw_buffer, boolean ab_orig_value) public function any of_getitemany (long al_row, string as_column, dwbuffer adw_buffer, boolean ab_orig_value) public function any of_buildcomparison (long al_row, string as_column) public function any of_buildexpression (long al_row, string as_column, string as_operator, string as_optionalvalue) public function string of_getname () public function any of_buildcomparison (long al_row, string as_column, string as_optionalvalue) public function integer of_dwarguments (datawindowchild adwc_obj, ref string as_argnames[], ref string as_argdatatypes[]) public function integer of_dwarguments (ref string as_argnames[], ref string as_argdatatypes[]) public function integer of_setitem (long al_row, string as_column, string as_value) end prototypes public function integer of_getobjects (ref string as_objlist[], string as_objtype, string as_band, boolean ab_visibleonly);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetObjects (FORMAT 2) // // Access: Public // // Arguments: // as_objlist[]: A string array to hold objects (passed by reference) // as_objtype: The type of objects to get (* for all, others defined // by the object .TYPE attribute) // as_band: The dw band to get objects from (* for all) // Valid bands: header, detail, footer, summary // header.#, trailer.# // ab_visibleonly: TRUE - get only the visible objects, // FALSE - get visible and non-visible objects // // Returns: Integer // The number of objects in the array // // Description: The following function will parse the list of objects // contained in the datastore control associated with this service, // returning their names into a string array passed by reference, // and returning the number of names in the array as the return value // of the function. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_ObjString, ls_ObjHolder integer li_Start=1, li_Tab, li_Count=0 /* Get the Object String */ ls_ObjString = ids_requestor.Describe("Datawindow.Objects") /* Get the first tab position. */ li_Tab = Pos(ls_ObjString, "~t", li_Start) Do While li_Tab > 0 ls_ObjHolder = Mid(ls_ObjString, li_Start, (li_Tab - li_Start)) // Determine if object is the right type and in the right band If (ids_requestor.Describe(ls_ObjHolder + ".type") = as_ObjType Or as_ObjType = "*") And & (ids_requestor.Describe(ls_ObjHolder + ".band") = as_Band Or as_Band = "*") And & (ids_requestor.Describe(ls_ObjHolder + ".visible") = "1" Or Not ab_VisibleOnly) Then li_Count ++ as_ObjList[li_Count] = ls_ObjHolder End if /* Get the next tab position. */ li_Start = li_Tab + 1 li_Tab = Pos(ls_ObjString, "~t", li_Start) Loop // Check the last object ls_ObjHolder = Mid(ls_ObjString, li_Start, Len(ls_ObjString)) // Determine if object is the right type and in the right band If (ids_requestor.Describe(ls_ObjHolder + ".type") = as_ObjType or as_ObjType = "*") And & (ids_requestor.Describe(ls_ObjHolder + ".band") = as_Band or as_Band = "*") And & (ids_requestor.Describe(ls_ObjHolder + ".visible") = "1" Or Not ab_VisibleOnly) Then li_Count ++ as_ObjList[li_Count] = ls_ObjHolder End if Return li_Count end function public function integer of_getcolumnnamesource ();////////////////////////////////////////////////////////////////////////////// // // Function: of_GetColumnnameSource // // Access: Public // // Arguments: None // // Returns: Integer // 0 = Use Datawindow Column Names (Default) // 1 = Use DataBase Column Names // 2 = Use Column Header Names // // Description: To determine the source of column names to be used in // Sort/Filter and QueryMode dialogs // This is set in of_SetColumnNameSource // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.0 Initial version // 6.0 Marked obsolete Replaced by of_getColumnDisplayNameStyle() // ////////////////////////////////////////////////////////////////////////////// // /* * 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 */ // ////////////////////////////////////////////////////////////////////////////// return of_getColumnDisplayNameStyle() end function public function string of_getheadername (string as_column);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetHeaderName (FORMAT 1) // // Access: Public // // Arguments: // as_column A datawindow columnname // // Returns: String // The formatted column header for the column specified // // Description: Extracts a formatted (underscores, carraige return/line // feeds and quotes removed) column header. // If no column header found, then the column name is // formatted (no underscores and Word Capped). // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.0 Initial version // 5.0.02 Fixed function to use the default header suffix property // when determining which text object to use for the the column header. // ////////////////////////////////////////////////////////////////////////////// // /* * 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 */ // ////////////////////////////////////////////////////////////////////////////// Return of_GetHeaderName ( as_column, is_defaultheadersuffix) end function public function string of_GetItem (long al_row, string as_column);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetItem (FORMAT 3) // // Access: Public // // Arguments: // al_row : The row reference // as_column : The column name reference // // Returns: String // The formatted string value of the item // // Description: Returns the formatted (including formats, editmasks and display // values) text of any column on a datawindow, regardless of the // column's datatype. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// Return of_GetItem ( al_row, as_column, Primary!, FALSE ) end function public function string of_GetItem (long al_row, integer ai_column);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetItem (FORMAT 1) // // Access: Public // // Arguments: // al_row : The row reference // ai_column : The column number reference // // Returns: String // The formatted string value of the item // // Description: Returns the formatted (including formats, editmasks and display // values) text of any column on a datawindow, regardless of the // column's datatype. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_columnname ls_columnname = ids_requestor.Describe ( "#" + String( ai_column ) + ".name" ) Return of_GetItem ( al_row, ls_columnname, Primary!, FALSE ) end function public function string of_GetItem (long al_row, integer ai_column, dwbuffer adw_buffer, boolean ab_orig_value);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetItem (FORMAT 2) // // Access: Public // // Arguments: // al_row : The row reference // ai_column : The column number reference // adw_buffer : The dw buffer from which to get the column's data value. // ab_orig_value : When True, returns the original values that were // retrieved from the database. // // Returns: String // The formatted string value of the item // // Description: Returns the formatted (including formats, editmasks and display // values) text of any column on a datawindow, regardless of the // column's datatype. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_columnname ls_columnname = ids_requestor.Describe ( "#" + String( ai_column ) + ".name" ) Return of_GetItem ( al_row, ls_columnname, adw_buffer, ab_orig_value ) end function public function integer of_setitem (long al_row, integer ai_column, string as_value);////////////////////////////////////////////////////////////////////////////// // // Function: of_SetItem (FORMAT 1) // // Access: Public // // Arguments: // al_row : The row reference for the value to be set // ai_column : The column number reference // as_value : The value of the column in string format // // Returns: Integer // 1 = if it succeeds // -1 = if an error occurs // // Description: Sets the specified row/column to the passed value. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_columnname /* Get the Column Name from the Column Number. */ ls_columnname = ids_requestor.Describe ( "#" + String ( ai_column) + ".Name" ) Return of_SetItem ( al_row, ls_columnname, as_value ) end function public function integer of_getobjects (ref string as_objlist[]);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetObjects (FORMAT 1) // // Access: Public // // Arguments: // as_objlist[]: A string array to hold objects (passed by reference) // // Returns: Integer // The number of objects in the array // // Description: The following function will parse the list of objects // contained in the datawindow control associated with this service, // returning their names into a string array passed by reference, // and returning the number of names in the array as the return value // of the function. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// Return of_GetObjects ( as_objlist, "*", "*", FALSE ) end function public function string of_Modify (string as_attribute, string as_value, string as_col);////////////////////////////////////////////////////////////////////////////// // // Function: of_Modify (FORMAT 2) // // Access: Public // // Arguments: // as_attribute : The name of the datawindow attribute to be modified // as_value : The new value of the datawindow attribute // as_col : The columnname to be modified // // Returns: String // The return string of Modify. When empty, indicates success. // // Description: Modifies the specified attribute for the specified column // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// Return of_Modify ( as_attribute, as_value, as_col, "*", FALSE ) end function public function string of_modify (string as_attribute, string as_value, string as_objtype, string as_band, boolean ab_visible_only);////////////////////////////////////////////////////////////////////////////// // // Function: of_Modify (FORMAT 3) // // Access: Public // // Arguments: // as_attribute : The name of the datawindow attribute to be modified // as_value : The new value of the datawindow attribute // as_objtype : The type of objects to modify (* for all, others defined // by the object .TYPE attribute) // as_band : The dw band to modify objects in (* for all) // Valid bands: header, detail, footer, summary // header.#, trailer.# // ab_visibleonly : TRUE - modify only the visible objects, // FALSE - modify visible and non-visible objects // // Returns: String // The return string of Modify. When empty, indicates success. // // Description: Modifies the specified attribute for all columns // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_modify, ls_rc, ls_objects[] integer li_cnt integer li_col_count /* Get the count and names of columns on the datawindow */ li_col_count = of_GetObjects (ls_objects, as_objtype, as_band, ab_visible_only ) IF li_col_count > 0 THEN /* Modify all columns on the datawindow */ FOR li_cnt = 1 to li_col_count ls_modify = ls_modify + ls_objects[li_cnt] + "." + as_attribute + "= " + as_value + " " NEXT IF ids_requestor.Modify ( ls_modify ) <> "" THEN /* If Modify fails, then try quoting the attribute value */ as_value = "'" + as_value + "'" ls_modify = "" FOR li_cnt = 1 to li_col_count ls_modify = ls_modify + ls_objects[li_cnt] + "." + as_attribute + "= " + as_value + " " NEXT ls_rc = ids_requestor.Modify ( ls_modify ) END IF ELSE /* Single column to Modify */ ls_modify = as_objtype + "." + as_attribute + "= " + as_value IF ids_requestor.Modify ( ls_modify ) <> "" THEN as_value = "'" + as_value + "'" ls_modify = as_objtype + "." + as_attribute + "= " + as_value ls_rc = ids_requestor.Modify ( ls_modify ) END IF END IF Return ls_rc end function public function string of_Modify (string as_attribute, string as_value);////////////////////////////////////////////////////////////////////////////// // // Function: of_Modify (FORMAT 1) // // Access: Public // // Arguments: // as_attribute : The name of the datawindow attribute to be modified // as_value : The new value of the datawindow attribute // // Returns: String // The return string of Modify. When empty, indicates success. // // Description: Modifies the specified attribute for all columns // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// Return of_Modify ( as_attribute, as_value, "*", "*", FALSE ) end function public function string of_getheadername (string as_column, string as_suffix);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetHeaderName (FORMAT 2) // // Access: Public // // Arguments: // as_column A datawindow columnname // as_suffix The suffix used on column header text // // Returns: String // The formatted column header for the column specified // // Description: Extracts a formatted (underscores, carriage return/line // feeds and quotes removed) column header. // If no column header found, then the column name is // formatted (no underscores and Word Capped). // // *NOTE: Use this format when column header text does NOT // use the default header suffix // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_colhead n_cst_string lnv_string //Try using the column header. ls_colhead = ids_requestor.Describe ( as_column + as_suffix + ".Text" ) If ls_colhead = "!" Then //No valid column header, use column name. ls_colhead = as_column End If //Remove undesired characters. ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~r~n", " " ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~t", " " ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~r", " " ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~n", " " ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "_", " " ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~"", "" ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~'", "" ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~~", "" ) //WordCap string. ls_colhead = ids_requestor.Describe ( "Evaluate('WordCap(~"" + ls_colhead + "~")',0)" ) Return ls_colhead end function public function any of_GetItemany (long al_row, integer ai_column);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetItemany (FORMAT 1) // // Access: Public // // Arguments: // al_row : The row reference // ai_column : The column number reference // // Returns: Any // The column value cast to an any datatype // // Description: Returns a column's value cast to an any datatype // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_columnname ls_columnname = ids_requestor.Describe ( "#" + String( ai_column ) + ".name" ) Return of_GetItemany ( al_row, ls_columnname, Primary!, FALSE ) end function public function any of_GetItemany (long al_row, integer ai_column, dwbuffer adw_buffer, boolean ab_orig_value);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetItemany (FORMAT 2) // // Access: Public // // Arguments: // al_row : The row reference // ai_column : The column number reference // adw_buffer : The dw buffer from which to get the column's data value. // ab_orig_value : When True, returns the original values that were // retrieved from the database. // // Returns: Any // The column value cast to an any datatype // // Description: Returns a column's value cast to an any datatype // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_columnname ls_columnname = ids_requestor.Describe ( "#" + String( ai_column ) + ".name" ) Return of_GetItemany ( al_row, ls_columnname, adw_buffer, ab_orig_value ) end function public function any of_GetItemany (long al_row, string as_column);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetItemany (FORMAT 3) // // Access: Public // // Arguments: // al_row : The row reference // as_column : The column name reference // // Returns: Any // The column value cast to an any datatype // // Description: Returns a column's value cast to an any datatype // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// Return of_GetItemany ( al_row, as_column, Primary!, FALSE ) end function public function long of_getheight ();////////////////////////////////////////////////////////////////////////////// // // Function: of_GetHeight // // Access: Public // // Arguments: None // // Returns: long // The height of the datawindow // // Description: Get the height of the datawindow associated with this service. // The height is calculated by adding the height of all bands + // the height of the detail band * the number of rows. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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_Bands, li_Cnt long ll_height long ll_detail String ls_DWBands, ls_Band[] n_cst_string lnv_string ls_DWBands = ids_requestor.Describe("DataWindow.Bands") li_Bands = lnv_string.of_ParseToArray (ls_DWBands, "~t", ls_Band) For li_Cnt = 1 To li_Bands If ls_Band[li_Cnt] <> "detail" Then ll_Height += Integer(ids_requestor.Describe("Datawindow." + & ls_Band[li_Cnt] + ".Height")) End if Next ll_Detail = ids_requestor.RowCount() * & Integer(ids_requestor.Describe("Datawindow.Detail.Height")) ll_Height += ll_Detail Return ll_Height end function public function long of_getwidth ();////////////////////////////////////////////////////////////////////////////// // // Function: of_GetWidth // // Access: Public // // Arguments: None // // Returns: long // The width of the datawindow // // Description: Get the width (x position + width of the rightmost object) of the // datawindow associated with this service // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// long ll_Width long ll_Return integer li_NumObjects integer li_Count long ll_X long ll_ObjWidth string ls_Objects[] // Get the names of all visible objects in the datawindow li_NumObjects = of_GetObjects(ls_Objects, "*", "*", True) ll_Return = 0 For li_Count = 1 To li_NumObjects // Calculate the x position + the width of each object ll_X = Integer(ids_requestor.Describe(ls_Objects[li_Count] + ".x")) ll_ObjWidth = Integer(ids_requestor.Describe(ls_Objects[li_Count] + ".width")) ll_Width = ll_X + ll_ObjWidth // Return the rightmost value If ll_Width > ll_Return Then ll_Return = ll_Width End if Next Return ll_Return end function public function integer of_describe (ref n_cst_dwobjectattrib a_dwobject_attrib[], string as_attribute, string as_objtype, string as_band, boolean ab_visible_only);////////////////////////////////////////////////////////////////////////////// // // Function: of_Describe (FORMAT 3) // // Access: Public // // Arguments: // a_dwobject_attrib A NVO Class to hold the described attributes // as_attribute A string containing the name of the attribute // to be described // as_objtype The type of objects to describe (* for all) // ( Must match the Type attribute ) // as_band The band from which to get objects (* for all) // Valid bands: // header // detail // footer // summary // header.# // trailer.# // ab_visible_only True - get only the visible objects, // False - get all objects // // Returns: integer // 1 = success // -1 = an error occurred describing one or more of the attributes // // Description: Describes the specified attribute for all // datawindow columns. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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_cnt, li_col_count integer li_rc = 1 string ls_objects[] /* Get the count and names of columns on the datawindow */ li_col_count = of_GetObjects (ls_objects, as_objtype, as_band, ab_visible_only ) /* Describe the columns returned */ IF li_col_count > 0 THEN /* Loop around all columns */ FOR li_cnt = 1 to li_col_count /* Describe the column name */ a_dwobject_attrib[li_cnt].is_column = ids_requestor.Describe ( ls_objects[li_cnt] + ".Name" ) IF Pos (a_dwobject_attrib[li_cnt].is_column, "!", 1) > 0 THEN a_dwobject_attrib[li_cnt].is_column = "Error describing Name attribute of Column #" + String(li_cnt) li_rc = -1 end if /* Describe the column datatype */ a_dwobject_attrib[li_cnt].is_datatype = ids_requestor.Describe ( ls_objects[li_cnt] + ".ColType" ) IF Pos (a_dwobject_attrib[li_cnt].is_datatype, "!", 1) > 0 THEN a_dwobject_attrib[li_cnt].is_datatype = "Error describing ColType attribute of Column #" + String(li_cnt) li_rc = -1 end if /* Describe the passed attribute */ a_dwobject_attrib[li_cnt].is_value = ids_requestor.Describe ( ls_objects[li_cnt] + "." + as_attribute ) IF Pos (a_dwobject_attrib[li_cnt].is_value, "!", 1) > 0 THEN a_dwobject_attrib[li_cnt].is_value = "Error describing " + as_attribute + " attribute of Column #" + String(li_cnt) li_rc = -1 end if NEXT ELSE /* Single column to describe */ /* Describe the column name */ a_dwobject_attrib[1].is_column = as_objtype /* Describe the column datatype */ a_dwobject_attrib[1].is_datatype = ids_requestor.Describe ( as_objtype + ".ColType" ) IF Pos (a_dwobject_attrib[1].is_datatype, "!", 1) > 0 THEN a_dwobject_attrib[1].is_datatype = "Error describing ColType attribute of " + as_objtype li_rc = -1 end if /* Describe the passed attribute */ a_dwobject_attrib[1].is_value = ids_requestor.Describe ( as_objtype + "." + as_attribute ) IF Pos (a_dwobject_attrib[1].is_value, "!", 1) > 0 THEN a_dwobject_attrib[1].is_value = "Error describing " + as_attribute + " attribute of " + as_objtype li_rc = -1 end if END IF /* If any script failed, the Return Value will be -1 since li_rc is never reset. */ Return li_rc end function public function integer of_describe (ref n_cst_dwobjectattrib a_dwobject_attrib[], string as_attribute);////////////////////////////////////////////////////////////////////////////// // // Function: of_Describe (FORMAT 1) // // Access: Public // // Arguments: // a_dwobject_attrib A NVO Class to hold the described attributes // as_attribute A string containing the name of the attribute // to be described // // Returns: integer // 1 = success // -1 = an error occurred describing one or more of the attributes. // // Description: Describes the specified attribute for all // datawindow columns. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// Return of_Describe ( a_dwobject_attrib, as_attribute, "*", "*", FALSE ) end function public function integer of_describe (ref n_cst_dwobjectattrib a_dwobject_attrib[], string as_attribute, string as_col);////////////////////////////////////////////////////////////////////////////// // // Function: of_Describe (FORMAT 2) // // Access: Public // // Arguments: // a_dwobject_attrib A NVO Class to hold the described attribute // as_attribute A string containing the name of the attribute // to be described // as_col A string containing the name of a specific // column to be described // // Returns: integer // 1 = success // -1 = an error occurred describing one or more of the attributes // // Description: Describes the specified attribute for the specified // datawindow column. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// Return of_Describe ( a_dwobject_attrib, as_attribute, as_col, "*", FALSE ) end function public function string of_getdefaultheadersuffix ();////////////////////////////////////////////////////////////////////////////// // // Function: of_GetDefaultHeaderSuffix // // Access: public // // Arguments: none // // Returns: string // // Description: Returns the suffix used for column labels/headers // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// return is_defaultheadersuffix end function public function integer of_setdefaultheadersuffix (string as_suffix);////////////////////////////////////////////////////////////////////////////// // // Function: of_SetDefaultHeaderSuffix // // Access: public // // Arguments: as_suffix // // Returns: integer // 1 = success // // Description: Sets the suffix characters that are used for // column labels/headers // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// is_defaultheadersuffix = as_suffix return 1 end function public function integer of_SetDisplayUnits (string as_displayunits);////////////////////////////////////////////////////////////////////////////// // // Function: of_SetDisplayUnits // // Access: public // // Arguments: // as_displayunits: display name of the units (rows) // // Returns: integer // 1 = success // -1 = error // // Description: // Sets the display name of the units (rows) of the DW. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 argument if IsNull (as_displayunits) then return -1 end if is_displayunits = as_displayunits return 1 end function public function integer of_SetDisplayItem (string as_displayitem);////////////////////////////////////////////////////////////////////////////// // // Function: of_SetDisplayItem // // Access: public // // Arguments: // as_displayitem: display name of the item (row) // // Returns: integer // 1 = success // -1 = error // // Description: // Sets the display name of the item (row) of the DW // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 argument if IsNull (as_displayitem) then return -1 end if is_displayitem = as_displayitem return 1 end function public function string of_GetDisplayItem ();////////////////////////////////////////////////////////////////////////////// // // Function: of_GetDisplayItem // // Access: public // // Arguments: none // // Returns: string // // Description: // Gets the display name of the item (row) of the DW // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// return is_displayitem end function public function string of_GetDisplayUnits ();////////////////////////////////////////////////////////////////////////////// // // Function: of_GetDisplayUnits // // Access: public // // Arguments: none // // Returns: string // // Description: // Gets the display name of the units (rows) of the DW. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.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 */ // ////////////////////////////////////////////////////////////////////////////// return is_displayunits end function public function integer of_setcolumnnamesource (integer ai_colsource);////////////////////////////////////////////////////////////////////////////// // // Function: of_SetColumnNameSource // // Access: Public // // Arguments: // ai_colsource source of column display names // Choices: // 0 = Use standard Datawindow column names (default) // 1 = Use dataBase column names // 2 = Use column header names // // Returns: Integer // 1 = The columnsource was successfully set // -1 = The specified source option is not available // // Description: // Specifies how column names will be displayed to the user // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.0 Initial version // 6.0 Marked obsolete Replaced by of_setColumnDisplayNameStyle(...). // ////////////////////////////////////////////////////////////////////////////// // /* * 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 */ // ////////////////////////////////////////////////////////////////////////////// return of_setColumnDisplayNameStyle (ai_colsource) end function public function integer of_setrequestor (n_ds ads_requestor);////////////////////////////////////////////////////////////////////////////// // // Function: of_SetRequestor // // Access: Public // // Arguments: // ads_requestor The datawindow requesting the service // // Returns: None // // Description: Associates a datawindow control with a datawindow service NVO // by setting the ids_requestor instance variable. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.0 Initial version // 6.0 Added function return code. // ////////////////////////////////////////////////////////////////////////////// // /* * 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 */ // ////////////////////////////////////////////////////////////////////////////// If IsNull(ads_requestor) or Not IsValid(ads_requestor) Then Return -1 End If ids_requestor = ads_requestor Return 1 end function public function any of_buildexpression (long al_row, string as_column, string as_operator);////////////////////////////////////////////////////////////////////////////// // // Function: of_BuildExpression // // Access: Public // // Arguments: // al_row : The row reference // as_column : The column name reference // as_operator : The desired operator. // "=" Equals // ">" Greater than // "<" Less than // "<>" Not equal // ">=" Greater than or equal // "<=" Less than or equal // // Returns: Any // The column value cast to an any datatype // // Description: // Returns a complete expression string that can be used on any Find or // Filter operation. // For example, 'hired_date > Date("1/1/95")' will be the result for // as_column='hired_date', as_operator='>', as_optionalvalue='1/1/95'. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_nooptionalvalue = "#@notapplicable@#" Return of_BuildExpression (al_row, as_column, as_operator, ls_nooptionalvalue) end function public function any of_buildexpression (long al_row, string as_column);////////////////////////////////////////////////////////////////////////////// // // Function: of_BuildExpression // // Access: Public // // Arguments: // al_row : The row reference // as_column : The column name reference // // Returns: Any // The column value cast to an any datatype // // Description: // Returns a complete expression string that can be used on any Find or // Filter operation. // For example, 'hired_date > Date("1/1/95")' will be the result for // as_column='hired_date', as_operator='>', as_optionalvalue='1/1/95'. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_defaultoperator = "=" string ls_nooptionalvalue = "#@notapplicable@#" Return of_BuildExpression (al_row, as_column, ls_defaultoperator, ls_nooptionalvalue) end function public function string of_getdescription ();////////////////////////////////////////////////////////////////////////////// // // Function: of_GetDescription // // Access: Public // // Arguments: None // // Returns: String // The Service Description. // // Description: // Gets the Service Description. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// Return 'DataWindow Base Service' end function public function string of_getcolumndisplayname (string as_colname);////////////////////////////////////////////////////////////////////////////// // // Function: // of_getColumnDisplayName // // Access: // public // // Arguments: // as_colname Column name to get the display name for // // Returns: // string // Display name of the column // ! = invalid column name // // Description: // Returns the display name of a column name, based on the // columnDisplayNameStyle setting. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_coldisplayname choose case ii_source case DEFAULT ls_coldisplayname = ids_requestor.describe (as_colname + ".name") case DBNAME ls_coldisplayname = ids_requestor.describe (as_colname + ".dbname") if ls_coldisplayname = "" or ls_coldisplayname = "!" or ls_coldisplayname = "?" then ls_coldisplayname = ids_requestor.describe (as_colname + ".name") end if case HEADER ls_coldisplayname = of_getHeaderName (as_colname) end choose return ls_coldisplayname end function public function string of_getcolumndisplayname (integer ai_colnumber);////////////////////////////////////////////////////////////////////////////// // // Function: // of_getColumnDisplayName // // Access: // public // // Arguments: // ai_colnumber Column number to get the display name for // // Returns: // string // Display name of the column // ! = invalid column name or error // // Description: // Returns the display name of a column name, based on the // columnDisplayNameStyle setting. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_colname // Validate requestor if isNull (ids_requestor) or not isValid (ids_requestor) then return "!" end if // Validate column name ls_colname = ids_requestor.describe ("#" + string (ai_colnumber) + ".name") if ls_colname = "?" or ls_colname = "!" then return "!" end if return of_getColumnDisplayName (ls_colname) end function public function integer of_getcolumndisplaynamestyle ();////////////////////////////////////////////////////////////////////////////// // // Function: // of_getColumnDisplayNameStyle // // Access: // public // // Arguments: // none // // Returns: // integer // columnDisplayNameStyle setting // DEFAULT = 0 regular DataWindow column name // DBNAME =1 database name for the column // HEADER = 2 header name for the column // // Description: // Gets the value of the columnDisplayNameStyle property // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version - Replaces obsoleted function of_getColumnNameSource(...). // ////////////////////////////////////////////////////////////////////////////// // /* * 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 */ // ////////////////////////////////////////////////////////////////////////////// return ii_source end function public function integer of_setcolumndisplaynamestyle (integer ai_coldisplaynamestyle);////////////////////////////////////////////////////////////////////////////// // // Function: // of_setColumnDisplayNameStyle // // Access: // public // // Arguments: // ai_coldisplaynamestyle columnDisplayNameStyle setting // DEFAULT = 0 regular DataWindow column name // DBNAME =1 database name for the column // HEADER = 2 header name for the column // // Returns: // integer // SUCCESS = 1 // ERR = -1 // // Description: // Sets the style to use for displaying column names // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version - Replaces obsoleted function of_setColumnNameSource(...) // ////////////////////////////////////////////////////////////////////////////// // /* * 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_rc = 1 if IsNull (ai_coldisplaynamestyle) then return -1 end if if (ai_coldisplaynamestyle > 2 or ai_coldisplaynamestyle < 0) then li_rc = -1 else ii_source = ai_coldisplaynamestyle end if return li_rc end function 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 Service 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 = 'DataStore Base' anv_infoattrib.is_description = 'DataStore Base Service' Return 1 end function public function string of_getitem (long al_row, string as_column, dwbuffer adw_buffer, boolean ab_orig_value);////////////////////////////////////////////////////////////////////////////// // Public Function: of_GetItem (FORMAT 4) // Arguments: al_row : The row reference // as_column : The column name reference // adw_buffer : The dw buffer from which to get the column's data value. // ab_orig_value : When True, returns the original values that were // retrieved from the database. // Returns: String - The formatted string value of the item // Description: Returns the formatted (including formats, editmasks and display values) // text of any column on a datawindow, regardless of the column's datatype. ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 5.0.04 Fixed where decimal value was being converted into a long. // 5.0.04 Fixed computed field and LookUpDisplay values. // 7.0 Removed test on computed columns. They can be treated // as normal columns. // 7.0 When looking for original value, don't format display values // 7.0 If Format contains expression, use the default value for // the format. ////////////////////////////////////////////////////////////////////////////// /* * 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 */ ////////////////////////////////////////////////////////////////////////////// string ls_col_format, ls_col_mask, ls_string_format, ls_string string ls_coltype, ls_editstyle string ls_computeexp, ls_evaluateexp string edit_codetable, editmask_codetable boolean lb_editmask_used=False long ll_pos n_cst_string lnv_string ls_col_format = ids_Requestor.Describe ( as_column + ".format" ) ls_col_mask = ids_Requestor.Describe ( as_column + ".editmask.mask") IF ls_col_mask = "!" or ls_col_mask = "?" THEN ls_string_format = ls_col_format ELSE ls_string_format = ls_col_mask lb_editmask_used = TRUE END IF IF ls_string_format = "!" or ls_string_format = "?" THEN ls_string_format = "" ELSE ll_pos = Pos ( ls_string_format, "~t" ) If ll_pos > 0 Then If Left ( ls_string_format, 1 ) = "~"" Then ls_string_format = Mid ( ls_string_format, 2, ll_pos - 2 ) Else ls_string_format = Left ( ls_string_format, ll_pos - 1 ) End If END IF END IF /* Determine the datatype of the column and then call the appropriate GetItemxxx function and format the returned value */ ls_coltype = Lower(ids_Requestor.Describe ( as_column + ".ColType" )) CHOOSE CASE Left ( ls_coltype , 5 ) CASE "char(", "char" // CHARACTER DATATYPE IF lb_editmask_used = TRUE THEN /* Need to replace 'EditMask' characters with 'Format' characters */ ls_string_format = lnv_string.of_GlobalReplace ( ls_string_format, "^", "@" ) //Lowercase ls_string_format = lnv_string.of_GlobalReplace ( ls_string_format, "!", "@") //Uppercase ls_string_format = lnv_string.of_GlobalReplace ( ls_string_format, "#", "@" ) //Number ls_string_format = lnv_string.of_GlobalReplace ( ls_string_format, "a", "@" ) //Aplhanumeric ls_string_format = lnv_string.of_GlobalReplace ( ls_string_format, "x", "@" ) //Any Character END IF ls_string = ids_Requestor.GetItemString ( al_row, as_column, adw_buffer, ab_orig_value ) ls_string = String ( ls_string, ls_string_format ) CASE "date" // DATE DATATYPE date ld_date ld_date = ids_Requestor.GetItemDate ( al_row, as_column, adw_buffer, ab_orig_value ) if Len (ls_string_format) > 0 then ls_string = String ( ld_date, ls_string_format ) else ls_string = String (ld_date) end if CASE "datet" // DATETIME DATATYPE datetime ldtm_datetime ldtm_datetime = ids_Requestor.GetItemDateTime ( al_row, as_column, adw_buffer, ab_orig_value ) if Len (ls_string_format) > 0 then ls_string = String ( ldtm_datetime, ls_string_format ) else ls_string = String (ldtm_datetime) end if CASE "decim" // DECIMAL DATATYPE decimal ldec_decimal ldec_decimal = ids_Requestor.GetItemDecimal ( al_row, as_column, adw_buffer, ab_orig_value ) if Len (ls_string_format) > 0 then ls_string = String ( ldec_decimal, ls_string_format ) else ls_string = String (ldec_decimal) end if CASE "numbe", "doubl", "real" // DOUBLE DATATYPE double ldbl_double ldbl_double = ids_Requestor.GetItemNumber ( al_row, as_column, adw_buffer, ab_orig_value ) if Len (ls_string_format) > 0 then ls_string = String ( ldbl_double, ls_string_format ) else ls_string = String (ldbl_double) end if CASE "long", "ulong", "int" // LONG DATATYPE long ll_long ll_long = ids_Requestor.GetItemNumber ( al_row, as_column, adw_buffer, ab_orig_value ) if Len (ls_string_format) > 0 then ls_string = String ( ll_long, ls_string_format ) else ls_string = String (ll_long) end if CASE "time", "times" // TIME DATATYPE time ltm_time ltm_time = ids_Requestor.GetItemTime ( al_row, as_column, adw_buffer, ab_orig_value ) if Len (ls_string_format) > 0 then ls_string = String ( ltm_time, ls_string_format ) else ls_string = String (ltm_time) end if END CHOOSE /* Can only provide the display value if we are looking for the current value */ IF Not ab_orig_value Then // -- Look Up Display values. -- IF adw_buffer = Primary! THEN ls_editstyle = Lower(ids_Requestor.Describe(as_column+".Edit.Style")) edit_codetable = Lower(ids_Requestor.Describe ( as_column + ".Edit.CodeTable" )) editmask_codetable = Lower(ids_Requestor.Describe ( as_column + ".EditMask.CodeTable")) If ls_editstyle='dddw' or ls_editstyle='ddlb' Or ls_editstyle='radiobuttons' or & edit_codetable = "yes" OR editmask_codetable = "yes" Then ls_evaluateexp = "Evaluate('LookUpDisplay(" + as_column + ")', " + String(al_row) + ")" ls_string = ids_Requestor.Describe (ls_evaluateexp) ELSEIF ls_editstyle = 'checkbox' THEN ls_evaluateexp = "Evaluate('LookUpDisplay(" + as_column + ")', " + String(al_row) + ")" ls_string = ls_string + "~t" + ids_Requestor.Describe (ls_evaluateexp) END IF END IF END IF Return ls_string end function public function any of_getitemany (long al_row, string as_column, dwbuffer adw_buffer, boolean ab_orig_value);////////////////////////////////////////////////////////////////////////////// // Public Function: of_GetItemAny (FORMAT 4) // Arguments: al_row : The row reference // as_column : The column name reference // adw_buffer : The dw buffer from which to get the column's data value. // ab_orig_value : When True, returns the original values that were // retrieved from the database. // Returns: Any - The column value cast to an any datatype // Description: Returns a column's value cast to an any datatype ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 7.0 Removed test on computed columns. They can be treated // as normal columns. ////////////////////////////////////////////////////////////////////////////// /* * 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 */ ////////////////////////////////////////////////////////////////////////////// any la_value /* Determine the datatype of the column and then call the appropriate GetItemxxx function and cast the returned value */ CHOOSE CASE Lower ( Left ( ids_requestor.Describe ( as_column + ".ColType" ) , 5 ) ) CASE "char(", "char" // CHARACTER DATATYPE la_value = ids_requestor.GetItemString ( al_row, as_column, adw_buffer, ab_orig_value ) CASE "date" // DATE DATATYPE la_value = ids_requestor.GetItemDate ( al_row, as_column, adw_buffer, ab_orig_value ) CASE "datet" // DATETIME DATATYPE la_value = ids_requestor.GetItemDateTime ( al_row, as_column, adw_buffer, ab_orig_value ) CASE "decim" // DECIMAL DATATYPE la_value = ids_requestor.GetItemDecimal ( al_row, as_column, adw_buffer, ab_orig_value ) CASE "numbe", "long", "ulong", "real", "int" // NUMBER DATATYPE la_value = ids_requestor.GetItemNumber ( al_row, as_column, adw_buffer, ab_orig_value ) CASE "time", "times" // TIME DATATYPE la_value = ids_requestor.GetItemTime ( al_row, as_column, adw_buffer, ab_orig_value ) CASE ELSE SetNull ( la_value ) END CHOOSE Return la_value end function public function any of_buildcomparison (long al_row, string as_column);////////////////////////////////////////////////////////////////////////////// // // Function: of_BuildComparison // // Access: Public // // Arguments: // al_row : The row reference // as_column : The column name reference // as_optionalvalue: An optional value. If found it will not used the // row/column value. // // Returns: string // The comparison string. // // Description: // Returns a comparison string that can be used on any Find or Filter operation. // As opposed to the of_BuildExpression() the resulting string does not contain // the as_column information, this way the expression can easily be associated with // any another column. // For example, 'Date("1/1/95")' will be the result for // as_column='hired_date', as_optionalvalue='1/1/95'. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_nooptionalvalue="#@notapplicable@#" Return of_BuildComparison(al_row, as_column, ls_nooptionalvalue) end function public function any of_buildexpression (long al_row, string as_column, string as_operator, string as_optionalvalue);////////////////////////////////////////////////////////////////////////////// // // Function: of_BuildExpression // // Access: Public // // Arguments: // al_row : The row reference // as_column : The column name reference // as_operator : The desired operator. // "=" Equals // ">" Greater than // "<" Less than // "<>" Not equal // ">=" Greater than or equal // "<=" Less than or equal // as_optionalvalue: An optional value. If found it will not used the // row/column value. // // Returns: Any // The column value cast to an any datatype // // Description: // Returns a complete expression string that can be used on any Find or // Filter operation. // For example, 'hired_date > Date("1/1/95")' will be the result for // as_column='hired_date', as_operator='>', as_optionalvalue='1/1/95'. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // 7.0 Added "char" datatype to case statement // ////////////////////////////////////////////////////////////////////////////// // /* * 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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_expression string ls_coltype string ls_value // Verify passed arguments. If IsNull(ids_requestor) Or Not IsValid(ids_requestor) Then Return '!' If as_optionalvalue = '#@notapplicable@#' Then // Only test row number when there is no optional value. If IsNull(al_row) or al_row <= 0 or al_row > ids_requestor.RowCount() Then Return '!' End If If Len(Trim(as_column))=0 or IsNull(as_column) Then Return '!' If as_operator='=' or as_operator='>' or as_operator='<' or as_operator='<>' or & as_operator='>=' or as_operator='<=' Then // Good value. Else Return '!' End If // Get the column type. ls_coltype = ids_requestor.Describe(as_column+'.ColType') If ls_coltype='!' or ls_coltype='?' Then Return '!' // Either get the current value or use the passed in value. If as_optionalvalue = '#@notapplicable@#' Then ls_value = string( of_GetItemAny(al_row, as_column) ) Else ls_value = as_optionalvalue End If If IsNull(ls_value) Then //-- Build NULL value expressions. -- If as_operator='=' Then ls_expression = 'IsNull('+as_column+')' ElseIf as_operator='<>' Then ls_expression = 'Not IsNull('+as_column+')' Else ls_expression = '!' End If Else //-- Build NonNull value expressions. -- // Start building the Find/Filter expression. ls_expression = as_column + ' ' + as_operator + ' ' // Wrap the value with datatype conversion functions, so that // the value is valid in Filter and Find expressions. // Note: a number value does not need any special handling. Choose Case Lower ( Left (ls_coltype, 5 ) ) // CHARACTER DATATYPE Case "char(", "char" ls_expression += "'" + ls_value + "'" // DATE DATATYPE Case "date" ls_expression += "Date('" + ls_value + "')" // DATETIME DATATYPE Case "datet" ls_expression += "DateTime('" + ls_value + "')" // TIME DATATYPE Case "time", "times" ls_expression += "Time('" + ls_value + "')" // Number Case Else ls_expression += ls_value End Choose End If Return ls_expression end function public function string of_getname ();////////////////////////////////////////////////////////////////////////////// // // Function: of_GetName // // Access: Public // // Arguments: None // // Returns: String // The Service Name. // // Description: // Gets the Service Name. // ////////////////////////////////////////////////////////////////////////////// // // 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 */ // ////////////////////////////////////////////////////////////////////////////// Return 'DataWindow Base' end function public function any of_buildcomparison (long al_row, string as_column, string as_optionalvalue);////////////////////////////////////////////////////////////////////////////// // // Function: of_BuildComparison // // Access: Public // // Arguments: // al_row : The row reference // as_column : The column name reference // as_optionalvalue: An optional value. If found it will not used the // row/column value. // // Returns: string // The comparison string. // // Description: // Returns a comparison string that can be used on any Find or Filter operation. // As opposed to the of_BuildExpression() the resulting string does not contain // the as_column information, this way the expression can easily be associated with // any another column. // For example, 'Date("1/1/95")' will be the result for // as_column='hired_date', as_optionalvalue='1/1/95'. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // 7.0 Added "char" datatype to case statement // ////////////////////////////////////////////////////////////////////////////// // /* * 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 */ // ////////////////////////////////////////////////////////////////////////////// string ls_expression string ls_coltype string ls_value // Validate required reference. If IsNull(ids_requestor) Or Not IsValid(ids_requestor) Then Return '!' // Verify passed arguments. If as_optionalvalue = '#@notapplicable@#' Then // Only test row number when there is no optional value. If IsNull(al_row) or al_row <= 0 or al_row > ids_requestor.RowCount() Then Return '!' End If If Len(Trim(as_column))=0 or IsNull(as_column) Then Return '!' // Get the column type. ls_coltype = ids_requestor.Describe(as_column+'.ColType') If ls_coltype='!' or ls_coltype="?" Then Return '!' // Either get the current value or use the passed in value. If as_optionalvalue = '#@notapplicable@#' Then ls_value = string( of_GetItemAny(al_row, as_column) ) Else ls_value = as_optionalvalue End If If IsNull(ls_value) Then // Handle NULL values. ls_expression = 'IsNull('+as_column+')' Else // Wrap the value with datatype conversion functions, so that // the value is valid in Filter and Find expressions. // Note: a number value does not need any special handling. Choose Case Lower ( Left (ls_coltype, 5 ) ) // CHARACTER DATATYPE Case "char(", "char" ls_expression += "'" + ls_value + "'" // DATE DATATYPE Case "date" ls_expression += "Date('" + ls_value + "')" // DATETIME DATATYPE Case "datet" ls_expression += "DateTime('" + ls_value + "')" // TIME DATATYPE Case "time", "times" ls_expression += "Time('" + ls_value + "')" // Number Case Else ls_expression += ls_value End Choose End If Return ls_expression end function public function integer of_dwarguments (datawindowchild adwc_obj, ref string as_argnames[], ref string as_argdatatypes[]);////////////////////////////////////////////////////////////////////////////// // Public Function: of_DWArguments (Format 1) // Arguments: adwc_obj: DataWindow child to determine if there are arguments // as_argnames[]: A string array (by reference) to hold the argument names // as_argdatatypes[]: A string array (by reference) to hold argument datatypes // Returns: Integer - The number of arguments found // Description: Determines if a DataWindowChild has arguments and what they are. // Note: This function has a (Format 2) which is very similar. ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 5.0.01 Fixed bug so that reference arguments are populated correctly // 5.0.01 Function returns -1 if DataWindowChild reference is not valid // 5.0.02 Added Stored Procedures support. // 5.0.04 Fixed bug which prevented the looping around multiple arguments. // 8.0 Switched to use new Describe String to get arguments // 9.0 Fix CR305452 ////////////////////////////////////////////////////////////////////////////// /* * 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 */ ////////////////////////////////////////////////////////////////////////////// string ls_dwargs, ls_dwargswithtype[], ls_args[], ls_types[] long ll_a, ll_args, ll_pos n_cst_string lnv_string // Check arguments if IsNull (adwc_obj) or not IsValid (adwc_obj) then return -1 end if ls_dwargs = adwc_obj.Describe ( "DataWindow.Table.Arguments" ) // Fix CR305452 to remove ~r ll_args = lnv_string.of_ParseToArray ( ls_dwargs, "~n", ls_dwargswithtype ) For ll_a = 1 to ll_args ll_pos = Pos ( ls_dwargswithtype[ll_a], "~t", 1 ) If ll_pos > 0 Then as_argnames[UpperBound(as_argnames)+1] = Left ( ls_dwargswithtype[ll_a], ll_pos - 1 ) as_argdatatypes[UpperBound(as_argdatatypes)+1] = Mid ( ls_dwargswithtype[ll_a], ll_pos + 1 ) End If Next Return UpperBound ( as_argnames ) end function public function integer of_dwarguments (ref string as_argnames[], ref string as_argdatatypes[]);////////////////////////////////////////////////////////////////////////////// // Public Function: of_DWArguments (Format 2) // Arguments: as_argnames[]: A string array (by reference) to hold the argument names // as_argdatatypes[]: A string array (by reference) to hold argument datatypes // Returns: Integer - The number of arguments found // Description: Determines if a Datastore has arguments and what they are. // Note: This function has a (Format 1) which is very similar. ////////////////////////////////////////////////////////////////////////////// // Rev. History Version // 5.0 Initial version // 5.0.01 Fixed bug so that reference arguments are populated correctly // 5.0.01 Function returns -1 if DataWindowChild reference is not valid // 5.0.02 Added Stored Procedures support. // 5.0.04 Fixed bug which prevented the looping around multiple arguments. // 8.0 Switched to use new Describe String to get arguments // 9.0 Fix CR305452 ////////////////////////////////////////////////////////////////////////////// /* * 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 */ ////////////////////////////////////////////////////////////////////////////// string ls_dwargs, ls_dwargswithtype[], ls_args[], ls_types[] long ll_a, ll_args, ll_pos n_cst_string lnv_string // Check DW requestor if IsNull(ids_requestor) or not IsValid(ids_requestor) then return -1 end if ls_dwargs = ids_requestor.Describe ( "DataWindow.Table.Arguments" ) // Fix CR305452 to remove ~r ll_args = lnv_string.of_ParseToArray ( ls_dwargs, "~n", ls_dwargswithtype ) For ll_a = 1 to ll_args ll_pos = Pos ( ls_dwargswithtype[ll_a], "~t", 1 ) If ll_pos > 0 Then as_argnames[UpperBound(as_argnames)+1] = Left ( ls_dwargswithtype[ll_a], ll_pos - 1 ) as_argdatatypes[UpperBound(as_argdatatypes)+1] = Mid ( ls_dwargswithtype[ll_a], ll_pos + 1 ) End If Next Return UpperBound ( as_argnames ) end function public function integer of_setitem (long al_row, string as_column, string as_value);////////////////////////////////////////////////////////////////////////////// // Public Function: of_SetItem (FORMAT 2) // Arguments: al_row : The row reference for the value to be set // as_column : The column name reference // as_value : The value of the column in string format // Returns: Integer: 1 if successful, -1 if an error occurrs. // Description: Sets the specified row/column to the passed value. ////////////////////////////////////////////////////////////////////////////// // Rev. History: Version // 5.0 Initial version // 5.0.02 Fixed problem with datetime columns being set to invalid datetime values // Added error checking for arguments. // 6.0.01 Fixed where number and real datatype was being converted into a long. // 8.0 Check datetime columns for absence of time value ////////////////////////////////////////////////////////////////////////////// /* * 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_rc date ld_val decimal ldc_val double ldb_val long ll_val real lr_val string ls_string_value time ltm_val n_cst_string lnv_string n_cst_conversion lnv_conversion // Check arguments if IsNull (al_row) or IsNull (as_column) then return -1 end if if IsNull (ids_requestor) or not IsValid (ids_requestor) then return -1 end if /* Determine the datatype of the column and then call the SetItem with proper datatype */ CHOOSE CASE Lower ( Left ( ids_requestor.Describe ( as_column + ".ColType" ) , 5 ) ) CASE "char(", "char" // CHARACTER DATATYPE li_rc = ids_requestor.SetItem ( al_row, as_column, as_value ) CASE "date" // DATE DATATYPE li_rc = ids_requestor.SetItem ( al_row, as_column, Date (as_value) ) CASE "datet" // DATETIME DATATYPE ld_val = lnv_conversion.of_Date (as_value) If Pos ( as_value, " " ) > 0 Then /* There was a time entered */ ltm_val = lnv_conversion.of_Time (as_value) Else ltm_val = Time ( "00:00:00" ) End If li_rc = ids_requestor.SetItem (al_row, as_column, DateTime (ld_val, ltm_val)) CASE "decim" // DECIMAL DATATYPE /* Replace formatting characters in passed string */ ls_string_value = lnv_string.of_GlobalReplace (as_value, "$", "" ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ",", "" ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "(", "-") ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ")", "") if Pos (ls_string_value, "%") > 0 then ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "%", "") ldc_val = Dec (ls_string_value) / 100 else ldc_val = Dec (ls_string_value) end if li_rc = ids_requestor.SetItem ( al_row, as_column, ldc_val) CASE "numbe", "doubl" // NUMBER DATATYPE /* Replace formatting characters in passed string */ ls_string_value = lnv_string.of_GlobalReplace (as_value, "$", "" ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ",", "" ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "(", "-") ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ")", "") if Pos (ls_string_value, "%") > 0 then ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "%", "") ldb_val = Double (ls_string_value) / 100 else ldb_val = Double (ls_string_value) end if li_rc = ids_requestor.SetItem ( al_row, as_column, ldb_val) CASE "real" // REAL DATATYPE /* Replace formatting characters in passed string */ ls_string_value = lnv_string.of_GlobalReplace (as_value, "$", "" ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ",", "" ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "(", "-") ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ")", "") if Pos (ls_string_value, "%") > 0 then ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "%", "") lr_val = Real (ls_string_value) / 100 else lr_val = Real (ls_string_value) end if li_rc = ids_requestor.SetItem ( al_row, as_column, lr_val) CASE "long", "ulong" // LONG/INTEGER DATATYPE /* Replace formatting characters in passed string */ ls_string_value = lnv_string.of_GlobalReplace (as_value, "$", "" ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ",", "" ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "(", "-") ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ")", "") if Pos (ls_string_value, "%") > 0 then ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "%", "") ll_val = Long (ls_string_value) / 100 else ll_val = Long (ls_string_value) end if li_rc = ids_requestor.SetItem ( al_row, as_column, ll_val) CASE "time", "times" // TIME DATATYPE li_rc = ids_requestor.SetItem ( al_row, as_column, Time ( as_value ) ) END CHOOSE Return li_rc end function on pfc_n_cst_dssrv.create call super::create end on on pfc_n_cst_dssrv.destroy call super::destroy end on
File: pfc_n_cst_dssrv.sru
Size: 109347
Date: Tue, 22 Jan 2008 23:29:49 +0100
Size: 109347
Date: Tue, 22 Jan 2008 23:29:49 +0100
- n_base pfc_n_cst_dssrv(sru)
- of_buildcomparison (long al_row, string as_column) returns any
- of_buildcomparison (long al_row, string as_column, string as_optionalvalue) returns any
- of_buildexpression (long al_row, string as_column) returns any
- of_buildexpression (long al_row, string as_column, string as_operator) returns any
- of_buildexpression (long al_row, string as_column, string as_operator, string as_optionalvalue) returns any
- of_describe (ref n_cst_dwobjectattrib a_dwobject_attrib[], string as_attribute) returns integer
- of_describe (ref n_cst_dwobjectattrib a_dwobject_attrib[], string as_attribute, string as_col) returns integer
- of_describe (ref n_cst_dwobjectattrib a_dwobject_attrib[], string as_attribute, string as_objtype, string as_band, boolean ab_visible_only) returns integer
- of_dwarguments (datawindowchild adwc_obj, ref string as_argnames[], ref string as_argdatatypes[]) returns integer
- of_dwarguments (ref string as_argnames[], ref string as_argdatatypes[]) returns integer
- of_getcolumndisplayname (integer ai_colnumber) returns string
- of_getcolumndisplayname (string as_colname) returns string
- of_getcolumndisplaynamestyle () returns integer
- of_getcolumnnamesource () returns integer
- of_getdefaultheadersuffix () returns string
- of_getdescription () returns string
- of_getdisplayitem () returns string
- of_getdisplayunits () returns string
- of_getheadername (string as_column) returns string
- of_getheadername (string as_column, string as_suffix) returns string
- of_getheight () returns long
- of_getinfo (ref n_cst_infoattrib anv_infoattrib) returns integer
- of_getitem (long al_row, integer ai_column) returns string
- of_getitem (long al_row, integer ai_column, dwbuffer adw_buffer, boolean ab_orig_value) returns string
- of_getitem (long al_row, string as_column) returns string
- of_getitem (long al_row, string as_column, dwbuffer adw_buffer, boolean ab_orig_value) returns string
- of_getitemany (long al_row, integer ai_column) returns any
- of_getitemany (long al_row, integer ai_column, dwbuffer adw_buffer, boolean ab_orig_value) returns any
- of_getitemany (long al_row, string as_column) returns any
- of_getitemany (long al_row, string as_column, dwbuffer adw_buffer, boolean ab_orig_value) returns any
- of_getname () returns string
- of_getobjects (ref string as_objlist[]) returns integer
- of_getobjects (ref string as_objlist[], string as_objtype, string as_band, boolean ab_visibleonly) returns integer
- of_getwidth () returns long
- of_modify (string as_attribute, string as_value) returns string
- of_modify (string as_attribute, string as_value, string as_col) returns string
- of_modify (string as_attribute, string as_value, string as_objtype, string as_band, boolean ab_visible_only) returns string
- of_setcolumndisplaynamestyle (integer ai_coldisplaynamestyle) returns integer
- of_setcolumnnamesource (integer ai_colsource) returns integer
- of_setdefaultheadersuffix (string as_suffix) returns integer
- of_setdisplayitem (string as_displayitem) returns integer
- of_setdisplayunits (string as_displayunits) returns integer
- of_setitem (long al_row, integer ai_column, string as_value) returns integer
- of_setitem (long al_row, string as_column, string as_value) returns integer
- of_setrequestor (n_ds ads_requestor) returns integer