USP_DATAFORMTEMPLATE_ADD_DESIGNATIONLEVELDISBURSEMENT

The save procedure used by the add dataform template "Fundraising Purpose Disbursement 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.
@DESIGNATIONLEVELID	uniqueidentifier	IN	Input parameter indicating the context ID for the record being added.
@CONSTITUENTID	uniqueidentifier	IN	Constituent
@DATE	datetime	IN	Date
@AMOUNT	money	IN	Amount

Definition

Copy



                    CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_DESIGNATIONLEVELDISBURSEMENT
                    (
                        @ID uniqueidentifier = null output,
                        @CHANGEAGENTID uniqueidentifier = null,    
                        @DESIGNATIONLEVELID uniqueidentifier,
                        @CONSTITUENTID uniqueidentifier = null,    
                        @DATE datetime = null,
                        @AMOUNT money = 0
                    )
                    as
                    begin
                        set nocount on

                        declare @CURRENTDATE datetime                                        

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

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

                        set @CURRENTDATE = getdate()

                        begin try

                            declare @BASECURRENCYID uniqueidentifier;
                            declare @CURRENCYEXCHANGERATEID uniqueidentifier;
                            declare @ORGANIZATIONAMOUNT money;
                            declare @ORGANIZATIONCURRENCYID uniqueidentifier;
                            set @ORGANIZATIONCURRENCYID = dbo.UFN_CURRENCY_GETORGANIZATIONCURRENCY();

                            select
                                @BASECURRENCYID = DESIGNATIONLEVEL.BASECURRENCYID
                            from
                                dbo.DESIGNATIONLEVEL
                            where
                                DESIGNATIONLEVEL.ID = @DESIGNATIONLEVELID

                            if (@ORGANIZATIONCURRENCYID = @BASECURRENCYID)
                            begin
                                set @ORGANIZATIONAMOUNT = @AMOUNT;
                            end
                            else
                            begin
                                set @CURRENCYEXCHANGERATEID = dbo.UFN_CURRENCYEXCHANGERATE_GETLATEST(@BASECURRENCYID, @ORGANIZATIONCURRENCYID, @CURRENTDATE, 0, null);
                                set @ORGANIZATIONAMOUNT = dbo.UFN_CURRENCY_CONVERT(@AMOUNT, @CURRENCYEXCHANGERATEID);
                            end

                            insert into dbo.DESIGNATIONLEVELDISBURSEMENT
                                (ID,DESIGNATIONLEVELID,CONSTITUENTID,DATE,AMOUNT,ORGANIZATIONAMOUNT,ORGANIZATIONEXCHANGERATEID,BASECURRENCYID,ADDEDBYID,CHANGEDBYID,DATEADDED,DATECHANGED)
                            values
                                (@ID, @DESIGNATIONLEVELID, @CONSTITUENTID,@DATE,@AMOUNT,@ORGANIZATIONAMOUNT,@CURRENCYEXCHANGERATEID,@BASECURRENCYID,@CHANGEAGENTID,@CHANGEAGENTID,@CURRENTDATE,@CURRENTDATE)                            
                        end try

                        begin catch
                            exec dbo.USP_RAISE_ERROR
                            return 1
                        end catch

                        return 0
                    end