USP_GLACCOUNTCODE_EDITSAVE

The save procedure used by the edit dataform template "Account Code 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.
@SHORTID	nvarchar(100)	IN	ID
@DESCRIPTION	nvarchar(60)	IN	Description
@ACTIVE	bit	IN	Active
@CONTRAACCOUNT	bit	IN	Contra account
@CASHFLOW	uniqueidentifier	IN	Cash Flow
@WORKINGCAPITAL	uniqueidentifier	IN	Working Capital
@PREVENTDATAENTRY	bit	IN	Prevent data entry
@PREVENTDATAENTRYBEFOREDATE	datetime	IN	Before
@PREVENTDATAENTRYAFTERDATE	datetime	IN	After
@PREVENTPOST	bit	IN	Prevent posting
@PREVENTPOSTBEFOREDATE	datetime	IN	Before
@PREVENTPOSTAFTERDATE	datetime	IN	After
@CATEGORYCODE	tinyint	IN	Category
@SUBCATEGORYCODE	tinyint	IN	Subcategory

Definition

Copy



CREATE procedure dbo.USP_GLACCOUNTCODE_EDITSAVE (
    @ID uniqueidentifier,
    @CHANGEAGENTID uniqueidentifier = null,
    @SHORTID nvarchar(100),
    @DESCRIPTION nvarchar(60),
    @ACTIVE bit,
    @CONTRAACCOUNT bit,
    @CASHFLOW uniqueidentifier,
    @WORKINGCAPITAL uniqueidentifier,
  @PREVENTDATAENTRY bit ,
  @PREVENTDATAENTRYBEFOREDATE datetime,
  @PREVENTDATAENTRYAFTERDATE datetime,
  @PREVENTPOST bit ,
  @PREVENTPOSTBEFOREDATE datetime,
  @PREVENTPOSTAFTERDATE datetime,
  @CATEGORYCODE tinyint,
  @SUBCATEGORYCODE tinyint
)
as

    set nocount on;

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

    declare @CURRENTDATE datetime
    set @CURRENTDATE = getdate()

    begin try
        update dbo.PDACCOUNTSEGMENTVALUE set
            SHORTDESCRIPTION= @SHORTID,
            DESCRIPTION = @DESCRIPTION,
            CHANGEDBYID = @CHANGEAGENTID,
            ISACTIVE = @ACTIVE,
      PREVENTDATAENTRY = @PREVENTDATAENTRY,
      PREVENTDATAENTRYBEFOREDATE = @PREVENTDATAENTRYBEFOREDATE,
      PREVENTDATAENTRYAFTERDATE = @PREVENTDATAENTRYAFTERDATE,
      PREVENTPOST = @PREVENTPOST,
      PREVENTPOSTBEFOREDATE = @PREVENTPOSTBEFOREDATE,
      PREVENTPOSTAFTERDATE = @PREVENTPOSTAFTERDATE,
            DATECHANGED = @CURRENTDATE
        where ID = @ID

        -- handle updating the Account Code

        update dbo.ACCOUNTCODE set
            CATEGORYCODE = @CATEGORYCODE,
      SUBCATEGORYCODE = isnull(@SUBCATEGORYCODE,0),
            CONTRAACCOUNT = @CONTRAACCOUNT,
            CASHFLOWCODEID = @CASHFLOW,
            WORKINGCAPITALCODEID = @WORKINGCAPITAL
        where ID = @ID

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

return 0;