USP_DATAFORMTEMPLATE_ADD_JOURNALENTRYBATCH

The save procedure used by the add dataform template "Journal Entry Batch 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.
@DESCRIPTION	nvarchar(60)	IN	Description
@CREATEINTERFUND	bit	IN	Automatically create balancing interfund entries

Definition

Copy



                    CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_JOURNALENTRYBATCH
                    (
                            @ID uniqueidentifier = null output,
                            @CHANGEAGENTID uniqueidentifier,
                            @DESCRIPTION nvarchar(60) = '',
                            @CREATEINTERFUND bit = 1
                    )
                    as

                    set nocount on;

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

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

                    declare @CURRENTDATE datetime
                    set @CURRENTDATE = getdate()

                    begin try
                        -- TYPECODE 103 = Journal Entry Batch

                        exec dbo.USP_FINANCIALTRANSACTION_ADD @ID, @CHANGEAGENTID, null, @DESCRIPTION, 103, 0, @CURRENTDATE, @CURRENTDATE, 1;

                        insert into dbo.JOURNALENTRYBATCH(
                            ID,
                            CREATEINTERFUND,
                            BATCHNUMBER,
                            ADDEDBYID,
                            CHANGEDBYID,
                            DATEADDED,
                            DATECHANGED)
                        values(
                            @ID,
                            @CREATEINTERFUND,
                            dbo.UFN_JOURNALENTRYBATCH_GETNEXTNUMBER(),
                            @CHANGEAGENTID,
                            @CHANGEAGENTID,
                            @CURRENTDATE,
                            @CURRENTDATE)
                    end try

                    begin catch
                            exec dbo.USP_RAISE_ERROR
                            return 1
                    end catch

                    return 0