单据200000004被引用判断存储过程.sql

BOS大赛培训认证+-+样例代码

-------------------------------------------单据200000004被引用判断存储过程-------------------------------------------------------------------
if exists (select * from sysobjects where id = object_id(N'[dbo].[sProcName1]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[sProcName1]

GO

 

CREATE PROCEDURE sProcName1 

@classid int,

@id int,

@ret int output,

@retInfo varchar(200) output

AS

select @ret=1

if @classid=200000004

    begin

     if exists(select * from t_BOS200000005entry2 where fclassid_src=@classid and fid_src=@id) 

        begin   

               select @retInfo='当前单据被单据200000005引用' 

            return

        end

    end

select @ret=0

return