USP_REVENUE_GETCREDITGLDISTRIBUTION_CUSTOMUPDATEFROMXML

Stored procedure to update discount GL distribution records from the given xml collection.

Parameters

Parameter Parameter Type Mode Description
@REVENUEID uniqueidentifier IN
@XML xml IN
@POSTDATE datetime IN
@CHANGEAGENTID uniqueidentifier IN
@CHANGEDATE datetime IN

Definition

Copy


            CREATE procedure dbo.USP_REVENUE_GETCREDITGLDISTRIBUTION_CUSTOMUPDATEFROMXML
            (
                @REVENUEID uniqueidentifier,
                @XML xml,
                @POSTDATE datetime,
                @CHANGEAGENTID uniqueidentifier = null,
                @CHANGEDATE datetime = null
            )

            as

            set nocount on;

            if @CHANGEAGENTID is null
                exec USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output

            if @CHANGEDATE is null 
                set @CHANGEDATE = getdate()

            -- build a temporary table containing the values from the XML

            declare @TempTbl table (
               [ACCOUNT] nvarchar(100),
               [AMOUNT] money,
               [ID] uniqueidentifier,
               [REFERENCE] nvarchar(100),
               [TRANSACTIONTYPECODE] tinyint)

            insert into @TempTbl select 
                [ACCOUNT],
                [AMOUNT],
                [ID],
                [REFERENCE],
                [TRANSACTIONTYPECODE] 
            from dbo.UFN_REVENUE_GETCREDITGLDISTRIBUTION_FROMITEMLISTXML(@XML)

            update @TempTbl set ID = newid() where (ID is null) or (ID = '00000000-0000-0000-0000-000000000000');

            if @@Error <> 0
                return 1;

            declare @contextCache varbinary(128);
            declare @e int;

            -- cache current context information 

            set @contextCache = CONTEXT_INFO();

            -- set CONTEXT_INFO to @CHANGEAGENTID 

            if not @CHANGEAGENTID is null
                set CONTEXT_INFO @CHANGEAGENTID;

            -- delete any items that no longer exist in the XML table

            delete from dbo.[CREDITGLDISTRIBUTION] where [CREDITGLDISTRIBUTION].ID in 
                (select ID from dbo.UFN_REVENUE_GETCREDITGLDISTRIBUTION
                (
                    @REVENUEID
                )
                EXCEPT select ID from @TempTbl)    

            select @e=@@error;

            -- reset CONTEXT_INFO to previous value 

            if not @contextCache is null
                set CONTEXT_INFO @contextCache;

            if @e <> 0
                return 2;

            -- update the items that exist in the XML table and the db

            merge into  dbo.[CREDITGLDISTRIBUTION]
            using  @TempTbl as [temp] on [CREDITGLDISTRIBUTION].ID = [temp].ID
            when matched 
                and (
                    ([CREDITGLDISTRIBUTION].[ACCOUNT]<>temp.[ACCOUNT]) or 
                    ([CREDITGLDISTRIBUTION].[ACCOUNT] is null and temp.[ACCOUNT] is not null) or 
                    ([CREDITGLDISTRIBUTION].[ACCOUNT] is not null and temp.[ACCOUNT] is null) or 
                    ([CREDITGLDISTRIBUTION].[AMOUNT]<>temp.[AMOUNT]) or 
                    ([CREDITGLDISTRIBUTION].[AMOUNT] is null and temp.[AMOUNT] is not null) or 
                    ([CREDITGLDISTRIBUTION].[AMOUNT] is not null and temp.[AMOUNT] is null) or 
                    ([CREDITGLDISTRIBUTION].[ID]<>temp.[ID]) or 
                    ([CREDITGLDISTRIBUTION].[ID] is null and temp.[ID] is not null) or 
                    ([CREDITGLDISTRIBUTION].[ID] is not null and temp.[ID] is null) or 
                    ([CREDITGLDISTRIBUTION].[REFERENCE]<>temp.[REFERENCE]) or 
                    ([CREDITGLDISTRIBUTION].[REFERENCE] is null and temp.[REFERENCE] is not null) or 
                    ([CREDITGLDISTRIBUTION].[REFERENCE] is not null and temp.[REFERENCE] is null) or 
                    ([CREDITGLDISTRIBUTION].[TRANSACTIONTYPECODE]<>temp.[TRANSACTIONTYPECODE]) or 
                    ([CREDITGLDISTRIBUTION].[TRANSACTIONTYPECODE] is null and temp.[TRANSACTIONTYPECODE] is not null) or 
                    ([CREDITGLDISTRIBUTION].[TRANSACTIONTYPECODE] is not null and temp.[TRANSACTIONTYPECODE] is null)                
                    )
            then update 
                    set 
                    [CREDITGLDISTRIBUTION].[ACCOUNT]=temp.[ACCOUNT],
                    [CREDITGLDISTRIBUTION].[AMOUNT]=temp.[AMOUNT],
                    [CREDITGLDISTRIBUTION].[ID]=temp.[ID],
                    [CREDITGLDISTRIBUTION].[REFERENCE]=temp.[REFERENCE],
                    [CREDITGLDISTRIBUTION].[TRANSACTIONTYPECODE]=temp.[TRANSACTIONTYPECODE],
                    [CREDITGLDISTRIBUTION].CHANGEDBYID = @CHANGEAGENTID,
                    [CREDITGLDISTRIBUTION].DATECHANGED = @CHANGEDATE;


            --Update the corresponding rows in the GLTRANSACTION table

            merge into  dbo.[GLTRANSACTION]
            using  @TempTbl as [temp] 
                inner join dbo.CREDITGLDISTRIBUTION on CREDITGLDISTRIBUTION.ID = [temp].ID
                on [GLTRANSACTION].ID = [temp].ID
            when matched 
            then update
                set            
                    GLTRANSACTION.ACCOUNT = CREDITGLDISTRIBUTION.ACCOUNT,
                    GLTRANSACTION.AMOUNT = CREDITGLDISTRIBUTION.AMOUNT,
                    GLTRANSACTION.REFERENCE = CREDITGLDISTRIBUTION.REFERENCE,
                    GLTRANSACTION.TRANSACTIONTYPECODE = CREDITGLDISTRIBUTION.TRANSACTIONTYPECODE,
                    GLTRANSACTION.POSTDATE = @POSTDATE,
                    GLTRANSACTION.CHANGEDBYID = @CHANGEAGENTID,
                    GLTRANSACTION.DATECHANGED = @CHANGEDATE,
                    GLTRANSACTION.GLACCOUNTID = dbo.UFN_GLACCOUNT_GETIDFROMACCOUNTANDREVENUE(CREDITGLDISTRIBUTION.ACCOUNT,@REVENUEID);



            if @@Error <> 0
                return 3;    

            -- insert new items

            declare @DISTRIBUTIONS table(
                    GLTRANSACTIONID uniqueidentifier,
                    ACCOUNT nvarchar(100),
                    AMOUNT money,
                    REFERENCE nvarchar(255),
                    TRANSACTIONTYPECODE tinyint,
                    CREDITGLDISTRIBUTIONID uniqueidentifier
            );

            insert into @DISTRIBUTIONS(GLTRANSACTIONID, ACCOUNT, AMOUNT, REFERENCE, TRANSACTIONTYPECODE, CREDITGLDISTRIBUTIONID)
            select 
                newid(), 
                [ACCOUNT],
                [AMOUNT],
                [REFERENCE],
                [TRANSACTIONTYPECODE], 
                [ID]
            from @TempTbl as [temp]
            where not exists (select ID from dbo.[CREDITGLDISTRIBUTION] as data where data.ID = [temp].ID)

            -- Insert rows in GLTRANSACTION table

            insert into dbo.GLTRANSACTION(ID, TRANSACTIONTYPECODE, ACCOUNT, AMOUNT, REFERENCE, POSTDATE, JOURNAL, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED, GLACCOUNTID)
            select
                GLTRANSACTIONID,
                TRANSACTIONTYPECODE,
                ACCOUNT,
                AMOUNT,
                REFERENCE,
                @POSTDATE,
                'Blackbaud Enterprise',
                @CHANGEAGENTID,
                @CHANGEAGENTID,
                @CHANGEDATE,
                @CHANGEDATE,
                dbo.UFN_GLACCOUNT_GETIDFROMACCOUNTANDREVENUE([ACCOUNT],@REVENUEID)                
            from 
                @DISTRIBUTIONS;

            -- Insert rows in CREDITGLDISTRIBUTION table

            insert into dbo.CREDITGLDISTRIBUTION
                (ID, REVENUEID, REFERENCE, AMOUNT, ACCOUNT, TRANSACTIONTYPECODE, GLTRANSACTIONID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
            select
                CREDITGLDISTRIBUTIONID,
                @REVENUEID,
                REFERENCE, 
                AMOUNT,
                ACCOUNT,
                TRANSACTIONTYPECODE,
                GLTRANSACTIONID,
                @CHANGEAGENTID,
                @CHANGEAGENTID,
                @CHANGEDATE,
                @CHANGEDATE
            from 
                @DISTRIBUTIONS;

            if @@Error <> 0
                return 4;

            return 0;