SQL数据库之--------售价控制

value(runsql("select dbo.isxs控价('"+商品_商品清单_类别编号+"',"+string(销售单_销售价,3)+","+string(销售单_批次成本单价,3)+",'"+__操作员+"')"))=0

---------------------------------------------------------SQl 脚本

IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[isxs控价]') AND type in (N'FN', N'IF', N'TF', N'FS', N'FT'))
DROP FUNCTION [dbo].[isxs控价]
GO

create FUNCTION [dbo].[isxs控价](@lbbh char(10),@xsjia float,@cbjia float,@jzr char(10))
RETURNS int
AS
BEGIN

    -- @返回 = 0 通过
    -- @返回 = 1 不通过 select dbo.isxs控价('1450016','1450016','1004105',301)
    declare @返回 int,@ygbh char(6)
    select @ygbh=职工编号 from 职工清单 where 姓名=@jzr
    if @ygbh='0070'
    select  @返回=0
    if @lbbh='控价' and (@xsjia>=@cbjia/0.8)
            select  @返回=1
    return  isnull(@返回,0)
end

---------------------------------------------------------程序效果