USP_DATAFORMTEMPLATE_EDITLOAD_LEDGERACCOUNT

The load procedure used by the edit dataform template "Ledger Account 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.
@DESCRIPTION	nvarchar(400)	INOUT	Description
@DATAELEMENTS	xml	INOUT	Data elements
@ACCOUNTCODEINFO	xml	INOUT
@DEFAULTDESCRIPTIONINFO	xml	INOUT
@PDACCOUNTSYSTEMID	uniqueidentifier	INOUT

Definition

Copy



CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDITLOAD_LEDGERACCOUNT(
  @ID uniqueidentifier,
  @DATALOADED bit = 0 output,
  @TSLONG bigint = 0 output,
    @DESCRIPTION nvarchar(400) = null output,
    @DATAELEMENTS xml = null output,
    @ACCOUNTCODEINFO xml = null output,
  @DEFAULTDESCRIPTIONINFO xml = null output,
  @PDACCOUNTSYSTEMID uniqueidentifier = null output
)
as

    set nocount on;

    set @DATALOADED = 0
    set @TSLONG = 0

  select
        @DATALOADED = 1,
        @TSLONG = A.TSLONG,
        @DESCRIPTION = A.ACCOUNTDESCRIPTION,
        @DATAELEMENTS = dbo.UFN_LEDGERACCOUNT_GETACCOUNTSEGMENTS_TOITEMLISTXML(A.ID)
    ,@PDACCOUNTSYSTEMID = A.PDACCOUNTSYSTEMID
    from dbo.GLACCOUNT A
    where A.ID = @ID

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

    set @ACCOUNTCODEINFO =
    (select
        ACCOUNTCODE.ID, 
        ACCOUNTCODE.CATEGORYCODE,
        ACCOUNTCODE.SUBCATEGORYCODE, 
    case ACCOUNTCODE.CONTRAACCOUNT when 1 then case ACCOUNTCODE.NORMALBALANCECODE when 1 then 2 else 1 end else ACCOUNTCODE.NORMALBALANCECODE end as BALANCETYPE,
        ACCOUNTCODE.CONTRAACCOUNT as ISCONTRA
    from dbo.ACCOUNTCODE
    inner join dbo.PDACCOUNTSEGMENTVALUE on ACCOUNTCODE.ID = PDACCOUNTSEGMENTVALUE.ID
    inner join dbo.PDACCOUNTSTRUCTURE on PDACCOUNTSEGMENTVALUE.PDACCOUNTSTRUCTUREID = PDACCOUNTSTRUCTURE.ID
  where PDACCOUNTSTRUCTURE.PDACCOUNTSYSTEMID = @PDACCOUNTSYSTEMID and PDACCOUNTSTRUCTURE.ISBASICGL = 0
    for xml raw('ITEM'),type,elements,root('ACCOUNTCODEINFO'),BINARY BASE64)
    return 0;