proc_order_revision.sql

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

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO


if object_id('dbo.Proc_Order_Revision') is not null
drop procedure dbo.Proc_Order_Revision 
go

CREATE       procedure Proc_Order_Revision
@pono		varchar(30)=null,
@prno		varchar(80)=null,
@discount 	numeric(4,2)=null,
@payterms	varchar(120) = null,
@deli_loc	varchar(80)=null,
@customer_ID    CHAR(5) = NULL,
@cust_nm        varchar(15)= null,
@remark		varchar(255)=null,
@rev_date	datetime=null,
@revsion_by	varchar(12) = null,
@telephone	varchar(22) = null,
@fax_number	varchar(22) = null,
@linkman	varchar(30) = null,
@Error_Code 	int = null output 
as
begin
	select @Error_Code = -1
	
	if  not exists(select pono  from ord_mst where pono=@pono)
	 select @Error_Code = -2  --------not record found
	else
	begin
		update ord_mst
		set
		prno=@prno,
		discount=@discount,
		payterms = @payterms,
		deli_loc=@deli_loc,
		customer_id = @customer_ID,
        	cust_nm = @cust_nm,
		telephone = @telephone,
		fax_number = @fax_number,
		linkman = @linkman,
		remark=@remark,
		rev_date=getdate(),
		revsion_by = @revsion_by,
		version = version + 1.0
	where pono=@pono
	
	select @Error_Code = @@Error
	end
	
	select @Error_Code
end





GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO