文档章节

oracle存储过程

开源中国-总书记
 开源中国-总书记
发布于 2016/07/15 15:39
字数 249
阅读 12
收藏 0

CREATE OR REPLACE 
PROCEDURE P_REPOST_WEEK_QF (STARTDATE in varchar2)IS
                FIRSTDAYDATE  DATE;
                LASTDAYDATE  DATE; 
                MONDAY DATE; 
                SUNDAY DATE; 
                STARTHALF DATE;
                ENDHALF   DATE;
                MAXDATE DATE;
                I INTEGER;
                J INTEGER;
                YEAR INTEGER;
BEGIN
            SELECT TO_DATE(STARTDATE,'yyyyMMdd') INTO FIRSTDAYDATE FROM DUAL;
            SELECT LAST_DAY(ADD_MONTHS(FIRSTDAYDATE,11)) INTO LASTDAYDATE FROM DUAL;
            MONDAY:=FIRSTDAYDATE;
      MAXDATE:=MONDAY;
            SELECT TRUNC(MONDAY,'iw') INTO SUNDAY FROM DUAL;    
            SELECT substr(STARTDATE, 0, 4) INTO YEAR FROM DUAL;
            I:=1;
            J:=1;
            WHILE (MAXDATE <= LASTDAYDATE) LOOP
                    SELECT TRUNC(SUNDAY,'iw')+6 INTO MONDAY FROM DUAL;
                    SELECT TRUNC(MONDAY,'iw')+6 INTO MAXDATE FROM DUAL;
                    SELECT TRUNC(SUNDAY,'iw')+2 INTO ENDHALF FROM DUAL;
                    SELECT TRUNC(SUNDAY,'iw')+3 INTO STARTHALF FROM DUAL;
                    IF MAXDATE>LASTDAYDATE 
                         THEN
                             return;
                    END IF;
                    INSERT INTO REPORT_WEEK_HALF(WD_YEAR,WD_NATURAL_WEEK,WD_START_DATE,WD_END_DATE)VALUES
                    (YEAR,J,to_char(SUNDAY,'yyyyMMdd'),to_char(ENDHALF,'yyyyMMdd'));

                    J:=J+1;
                    INSERT INTO REPORT_WEEK_HALF(WD_YEAR,WD_NATURAL_WEEK,WD_START_DATE,WD_END_DATE)VALUES
                    (YEAR,J,to_char(STARTHALF,'yyyyMMdd'),to_char(MONDAY,'yyyyMMdd'));

                    INSERT INTO REPORT_WEEK_ALL(WD_YEAR,WD_NATURAL_WEEK,WD_START_DATE,WD_END_DATE)VALUES 
                    (YEAR,I,to_char(SUNDAY,'yyyyMMdd'),to_char(MONDAY,'yyyyMMdd'));    
                    
                    SELECT TRUNC(SUNDAY,'iw')+7 INTO SUNDAY FROM DUAL;
                    I:=I+1;
                    J:=J+1;
                END LOOP;
                COMMIT;
END P_REPOST_WEEK_QF;
 

© 著作权归作者所有

共有 人打赏支持
开源中国-总书记
粉丝 5
博文 4
码字总数 439
作品 0
青岛
私信 提问

暂无文章

vue 对对象的属性进行修改时,不能渲染页面 vue.$set()

我在vue里的方法里给一个对象添加某个属性时,我console.log出来的是已经更改的object ,但是页面始终没有变化 原因如下: **受现代 JavaScript 的限制 (而且 Object.observe 也已经被废弃),...

Js_Mei
今天
2
0
开始看《Java学习笔记》

虽然书买了很久,但一直没看。这其中也写过一些Java程序,但都是基于IDE的帮助和对C#的理解来写的,感觉不踏实。 林信良的书写得蛮好的,能够帮助打好基础,看得出作者是比较用心的。 第1章概...

max佩恩
昨天
12
0
Redux 三大原则

1.单一数据源 在传统的MVC架构中,我们可以根据需要创建无数个Model,而Model之间可以互相监听、触发事件甚至循环或嵌套触发事件,这些在Redux中都是不被允许的。 因为在Redux的思想里,一个...

wenxingjun
昨天
8
0
跟我学Spring Cloud(Finchley版)-12-微服务容错三板斧

至此,我们已实现服务发现、负载均衡,同时,使用Feign也实现了良好的远程调用——我们的代码是可读、可维护的。理论上,我们现在已经能构建一个不错的分布式应用了,但微服务之间是通过网络...

周立_ITMuch
昨天
5
0
XML

学习目标  能够说出XML的作用  能够编写XML文档声明  能够编写符合语法的XML  能够通过DTD约束编写XML文档  能够通过Schema约束编写XML文档  能够通过Dom4j解析XML文档 第1章 xm...

stars永恒
昨天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部