HA$PBExportHeader$n_cst_peat.sru $PBExportComments$PEAT Application Manager class forward global type n_cst_peat from n_cst_appmanager end type end forward global type n_cst_peat from n_cst_appmanager end type global n_cst_peat n_cst_peat forward prototypes public function integer of_refreshprojects () end prototypes public function integer of_refreshprojects ();// This function will find the active sheet and refresh the projects listed there. // This function is called whenever a change has been made to the current project, // a new project added, or the current project deleted. w_s_projectlist w_active w_active = this.of_getframe().GetActiveSheet() IF IsValid(w_active) THEN Return w_s_projectlist.of_refresh() END IF Return 0 end function on n_cst_peat.create call super::create end on on n_cst_peat.destroy call super::destroy end on event pfc_open;call super::pfc_open;integer li_return string ls_inifile // Display the Splash window this.of_Splash(1) // Initialize the various functionality of this service this.of_SetTrRegistration(TRUE) this.of_SetError(TRUE) inv_error.of_SetPredefinedSource(SQLCA) // Connect to database ls_inifile = gnv_app.of_GetAppIniFile() IF SQLCA.of_Init(ls_inifile, "Database") = -1 THEN this.inv_error.of_message(gnv_app.iapp_object.DisplayName, + & "Error initializing connection information, .INI file not found.") ELSE IF SQLCA.of_Connect() = -1 THEN this.inv_error.of_message(gnv_app.iapp_object.DisplayName, + & "Error connecting to Database.", StopSign!, OK!) ELSE Open(w_f_peat) END IF END IF end event event constructor;call super::constructor;ContextInformation lcx_key int li_major, li_minor date ld_now ld_now = Today ( ) /* Get PB Version. */ GetContextService ( "ContextInformation", lcx_key) lcx_key.GetMajorVersion ( li_major ) lcx_key.GetMinorVersion ( li_minor ) // Set the default information needed for this application iapp_object.DisplayName = "PEAT - Project Estimation and Actuals Tracker" this.of_SetCopyright("Copyright (c) 2004-" + String ( Year ( ld_now ), "0000" ) + " Open Source PowerBuilder Foundation Class Libraries, All rights reserved.") this.of_SetLogo("peat.bmp") this.of_SetVersion("Version " + String ( li_major ) + "." + String ( li_minor ) + ".00") this.of_SetAppIniFile("peat.ini") end event
File: n_cst_peat.sru
Size: 2403
Date: Sat, 23 Mar 2013 16:23:01 +0100
Size: 2403
Date: Sat, 23 Mar 2013 16:23:01 +0100
- n_cst_appmanager n_cst_peat(sru)