$PBExportHeader$pfc_n_cst_dwsrv.sru $PBExportComments$PFC DataWindow service forward global type pfc_n_cst_dwsrv from n_base end type end forward global type pfc_n_cst_dwsrv from n_base end type global pfc_n_cst_dwsrv pfc_n_cst_dwsrv 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_charThousand // leave this empty to read char from Registry string is_defaultheadersuffix = "_t" string is_displayunits = "rows" string is_displayitem = "this row" u_dw idw_requestor end variables forward prototypes 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 integer of_refreshdddws () 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 (u_dw adw_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_populatedddw (string as_dddwname) public function integer of_populatedddw (integer ai_dddwnumber) public function integer of_getinfo (ref n_cst_infoattrib anv_infoattrib) public function integer of_getpropertyinfo (ref n_cst_propertyattrib anv_attrib) public function integer of_PopulateDDDW () public function any of_getitemany (long al_row, string as_column, dwbuffer adw_buffer, boolean ab_orig_value) public function string of_getitem (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 (ref string as_argnames[], ref string as_argdatatypes[]) public function integer of_dwarguments (datawindowchild adwc_obj, ref string as_argnames[], ref string as_argdatatypes[]) public function integer of_setitem (long al_row, string as_column, string as_value) public function integer of_getobjects (ref string as_objlist[], string as_objtype, string as_band, boolean ab_visibleonly, boolean ab_append) public function integer of_getobjects (ref string as_objlist[], string as_objtype, string as_band, boolean ab_visibleonly) public function integer of_describe (ref string as_values[], string as_attribute, string as_objects[]) public function string of_getcolumneditstatus (string as_column, long al_row) end prototypes public function integer of_getcolumnnamesource ();// ##OBSOLETE## ////////////////////////////////////////////////////////////////////////////// // // 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_columnname ls_columnname = idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_columnname ls_columnname = idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_columnname /* Get the Column Name from the Column Number. */ ls_columnname = idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// Return of_GetObjects ( as_objlist, "*", "*", FALSE, 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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, FALSE ) 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 idw_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 = idw_Requestor.Modify ( ls_modify ) END IF ELSE /* Single column to Modify */ ls_modify = as_objtype + "." + as_attribute + "= " + as_value IF idw_Requestor.Modify ( ls_modify ) <> "" THEN as_value = "'" + as_value + "'" ls_modify = as_objtype + "." + as_attribute + "= " + as_value ls_rc = idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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 // 12.5 Issue 11011 - Datawindow Base Service - Do not wordCap if dw header // name is from a text object. Took this one step further, // the method does not have to assume that this is only // for tabular/grid DWs. Freeforms and others can use this // routine. Added check to strip trailing ":" from the // column text. Also added check, if a text field is not // found, to see if the Edit.Style is a checkBox and if // so then try returning the CheckBox.Text. ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// Boolean lb_found = FALSE string ls_colhead n_cst_string lnv_string // Try using the column header. ls_colhead = Trim(idw_Requestor.Describe ( as_column + as_suffix + ".Text" )) IF ls_colhead = "!" OR ls_colHead = "?" OR ls_colHead = "" THEN CHOOSE CASE idw_requestor.Describe(as_column + '.Edit.Style') CASE "checkbox" ls_colHead = Trim(idw_requestor.Describe(as_column + ".CheckBox.Text")) IF ls_colHead = "!" OR ls_colHead = "?" OR ls_colHead = "" THEN // No valid column header, use column name. ls_colHead = as_column ELSE lb_found = TRUE END IF CASE ELSE // No valid column header, use column name. ls_colhead = as_column END CHOOSE ELSE lb_found = TRUE END IF // Remove undesired characters. ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~r~n", " ", FALSE ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~t", " ", FALSE ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~r", " ", FALSE ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~n", " ", FALSE ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "_", " ", FALSE ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~"", "", FALSE ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~'", "", FALSE ) ls_colhead = lnv_string.of_GlobalReplace ( ls_colhead, "~~", "", FALSE ) IF Right(ls_colHead, 1) = ':' THEN ls_colhead = Left(ls_colhead, Len(ls_colhead) - 1) END IF // Only wordCap the header if it is the column name IF NOT lb_found THEN // WordCap string. ls_colhead = idw_Requestor.Describe ( "Evaluate('WordCap(~"" + ls_colhead + "~")',0)" ) END IF Return ls_colhead end function public function integer of_refreshdddws ();////////////////////////////////////////////////////////////////////////////// // // Function: of_RefreshDDDWs // // Access: Public // // Arguments: None // // Returns: Integer // The number of dddw-style columns found and refreshed. // -1 if an error occurs. // // Description: To determine what columns have a DropDownDataWindow style // and to refresh the dddw. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.0 Initial version // 5.0.02 Handle cases where the column having a child datawindow does not // equal the dropdowndatawindow column name. // 5.0.02 Check for required references and added error checking. // 6.0 Marked obsolete Replaced by of_PopulateDDDWs(...). // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// Long ll_rc Long ll_cnt Long ll_columncount Long ll_dddwcount String ls_colname String ls_dddwdatacolumn String ls_args[] String ls_types[] boolean lb_dddwrefreshed=False DataWindowChild ldwc_obj // Check required references. If IsNull(idw_Requestor) or Not IsValid(idw_Requestor) Then Return -1 // Get the number of columns on the datawindow. ll_columncount = Long (idw_Requestor.Describe("DataWindow.Column.Count")) // Loop around all columns. FOR ll_cnt=1 TO ll_columncount // Reset boolean which states if dddw is refreshed. lb_dddwrefreshed=False // Get the current column name. ls_colname = idw_Requestor.Describe ( "#" + String ( ll_cnt ) + ".Name" ) // Determine if the current column is a DropDownDataWindow. ls_dddwdatacolumn = idw_Requestor.Describe ( ls_colname + ".DDDW.DataColumn" ) IF ls_dddwdatacolumn = "" OR ls_dddwdatacolumn = "?" THEN // Not a DropDownDataWindow. CONTINUE ELSE // Get the Child reference. ll_rc = idw_Requestor.GetChild (ls_colname, ldwc_obj) If ll_rc > 0 Then // A DropDownDataWindow has been found. IF of_DWArguments ( ldwc_obj, ls_args, ls_types ) > 0 THEN // DropDownDataWindow has arguments, call event which will handle this case. ll_rc = idw_Requestor.Event pfc_retrievedddw(ls_colname) If ll_rc < 0 Then Return -1 lb_dddwrefreshed = True ELSE // DropDownDataWindow does not have arguments, refresh the data. If IsValid(idw_Requestor.itr_object) Then ll_rc = ldwc_obj.SetTransObject(idw_Requestor.itr_object) If ll_rc < 0 Then Return -1 ll_rc = ldwc_obj.Retrieve() If ll_rc < 0 Then Return -1 lb_dddwrefreshed = True End If END IF If lb_dddwrefreshed Then // Increment the DropDownDataWindow count. ll_dddwcount++ End If End If END IF NEXT Return ll_dddwcount 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_columnname ls_columnname = idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_columnname ls_columnname = idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// Integer li_Bands, li_Cnt long ll_height long ll_detail String ls_DWBands, ls_Band[] n_cst_string lnv_string ls_DWBands = idw_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(idw_Requestor.Describe("Datawindow." + & ls_Band[li_Cnt] + ".Height")) End if Next ll_Detail = idw_Requestor.RowCount() * & Integer(idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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, FALSE) ll_Return = 0 For li_Count = 1 To li_NumObjects // Calculate the x position + the width of each object ll_X = Integer(idw_Requestor.Describe(ls_Objects[li_Count] + ".x")) ll_ObjWidth = Integer(idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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 = idw_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 = idw_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 = idw_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 = idw_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 = idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// // 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// // 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// return of_setColumnDisplayNameStyle (ai_colsource) end function public function integer of_setrequestor (u_dw adw_requestor);////////////////////////////////////////////////////////////////////////////// // // Function: of_SetRequestor // // Access: Public // // Arguments: // adw_Requestor The datawindow requesting the service // // Returns: None // // Description: Associates a datawindow control with a datawindow service NVO // by setting the idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// If IsNull(adw_requestor) or Not IsValid(adw_requestor) Then Return -1 End If idw_Requestor = adw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_coldisplayname choose case ii_source case DEFAULT ls_coldisplayname = idw_requestor.describe (as_colname + ".name") case DBNAME ls_coldisplayname = idw_requestor.describe (as_colname + ".dbname") if ls_coldisplayname = "" or ls_coldisplayname = "!" or ls_coldisplayname = "?" then ls_coldisplayname = idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_colname // Validate requestor if isNull (idw_requestor) or not isValid (idw_requestor) then return "!" end if // Validate column name ls_colname = idw_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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_populatedddw (string as_dddwname);////////////////////////////////////////////////////////////////////////////// // // Function: // of_PopulateDDDW // // Access: // Public // // Arguments: // as_dddwname The column name of the DDDW // // Returns: // 1 = success // -1 = error // // Description: // Populates specified DDDW // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// integer li_rc = 1 Long ll_rc String ls_dddwdatacolumn DataWindowChild ldwc_obj // Check required references. If IsNull(idw_Requestor) or Not IsValid(idw_Requestor) Then Return -1 // Determine if the current column is a DropDownDataWindow. ls_dddwdatacolumn = idw_Requestor.Describe ( as_dddwname + ".DDDW.DataColumn" ) IF ls_dddwdatacolumn = "" OR ls_dddwdatacolumn = "?" or ls_dddwdatacolumn = "!" THEN // Not a DropDownDataWindow. li_rc = -1 ELSE // Get the Child reference. ll_rc = idw_Requestor.GetChild (as_dddwname, ldwc_obj) If ll_rc > 0 Then ll_rc = idw_requestor.event pfc_populatedddw (as_dddwname, ldwc_obj) if ll_rc < 0 then return -1 End If END IF Return li_rc end function public function integer of_populatedddw (integer ai_dddwnumber);////////////////////////////////////////////////////////////////////////////// // // Function: // of_PopulateDDDW // // Access: // Public // // Arguments: // ai_dddwnumber Column number of the DDDW // // Returns: // 1 = success // -1 = error // // Description: // Populates specified DDDW // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_dddwname // Validate requestor DW if isNull (idw_requestor) or not isValid (idw_requestor) then return -1 // Validate DW column name ls_dddwname = idw_requestor.describe ("#" + string (ai_dddwnumber) + ".name") if ls_dddwname = "?" or ls_dddwname = "!" then return -1 return of_populateDDDW (ls_dddwname) 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// // Populate Information. anv_infoattrib.is_name = 'DataWindow Base' anv_infoattrib.is_description = 'DataWindow Base Service' Return 1 end function public function integer of_getpropertyinfo (ref n_cst_propertyattrib anv_attrib);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetPropertyInfo // // Access: Public // // Arguments: // anv_attrib (By ref.) The Property Information attributes. // // Returns: Integer // 1 for success. // -1 for error. // // Description: // Gets the Service Property Information. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_empty[] n_cst_infoattrib lnv_infoattrib // Get the first two attributes from the Main Information attributes. of_GetInfo(lnv_infoattrib) anv_attrib.is_name = lnv_infoattrib.is_name anv_attrib.is_description = lnv_infoattrib.is_description // Set the rest of the attributes. anv_attrib.is_propertypage = ls_empty anv_attrib.ib_switchbuttons = False Return 1 end function public function integer of_PopulateDDDW ();////////////////////////////////////////////////////////////////////////////// // // Function: // of_PopulateDDDW // // Access: // Public // // Arguments: // None // // Returns: // integer // The number of dddw-style columns populated // -1 if an error occurs. // // Description: // Populates all DDDWs on the DataWindow // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 6.0 Initial version - Replaces obsoleted function of_RefreshDDDWs(...) // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// Long ll_rc Long ll_cnt Long ll_columncount Long ll_dddwcount String ls_colname String ls_dddwdatacolumn DataWindowChild ldwc_obj // Check required references. If IsNull(idw_Requestor) or Not IsValid(idw_Requestor) Then Return -1 // Get the number of columns on the datawindow. ll_columncount = Long (idw_Requestor.Describe("DataWindow.Column.Count")) // Loop around all columns. FOR ll_cnt=1 TO ll_columncount // Get the current column name. ls_colname = idw_Requestor.Describe ( "#" + String ( ll_cnt ) + ".Name" ) // Determine if the current column is a DropDownDataWindow. ls_dddwdatacolumn = idw_Requestor.Describe ( ls_colname + ".DDDW.DataColumn" ) IF ls_dddwdatacolumn = "" OR ls_dddwdatacolumn = "?" or ls_dddwdatacolumn = "!" THEN // Not a DropDownDataWindow. CONTINUE ELSE // Get the Child reference. ll_rc = idw_Requestor.GetChild (ls_colname, ldwc_obj) If ll_rc > 0 Then ll_rc = idw_requestor.event pfc_populatedddw (ls_colname, ldwc_obj) if ll_rc < 0 then return -1 // Increment the DropDownDataWindow count. ll_dddwcount++ End If END IF NEXT Return ll_dddwcount 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ ////////////////////////////////////////////////////////////////////////////// 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 ( idw_Requestor.Describe ( as_column + ".ColType" ) , 5 ) ) CASE "char(", "char" // CHARACTER DATATYPE la_value = idw_Requestor.GetItemString ( al_row, as_column, adw_buffer, ab_orig_value ) CASE "date" // DATE DATATYPE la_value = idw_Requestor.GetItemDate ( al_row, as_column, adw_buffer, ab_orig_value ) CASE "datet" // DATETIME DATATYPE la_value = idw_Requestor.GetItemDateTime ( al_row, as_column, adw_buffer, ab_orig_value ) CASE "decim" // DECIMAL DATATYPE la_value = idw_Requestor.GetItemDecimal ( al_row, as_column, adw_buffer, ab_orig_value ) CASE "numbe", "long", "ulong", "real", "int" // NUMBER DATATYPE la_value = idw_Requestor.GetItemNumber ( al_row, as_column, adw_buffer, ab_orig_value ) CASE "time", "times" // TIME DATATYPE la_value = idw_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 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. // 6.0.01 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ ////////////////////////////////////////////////////////////////////////////// string ls_col_format, ls_col_mask, ls_string_format, ls_string, ls_savestring 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 = idw_Requestor.Describe ( as_column + ".format" ) ls_col_mask = idw_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(idw_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, "^", "@", FALSE ) //Lowercase ls_string_format = lnv_string.of_GlobalReplace ( ls_string_format, "!", "@", FALSE) //Uppercase ls_string_format = lnv_string.of_GlobalReplace ( ls_string_format, "#", "@", FALSE ) //Number ls_string_format = lnv_string.of_GlobalReplace ( ls_string_format, "a", "@", TRUE ) //Aplhanumeric ls_string_format = lnv_string.of_GlobalReplace ( ls_string_format, "x", "@", TRUE ) //Any Character END IF ls_string = idw_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 = idw_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 = idw_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 = idw_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 = idw_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 = idw_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 = idw_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(idw_requestor.Describe(as_column+".Edit.Style")) edit_codetable = Lower(idw_Requestor.Describe ( as_column + ".Edit.CodeTable" )) editmask_codetable = Lower(idw_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 = idw_Requestor.Describe (ls_evaluateexp) ELSEIF ls_editstyle = 'checkbox' THEN ls_evaluateexp = "Evaluate('LookUpDisplay(" + as_column + ")', " + String(al_row) + ")" ls_string = ls_string + "~t" + idw_Requestor.Describe (ls_evaluateexp) END IF END IF END IF Return ls_string 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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 // "LIKE" Like // "NOT LIKE" Not Like // 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 // 12.5 Added LIKE & NOT LIKE operators // Number conversion to handle other number formats (like 1.234,56) #11012 // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_expression string ls_coltype string ls_value // Verify passed arguments. If IsNull(idw_requestor) Or Not IsValid(idw_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 > idw_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='<=' or as_operator='LIKE' or as_operator='NOT LIKE' Then // Good value. Else Return '!' End If // Get the column type. ls_coltype = idw_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 + "')" // LIKE, NOT LIKE Case "like","not like" ls_expression += "'"+ls_value+"'" // Number Case Else ls_expression += "Number('" + ls_value + "')" // convert to support other number formats #11012 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// 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 // 12.5 Add LIKE & NOT LIKE operators // Number conversion to handle other number formats (like 1.234,56) #11012 // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_expression string ls_coltype string ls_value // Validate required reference. If IsNull(idw_requestor) Or Not IsValid(idw_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 > idw_requestor.RowCount() Then Return '!' End If If Len(Trim(as_column))=0 or IsNull(as_column) Then Return '!' // Get the column type. ls_coltype = idw_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. 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 + "')" // LIKE, NOT LIKE Case "like","not like" ls_expression += "'"+ls_value+"'" // Number Case Else ls_expression += "Number('" + ls_value + "')" // convert to support other number formats #11012 End Choose End If Return ls_expression 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 DataWindow 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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ ////////////////////////////////////////////////////////////////////////////// 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(idw_Requestor) or not IsValid(idw_Requestor) then return -1 end if ls_dwargs = idw_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_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-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ ////////////////////////////////////////////////////////////////////////////// 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_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 // 12.5 Use separator for thousand from registry #11012 ////////////////////////////////////////////////////////////////////////////// /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ ////////////////////////////////////////////////////////////////////////////// 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 (idw_requestor) or not IsValid (idw_requestor) then return -1 end if /* Determine the datatype of the column and then call the SetItem with proper datatype */ CHOOSE CASE Lower ( Left ( idw_Requestor.Describe ( as_column + ".ColType" ) , 5 ) ) CASE "char(", "char" // CHARACTER DATATYPE li_rc = idw_Requestor.SetItem ( al_row, as_column, as_value ) CASE "date" // DATE DATATYPE li_rc = idw_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 = idw_Requestor.SetItem (al_row, as_column, DateTime (ld_val, ltm_val)) CASE "decim" // DECIMAL DATATYPE /* Replace formatting characters in passed string */ // which character is used as separator for thousand? #11012 // (only read once to improve performance) if is_charThousand = "" or IsNull (is_charThousand) then if RegistryGet("HKEY_CURRENT_USER\Control Panel\International","sThousand",RegString!,is_charThousand) <> 1 then is_charThousand = "," end if end if ls_string_value = lnv_string.of_GlobalReplace (as_value, "$", "", FALSE ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, is_charThousand, "", FALSE ) // #11012 ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "(", "-", FALSE) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ")", "", FALSE) if Pos (ls_string_value, "%") > 0 then ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "%", "", FALSE) ldc_val = Dec (ls_string_value) / 100 else ldc_val = Dec (ls_string_value) end if li_rc = idw_Requestor.SetItem ( al_row, as_column, ldc_val) CASE "numbe", "doubl" // NUMBER DATATYPE /* Replace formatting characters in passed string */ // which character is used as separator for thousand? #11012 // (only read once to improve performance) if is_charThousand = "" or IsNull (is_charThousand) then if RegistryGet("HKEY_CURRENT_USER\Control Panel\International","sThousand",RegString!,is_charThousand) <> 1 then is_charThousand = "," end if end if ls_string_value = lnv_string.of_GlobalReplace (as_value, "$", "", FALSE ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, is_charThousand, "", FALSE ) // #11012 ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "(", "-", FALSE) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ")", "", FALSE) if Pos (ls_string_value, "%") > 0 then ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "%", "", FALSE) ldb_val = Double (ls_string_value) / 100 else ldb_val = Double (ls_string_value) end if li_rc = idw_Requestor.SetItem ( al_row, as_column, ldb_val) CASE "real" // REAL DATATYPE /* Replace formatting characters in passed string */ // which character is used as separator for thousand? #11012 // (only read once to improve performance) if is_charThousand = "" or IsNull (is_charThousand) then if RegistryGet("HKEY_CURRENT_USER\Control Panel\International","sThousand",RegString!,is_charThousand) <> 1 then is_charThousand = "," end if end if ls_string_value = lnv_string.of_GlobalReplace (as_value, "$", "", FALSE ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, is_charThousand, "", FALSE ) // #11012 ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "(", "-", FALSE) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ")", "", FALSE) if Pos (ls_string_value, "%") > 0 then ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "%", "", FALSE) lr_val = Real (ls_string_value) / 100 else lr_val = Real (ls_string_value) end if li_rc = idw_Requestor.SetItem ( al_row, as_column, lr_val) CASE "long", "ulong" // LONG/INTEGER DATATYPE /* Replace formatting characters in passed string */ // which character is used as separator for thousand? #11012 // (only read once to improve performance) if is_charThousand = "" or IsNull (is_charThousand) then if RegistryGet("HKEY_CURRENT_USER\Control Panel\International","sThousand",RegString!,is_charThousand) <> 1 then is_charThousand = "," end if end if ls_string_value = lnv_string.of_GlobalReplace (as_value, "$", "", FALSE ) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, is_charThousand, "", FALSE ) // #11012 ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "(", "-", FALSE) ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, ")", "", FALSE) if Pos (ls_string_value, "%") > 0 then ls_string_value = lnv_string.of_GlobalReplace (ls_string_value, "%", "", FALSE) ll_val = Long (ls_string_value) / 100 else ll_val = Long (ls_string_value) end if li_rc = idw_Requestor.SetItem ( al_row, as_column, ll_val) CASE "time", "times" // TIME DATATYPE li_rc = idw_Requestor.SetItem ( al_row, as_column, Time ( as_value ) ) END CHOOSE Return li_rc end function public function integer of_getobjects (ref string as_objlist[], string as_objtype, string as_band, boolean ab_visibleonly, boolean ab_append);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetObjects (FORMAT 3) // // 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 // // ab_append: TRUE - append results at the end of specified objects list // FALSE -clear actual content of specified objects list before appending results in it // // 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 // 12.5 Force to work in lowercase in order to be able to use Mixed or Uppercase // for used argument's values. // + add possibility to append results to specified object list // + reset object list parameter first if results should not appended // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// string ls_ObjString, ls_ObjHolder, ls_empty[] integer li_Start=1, li_Tab, li_Count=0 boolean lb_found // Apply Append mode, if needed if ab_append then li_count = UpperBound( as_objlist ) else as_objlist = ls_empty end if /* Put every parameters in lowercase */ as_objtype = lower( as_objtype ) as_band = lower( as_band ) /* Get the Object String */ ls_ObjString = idw_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 lb_found = true If as_ObjType <> "*" Then lb_found = (lower(idw_Requestor.Describe(ls_ObjHolder + ".type")) = as_ObjType) End If If lb_found AND as_Band <> "*" Then lb_found = (lower(idw_Requestor.Describe(ls_ObjHolder + ".band")) = as_Band) End If If lb_found AND ab_VisibleOnly Then lb_found = (lower(idw_Requestor.Describe(ls_ObjHolder + ".visible")) = "1") End If If lb_found 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 lb_found = true If as_ObjType <> "*" Then lb_found = (lower(idw_Requestor.Describe(ls_ObjHolder + ".type")) = as_ObjType) End If If lb_found AND as_Band <> "*" Then lb_found = (lower(idw_Requestor.Describe(ls_ObjHolder + ".band")) = as_Band) End If If lb_found AND ab_VisibleOnly Then lb_found = (lower(idw_Requestor.Describe(ls_ObjHolder + ".visible")) = "1") End If If lb_found Then li_Count ++ as_ObjList[li_Count] = ls_ObjHolder End if Return li_Count end function 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 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 // 12.5 Force to work in lowercase in order to be able to use Mixed or Uppercase // for used argument's values. // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// return this.of_Getobjects( as_objlist, as_objtype, as_band, ab_visibleonly, FALSE ) end function public function integer of_describe (ref string as_values[], string as_attribute, string as_objects[]);////////////////////////////////////////////////////////////////////////////// // // Function: of_Describe (FORMAT 4) // // Access: Public // // Arguments: // as_values[] a string array passed by ref that will holds the values of the specified attribute described // as_attribute A string containing the name of the attribute to be described // Using the tag #headername# as attribute will use as described value the text of the label associated // to the specified objects list. // as_object The list of object for witch the specified attributes must 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 DWObject list // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 12.5. Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// integer li_i integer li_limit integer li_count = 0 string ls_tmp // 1. Check parameters // 1.1 - Check the number of entries in the specified object list, if none return an error li_limit = Upperbound(as_objects) if li_limit < 1 then return failure // 1.2 - Check that an attribute is well requrested if isnull( as_attribute ) or len(trim(as_attribute)) = 0 then return failure // 2. Lowers attribute to avoid any letter case side effects as_attribute = lower( trim(as_attribute ) ) // 3. Extracts specified attributes values for every speciied DWObjects for li_i = 1 to li_limit // Is the special tag used ? if lower(trim(as_attribute)) = "#headername#" then // yes,, extract associated label text ls_tmp = this.of_getheadername( as_objects[li_i] ) else // no, try to get current value of the specified attribute ls_tmp = idw_requestor.describe( as_objects[li_i]+"."+ as_attribute ) end if // If no error occurs, store the result in the specified values array if ls_tmp <> "?" and ls_tmp <> "!" then li_count++ as_values[li_count] = ls_tmp end if next return success end function public function string of_getcolumneditstatus (string as_column, long al_row);////////////////////////////////////////////////////////////////////////////// // // Function: of_GetColumnEditStatus // // Access: protected // // Arguments: // as_column The column to test. // al_row The row number to test. // // Returns: String // "editable" The column/row is editable. // "displayonly" The column/row is display only // "protected" The column/row is not editable. // "!" if an error is encountered. // // Description: Determine the Edit Status of the passed column/row // combination. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 12.5 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2017, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the MIT License * * https://opensource.org/licenses/MIT * * ==================================================================== * * 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 https://github.com/OpenSourcePFCLibraries */ // ////////////////////////////////////////////////////////////////////////////// constant string EDITABLE_COLUMN = 'editable' constant string READONLY_COLUMN = 'readonly' constant string PROTECTED_COLUMN= 'protected' string ls_columnprotect string ls_evaluate string ls_evaluateresult //Check arguments If IsNull(as_column) or Len(Trim(as_column))=0 or & IsNull(al_row) or al_row <=0 Then Return '!' End If ////////////////////////////////////////////////////////////////////////////// // If the TabSequence for the column is not Greater than Zero then // the field is protected. ////////////////////////////////////////////////////////////////////////////// If idw_requestor.Describe(as_column+".TabSequence") = '0' Then Return PROTECTED_COLUMN End If ////////////////////////////////////////////////////////////////////////////// // If the Protected attribute for the column/row evaluates to One then // the field is protected. ////////////////////////////////////////////////////////////////////////////// ls_columnprotect = idw_requestor.Describe(as_column+".Protect") //Get rid of extra quotes. If Left(ls_columnprotect, 1) = "'" or Left(ls_columnprotect, 1) = '"' Then ls_columnprotect = Mid(ls_columnprotect, 2) If Right(ls_columnprotect, 1) = "'" or Right(ls_columnprotect, 1) = '"' Then ls_columnprotect = Mid(ls_columnprotect, 1, Len(ls_columnprotect)-1 ) End If End If If IsNumber (ls_columnprotect) Then If Long(ls_columnprotect) <> 0 Then Return PROTECTED_COLUMN End If Else //Get the expression and evaluate it. ls_evaluate = 'Evaluate ("'+Mid(ls_columnprotect, 3)+'",'+string(al_row)+')' ls_evaluateresult = idw_requestor.Describe(ls_evaluate) If IsNumber(ls_evaluateresult) Then If Long(ls_evaluateresult) <> 0 Then Return PROTECTED_COLUMN End If Else Return PROTECTED_COLUMN End If End If ////////////////////////////////////////////////////////////////////////////// // If the Edit.DisplayOnly for the column is Yes then the field is ReadOnly. ////////////////////////////////////////////////////////////////////////////// If idw_requestor.Describe(as_column+".Edit.DisplayOnly") = "yes" Then Return READONLY_COLUMN End If ////////////////////////////////////////////////////////////////////////////// // If None of the above then the field is editable. ////////////////////////////////////////////////////////////////////////////// Return EDITABLE_COLUMN end function on pfc_n_cst_dwsrv.create call super::create end on on pfc_n_cst_dwsrv.destroy call super::destroy end on
- Sources
- PFC2019
- ws_objects
- pfcdwsrv
- pfcdwsrv.pbl.src
- pfc_n_cst_dwsrv.sru
File: pfc_n_cst_dwsrv.sru
Size: 134270
Date: Sat, 08 May 2021 23:34:22 +0200
Size: 134270
Date: Sat, 08 May 2021 23:34:22 +0200
- n_base pfc_n_cst_dwsrv(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_describe (ref string as_values[], string as_attribute, string as_objects[]) 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_getcolumneditstatus (string as_column, long al_row) returns string
- 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_getobjects (ref string as_objlist[], string as_objtype, string as_band, boolean ab_visibleonly, boolean ab_append) returns integer
- of_getpropertyinfo (ref n_cst_propertyattrib anv_attrib) 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_populatedddw () returns integer
- of_populatedddw (integer ai_dddwnumber) returns integer
- of_populatedddw (string as_dddwname) returns integer
- of_refreshdddws () returns integer
- 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 (u_dw adw_requestor) returns integer