$PBExportHeader$eaf_n_cst_logmanager.sru forward global type eaf_n_cst_logmanager from nonvisualobject end type end forward global type eaf_n_cst_logmanager from nonvisualobject end type global eaf_n_cst_logmanager eaf_n_cst_logmanager forward prototypes public function integer logmessage (string is_componentname, string is_objectname, string as_methodname, string as_messagetype, string as_messagetext) end prototypes public function integer logmessage (string is_componentname, string is_objectname, string as_methodname, string as_messagetype, string as_messagetext);DateTime ldt_now n_transaction ltrobj ltrobj = create n_transaction SQLCA.copyto(ltrobj) connect using ltrobj; if ltrobj.sqlcode <> 0 then destroy ltrobj return -1 end if ldt_now = DateTime(Today(), Now()) INSERT INTO eaf_log_entries ( component_name, object_name, method_name, message_type, message_text, user_name, log_dtm) VALUES ( :is_componentname, :is_objectname, :as_methodname, :as_messagetype, :as_messagetext, ' ', :ldt_now) using ltrobj; if ltrobj.sqlcode = 0 then commit using ltrobj; disconnect using ltrobj; destroy ltrobj return 1 else rollback using ltrobj; disconnect using ltrobj; destroy ltrobj return -1 end if end function on eaf_n_cst_logmanager.create call super::create TriggerEvent( this, "constructor" ) end on on eaf_n_cst_logmanager.destroy TriggerEvent( this, "destructor" ) call super::destroy end on
- Sources
- EAF.NET
- eaf_shared
- eaf_n_cst_logmanager.sru
File: eaf_n_cst_logmanager.sru
Size: 1658
Date: Tue, 22 Jan 2008 23:39:22 +0100
Size: 1658
Date: Tue, 22 Jan 2008 23:39:22 +0100
- nonvisualobject eaf_n_cst_logmanager(sru)