USP_DATAFORMTEMPLATE_EDIT_FT_DISTRIBUTION

The save procedure used by the edit dataform template "Financial Transaction Distribution 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.
@AMOUNT	money	IN	Transaction amount
@LINEITEMS	xml	IN	Line items

Definition

Copy


CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_FT_DISTRIBUTION (
    @ID uniqueidentifier,
    @CHANGEAGENTID uniqueidentifier = null,
    @AMOUNT money,
    @LINEITEMS xml
)
as
set nocount on;

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

    declare @CURRENTDATE datetime
    set @CURRENTDATE = getdate()

    begin try

    if @AMOUNT < 0 
      raiserror('ERR_FINANCIALTRANSACTION_NONNEGATIVE', 16, 1);

    --- The AMOUNT may have been changed. Some subledger transactions need further updating
        declare @DATEDUE datetime;
        select @DATEDUE = DATEDUE from dbo.INVOICE where ID = @ID;
        if not @DATEDUE is NULL -- Only update this for invoices.
          exec dbo.USP_FINANCIALTRANSACTIONSCHEDULE_UPDATE @ID, @CHANGEAGENTID, @AMOUNT, @DATEDUE;
    --- End of subledger updates

        if exists (
      select FTS.FINANCIALTRANSACTIONID
        from dbo.FINANCIALTRANSACTIONSCHEDULE as FTS
      where 
        FTS.FINANCIALTRANSACTIONID = @ID
      group by
        FTS.FINANCIALTRANSACTIONID
      having
        sum(AMOUNT) <> @AMOUNT )
            raiserror('FT_SCHEDULE_AMOUNT_MUST_MATCH_AMOUNT', 16, 1);

        update dbo.FINANCIALTRANSACTION
        set TRANSACTIONAMOUNT = @AMOUNT
        where ID = @ID;

        exec dbo.USP_FINANCIALTRANSACTIOLINEITEMDISTRIBUTION_EDIT @ID, @CHANGEAGENTID, @LINEITEMS;
    end try
    begin catch
        exec dbo.USP_RAISE_ERROR
        return 1
    end catch

return 0;