for c in (select column_value from table(f_split(V_FileID, ','))) loop
--若没有填写资格开始结束时间,则填入
select count(*)
into numDataCount
from ly_zg_jzfbt z
where file_id = c.column_value
and z.pt_valid_stime is null;
if numDataCount > 0 then
update ly_zg_jzfbt z
set z.pt_valid_stime = trunc(sysdate),
z.pt_valid_etime = add_months(trunc(sysdate), 12) - 1,
z.fanaly_valid_etime = add_months(trunc(sysdate), 12) - 1
where z.file_id = c.column_value;
commit;
end if; select l.CONTROL_ID
into numControl
from ly_zg_jzfbt l
where file_id = c.column_value;
varERRMSG := PK_JJZLFBTINFO.F_CheckStandard(c.column_value,
to_char(numControl));
if varERRMSG is not null then
raise_application_error('-20001', varERRMSG);
end if;
PK_FAMILYHOUSE.P_GetFamilyHouseInfoData(
numControl,
c.column_value,
p_temp);
if varERRMSG is not null then
raise_application_error('-20001', varERRMSG);
end if;
PK_FAMILYINFO.P_GetFamilyInfo(
c.column_value,
p_temp);
if varERRMSG is not null then
raise_application_error('-20001', varERRMSG);
end if; select l.is_over_certificate
into doCeritify
from ly_zg_jzfbt l
where file_id = c.column_value; if doCeritify is null or doCeritify = 1 then
update ly_zg_jzfbt l
set l.do_certificate_time = sysdate, l.is_over_certificate = 0
where file_id = c.column_value;
commit;
end if;
--将out出的内容与file_id拼接在一起
varIncomeAvg_All := varIncomeAvg_All || c.column_value || ':' ||
numIncomeAvg || ',';
varIdentifiedArea_All := varIdentifiedArea_All || c.column_value || ':' ||
numIdentifiedArea || ',';
varPerIdentifiedArea_All := varPerIdentifiedArea_All ||
c.column_value || ':' ||
numPerIdentifiedArea || ',';
end loop;

最新文章

  1. [译]IIS 8.0应用初始化
  2. MVC实用架构设计(三)——EF-Code First(5):二级缓存
  3. 机器学习实战笔记(Python实现)-01-K近邻算法(KNN)
  4. JavaScript—赋值表达式
  5. getElementByName()和getElementById的区别
  6. 基于Node.js+socket.IO创建的Web聊天室
  7. SpringMVC核心——返回值问题
  8. 18.C#扩展方法(十章10.1-10.2)
  9. 51nod1294 修改数组
  10. Eclipse 将projectBuild Path中引用的jar包自己主动复制到WEB-INF下的lib目录下
  11. 【G】开源的分布式部署解决方案 - 预告篇
  12. anaconda3安装cv2模块(python3.6)
  13. loss函数学习笔记
  14. Codeforces 982E Billiard 扩展欧几里德
  15. LOJ.6074.[2017山东一轮集训Day6]子序列(DP 矩阵乘法)
  16. import tensorflow 报错: tf.estimator package not installed.
  17. 浏览器神器--vimium
  18. mysql 汇总
  19. mac sz rz file tras
  20. JAVA作业之动手动脑

热门文章

  1. 牛顿迭代,多项式求逆,除法,开方,exp,ln,求幂
  2. Spring 框架(一)
  3. HTML DOM insertBefore() 方法 问题
  4. Python基础-进程和线程
  5. odps编写UDF的实现
  6. 116.001 - 爱折腾之用 Kindle 读学术论文是什么体验?
  7. 【Udacity】误差原因——方差variance与偏差bias
  8. C++ virtual inheritance ZZ
  9. 柔性数组成员 (flexible array member)-C99-ZZ
  10. QT的lineidet的光标问题