EXECUTE PROCEDURE sp_ModifyTableProperty( 'MWCAS', 'Table_Auto_Create', 'False', 'APPEND_FAIL', 'MWCASfail'); EXECUTE PROCEDURE sp_ModifyTableProperty( 'MWCAS', 'Table_Permission_Level', '2', 'APPEND_FAIL', 'MWCASfail'); EXECUTE PROCEDURE sp_ModifyTableProperty( 'MWCAS', 'Triggers_Disabled', 'False', 'APPEND_FAIL', 'MWCASfail'); EXECUTE PROCEDURE sp_ModifyTableProperty( 'MWCAS', 'Table_Trans_Free', 'False', 'APPEND_FAIL', 'MWCASfail'); EXECUTE PROCEDURE sp_ModifyTableProperty( 'MWCAS', 'Table_WEB_delta', 'False', 'APPEND_FAIL', 'MWCASfail'); EXECUTE PROCEDURE sp_ModifyFieldProperty ( 'MWCAS', 'Price Code', 'Field_Default_Value', 'A', 'APPEND_FAIL', 'MWCASfail' ); EXECUTE PROCEDURE sp_ModifyFieldProperty ( 'MWCAS', 'Cash Case', 'Field_Can_Be_Null', 'False', 'APPEND_FAIL', 'MWCASfail' ); EXECUTE PROCEDURE sp_ModifyFieldProperty ( 'MWCAS', 'Cash Case', 'Field_Default_Value', 'False', 'APPEND_FAIL', 'MWCASfail' ); CREATE TRIGGER MWCASUPDATE_AUD ON MWCAS BEFORE UPDATE BEGIN Declare NC Cursor as Select * from __New; Declare OC Cursor as Select * from __Old; DECLARE OutputCursor CURSOR; Declare nString String; Declare oString String; Declare @UName String; Declare iIdx Integer; Open NC; Fetch NC; Open OC; Fetch OC; Set nString = (Select User() from System.iota); iIdx = POSITION('mwmw' IN nString); IF (iIdx > 1) THEN nString = SUBSTRING(nString, 1, iIdx-1); ENDIF; Set @UName = nString; --(Select User() from System.iota); Set nString = ''; OPEN OutputCursor AS EXECUTE PROCEDURE sp_CheckCase1(); FETCH OutputCursor; SET nString = nString + TRIM(OutputCursor.nString); CLOSE OutputCursor; OPEN OutputCursor AS EXECUTE PROCEDURE sp_CheckCase2(); FETCH OutputCursor; SET nString = nString + TRIM(OutputCursor.nString); CLOSE OutputCursor; Insert into MWAudM([Table], [User], [Action], NDCApplication, [Chart Number], [Date Modified], Details) Values('Case', @UName, 'UPDATE', 0, OC.[Chart Number], Now(), nString); END PRIORITY 1; EXECUTE PROCEDURE sp_DisableTriggers( 'MWCASUPDATE_AUD', 'MWCAS', FALSE, 0 ); CREATE TRIGGER MWCASDELETE_AUD ON MWCAS BEFORE DELETE BEGIN Declare nString String; Declare OC Cursor as Select * from __Old; Declare @UName String; Declare iIdx Integer; Open OC; Fetch OC; Set nString = (Select User() from System.iota); iIdx = POSITION('mwmw' IN nString); IF (iIdx > 1) THEN nString = SUBSTRING(nString, 1, iIdx-1); ENDIF; Set @UName = nString; --(Select User() from System.iota); Set nString = ''; Set nString = nString + 'Case Number: "' + TRIM(Convert(OC.[Case Number], SQL_Char)) + '"'; Insert into MWAudM([Table], [User], [Action], NDCApplication, [Chart Number], [Date Modified], Details) Values('Case', @UName, 'DELETE', 0, OC.[Chart Number], Now(), nString); END PRIORITY 1; EXECUTE PROCEDURE sp_DisableTriggers( 'MWCASDELETE_AUD', 'MWCAS', FALSE, 0 ); //end of Case Triggers