use DB_SMS
go

-----------------------------------------------------
--1. proc_getProviderInfo
--功能：查詢供貨商信息
--輸入：供貨商名稱，商品分類或開始和結束日期	
--輸出：供貨商信息(TB_PROVIDER, TB_STOCK_SHEET, TB_SUPPLY, TB_GOODS_TYPE)，
-----------------------------------------------------
exec proc_getProviderInfo 'P'
if exists (select 1 from sysobjects where name = 'proc_getProviderInfo')
	drop procedure proc_getProviderInfo
go
create procedure proc_getProviderInfo
	@proName varchar(30) = '',		--供貨商名稱
	@gtName varchar(20) = ''		--商品類型名
as
	if @proName != ''
		--根據供貨商名稱查詢
		select pro.proId, proName, proLinkName, proTelephone, gtName
		from TB_PROVIDER as pro left join TB_SUPPLY as sup on pro.proId = sup.proId, TB_GOODS_TYPE as gt
		where sup.gtId = gt.gtId and proName like '%'+ @proName + '%'
	else if @gtName != ''
		--根據商品類型名查詢
		select pro.proId, proName, proLinkName, proTelephone, gtName
		from TB_PROVIDER as pro, TB_SUPPLY as sup, TB_GOODS_TYPE as gt
		where pro.proId = sup.proId and sup.gtId = gt.gtId and gtName like '%' + @gtName + '%'
	else 
		--獲取商品信息
		select pro.proId, proName, proLinkName, proTelephone, gtName
		from TB_PROVIDER as pro, TB_SUPPLY as sup, TB_GOODS_TYPE as gt
		where pro.proId = sup.proId and sup.gtId = gt.gtId
go


-----------------------------------------------------
--2. proc_addProvider
--功能：添加供貨商
--輸入：供貨商編號，供貨商名稱，聯系人，電話，提供商品類別
--輸出：成功或失敗信息
-----------------------------------------------------
if exists (select 1 from sysobjects where name = 'proc_addProvider')
	drop procedure proc_addProvider
go
create procedure proc_addProvider
	@proId varchar(17),			--供貨商編號
	@proName varchar(30),		--供貨商名稱
	@proLinkName varchar(10),	--聯系人
	@proTelephone varchar(30),	--聯系電話
	@goodsList varchar(100),	--商品類型列表
	@state int output			--輸出狀態
as
	begin transaction 
	declare @errorSum int	--錯誤累計
	set @errorSum = 0
	--插入供貨商信息
	insert into TB_PROVIDER values(@proId, @proName, @proLinkName, @proTelephone)
	set @errorSum = @errorSum + @@error
	print @errorSum
	--循環從商品類型列表中獲取商品類型，并進行添加
	declare @gtName varchar(20)	--商品類型名
	declare @pos int	--逗號出現的位置
	declare @start int	--開始截取的位置
	set @start = 1
	set @pos = charindex(',', @goodsList, 0)
	declare @lastSupId varchar(17)
	set @lastSupId = '1'
	while (@pos <> 0)
	begin
		set @gtName = substring(@goodsList, @start, @pos - @start)
		set @start=@pos +1	
		set @pos=charindex(',', @goodsList, @pos+1)
		--根據商品類型名獲取商品類型編號
		declare @gtId varchar(17)
		select @gtId=gtId from TB_GOODS_TYPE where gtName = @gtName
		--添加商品類型
		declare @supId varchar(17)      
		while 1=1
		begin                            
			exec proc_createID 'SUP', @supId output
			if @supId <> @lastSupId
				begin
				set @lastSupId = @supId
				break
				end
		end

		insert into TB_SUPPLY values(@supId, @proId, @gtId)
		set @errorSum = @errorSum + @@error
	end
		
	if @errorSum <> 0
	begin
		--回滾事務
		rollback transaction
		set @state = 0
	end
	else 
	begin
		--提交事務
		commit transaction
		set @state = 1
	end
go

-----------------------------------------------------
--3. proc_updateProvider
--功能：修改供貨商
--輸入：供貨商編號，供貨商名稱，聯系人，電話，提供商品類別
--輸出：成功或失敗信息
-----------------------------------------------------
if exists (select 1 from sysobjects where name = 'proc_updateProvider') 
	drop procedure proc_updateProvider
go
create procedure proc_updateProvider
	@proId varchar(17),			--供貨商編號
	@proName varchar(30),		--供貨商名稱
	@proLinkName varchar(10),	--聯系人
	@proTelephone varchar(30),	--聯系電話
	@goodsList varchar(100),	--商品類型列表
	@state int output			--輸出狀態
as
	begin transaction 
	declare @errorSum int	--錯誤累計
	set @errorSum = 0
	--修改供貨商信息
	update TB_PROVIDER set proName = @proName, 
		proLinkName = @proLinkName, proTelephone = @proTelephone
		where proId = @proId
	set @errorSum = @errorSum + @@error
	print @errorSum	
	--刪除供銷商的供貨信息
	delete from TB_SUPPLY where proId = @proId
	--循環從商品類型列表中獲取商品類型，并進行添加
	declare @gtName varchar(20)	--商品類型名
	declare @pos int	--逗號出現的位置
	declare @start int	--開始截取的位置
	set @start = 1
	set @pos = charindex(',', @goodsList, 0)
	declare @lastSupId varchar(17)
	set @lastSupId = '1'
	while (@pos <> 0)
	begin
		set @gtName = substring(@goodsList, @start, @pos - @start)
		set @start=@pos +1	
		set @pos=charindex(',', @goodsList, @pos+1)
		--根據商品類型名獲取商品類型編號
		declare @gtId varchar(17)
		select @gtId=gtId from TB_GOODS_TYPE where gtName = @gtName
		--添加商品類型
		declare @supId varchar(17)      
		while 1=1
		begin                            
			exec proc_createID 'SUP', @supId output
			if @supId <> @lastSupId
				begin
				set @lastSupId = @supId
				break
				end
		end
		insert into TB_SUPPLY values(@supId, @proId, @gtId)
		set @errorSum = @errorSum + @@error
	end
		
	if @errorSum <> 0
	begin
		--回滾事務
		rollback transaction
		set @state = 0
	end
	else 
	begin
		--提交事務
		commit transaction
		set @state = 1
	end
go

select * from tb_goods_type
select * from tb_provider
select * from tb_supply