判断任务过期时间：
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;
查询其它表数据：
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;
格式化标题输出：
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;