proc_order_header_upd.sql

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

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

Create procedure Proc_Order_Header_Upd
@Order_number_out varchar(30)=null,
@Order_type CHAR(4) = NULL,
@id	char(8)=null,
@vendor_nm varchar(255) = null,
@customer_id CHAR(5) = NULL,
@cust_nm   varchar(80) = null,
@prno	varchar(30)=null,
@discount numeric(4,2)=null,
@currency  CHAR(3) = NULL,
@payterms  varchar(120) = null,
@deli_loc varchar(80)=null,
@remark	  varchar(255)=null,
@post_date datetime=null,
@Creator   char(10)=null,
@last_modify char(10)= null
as

begin

if  not exists(select  pono from ord_mst where pono=@Order_number_out) 
  begin	
	insert into ord_mst(
			pono,
			Order_type,
			id,
	vendor_nm,
	customer_id,
	cust_nm,
	prno,
	discount,
	currency,
	payterms,
	deli_loc,
	post_date,
	last_up,
	remark,
	Creator,
	Last_modify,
	version,
	rev_date,
	status,
	revsion_by)
values(
	upper(@Order_number_out),
	@order_type,
	@id,
	@vendor_nm,
	@customer_id,
	@cust_nm,
	upper(@prno),
	@discount,
	@currency,
	@payterms,
	@deli_loc,
	getdate(),
	getdate(),
	@remark,
	@Creator,
	@Last_modify,
	1.0,
	getdate(),
	'O',
	@creator)
     end
   
return 
end

GO