USP_DATAFORMTEMPLATE_EDITLOAD_CLOSING_REQUIREMENT

The load procedure used by the edit dataform template "Closing Requirement Edit Form"

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	IN	The input ID parameter used to load the fields defined on the form.
@DATALOADED	bit	INOUT	Output parameter indicating whether or not data was actually loaded.
@TSLONG	bigint	INOUT	Output parameter indicating the TSLONG value of the record being edited. This is used to manage multi-user concurrency issues when multiple users access the same record.
@RECORDTYPEID	uniqueidentifier	INOUT
@DESCRIPTION	nvarchar(60)	INOUT	Description
@LEDGERACCOUNTID	uniqueidentifier	INOUT	Closing account
@NETASSETCLASSIFICATIONCODE	tinyint	INOUT	Net asset classification
@CLOSINGELEMENTID	uniqueidentifier	INOUT
@CLOSINGELEMENTTYPE	tinyint	INOUT
@DATAELEMENTID	uniqueidentifier	INOUT	Specific element
@DATAELEMENTQUERYID	uniqueidentifier	INOUT	Selection
@CLOSINGREQUIREMENTDETAIL	xml	INOUT	Closing Requirement Details

Definition

Copy



CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDITLOAD_CLOSING_REQUIREMENT
(
  @ID uniqueidentifier,
  @DATALOADED bit = 0 output,
  @TSLONG bigint = 0 output,
  @RECORDTYPEID uniqueidentifier = null output,
  @DESCRIPTION nvarchar(60) = null output,
  @LEDGERACCOUNTID uniqueidentifier = null output,
  @NETASSETCLASSIFICATIONCODE tinyint = null output,
  @CLOSINGELEMENTID uniqueidentifier = null output,
  @CLOSINGELEMENTTYPE tinyint = null output,
  @DATAELEMENTID uniqueidentifier = null output,
  @DATAELEMENTQUERYID uniqueidentifier = null output,
  @CLOSINGREQUIREMENTDETAIL xml = null output
)
as
  set nocount on;

  set @DATALOADED = 0
  set @TSLONG = 0

  declare @PDACCOUNTSYSTEMID uniqueidentifier = null

  select
    @DATALOADED = 1,
    @TSLONG = TSLONG,
    @DESCRIPTION = DESCRIPTION, 
    @LEDGERACCOUNTID = LEDGERACCOUNTID, 
    @NETASSETCLASSIFICATIONCODE = NETASSETCLASSIFICATIONCODE,
    @DATAELEMENTID = DATAELEMENTID,
    @DATAELEMENTQUERYID = DATAELEMENTQUERYID
  from dbo.CLOSINGREQUIREMENT
  where ID = @ID

  if @PDACCOUNTSYSTEMID is null
    set @PDACCOUNTSYSTEMID = '4B121C2C-CCE6-440D-894C-EA0DEF80D50B'

  set @CLOSINGREQUIREMENTDETAIL = dbo.UFN_CLOSINGREQUIREMENTDETAILS_TOITEMLISTXML(@ID);

  select @TSLONG=max(TSLONG) from dbo.CLOSINGREQUIREMENT;

  select top 1 @CLOSINGELEMENTID = ID, @CLOSINGELEMENTTYPE = ELEMENTDEFINITIONCODE
  from dbo.PDACCOUNTSTRUCTURE where CLOSINGELEMENT=1 and PDACCOUNTSYSTEMID = @PDACCOUNTSYSTEMID and ISBASICGL = 0;

  select @RECORDTYPEID = ID from dbo.RECORDTYPE
  where upper(NAME) = 
    case @CLOSINGELEMENTTYPE
    when 1 then 'ACCOUNT CODE'
    when 7 then 'PROJECT'
    else 'ACCOUNTING ELEMENT' end

  return 0;