proc_order_hdr_revision.sql

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

if object_id('dbo.Proc_Order_Hdr_Revision') is not null
drop procedure Proc_Order_Hdr_Revision
go
create procedure Proc_Order_Hdr_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(15) = null,
@linkman	varchar(30) =null,
@fax_number	varchar(15) = null
as
begin
if exists(select * from ord_mst where pono=@pono)
update ord_mst
set
	prno=@prno,
	discount=@discount,
	payterms = @payterms,
	deli_loc=@deli_loc,
	customer_id = @customer_ID,
        cust_nm = @cust_nm,
	remark=@remark,
	rev_date=getdate(),
	revsion_by = @revsion_by,
	version = version + 1,
	linkman = @linkman,
	telephone = @telephone,
	fax_number = @fax_number
where pono=@pono

if(@@error<>0)
print('update error!')
return
end