proc_get_vendor_id.sql

工厂采购系统,DELPHI+SQL SERVER,三层技术

IF object_id('dbo.proc_Get_vendor_id') is not null
drop procedure dbo.proc_Get_vendor_id
go

create procedure Proc_get_vendor_id
@flag   char(1)  = null,
@vendor_id_out char(8) = null output
as
declare 
@maxitem int ,
@temp_number char(4),
@vendor_id char(8)
begin
	
	select @maxitem =  isnull(Number,1) from PO_VND_ID_Number
	select @temp_number = convert(int,@maxitem)

 	select @vendor_id  ='V'+ REPLICATE('00',4-len(@temp_number))+@temp_number
	select @vendor_id_out = @vendor_id
	

	 if(@flag = 'T')
	begin
		update PO_VND_ID_Number
			set Number = Number + 1,
			Vendor_Id = @vendor_id_out
	end	


select @vendor_id_out
end

/*


declare
	@vendor_id char(8) 
	exec  proc_Get_vendor_id 'F',@vendor_id out

*/

/*
select * from po_vnd_id_number
update po_vnd_id_number
	set number = number -1
*/