业务说明:

  主要用于计算采购加权平均价。入参为年份和月份,首先判断输入的年月是否已经结账,如果已经结账就将所有物料和供应商的采购加权平均价返回。

要点说明:

  1.如何在存储过程中定义临时表

  答:oracle正常是不允许直接在存储过程中直接创建临时表的,所以只能使用动态SQL的方式。创建之前,请先确认执行存储过程的用户拥有create any table 的权限。否则会报错。

  2.如何在存储过程定义动态SQL,并且包含转义符

  答:有2种方式:

    1) 可以在SQL中定义参数,然后执行的时候在传进去。例如:

sql := 'select * from tableA where colA = :1 and colB = 1';
execute immediate sql using 'colA_value'

    2) 使用转义符,2个单引号,例如:

execute immediate 'select * from tableA where colA = ''a'' and colB = 1';

  3. 如何将结果集返回出去。

  答:在存储过程定义中声明一个出参out_return out sys_refcursor,然后在最后open out_return for 'select * from base_data';

全部代码:

create or replace PROCEDURE KD_Po_Weight_Avg_Price(
fyear number,
fmonth number,
out_return out sys_refcursor
)
AS
--定义局部变量
month_diff NUMBER(6,2);
input_date date;
current_period date;
input_year_month number(6);
temp_sql varchar2(1000);
insert_sql varchar2(2000);
result_sql varchar2(200);
table_count number(3); --开始业务处理
BEGIN
--入参日期
input_date := to_date(fyear||'-'||fmonth,'yyyy-mm');
--入参日期(数字)
input_year_month := fyear * 100 + fmonth; --查询当前账期和当前时间相差的月份
select TO_DATE(sy.FVALUE || '-' || sp.FVALUE, 'YYYY-MM') into current_period
from T_BD_ACCOUNTBOOK b
inner join T_BAS_SYSTEMPROFILE sy on b.fbookid = sy.FACCOUNTBOOKID and sy.FKEY = 'CurrentYear' and sy.FCATEGORY = 'GL'
inner join T_BAS_SYSTEMPROFILE sp on b.fbookid = sp.FACCOUNTBOOKID and sp.FKEY = 'CurrentPeriod' and sp.FCATEGORY = 'GL'
where b.fnumber = ''; if months_between(input_date,current_period) >= 1 then
--如果差值小于1证明,当前月份已经结账了.再查询当前表里是否已经有数据了,
DBMS_OUTPUT.PUT_LINE('继续处理,要求的日期已结账,当前账期'||current_period);
else
DBMS_OUTPUT.PUT_LINE('当前账期还未结账');
--如果未结账直接抛异常,程序终止
RAISE_APPLICATION_ERROR(-20001, '当前账期还未结账.请结账后再试');
end if; select count(1) into table_count from user_tables t where upper(t.TABLE_NAME) = upper('base_data');
if table_count >= 1 then
execute immediate 'drop table base_data';
end if; temp_sql := 'create global temporary table base_data(
year_month number(6),
FYear number(4),
FMonth number(4),
KdYear number(4),
FQuarter number(1),
item_number varchar2(50),
supplier_number varchar2(50),
FAmount number(28,10),
FQty number(28,10)
) ON COMMIT PRESERVE ROWS';
execute immediate temp_sql; insert_sql := 'insert into base_data
select t.* from (
select extract(year from i.fdate)*100+extract(month from i.fdate) as year_month,
extract(year from i.fdate) as year, extract(month from i.fdate) as month,
decode(sign(extract(month from i.fdate) - 3), -1, extract(year from i.fdate) - 1, extract(year from i.fdate)) as kdyear,
case when (extract(month from i.fdate) in (1,2,3)) then 4
when (extract(month from i.fdate) in (4,5,6)) then 1
when (extract(month from i.fdate) in (7,8,9)) then 2
when (extract(month from i.fdate) in (10,11,12)) then 3
end as kdquarter,
m.fnumber as itemNumber, s.fnumber as supplierNumber,
nvl(if.FALLAMOUNT,0) as famount,nvl(ie.FREALQTY,0) as fqty
from T_STK_INSTOCK i
inner join T_BAS_BILLTYPE b on i.fbilltypeid = b.fbilltypeid and b.fnumber = ''RKD01_SYS''
inner join T_STK_INSTOCKEntry ie on i.fid = ie.fid
left join T_STK_INSTOCKENTRY_F if on IE.FENTRYID = if.FENTRYID
left join T_BD_SUPPLIER s on i.fsupplierid = s.fsupplierid
inner join T_BD_SUPPLIER_L sl on s.fsupplierid = sl.fsupplierid
left join T_BD_MATERIAL m on ie.FMATERIALID = m.FMATERIALID
inner join T_BD_MATERIAL_L ml on m.FMATERIALID = ml.FMATERIALID
where I.FCANCELSTATUS = ''A''
) t where t.year_month <= :1 ';
execute immediate insert_sql using input_year_month; open out_return for 'select * from base_data';
/*
exception
when too_many_rows then
DBMS_OUTPUT.PUT_LINE('返回值多于1行');
when others then
DBMS_OUTPUT.PUT_LINE('未知异常!');
*/
--结束业务处理
END KD_Po_Weight_Avg_Price;

Oracle 存储过程笔记.的更多相关文章

  1. ORACLE存储过程笔记3

    ORACLE存储过程笔记3 流程控制 1.条件   if expression thenpl/sql or sqlend if;   if expression thenpl/sql or sqlel ...

  2. ORACLE存储过程笔记2

    ORACLE存储过程笔记2 运算符和表达式     关系运算 =等于<>,!=不等于<小于>大于<=小于等于>=大于等于       一般运算   +加-减*乘/除 ...

  3. ORACLE存储过程笔记1

    ORACLE存储过程笔记1 一.基本语法(以及与informix的比较)   create [or replace] procedure procedure_name (varible {IN|OUT ...

  4. 转:ORACLE存储过程笔记1----基本语法(以及与informix的比较)

    一.基本语法(以及与informix的比较)   create [or replace] procedure procedure_name (varible {IN|OUT|IN OUT} type) ...

  5. 转: ORACLE存储过程笔记3----流程控制

    流程控制 1.条件   if expression thenpl/sql or sqlend if;   if expression thenpl/sql or sqlelsif expression ...

  6. 转: ORACLE存储过程笔记2----运算符和表达式

    运算符和表达式     关系运算 =等于<>,!=不等于<小于>大于<=小于等于>=大于等于       一般运算   +加-减*乘/除:=赋值号=>关系号. ...

  7. Oracle 存储过程学习笔记

    1.存储过程简单实例 CREATE OR REPLACE PROCEDURE 存储过程名称 (参数in,参数out) AS -- 变量声明,每个声明用分号结束.可以在声明的同时初始化 name ); ...

  8. Oracle学习笔记三 SQL命令

    SQL简介 SQL 支持下列类别的命令: 1.数据定义语言(DDL) 2.数据操纵语言(DML) 3.事务控制语言(TCL) 4.数据控制语言(DCL)  

  9. Oracle存储过程学习备忘

    之前的项目使用存储过程很少,但在实际的项目中,存储过程的使用是必不可少的. 存储过程是一组为了完成特定功能的SQL 语句 集,经编译后存储在数据库中:存储过程创建后,一次编译在程序中可以多次调用,对安 ...

随机推荐

  1. jquery datatable测试部分代码(仅自用)

    创建一个四列的datatable表,第四列为表格里的按钮设置,respond为JSON对象数组. $('#example').DataTable({        //每页显示十条数据        ...

  2. js obj对象转formdata格式代码

    import isArray from "lodash/isArray" export function objToFormData(config) { //对象转formdata ...

  3. c语言函数参数类似继承的传递

    函数的参数如果是一个父结构的指针, 这个结构包含在另一个子结构中, typedef struct test_node_one test_node_one_t; typedef struct test_ ...

  4. Web漏洞扫描工具(批量脱壳、反序列化、CMS)

    一.什么是Web漏洞扫描工具 即是指“扫描Web应用以查找安全漏洞(如跨站脚本,SQL注入,命令执行,目录遍历和不安全服务器配置)的自动化工具”,其中许多可能是由不安全或不正确的编码和设计.另一方面, ...

  5. QTP - 描述性编程

    描述性编程: 1.QTP的描述性编程能够摆脱测试对象库的限制,编写出更为复杂.适应能力更强的测试脚本. 2.即不需要在仓库晨定义,也能访问和操作实际对象. 3.用描述性编程编写的测试脚本在运行时,QT ...

  6. Git的操作理解

    1.本地和远程的关系相当于两个分支,是相互独立的. 2.本地分支属于本地仓库,一个仓库可以包含多个分支. 3.commit是为了告诉Git这次提交我改了哪些东西:       pull是将远程comm ...

  7. centos7 网卡识别为eth0 eth1

    使网卡识别为 eth0 方法一.安装系统是,net.ifnames=0 biosdevname=0 方法二.(没有测试): 修改网卡配置文件中的 DEVICE= 参数的关于 eth0 [root@an ...

  8. Centos7的防火墙关闭

    第一步.centos7安装service 第二步. 或者可以不用service,有另一个办法.

  9. MTK6261之Catcher工具的Database Path

    在Catcher使用使用的时候我们常用要选择Database Path 设置数据库的路径,编译自动生成的文件: 设置路径选项: (一般是在对应工程文件的路径 \tst\database_classb) ...

  10. if __name__ == 'main': 的作用和原理

    if __name__ == 'main': 功能 一个python的文件有两种使用的方法,第一是直接作为脚本执行,第二是import到其他的python脚本中被调用(模块重用)执行. if __na ...