USP_DATAFORMTEMPLATE_EDIT_BALANCINGENTRY

The save procedure used by the edit dataform template "Balancing Entry Edit Form".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	IN	The input ID parameter indicating the ID of the record being edited.
@DESCRIPTION	nvarchar(60)	IN	Description
@BALANCINGENTRYDEBITFROM	xml	IN
@BALANCINGENTRYCREDITFROM	xml	IN
@BALANCINGENTRYDEBITTO	xml	IN
@BALANCINGENTRYCREDITTO	xml	IN
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.

Definition

Copy



          CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_BALANCINGENTRY (
              @ID uniqueidentifier,
            @DESCRIPTION nvarchar(60),
            @BALANCINGENTRYDEBITFROM xml,
              @BALANCINGENTRYCREDITFROM xml,
            @BALANCINGENTRYDEBITTO xml,
            @BALANCINGENTRYCREDITTO xml,
              @CHANGEAGENTID uniqueidentifier
          )
          as

              set nocount on;

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

              declare @CURRENTDATE datetime
              set @CURRENTDATE = getdate()

            exec dbo.USP_BALANCINGENTRY_VALIDATE @BALANCINGENTRYDEBITFROM, @BALANCINGENTRYCREDITFROM, @BALANCINGENTRYDEBITTO, @BALANCINGENTRYCREDITTO, @ID

              begin try
                  update dbo.BALANCINGENTRY set
                      DESCRIPTION = @DESCRIPTION,
                      CHANGEDBYID = @CHANGEAGENTID,
                      DATECHANGED = @CURRENTDATE
                  where ID = @ID

              exec dbo.USP_BALANCINGENTRY_ADDFROMXML @ID, 1, @BALANCINGENTRYDEBITFROM, @CHANGEAGENTID, @CURRENTDATE
              exec dbo.USP_BALANCINGENTRY_ADDFROMXML @ID, 2, @BALANCINGENTRYCREDITFROM, @CHANGEAGENTID, @CURRENTDATE
              exec dbo.USP_BALANCINGENTRY_ADDFROMXML @ID, 3, @BALANCINGENTRYDEBITTO, @CHANGEAGENTID, @CURRENTDATE
              exec dbo.USP_BALANCINGENTRY_ADDFROMXML @ID, 4, @BALANCINGENTRYCREDITTO, @CHANGEAGENTID, @CURRENTDATE         

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

          return 0;