PBMiner

$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