$PBExportHeader$f_task_writelog.srf global type f_task_WriteLog from function_object end type forward prototypes global subroutine f_task_writelog (long arg_scid, long arg_taskid, string arg_log) end prototypes global subroutine f_task_writelog (long arg_scid, long arg_taskid, string arg_log);UPDATE u_SaleTask SET reallocmsg = :arg_log Where scid = :arg_scid And taskid = :arg_taskid; COMMIT; end subroutine