create or replace function dlmis.fcBSGetRecDetailListEx(iEventTypeID integer, --案卷类型
iRegionType integer, --区域类型 1-市区级别 2-街道级别
iRegionID integer, --区域标识
iRoadID integer, --道路标识
iQueryType integer, --执法类型 1-执法人员 2-执法小组
iQueryID integer, --执法标识
sBeginDate varchar2, --开始日期
sEndDate varchar2, --结束日期
iCurPage integer, --当前页
iPerPageCount integer, --每页记录数
iTotalCount out integer, --一共多少条记录
curRecInfoList out dlsys.pkdual.AnyCursor, --查询结果集
sErrorDesc out varchar2
) return integer is
/**
功能: 根据案件类型等条件获取案件列表 (1- 2-)
版本: 监督指挥系统(大屏幕V2)
参数: iRegionType : 1-市区级别 2-街道级别
返回值为0表示成功,-1为失败,>0为提示
作者:liul,2015-03-29
**/
DEBUG_BEGIN_TIME number;
DEBUG_END_TIME number;
sSql varchar2(20000);
sWhereSql varchar2(2000);
--sCommonSql varchar2(4000);
sRsSql varchar2(8000);
iFirst integer;
iLast integer;
iResult integer;
begin
DEBUG_BEGIN_TIME := dbms_utility.get_time;
iResult := 0;
if iRegionType is null then
iResult := 1;
sErrorDesc := '案卷类型不可为空';
return iResult;
end if;
if iRegionType is null then
iResult := 1;
sErrorDesc := '区域类型不可为空';
return iResult;
end if;
if iQueryType is null then
iResult := 1;
sErrorDesc := '执法类型不可为空';
return iResult;
end if;
sSql := 'select a.MISSIONID, a.MISSIONCODE, a.MISSIONTYPEID, a.CREATETIME, a.STARTDATE, a.ENDDATE, a.TITLE, a.CONTENT,
a.OPERATORID, a.VALIDFLAG, a.VALIDTIME, a.DELETEFLAG, a.DELETETIME, a.MODIFYTIME, a.MODIFYHUMANID, a.PUBLISHFLAG,
b.MissionTypeName, c.LawCheckTime, c.PartName, c.PartHead, c.PartPhone, c.PartCode, c.RoadName, c.CoordinateX,
c.CoordinateY, c.Address, c.RecDesc, c.HumanIDOne, c.HumanIDTwo,d.PatrolName from dlmis.toLCMission a, dlmis.toDicLCMissionType b, dlmis.toLCRec c,dlsys.tcPatrol d
where a.missiontypeid = b.missiontypeid and a.missionid = c.missionid and c.HumanIDOne=d.PatrolID';
--处理区域条件
if iRegionType =1 then
sWhereSql := ' and c.DistrictID=' || iRegionID ;
elsif iRegionType =2 then
sWhereSql := ' and c.StreetID=' || iRegionID ;
end if;
--处理道路条件
if iRoadID is not null then
--sWhereSql := sWhereSql || (' and c.RoadID='|| iRoadID) ;
sWhereSql := sWhereSql;
end if;
--处理执法类型条件
if iQueryType =1 then --执法人
sWhereSql := sWhereSql || ' and c.HumanIDOne='|| iQueryID;
elsif iQueryType =2 then --执法小组
sWhereSql := sWhereSql || ' and d.PatrolTeamId='|| iQueryID;
end if;
--处理时间
if sBeginDate is not null then
sWhereSql := sWhereSql || ' and c.LawCheckTime >= to_date(''' || sBeginDate || ''',''yyyy-mm-dd'')';
end if;
if sEndDate is not null then
sWhereSql := sWhereSql || ' and c.LawCheckTime < to_date(''' || sEndDate || ''',''yyyy-mm-dd'')+1 ';
end if;
sSql := sSql||sWhereSql;
--返回
--error
--plog.error(sSql);
--分页
sRsSql := 'select count(1) from (' || sSql || ') ';
dbms_output.put_line('sSql:' || sSql);
execute immediate sRsSql
into iTotalCount;
iFirst := 1;
iLast := iTotalCount;
if iCurPage is not null and iPerPageCount is not null then
iFirst := iPerPageCount * (iCurPage - 1) + 1;
iLast := iPerPageCount * iCurPage;
end if;
sRsSql := ' select * from (select rownum as rn, MISSIONID,MISSIONCODE,MISSIONTYPEID,CREATETIME,STARTDATE,ENDDATE,TITLE,CONTENT,OPERATORID,VALIDFLAG,VALIDTIME,DELETEFLAG,DELETETIME,MODIFYTIME,MODIFYHUMANID,PUBLISHFLAG,MissionTypeName,LawCheckTime,PartName,PartHead,PartPhone,PartCode,RoadName,CoordinateX,CoordinateY,Address,RecDesc,HumanIDOne,PatrolName,HumanIDTwo from (' || sSql ||
' )) where rn >= ' || iFirst || ' and rn <= ' || iLast;
--error
--plog.error(sRsSql);
--返回结果集
if iTotalCount > 0 then
open curRecInfoList for sRsSql;
else
open curRecInfoList for
select * from dual where 1 = 2;
end if;
commit;
DEBUG_END_TIME := dbms_utility.get_time;
if DEBUG_END_TIME - DEBUG_BEGIN_TIME > 100 then
plog.info('根据案件类型等条件获取案件列表{耗时=' || (DEBUG_END_TIME - DEBUG_BEGIN_TIME) ||
'}{iEventTypeID=' || iEventTypeID || '}{iRegionType=' ||
iRegionType || '}{iRegionID=' || iRegionID || '}{iRoadID=' ||
iRoadID || '}{iQueryType=' || iQueryType || '}{iQueryID=' ||
iQueryID || '}{sBeginDate=' || sBeginDate ||
'}{sEndDate=' || sEndDate || '}{iCurPage=' || iCurPage ||
'}{iPerPageCount=' || iPerPageCount || '}');
end if;
return iResult;
exception
when others then
null;
rollback;
plog.error('根据案件类型等条件获取案件列表{耗时=' || (DEBUG_END_TIME - DEBUG_BEGIN_TIME) ||
'}{iEventTypeID=' || iEventTypeID || '}{iRegionType=' ||
iRegionType || '}{iRegionID=' || iRegionID || '}{iRoadID=' ||
iRoadID || '}{iQueryType=' || iQueryType || '}{iQueryID=' ||
iQueryID || '}{sBeginDate=' || sBeginDate ||
'}{sEndDate=' || sEndDate || '}{iCurPage=' || iCurPage ||
'}{iPerPageCount=' || iPerPageCount || '}');
sErrorDesc := '根据案件类型等条件获取案件列表失败。' || SQLERRM(SQLCODE);
iResult := -1;
return iResult;
end fcBSGetRecDetailListEx;