USP_DATAFORMTEMPLATE_EDITLOAD_ADJUSTPROPERTYDETAILGLDISTRIBUTIONBYTRANSACTION
The load procedure used by the edit dataform template "Posted Sold Property GL Distribution By Transaction 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. |
@GLDISTRIBUTION | xml | INOUT | Sold Property GL distribution |
@ADJUSTMENTDATE | datetime | INOUT | Adjusted Date |
@ADJUSTMENTPOSTDATE | datetime | INOUT | Adjusted Post Date |
@ADJUSTMENTPOSTSTATUSCODE | tinyint | INOUT | Post Status Code |
@ADJUSTMENTREASON | nvarchar(300) | INOUT | Adjustment reason |
@CAPTION | nvarchar(10) | INOUT | PROPERTY Or Property |
@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. |
Definition
Copy
CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDITLOAD_ADJUSTPROPERTYDETAILGLDISTRIBUTIONBYTRANSACTION
(
@ID uniqueidentifier,
@DATALOADED bit = 0 output,
@GLDISTRIBUTION xml = null output,
@ADJUSTMENTDATE datetime = null output,
@ADJUSTMENTPOSTDATE datetime = null output,
@ADJUSTMENTPOSTSTATUSCODE tinyint = null output,
@ADJUSTMENTREASON nvarchar(300) = null output,
@CAPTION nvarchar(10) = null output,
@TSLONG bigint = 0 output
)
as
begin
set nocount on;
set @DATALOADED = 0;
set @TSLONG = 0;
select @GLDISTRIBUTION = dbo.UFN_REVENUE_GETPROPERTYDETAILGLDISTRIBUTION_TOITEMLISTXML(@ID),
@CAPTION = 'PROPERTY',
@ADJUSTMENTDATE = getdate(),
@ADJUSTMENTPOSTDATE = getdate(),
@ADJUSTMENTPOSTSTATUSCODE = 0;
-- if adjustment already exists for this sold PROPERTY detail
select top 1
@ADJUSTMENTDATE = DATE,
@ADJUSTMENTPOSTDATE = POSTDATE,
@ADJUSTMENTPOSTSTATUSCODE = 1,
@ADJUSTMENTREASON = REASON
from dbo.PROPERTYDETAILADJUSTMENT
inner join dbo.REVENUEPAYMENTMETHOD on PROPERTYDETAILADJUSTMENT.PROPERTYDETAILID = REVENUEPAYMENTMETHOD.ID
where REVENUEPAYMENTMETHOD.ID = @ID and POSTSTATUSCODE = 1;
if @GLDISTRIBUTION is not null
begin
set @DATALOADED = 1;
select
@TSLONG = max(PROPERTYDETAILGLDISTRIBUTION.TSLONG)
from
dbo.PROPERTYDETAILGLDISTRIBUTION
inner join
dbo.REVENUEPAYMENTMETHOD on PROPERTYDETAILGLDISTRIBUTION.PROPERTYDETAILID = REVENUEPAYMENTMETHOD.ID
where
REVENUEPAYMENTMETHOD.ID = @ID;
end
return 0;
end