bom_supprt_function.sql

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

 ---------------- BoM Expand suppurt Function-----------------------


if object_id('dbo.FillChar') is not null
drop function dbo.FillChar
go


Create  FUNCTION dbo.FillChar (@value int)  
returns varchar(4) AS  
BEGIN 
  declare @return_value varchar(4)
  set @return_value = cast(@value as varchar(5)) 
  while len(@return_value) < 4
     set @return_value = '0'+@return_value

  Return @return_value 
END
go

if object_id('dbo.GetMin') is not null
drop function dbo.GetMin
go

Create  FUNCTION GetMin (@v1 numeric(18,4), @v2 numeric(18,4))  
returns numeric(18,4) AS  
BEGIN 
  return (case when @v1<@v2 then @v1 else @v2 end)
END