USP_DATAFORMTEMPLATE_EDIT_NAMINGOPPORTUNITYBASECURRENCY

The save procedure used by the edit dataform template "Naming Opportunity Base Currency Edit Form".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	IN	The input ID parameter indicating the ID of the record being edited.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@BASECURRENCYID	uniqueidentifier	IN	Base currency

Definition

Copy



CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_NAMINGOPPORTUNITYBASECURRENCY (
    @ID uniqueidentifier,
    @CHANGEAGENTID uniqueidentifier = null,
    @BASECURRENCYID uniqueidentifier
)
as

    set nocount on;

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

    declare @CURRENTDATE datetime
    set @CURRENTDATE = getdate()

    begin try
        declare @OLDBASECURRENCYID uniqueidentifier;

        select 
            @OLDBASECURRENCYID = BASECURRENCYID
        from 
            dbo.NAMINGOPPORTUNITY
        where
            ID = @ID

        --If the user saves without changing the base currency, don't update org amounts.

        if @OLDBASECURRENCYID <> @BASECURRENCYID
        begin
            declare @ORGCURRENCYID uniqueidentifier = dbo.UFN_CURRENCY_GETORGANIZATIONCURRENCY()

            --If the new base currency is the org currency, org amount equals amount, so don't bother getting

            --    an exchange rate or doing a conversion.

            if @BASECURRENCYID = @ORGCURRENCYID
            begin

                update dbo.NAMINGOPPORTUNITY set
                    ORGANIZATIONMINIMUMAMOUNT = MINIMUMAMOUNT,
                    ORGANIZATIONEXCHANGERATEID = null,
                    BASECURRENCYID = @BASECURRENCYID,
                    CHANGEDBYID = @CHANGEAGENTID,
                    DATECHANGED = @CURRENTDATE
                where 
                    ID = @ID

            end
            else --Base currency has changed and isn't the org currency

            begin

                declare @CURRENCYEXCHANGERATEID uniqueidentifier;
                select 
                    @CURRENCYEXCHANGERATEID = dbo.UFN_CURRENCYEXCHANGERATE_GETLATEST(@BASECURRENCYID, @ORGCURRENCYID, NAMINGOPPORTUNITY.DATEADDED, 0, null)
                from 
                    dbo.NAMINGOPPORTUNITY
                where 
                    ID = @ID

                update dbo.NAMINGOPPORTUNITY set
                    ORGANIZATIONMINIMUMAMOUNT = dbo.UFN_CURRENCY_CONVERT(MINIMUMAMOUNT, dbo.UFN_CURRENCYEXCHANGERATE_GETLATEST(@BASECURRENCYID, @ORGCURRENCYID, NAMINGOPPORTUNITY.DATEADDED, 0, null)),
                    ORGANIZATIONEXCHANGERATEID = @CURRENCYEXCHANGERATEID,
                    BASECURRENCYID = @BASECURRENCYID,
                    CHANGEDBYID = @CHANGEAGENTID,
                    DATECHANGED = @CURRENTDATE
                where 
                    ID = @ID

            end        
        end        
    end try
    begin catch
        exec dbo.USP_RAISE_ERROR
        return 1
    end catch

return 0;