HA$PBExportHeader$pfcscanner_n_ds.sru $PBExportComments$Datastore object used by scanner process. forward global type pfcscanner_n_ds from datastore end type end forward global type pfcscanner_n_ds from datastore end type global pfcscanner_n_ds pfcscanner_n_ds type variables Public : //n_cst_dssrv inv_base transaction itr_object Protected : boolean ib_append end variables forward prototypes public function integer of_setappend (boolean ab_append) public function boolean of_getappend () end prototypes public function integer of_setappend (boolean ab_append);////////////////////////////////////////////////////////////////////////////// // // Function: of_SetAppend // // Access: public // // Arguments: // ab_append: whether data will be appended to existing data when retrieving // // Returns: integer // 1 = success // -1 = error // // Description: // Sets the behavior for retrieval so that data appends or is replaced // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// // Check arguments if IsNull (ab_append) then return -1 end if ib_append = ab_append return 1 end function public function boolean of_getappend ();////////////////////////////////////////////////////////////////////////////// // // Function: of_GetAppend // // Access: public // // Arguments: none // // Returns: boolean // // Description: // Returns whether data is appended to existing data when retrieving // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// return ib_append end function event retrievestart;////////////////////////////////////////////////////////////////////////////// // // Event: retrievestart // // Description: // Determine if retrieved data should be appended to the existing data, // or if the existing data should be reset prior to retrieval. // ////////////////////////////////////////////////////////////////////////////// // // Revision History // // Version // 5.0 Initial version // ////////////////////////////////////////////////////////////////////////////// // /* * Open Source PowerBuilder Foundation Class Libraries * * Copyright (c) 2004-2005, All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted in accordance with the GNU Lesser General * Public License Version 2.1, February 1999 * * http://www.gnu.org/copyleft/lesser.html * * ==================================================================== * * This software consists of voluntary contributions made by many * individuals and was originally based on software copyright (c) * 1996-2004 Sybase, Inc. http://www.sybase.com. For more * information on the Open Source PowerBuilder Foundation Class * Libraries see http://pfc.codexchange.sybase.com */ // ////////////////////////////////////////////////////////////////////////////// long ll_rc if ib_append then ll_rc = 2 end if return ll_rc end event on pfcscanner_n_ds.create call datastore::create TriggerEvent( this, "constructor" ) end on on pfcscanner_n_ds.destroy call datastore::destroy TriggerEvent( this, "destructor" ) end on event dberror;string ls_message // Construct the error message. ls_message = "A database error has occurred.~r~n~r~n~r~n" + & "Database error code: " + String (sqldbcode) + "~r~n~r~n" + & "Database error message:~r~n" + sqlerrtext + "~r~n~r~n" + & "Row: " + string(row) Messagebox ("Database Error", ls_message, StopSign!, Ok!) end event
File: pfcscanner_n_ds.sru
Size: 5623
Date: Sat, 23 Mar 2013 16:23:05 +0100
Size: 5623
Date: Sat, 23 Mar 2013 16:23:05 +0100
- datastore pfcscanner_n_ds(sru)