proc_uom_cvrt_upd.sql

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

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

Create Procedure Proc_UoM_Cvrt_Upd
@action_cd CHAR(1) = null,
@HPN	varchar(18) = null,
@Basic_UoM char(3) = null,
@Basic_UoM_Qty numeric(18,5) =null,
@Order_UoM char(3) = null,
@Order_UoM_Qty numeric(18,5) = null,
--@Rate	   numeric(18,5) = null,
@status    char(1) = null,
@Expire_dt datetime = null,
@Created_By varchar(15) = null,
@updated_by varchar(15) = null

as
begin
	if(@action_cd ='N') 
begin
    insert into GL_UoM_Convert(
	HPN,
	Basic_UoM,
	Basic_UoM_Qty,
	Order_UoM,
	Order_UoM_Qty,
	Rate,
	Expire_Dt,
	Status,
	Created_By,
	Creation_Dt,
	Updated_By,
	Update_Dt
	)
	values
	(
	@HPN,
	@Basic_UoM,
	@Basic_UoM_Qty,
	@Order_UoM,
	@Order_UoM_Qty,
	@Basic_UoM_Qty/@Order_UoM_Qty,
	@Expire_Dt,
	'A',
	@Created_By,
	getdate(),
	@Updated_By,
	getdate()
	)


end
end