USP_DATAFORMTEMPLATE_ADD_ACCOUNTINGELEMENTRELATIONSHIP

The save procedure used by the add dataform template "Accounting Element Relationship Add Form".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	INOUT	The output parameter indicating the ID of the record added.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@RELATIONSHIPID	nvarchar(60)	IN	Relationship ID
@DESCRIPTION	nvarchar(60)	IN	Relationship description
@BASEELEMENTACCOUNTSTRUCTUREID	uniqueidentifier	IN	Relationship basis
@RESTRICTION	tinyint	IN	Restrict\Allow
@ACCOUNTSTRUCTURE	xml	IN
@QUERYID	uniqueidentifier	IN
@SELECTEDELEMENTS	xml	IN	Choose selected accounts from grid

Definition

Copy



          CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_ACCOUNTINGELEMENTRELATIONSHIP
          (
            @ID uniqueidentifier = null output,
            @CHANGEAGENTID uniqueidentifier = null,
            @RELATIONSHIPID nvarchar(60),
              @DESCRIPTION nvarchar(60),
              @BASEELEMENTACCOUNTSTRUCTUREID uniqueidentifier,
            @RESTRICTION tinyint,
            @ACCOUNTSTRUCTURE xml = null,
            @QUERYID uniqueidentifier = null,
            @SELECTEDELEMENTS xml = null
          )
          as
            set nocount on;

            if @ID is null
                set @ID = newid()

            if @CHANGEAGENTID is null  
                exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output

            declare @CURRENTDATE datetime
            set @CURRENTDATE = getdate()

            begin try            
              insert into dbo.ACCOUNTINGELEMENTRELATIONSHIP
                  (ID, RELATIONSHIPID, DESCRIPTION, BASEELEMENTACCOUNTSTRUCTUREID, RESTRICTIONCODE, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                values
                  (@ID, @RELATIONSHIPID, @DESCRIPTION, @BASEELEMENTACCOUNTSTRUCTUREID, @RESTRICTION, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)

              exec dbo.USP_ACCOUNTINGELEMENTRELATIONSHIPS_SAVE @ID, @BASEELEMENTACCOUNTSTRUCTUREID, @RESTRICTION, @ACCOUNTSTRUCTURE, @QUERYID, @SELECTEDELEMENTS, @CHANGEAGENTID, @CURRENTDATE
            end try

            begin catch
                exec dbo.USP_RAISE_ERROR
                return 1
            end catch

            return 0