USP_DATAFORMTEMPLATE_EDIT_AUCTIONDONATIONWRITEOFF

The save procedure used by the edit dataform template "Auction Donation Write-off 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.
@DATE	datetime	IN	Date
@WRITEOFFTOTALAMOUNT	money	IN	Amount
@POSTSTATUSCODE	tinyint	IN	GL post status
@POSTDATE	datetime	IN	GL post date
@REASON	nvarchar(300)	IN	Details
@INSTALLMENTS	xml	IN
@REASONCODEID	uniqueidentifier	IN	Reason code
Definition

Copy


                    CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_AUCTIONDONATIONWRITEOFF
                    (
                        @ID uniqueidentifier,
                        @CHANGEAGENTID uniqueidentifier = null,
                        @DATE datetime,
                        @WRITEOFFTOTALAMOUNT money,
                        @POSTSTATUSCODE tinyint,
                        @POSTDATE datetime,
                        @REASON nvarchar(300),
                        @INSTALLMENTS xml,
                        @REASONCODEID uniqueidentifier
                    )
                    as
                    begin

                        set nocount on;

                        -- Check GL business rule for this account system and set to 'Do not post' if needed.

                            -- ****

                            declare @PDACCOUNTSYSTEMID uniqueidentifier;
                            select @PDACCOUNTSYSTEMID = PDACCOUNTSYSTEMID 
                            from dbo.PDACCOUNTSYSTEMFORREVENUE
                            inner join WRITEOFF on PDACCOUNTSYSTEMFORREVENUE.ID = WRITEOFF.REVENUEID
                            where WRITEOFF.ID = @ID;

                            declare @ALLOWGLDISTRIBUTIONS bit;
                            set @ALLOWGLDISTRIBUTIONS = dbo.UFN_PDACCOUNTSYSTEM_ALLOWGLDISTRIBUTIONS(@PDACCOUNTSYSTEMID);
                            if @ALLOWGLDISTRIBUTIONS = 0 
                                begin
                                    set @POSTSTATUSCODE = 2        -- Do not post

                                    set @POSTDATE = null
                                end
                            -- ****    


                        declare @CURRENTDATE datetime;                        
                        declare @PLEDGEID uniqueidentifier;
                        declare @OLDAMOUNT money;
                        declare @CLEARGLDISTRIBUTION bit;

                        set @CLEARGLDISTRIBUTION = 0;

                        begin try
                            if @CHANGEAGENTID is null  
                                exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output;

                            set @CURRENTDATE = GetDate();

                            select @PLEDGEID = REVENUEID from dbo.WRITEOFF where ID = @ID;
                            select @OLDAMOUNT = sum(TRANSACTIONAMOUNT) from dbo.WRITEOFFSPLIT where WRITEOFFID = @ID;

                            if not exists (select 1 from dbo.WRITEOFF where ID = @ID and POSTSTATUSCODE = @POSTSTATUSCODE and POSTDATE = @POSTDATE)
                                or @OLDAMOUNT <> @WRITEOFFTOTALAMOUNT
                            begin
                                set @CLEARGLDISTRIBUTION = 1;
                            end

                            update
                                dbo.WRITEOFF
                            set
                                DATE = @DATE,
                                POSTSTATUSCODE = @POSTSTATUSCODE,
                                POSTDATE = @POSTDATE,
                                REASON = @REASON,
                                CHANGEDBYID = @CHANGEAGENTID,
                                DATECHANGED = @CURRENTDATE,
                                REASONCODEID = @REASONCODEID
                            where
                                ID = @ID;

                            exec dbo.USP_WRITEOFF_FIXSPLITS @ID, @PLEDGEID, @CHANGEAGENTID,@CURRENTDATE;

                            -- if any GL-related write-off fields have changed, clear any user-defined gl distributions for this record

                            if @CLEARGLDISTRIBUTION = 1
                            begin

                                --Clear GL

                                --Cache CONTEXT INFO

                                declare @contextCache varbinary(128);
                                set @contextCache = CONTEXT_INFO();

                                if not @CHANGEAGENTID is null
                                    set CONTEXT_INFO @CHANGEAGENTID;

                                delete from dbo.WRITEOFFGLDISTRIBUTION where WRITEOFFID = @ID and OUTDATED = 0;    

                                -- Add new writeoff GL distributions

                                if @POSTSTATUSCODE <> 2
                                    exec dbo.USP_SAVE_WRITEOFFGLDISTRIBUTION @PLEDGEID, @CHANGEAGENTID, @CURRENTDATE;

                                --Restore CONTEXT_INFO

                                if not @contextCache is null
                                    set CONTEXT_INFO @contextCache;

                            end
                        end try

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

                        return 0;
                    end