USP_DATAFORMTEMPLATE_EDITLOAD_MKTEXPENSE

The load procedure used by the edit dataform template "Marketing Expense Edit Form"

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	IN	The input ID parameter used to load the fields defined on the form.
@CURRENTAPPUSERID	uniqueidentifier	IN	Input parameter indicating the ID of the current user.
@DATALOADED	bit	INOUT	Output parameter indicating whether or not data was actually loaded.
@NAME	nvarchar(100)	INOUT	Name
@DESCRIPTION	nvarchar(255)	INOUT	Description
@SITEID	uniqueidentifier	INOUT	Site
@SITEREQUIRED	bit	INOUT	Site required?
@SITECANBECHANGED	bit	INOUT	Site can be changed?
@EXPENSETYPECODEID	uniqueidentifier	INOUT	Type
@VENDORID	uniqueidentifier	INOUT	Vendor
@COST	money	INOUT	Cost
@COSTDISTRIBUTIONMETHODCODE	tinyint	INOUT	Distribution
@EXPENSEINUSE	bit	INOUT	Expense in use?
@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.
@BASECURRENCYID	uniqueidentifier	INOUT	Currency

Definition

Copy


CREATE procedure dbo.[USP_DATAFORMTEMPLATE_EDITLOAD_MKTEXPENSE]
(
  @ID uniqueidentifier,
  @CURRENTAPPUSERID uniqueidentifier,
  @DATALOADED bit = 0 output,
  @NAME nvarchar(100) = null output,
  @DESCRIPTION nvarchar(255) = null output,
  @SITEID uniqueidentifier = null output,
  @SITEREQUIRED bit = null output,
  @SITECANBECHANGED bit = null output,
  @EXPENSETYPECODEID uniqueidentifier = null output,
  @VENDORID uniqueidentifier = null output,
  @COST money = null output,
  @COSTDISTRIBUTIONMETHODCODE tinyint = null output,
  @EXPENSEINUSE bit = null output,
  @TSLONG bigint = 0 output,
  @BASECURRENCYID uniqueidentifier = null output
)
as
  set nocount on;

  set @DATALOADED = 0;
  set @TSLONG = 0;

  select 
    @DATALOADED = 1,
    @NAME = [NAME],
    @DESCRIPTION = [DESCRIPTION],
    @SITEID = [SITEID],
    @EXPENSETYPECODEID = [EXPENSETYPECODEID],
    @VENDORID = [VENDORID],
    @COST = [COST],
    @COSTDISTRIBUTIONMETHODCODE = [COSTDISTRIBUTIONMETHODCODE],
    @TSLONG = [TSLONG],
    @BASECURRENCYID = [BASECURRENCYID]
  from dbo.[MKTEXPENSE]
  where [ID] = @ID;

  set @SITEREQUIRED = dbo.[UFN_SITEREQUIREDFORUSERONFEATURE](@CURRENTAPPUSERID, '1AEE40AC-08FC-4350-8B0B-0D66EBE02EE7', 1);
  set @SITECANBECHANGED = 1; -- obsolete

  set @EXPENSEINUSE = case when exists(select top 1 1 from dbo.[MKTPACKAGEEXPENSE] where [EXPENSEID] = @ID) then 1 else 0 end;

  return 0;