C/C++教程

Oracle

本文主要是介绍Oracle,对大家解决编程问题具有一定的参考价值,需要的程序猿们随着小编来一起学习吧!

目录

考试系统oracle版

PD创建Oracle模型

表设计

Oracle数据库

安装

Oracle10g EX

配置本地服务

链接错误

创建数据库

注意事项

密码安全

创建用户

PL/SQL客户端操作

常见错误

选择自己的内容

常用对象

SQL窗口

准备数据

SQL差异

概念

性别

decode()

casewhen

分页

独特技术

过气技术

虚表 dual

序列 sequence

授权视图

视图 view

触发器 trigger

存储过程 procedure


考试系统oracle版



PD创建Oracle模型

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-IoUtXP5w-1623158632797)(RackMultipart20210608-4-hbilzw_html_b7f42a474902ed8e.png)]

表设计

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-Wdr7d9Nc-1623158632808)(RackMultipart20210608-4-hbilzw_html_54de0e724f4ba270.jpg)]

Oracle数据库



安装

一定要"以管理员身份运行",Oracle是系统级别的,要安装服务,要求权限大。一般安装时把防火墙关闭,否则很容易安装失败。

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-nAWuElNR-1623158632813)(RackMultipart20210608-4-hbilzw_html_acdcd66cbb5bd675.png)]

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-oVFaZGby-1623158632817)(RackMultipart20210608-4-hbilzw_html_9d48ad544fad3a5f.png)]

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-FlP99IMP-1623158632819)(RackMultipart20210608-4-hbilzw_html_40146dbda4a77dff.png)]

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-YBaJu196-1623158632821)(RackMultipart20210608-4-hbilzw_html_b24b95f7e47650ab.png)]

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-qav4vlbQ-1623158632823)(RackMultipart20210608-4-hbilzw_html_e3a7320d77f17735.png)] [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-UvAQV9f5-1623158632824)(RackMultipart20210608-4-hbilzw_html_7d3bb6a86ade85bf.png)]
在这里插入图片描述

Oracle10g EX

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-07tJd7D9-1623158632826)(RackMultipart20210608-4-hbilzw_html_6da10fa51e6cbea5.png)]

安装OracleXEUniv简版.exe,会自动创建EX服务。如果安装安装版本,需要手动创建本地服务。

安装完成后,侦听Listener和ServiceXE自动启动

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-uJDyhFbZ-1623158632827)(RackMultipart20210608-4-hbilzw_html_1239206a96e54b6f.png)]

安装时,最好不要安装到c盘,选择d盘。安装时需要输入system的密码,这个一定要记住,oracle的密码是无法破解的。忘记了只能重新安装。切记。

注意:

1)默认oracle会开启8080网页服务,它跟tomcat默认8080端口冲突。可以关闭oracle的8080,或者换tomcat的默认端口。

2)oracle安装完成后,不能使用sql-plus测试是否安装成功,因为它权限非常大。可以直接和oracle通讯。可以使用plsql工具,如果可以连接,则写的程序才能正常访问。

3)如果安装失败,先停掉侦听服务,再停掉Service服务,然后运行安装包,进行卸载。
 

配置本地服务

访问远程Oracle服务端。

远程访问前,在服务器上安装Oracle服务器端,客户端安装Oracle客户端,使用PL/SQL通过Oracle客户端访问Oracle服务端。

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-WtMzX9Jz-1623158632828)(RackMultipart20210608-4-hbilzw_html_9affda0e70862038.png)]

修改tnsnames.ora文件配置远程访问的地址:

XEremote =
  (DESCRIPTION =
    (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.105)(PORT = 1521))
    (CONNECT_DATA =
      (SERVER = DEDICATED)
      (SERVICE_NAME = XE)
    )
  )

链接错误

长时间没有访问,oracle会自动断开连接,遇到这样的情况,重新登录即可。

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-awwoXlvt-1623158632831)(RackMultipart20210608-4-hbilzw_html_17442b5f38afdbee.png)]

创建数据库



注意事项

racle的数据库概念和mysql不同,它是创建一个账号,将所有表等都放在这个账号下。所以在oracle中的账户等同于mysql中的数据库。
不要将system给用户直接使用,权限太大,造成安全隐患,数据泄露,甚至删除别人的账号(数据库)。切不可给非法分子留下删库跑路的机会。所以通常给每个业务单独创建账号,单独分配权限。
 

密码安全

System账号不能修改,它是超级管理员,密码必须安全,否则非常危险,那实际开发中企业怎么设置的呢?

14yHl9t-hjCMT 疑似银河落九天-回家吃馒头

创建用户

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-uNgyzYE9-1623158632833)(RackMultipart20210608-4-hbilzw_html_a970a535a7b4a915.png)]

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-7kDlGUze-1623158632834)(RackMultipart20210608-4-hbilzw_html_f13a0540a8d3ed4c.png)]

使用新账号ht重新登录:

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-Pml0OazZ-1623158632836)(RackMultipart20210608-4-hbilzw_html_8e0bea4b0b573018.png)]

PL/SQL客户端操作



常见错误

如果太久未访问oracle,oracle会自动关闭链接,如上午访问,中午一直未用,下午再执行SQL就报下面错误。关闭,重新打开即可。

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-WLXiBNcZ-1623158632837)(RackMultipart20210608-4-hbilzw_html_17442b5f38afdbee.png)]

选择自己的内容

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-slr8Gd3o-1623158632839)(RackMultipart20210608-4-hbilzw_html_cbe14b603cb37fad.png)]

常用对象

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-LGrYHkG2-1623158632841)(RackMultipart20210608-4-hbilzw_html_adcd0fc5ddb21568.png)]

SQL窗口

输入SQL语句执行,可以输入多条SQL,通过选中的内容进行执行,不选中执行所有。

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-eMmAVLYx-1623158632842)(RackMultipart20210608-4-hbilzw_html_3d385be9fb24b8a3.png)]

准备数据

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-gvZ2HAPc-1623158632844)(RackMultipart20210608-4-hbilzw_html_a7e6fe912e53f377.png)]

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-JMe0P5Pg-1623158632845)(RackMultipart20210608-4-hbilzw_html_2848383a5261b52b.png)]

 [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-2uU3zxO4-1623158632846)(RackMultipart20210608-4-hbilzw_html_83808d540d7fd547.png)]

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-AS6AjtAu-1623158632849)(RackMultipart20210608-4-hbilzw_html_b83c4125d9fd4a40.png)]

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-8gRvOjD5-1623158632850)(RackMultipart20210608-4-hbilzw_html_7c55225306773b7d.png)]

SQL差异



概念

SQL是有国际标准,如著名的SQL92

下面是SQL发展的简要历史:

1986年,ANSI X3.135-1986,ISO/IEC 9075:1986,SQL-86

1989年,ANSI X3.135-1989,ISO/IEC 9075:1989,SQL-89

1992年,ANSI X3.135-1992,ISO/IEC 9075:1992,SQL-92(SQL2)

1999年,ISO/IEC 9075:1999,SQL:1999(SQL3)

2003年,ISO/IEC 9075:2003,SQL:2003

2008年,ISO/IEC 9075:2008,SQL:2008

2011年,ISO/IEC 9075:2011,SQL:2011

从SQL:1999开始,标准简称中的短横线(-)被换成了冒号(:),而且标准制定的年份也改用四位数字了。前一个修改的原因是ISO标准习惯上采用冒号,ANSI标准则一直采用短横线。

标准是用来打破的,所以注意各数据库厂商虽然遵循了规范标准,但也自己实现了个性的内容,一些函数,存储过程等。

日期

Oracle默认日期格式为:dd-mon-yy 日月年。09-6月-99日期为1999年6月9日
--日期数据格式,oracle默认是:日-月-年,也可以改
 insert into stu values('王五','1','10-8月-1990','php',2)
 --修改日期格式成:年-月-日
 alter session set nls_date_format='yyyy-mm-dd';
 --以前的格式就错了,必须新格式才行
  insert into stu values('王8','1','1999-8-10','ios',5)

性别

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-uXVfKyA3-1623158632851)(RackMultipart20210608-4-hbilzw_html_ab3c4665ea92907f.png)]

注意性别输入汉字,在不同的oracle版本会稍有差异,我们使用的oracle 10g简版中汉字为unicode码,占3个字节。所以sex char(2)是无法存储的,修改为char(3)就可以。

decode()

decode函数语法:decode(条件,值1,返回值1,值2,返回值2,…值n,返回值n,缺省值)

要求:显示性别,0代表女,1代表男

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-oKzeSwaS-1623158632853)(RackMultipart20210608-4-hbilzw_html_63fb71c03f174ce9.png)]

如果ssex的值时0就返回男,1就返回女

select sname,ssex,decode(ssex,0,'男',1,'女') sex from stu

casewhen

select sname,ssex,
  case ssex when '0' then '女' else '男' end sex
from stu

分页

rownum它是oracle系统顺序分配为从查询返回的行的编号,返回的第一行分配的是1,第二行是2,依此类推,这个伪字段可以用于限制查询返回的总行数,且rownum不能以任何表的名称作为前缀。

利用这个伪列和两次子查询实现分页查询,如果有排序必须在线排序在分页

select top 1 * from stu                        --sqlServer数据库
select * from stu limit 1                    --mysql数据库
select * from stu where rownum<2            --oracle数据库

独特技术



过气技术

下面的技术在历史长河中已经被淘汰,但老项目,小项目依然再用,大家了解下即可。这些技术很多阿里的开发手册中已经禁止使用。

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-CU4RKxOG-1623158632854)(RackMultipart20210608-4-hbilzw_html_28e60be5f216f783.png)]

虚表 dual


dual是一个虚拟表,mysql没有哦,用来构成select的语法规则,oracle保证dual里面永远只有一条记录,用它可以做很多事情。

将结果存储在dual表中:

select 1 from dual                            #虚拟出一个数字列
select 'abc' from dual                    #虚拟出一个字符串列
select sysdate from dual                    #获取系统当前日期
select sys_guid() from dual                #获取uuid

序列 sequence

Oracle自身提供的自增主键支持,和mysql的实现思路完全不同

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-gFjJGCtm-1623158632855)(RackMultipart20210608-4-hbilzw_html_c5d2bde902261fde.png)]

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-mz4QvMhJ-1623158632857)(RackMultipart20210608-4-hbilzw_html_8cdd27e41d9a58dc.png)]

--第一次访问先执行nextval
select STU_ID_SEQ.Nextval from dual
--获取当前值(必须执行过nextval)
select STU_ID_SEQ.CURRVAL from dual
--给id赋值,序列会自动+1
insert into stu(sid) values(STU_ID_SEQ.nextval)

授权视图

使用system登录,修改ht的权限为dba,否则无法创建视图。

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-CIPZFlis-1623158632858)(RackMultipart20210608-4-hbilzw_html_9553c6cb5ab68c2d.png)]

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-2RrEre8q-1623158632859)(RackMultipart20210608-4-hbilzw_html_678ef215c4ba83fc.png)]

或者

使用system账户执行,分配视图权限。

grant create any view to ht;

视图 view

视图本质就是一个查询,和我们自己查询的区别是,它执行完会有缓存,下次查询就直接使用。但其也因为事先缓存,无法做优化,大型项目中禁止使用。

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-hJaxYCn2-1623158632860)(RackMultipart20210608-4-hbilzw_html_633a75a68e8ac734.png)]

注意:视图只需创建一次,后面就可以类似表来使用,只是用来查询不能更新和删除

--创建视图 ,本质上就是缓存一个查询结果
create or replace view STU_V as
  select * from  stu where ssex=0
--查询表结构
select * from  stu where ssex=0 
--直接查询视图,高效,但是无法优化
select * from  STU_V
可以看到两者查询结果没有分别

触发器 trigger

记录生效点:BEFORE/AFTER
记录的操作:INSERT/UPDATE/DELETE
[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-eax0JRTS-1623158632862)(RackMultipart20210608-4-hbilzw_html_eb4a60727f8a7fdc.png)] [外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-NAyXaIe2-1623158632863)(RackMultipart20210608-4-hbilzw_html_dfd691b6038c27b8.png)]
在这里插入图片描述

需求:当修改sex值时触发逻辑。

--设置触发器 ---禁用,因为无法控制程序员的权限,可能有安全隐患
create or replace trigger UPDATE_STU_TRI
  before update on stu  
  for each row
declare
  -- local variables here
begin
  --如果 SEX>0,统一设置成1
  IF :NEW.SSEX>5 THEN  
       :NEW.SSEX := 1;
  END IF;

end UPDATE_STU_TRI;

--使用触发器:
SELECT * FROM STU
update stu set ssex=10;--触发器执行,都是1了
update stu set ssex=3;--不满足触发器,就是3

存储过程 procedure

概念:

存储过程(Stored Procedure)其实就是数据库端的编程,在数据库为王的时代,虽然已经过去,当时数据库大集中,部署在超级好的服务器,甚至是小型机,所以执行的性能超群,运行在上面的程序自然也就性能极佳。但当分布式架构兴起后,数据库在整个架构中的作用一再衰落,逐步边缘化。再者存储过程中的SQL是依赖数据库厂商,每个厂商都有其个性的SQL,导致程序迁移数据库时,如从oracle迁移到mysql时基本重写,工作量巨大,造成修改的风险。于是主流方式已经将其从数据库端前置到java程序端实现,这样迁移数据库变得轻松
 

案例:

大家浏览下就好,难不?这样的东西非常难维护和调试,这就是被禁止的原因。

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

ALTER PROCEDURE  [dbo].[SP_TMS_AUTO_BILLING] (
@V_TMS_ORDER_ID              VARCHAR (32),              --订单主ID
@V_RETUREN_VALUE             VARCHAR (20)  output       --状态返回
				    )
AS
/***********************************************************************
**  Stored Procedure Documentation
**  Stored Procedure Name: SP_TMS_AUTO_BILLING
**  Creation Date: 2010-3-1
**  Author: 
**  Program ID:  
**  Input Parameters:

**  Output Parameters:

**  Return Status Values:
**  Usage:
**  Local Variables:
**  Called By:
**  Calls:
**  Data Modifications:
**  Updates:
************************************************************************/
BEGIN

	DECLARE @V_OPERATION_ITEM VARCHAR (30)     ----订单上的费用协议操作项目
	DECLARE @V_SERVICE_TYPE VARCHAR (50)        ----订单上的服务类型
	DECLARE @V_CUSTOMER_CONTRACT VARCHAR(30)   ----订单上的费用协议号
	DECLARE @V_SERVICE_LEVEL VARCHAR(30)       ----订单上的服务时限
	DECLARE @V_CHARGE_UNIT VARCHAR(20)         ----订单上的计件单位
	DECLARE @V_CARGO_TYPE VARCHAR(50)          ----订单上的货物类型
	DECLARE @V_ESTIMATED_CARGO_PACKAGES NUMERIC   ---订单上的货物件数
	DECLARE @V_ESTIMATED_CARGO_WEIGHT NUMERIC     ---订单上的货物重量
	DECLARE @V_ESTIMATED_CARGO_CUBE NUMERIC       ---订单上的货物体积
	DECLARE @V_BILLING_OFFICE VARCHAR(50)         ---订单上的结算公司
	DECLARE @V_HOME_CURRENCY VARCHAR(3)           ---结算公司本位币


	DECLARE @V_CHARGE_CODE VARCHAR(20)       ---客户计费协议费用项目中的费用代码
	DECLARE @V_CHARGE_ITEM_NAME VARCHAR(50)       ---客户计费协议费用项目中的费用名称
	DECLARE @V_RATES_NUMBER     VARCHAR(20)       ---客户计费协议费用项目中的费率号
	DECLARE @V_FRT_NAME_EN      VARCHAR(50)       ---费用英文名称

	DECLARE @V_CUST_OPERATION_ITEM_ID VARCHAR(50)    ----操作项的ID
	DECLARE @V_CUST_CONTRACT_ID VARCHAR(50)          ---计费协议ID
	DECLARE @V_CRM_CUST_ID VARCHAR(50)               ---客户ID

	DECLARE @V_CHARGE_QUANTITY NUMERIC               ----结算总量

	DECLARE @V_UNIT_PRICE NUMERIC                    ----费用单价
	DECLARE @V_CHARGE_CURRENCY VARCHAR(20)           ----费用币别
	DECLARE @V_CUST_CODE          VARCHAR(50)           ----客户代码
	DECLARE @V_EXCHANGE_RATE      NUMERIC            ----汇率

	DECLARE @V_CUST_INNER_OUTER   VARCHAR(50)        ----对内或者对外

	DECLARE @V_MIN_RATES NUMERIC                     ----计费协议里面的最低起运价
	DECLARE @V_AMOUNT NUMERIC                        ----费用表里面的amount

	---取去订单下需要的数据
	SELECT @V_SERVICE_TYPE = SERVICE_TYPE, @V_CUSTOMER_CONTRACT = CUSTOMER_CONTRACT, 
		   @V_SERVICE_LEVEL = SERVICE_LEVEL, @V_CHARGE_UNIT = CHARGE_UNIT,
		   @V_CARGO_TYPE = CARGO_TYPE, @V_ESTIMATED_CARGO_PACKAGES =ESTIMATED_CARGO_PACKAGES,
		   @V_ESTIMATED_CARGO_WEIGHT = ESTIMATED_CARGO_WEIGHT, @V_ESTIMATED_CARGO_CUBE = ESTIMATED_CARGO_CUBE,
		   @V_BILLING_OFFICE = BILLING_OFFICE, @V_HOME_CURRENCY = HOME_CURRENCY
	from TMS_ORDER
		LEFT JOIN SYS_OFFICE ON BILLING_OFFICE = OFFICE_CODE
	where TMS_ORDER_ID = @V_TMS_ORDER_ID

	---判断费用单位对应的结算总量
	IF(@V_CHARGE_UNIT = '件数')
		set @V_CHARGE_QUANTITY = @V_ESTIMATED_CARGO_PACKAGES
	ELSE IF(@V_CHARGE_UNIT = '体积')
		SET @V_CHARGE_QUANTITY = @V_ESTIMATED_CARGO_CUBE
	ELSE
		SET @V_CHARGE_QUANTITY = @V_ESTIMATED_CARGO_WEIGHT 


	----将符合的费用查找出来
	DECLARE
		V_CHARGE_CURSOR CURSOR FOR
		SELECT CRM.CHARGE_CODE, CRM.CHARGE_ITEM_NAME, SFD.FRT_NAME_EN, 
			   CRM.RATES_NUMBER, 
			   CUOI.CUST_OPERATION_ITEM_ID, CUOI.CUST_CONTRACT_ID,
			   CC.CUST_CODE, CCC.CRM_CUST_ID, CC.CUST_INNER_OUTER
		FROM CRM_CUST_CHARGE_ITEM CRM 
		LEFT JOIN CRM_CUST_OPERATION_ITEM CUOI ON CRM.CUST_OPERATION_ITEM_ID = CUOI.CUST_OPERATION_ITEM_ID
		LEFT JOIN CRM_CUST_CONTRACT CCC ON CUOI.CUST_CONTRACT_ID = CCC.CUST_CONTRACT_ID
		LEFT JOIN CRM_CUST CC ON CC.CRM_CUST_ID = CCC.CRM_CUST_ID
		LEFT JOIN SB_FRT_DEF SFD ON SFD.FRT_CODE = CRM.CHARGE_CODE
		LEFT JOIN TMS_OPERATION_ITEM TOI ON CUOI.OPERATION_ITEM=TOI.OPERATION_ITEM
		WHERE CCC.CONTRACT_NUMBER = @V_CUSTOMER_CONTRACT
		AND CUOI.SERVICE_TYPE = @V_SERVICE_TYPE
		AND CUOI.SERVICE_PERIOD = @V_SERVICE_LEVEL
		AND CUOI.CARGO_TYPE = @V_CARGO_TYPE
		AND TOI.TMS_ORDER_ID = @V_TMS_ORDER_ID
		/**
		AND EXISTS (SELECT 1 FROM TMS_OPERATION_ITEM TOI 
						WHERE CUOI.OPERATION_ITEM = TOI.OPERATION_ITEM 
						AND TMS_ORDER_ID = @V_TMS_ORDER_ID
					)
		**/

	OPEN V_CHARGE_CURSOR

	FETCH NEXT FROM V_CHARGE_CURSOR 
			INTO @V_CHARGE_CODE, @V_CHARGE_ITEM_NAME, @V_FRT_NAME_EN, @V_RATES_NUMBER, 
				 @V_CUST_OPERATION_ITEM_ID, @V_CUST_CONTRACT_ID, @V_CUST_CODE, @V_CRM_CUST_ID,
				 @V_CUST_INNER_OUTER
	IF(@@FETCH_STATUS!=0)
		set @V_RETUREN_VALUE = '没有匹配操作项'
	WHILE(@@FETCH_STATUS = 0)
		BEGIN

			set @V_RETUREN_VALUE = '自动计费完成'
			---取出费率表中符合条件的记录
			SELECT @V_UNIT_PRICE = UNIT_PRICE, @V_CHARGE_CURRENCY = CHARGE_CURRENCY, @V_MIN_RATES = MIN_RATES
			FROM CRM_CUST_CHARGE_RATE
			WHERE CHARGE_UNIT = @V_CHARGE_UNIT
			AND CUST_CONTRACT_ID = @V_CUST_CONTRACT_ID
			AND RATES_NUMBER = @V_RATES_NUMBER
			AND CHARGE_UNIT_FROM < @V_CHARGE_QUANTITY
			AND CHARGE_UNIT_TO >= @V_CHARGE_QUANTITY

			---看是否有对应的协议汇率维护
			IF(@V_UNIT_PRICE IS NULL)
				PRINT 'NO DATA'
			ELSE
				BEGIN
				----查询汇率
				SELECT @V_EXCHANGE_RATE = EXCHANGE_RATE
					from CRM_CUST_EXCHANGERATE
				WHERE CRM_CUST_ID = @V_CRM_CUST_ID
				AND LOCAL_CURRENCY_CODE = @V_HOME_CURRENCY
				AND FOREIGN_CURRENCY_CODE = @V_CHARGE_CURRENCY

				---如果不存在取系统中的汇率
				IF(@V_EXCHANGE_RATE IS NULL)
					BEGIN
						IF(@V_CUST_INNER_OUTER = 'INTERIOR')   ----判断是对内的还是对外的汇率
							SELECT @V_EXCHANGE_RATE = RATE_IN
							FROM SB_RATE
							WHERE STANDARD_CUR_CODE = @V_HOME_CURRENCY
							AND ORIGINAL_CUR_CODE = @V_CHARGE_CURRENCY
						ELSE
							SELECT @V_EXCHANGE_RATE = RATE
							FROM SB_RATE
							WHERE STANDARD_CUR_CODE = @V_HOME_CURRENCY
							AND ORIGINAL_CUR_CODE = @V_CHARGE_CURRENCY
					END

				IF(@V_EXCHANGE_RATE IS NULL)
					BEGIN
						PRINT @V_HOME_CURRENCY
						print @V_CHARGE_CURRENCY
						PRINT 'SYS NOT EXCHANGE RATE'
						RETURN 1
					END

				print @V_EXCHANGE_RATE

				----判断费用amount是否比最低起运价低,如果低,就取最低起运价,否则却当前值
				SET @V_AMOUNT = @V_UNIT_PRICE*@V_CHARGE_QUANTITY
				IF(@V_AMOUNT IS NOT NULL AND @V_MIN_RATES IS NOT NULL)
					BEGIN
						IF(@V_AMOUNT<@V_MIN_RATES)
							SET @V_AMOUNT = @V_MIN_RATES
					END						

				----插入费用表
				INSERT INTO TMS_FREIGHT(TMS_FREIGHT_ID,
										TMS_ORDER_ID,
										FRT_CODE,
										FRT_NAME,
										FRT_NAME_CN,

										RP_IND,
										UNIT_PRICE,
										CHARGE_QUANTITY,
										CHARGE_UNIT,
										BILLING_STATION,

										CUST_CODE,
										CURRENCY,
										EXCHANGE_RATE,
										AMOUNT,
										LOCAL_CURRENCY,

										LOCAL_CURRENCY_AMOUNT,
										IS_SHARE,
										NEED_SHARE,
										IS_AUTO,
										IS_SETTLE,

										IS_REVICED,
										RECORD_VERSION

										)
				SELECT	NEWID(),
						@V_TMS_ORDER_ID,
						@V_CHARGE_CODE,
						@V_FRT_NAME_EN,
						@V_CHARGE_ITEM_NAME,

						'0',
						@V_UNIT_PRICE,
						@V_CHARGE_QUANTITY,
						@V_CHARGE_UNIT,
						@V_BILLING_OFFICE,

						@V_CUST_CODE,	
						@V_CHARGE_CURRENCY,
						@V_EXCHANGE_RATE,
						@V_AMOUNT,
						@V_HOME_CURRENCY,

						@V_AMOUNT*@V_EXCHANGE_RATE,
						0,
						0,
						1,
						0,

						0,		
						1
			END
			-----插入表结束		


			FETCH NEXT FROM V_CHARGE_CURSOR 
			INTO @V_CHARGE_CODE, @V_CHARGE_ITEM_NAME, @V_FRT_NAME_EN, @V_RATES_NUMBER, 
				 @V_CUST_OPERATION_ITEM_ID, @V_CUST_CONTRACT_ID, @V_CUST_CODE, @V_CRM_CUST_ID,
				 @V_CUST_INNER_OUTER
		END
		CLOSE V_CHARGE_CURSOR
		DEALLOCATE V_CHARGE_CURSOR

END

这篇关于Oracle的文章就介绍到这儿,希望我们推荐的文章对大家有所帮助,也希望大家多多支持为之网!