USP_DATAFORMTEMPLATE_EDIT_PLEDGEWRITEOFF

The save procedure used by the edit dataform template "Pledge 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	Write-off reason
@INSTALLMENTS	xml	IN
Definition

Copy


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

                        set nocount on;

                        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(AMOUNT) from dbo.INSTALLMENTWRITEOFF 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
                            where
                                ID = @ID;

                            exec dbo.USP_INSTALLMENT_WRITEOFFINSTALLMENTS @ID,@WRITEOFFTOTALAMOUNT,@CHANGEAGENTID,@CURRENTDATE,1,@INSTALLMENTS;
                            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