USP_DATAFORMTEMPLATE_ADD_BANKACCOUNTADJUSTMENTCATEGORY

The save procedure used by the add dataform template "Bank Account Adjustment Category Add Form".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	INOUT	The output parameter indicating the ID of the record added.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@BANKACCOUNTID	uniqueidentifier	IN	Input parameter indicating the context ID for the record being added.
@CATEGORY	nvarchar(60)	IN	Category
@ADJUSTMENTFUZZYDATEID	uniqueidentifier	IN	Adjustment date
@AMOUNT	decimal(19, 4)	IN	Amount
@ADJUSTMENTTYPECODE	smallint	IN	Type
@DEFAULTREFERENCE	nvarchar(100)	IN	Reference
@POSTSTATUSCODE	smallint	IN	Post status
@POSTDATECODE	smallint	IN	Post date
@TRANSFERBANKACCOUNTID	uniqueidentifier	IN	Transfer account
@PDACCOUNTSYSTEMID	uniqueidentifier	IN	Account System

Definition

Copy



                    CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_BANKACCOUNTADJUSTMENTCATEGORY
                    (
                        @ID uniqueidentifier = null output,
                        @CHANGEAGENTID uniqueidentifier = null,
                        @BANKACCOUNTID uniqueidentifier,
                        @CATEGORY nvarchar(60) = '',
                        @ADJUSTMENTFUZZYDATEID uniqueidentifier = null,
                        @AMOUNT decimal(19,4) = null,
                        @ADJUSTMENTTYPECODE smallint = 1,
                        @DEFAULTREFERENCE nvarchar(100) = '',
                        @POSTSTATUSCODE smallint = 1,
                        @POSTDATECODE smallint = 1,
                        --@NOTES nvarchar(4000) = '',

                        --@EFTSTATUSCODE smallint = 1,

                        --@IMPORTID nvarchar(100) = '',

                        @TRANSFERBANKACCOUNTID uniqueidentifier = null,
                        @PDACCOUNTSYSTEMID uniqueidentifier = null
                    )
                    as

                    set nocount on;

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

                    -- ****

                    select @PDACCOUNTSYSTEMID = PDACCOUNTSYSTEMID 
                    from dbo.BANKACCOUNTADJUSTMENTCATEGORY as BAAC
                    inner join dbo.BANKACCOUNT as BA on BA.ID = BAAC.BANKACCOUNTID                        
                    where BAAC.ID = @ID;

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

                            set @POSTDATECODE = null
                        end
                    -- ****                


                    if @ID is null
                        set @ID = newid()

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

                    declare @CURRENTDATE datetime
                    set @CURRENTDATE = getdate()

                    if @POSTDATECODE is null
                        set @POSTDATECODE = 0

                    begin try
                        -- handle inserting the data

                        insert into dbo.BANKACCOUNTADJUSTMENTCATEGORY
                            (ID, BANKACCOUNTID, CATEGORY, ADJUSTMENTFUZZYDATEID, ADJUSTMENTTYPECODE, TRANSFERBANKACCOUNTID, AMOUNT, DEFAULTREFERENCE, POSTSTATUSCODE, POSTDATECODE, 
                            --NOTES, EFTSTATUSCODE, IMPORTID, 

                            ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                        values
                            (@ID, @BANKACCOUNTID, @CATEGORY, @ADJUSTMENTFUZZYDATEID, @ADJUSTMENTTYPECODE, @TRANSFERBANKACCOUNTID, @AMOUNT, @DEFAULTREFERENCE, @POSTSTATUSCODE, @POSTDATECODE, 
                            --@NOTES, @EFTSTATUSCODE,    @IMPORTID,

                            @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)

                    end try

                    begin catch
                        exec dbo.USP_RAISE_ERROR
                        return 1
                    end catch

                    return 0