Oracle自訂函數

判斷任務到期時間：

Code
create or replace function GetUrgentState(m_TaskID   varchar2,
                                          m_SendTime date,
                                          m_flag     varchar2)
  return varchar2 IS
  myDate     date;
  ExpireTime date;
  strsql     varchar2(200);
begin
  myDate := m_SendTime;

  strsql := 'select max(EXPIRETIME) from t_wf_supervise where TASKID =''' ||
            m_TaskID || '''';

  execute immediate strsql
    into ExpireTime;

  --沒有到期時間 就是正常狀態
  if ExpireTime is null then
    if m_flag = 'String' then
      return '正常';
    end if;
    if m_flag = 'Img' then
      return 'cb_execute.gif';
    end if;
  end if;

  --未發送任務，就是判斷目前時間
  if m_SendTime is null then
    myDate := sysdate;
  end if;
  
  if ExpireTime < myDate then
    if m_flag = 'String' then
      return '超期';
    end if;
    if m_flag = 'Img' then
      return 'cb_limit.gif';
    end if;
  end if;

  --小於3天的任務預警
  if ExpireTime - myDate < 3 then
    if m_flag = 'String' then
      return '預警';
    end if;
    if m_flag = 'Img' then
      return 'cb_warning.gif';
    end if;
  else
    if m_flag = 'String' then
      return '正常';
    end if;
    if m_flag = 'Img' then
      return 'cb_execute.gif';
    end if;
  end if;

end;

 

查詢其它表資料：

Code
create or replace function GetPreNode(m_PreTaskID varchar2) return varchar2 IS
  nodename varchar2(50);
  strsql   varchar2(200);
begin
  if m_PreTaskID is null then
    return '';
  end if;
  strsql := 'select max(nodename) from t_Wf_Tasklist where TaskID =''' ||
            m_PreTaskID|| '''';

  execute immediate strsql
    into nodename;
  return nodename;
end;

 

格式化標題輸出：

Code
create or replace function FormatTitle(m_title    varchar2,
                                       m_length   number,
                                       m_FillChar varchar2) return varchar2 IS
begin
  if lengthb(m_title) > m_length*2 then
    return substr(m_title, 0,m_length) || m_FillChar;
  else
    return m_title;
  end if;
   end;