USE [CP_DOTNET]
GO
/****** Object: StoredProcedure [dbo].[T_sp_SetScreenPermission] Script Date: 06/09/2007 20:15:29 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[T_sp_SetScreenPermission]
@RECEXIST Int output,
@user_Id varchar(10) ,
@Screen_Id varchar(10) ,
@Permission_Id varchar(10) ,
@Created_On Datetime,
@Created_By varchar(50) ,
@machine_ip Varchar(50)
AS
SET NOCOUNT ON;
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'T_SET_SCREEN_PERMISSIONS')
Begin
If exists (select m1.ROLE_ID,m1.USER_ID,m2.DEFAULT_PERMISSION_ID,m2. SCREEN_ID,m2.PERMISSION_ID,m2.IS_ACTIVE
from M_USER m1,M_DEFAULT_SCREEN_PERMISSIONS m2 where m2.IS_ACTIVE='1')SET @RECEXIST = 0
ELSE
Begin
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'T_LOG_FOR_USERS')
Begin
Begin Tran
INSERT INTO T_SET_SCREEN_PERMISSIONS(SET_SCREEN_PERMISSION_ID, USER_ID, SCREEN_ID, PERMISSION_ID,CREATED_ON, CREATED_BY,IS_ACTIVE )
VALUES (@Set_Screen_Permission_Id,@User_Id, @Screen_Id,@Permission_Id,@Created_On, @Created_By,'1' )
DECLARE @Set_Screen_Permission_Id int
set @Set_Screen_Permission_Id = @@identity
Insert into T_LOG_FOR_USERS(TR_DATE,USER_ID,USER_IP_ADDRESS,TR ANSACTION_NAME,TRANSACTION_TABLE_NAME,TRANSACTION_ KEY_FIELD_NAME,TRANSACTION_KEY_FIELD_VALUE,REPORTI NG_FLAG)
Values(@Created_On,@Created_By,@machine_ip,'set Screen Permission Creation','T_SET_SCREEN_PERMISSIONS','SETSCREEN_PE RMISSION_ID',@Set_Screen_Permission_Id,'1')
Commit
SET @RECEXIST = 1
End
Else
Begin
SET @RECEXIST = 3
End
End
End
Else
Begin
SET @RECEXIST = 2
End
Msg 137, Level 15, State 2, Procedure T_sp_SetScreenPermission, Line 30
Must declare the scalar variable "@Set_Screen_Permission_Id".