USE db_sell
GO
CREATE procedure P_ruku
@pzs int, --用于接收商品種數(shù)
@je money, --用于接收入庫(kù)金額
@sf money, --用于接收實(shí)付金額
@gysname varchar(100), --用于接收供應(yīng)商名稱(chēng)
@date datetime, --用于接收入庫(kù)日期
@operator varchar(30), --用于接收操作員
@jsr varchar(30), --用于接收經(jīng)手人
@jsfs varchar(10), --用于接收結(jié)算方式
@rukuid varchar(30) output --用于輸出入庫(kù)編號(hào)
as
begin
Declare @temp varchar(30) --提取游標(biāo)中的數(shù)據(jù)
set @rukuid = 'RK'+ Convert(varchar(20),Year(@date))
if Month(@date)<10 --將月格式化為兩位數(shù)字
set @rukuid = @rukuid +'0'+ Convert(varchar(20),Month(@date))
else
set @rukuid = @rukuid+Convert(varchar(20),Month(@date))
if Day(@date)<10 --將日格式化為兩位數(shù)字
set @rukuid = @rukuid +'0'+ Convert(varchar(20),Day(@date))
else
set @rukuid = @rukuid+Convert(varchar(20),Day(@date))
--聲明一個(gè)局部游標(biāo)用于提取當(dāng)前日期的最大入庫(kù)編號(hào)
declare fetch_MaxPh Cursor LOCAL Scroll
for
select Max(rkid) from tab_ruku_main where rkdate>=
FLOOR(Convert(Float,@date)) and rkdate<Floor(Convert (Float,@date))+1
if CURSOR_STATUS('local','fetch_Maxph')= -1 --如果游標(biāo)未打開(kāi)，則打開(kāi)游標(biāo)
Open fetch_Maxph
Fetch first from fetch_Maxph into @temp
Close fetch_Maxph
Declare @Id Int
if @temp is NUll
begin
set @rukuid = @rukuid+'001'
end
else
begin --確定入庫(kù)編號(hào)后3位數(shù)字的顯示格式
set @id = Convert(int,SUBSTRING(Rtrim(@temp),11,10))
if @id <9
set @rukuid = @rukuid +'00'+Convert(varchar(20),@id+1)
else if @id <99
set @rukuid = @rukuid +'0'+Convert(varchar(20),@id+1)
else
set @rukuid = @rukuid + Convert(varchar(20),@id+1)
end
--將接收到的數(shù)據(jù)添加到tab_ruku_main表中
insert into tab_ruku_main values (@rukuid,@pzs,@je,@sf,
@gysname,@date,@operator,@jsr,@jsfs)
end
GO |
