USP_DATAFORMTEMPLATE_ADJUSTLOAD_STOCKSALE_2

The load procedure used by the edit dataform template "Stock Sale By Transaction Edit Form 2"

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.
@ISSUER	nvarchar(100)	INOUT	Issuer
@SALEDATE	date	INOUT	Date of sale
@SALEAMOUNT	money	INOUT	Sale amount
@FEE	money	INOUT	Fees
@NUMBEROFUNITS	decimal(20, 3)	INOUT	Units sold
@LOWPRICE	decimal(19, 4)	INOUT	Low
@MEDIANPRICE	decimal(19, 4)	INOUT	Median
@HIGHPRICE	decimal(19, 4)	INOUT	High
@ADJUSTMENTPOSTDATE	datetime	INOUT	Adjustment post date
@ADJUSTMENTDATE	datetime	INOUT	Adjustment date
@ADJUSTMENTREASON	nvarchar(100)	INOUT	Adjustment details
@UNITSREMAINING	decimal(20, 3)	INOUT	Units remaining
@ORIGINALMEDIANPRICE	decimal(19, 4)	INOUT	Original median price
@ADJUSTMENTEXISTS	bit	INOUT	Adjustment exists
@ADJUSTMENTREASONCODEID	uniqueidentifier	INOUT	Adjustment reason
@BASECURRENCYID	uniqueidentifier	INOUT	Base currency
@TRANSACTIONCURRENCYID	uniqueidentifier	INOUT	Transaction currency
@BASEEXCHANGERATEID	uniqueidentifier	INOUT	Exchange rate ID
@EXCHANGERATE	decimal(20, 8)	INOUT	Exchange rate
@HADSPOTRATE	bit	INOUT	Had spot rate
@RATECHANGED	bit	INOUT	Rate changed
@TRANSACTIONCURRENCYDESCRIPTION	nvarchar(110)	INOUT	Transaction currency description
@ADJUSTMENTPOSTSTATUSCODE	tinyint	INOUT	Post status code

Definition

Copy



                    CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADJUSTLOAD_STOCKSALE_2
                    (
                        @ID uniqueidentifier,
                        @DATALOADED bit = 0 output,
                        @TSLONG bigint = 0 output,
                        @ISSUER nvarchar(100) = null output,
                        @SALEDATE date = null output,
                        @SALEAMOUNT money = null output,
                        @FEE money = null output,
                        @NUMBEROFUNITS decimal(20,3) = null output,
                        @LOWPRICE decimal(19,4) = null output,
                        @MEDIANPRICE decimal(19,4) = null output,
                        @HIGHPRICE decimal(19,4) = null output,
                        @ADJUSTMENTPOSTDATE datetime = null output,
                        @ADJUSTMENTDATE datetime = null output,
                        @ADJUSTMENTREASON nvarchar(100) = null output,
                        @UNITSREMAINING decimal(20,3) = null output,
                        @ORIGINALMEDIANPRICE decimal(19,4) = null output,
                        @ADJUSTMENTEXISTS bit = null output,
                        @ADJUSTMENTREASONCODEID uniqueidentifier = null output,
                        @BASECURRENCYID uniqueidentifier = null output,
                        @TRANSACTIONCURRENCYID uniqueidentifier = null output,
                        @BASEEXCHANGERATEID uniqueidentifier = null output,
                        @EXCHANGERATE decimal(20,8) = null output,
                        @HADSPOTRATE bit = null output,
                        @RATECHANGED bit = null output,
                        @TRANSACTIONCURRENCYDESCRIPTION nvarchar(110) = null output,
            @ADJUSTMENTPOSTSTATUSCODE tinyint = null output
                    )
                    as
                        set nocount on

                        select
                            @DATALOADED = 1,
                            @TSLONG = STOCKSALE.TSLONG,
                            @SALEDATE = STOCKSALE.SALEDATE,
                            @SALEAMOUNT = STOCKSALE.TRANSACTIONSALEAMOUNT,
                            @FEE = STOCKSALE.TRANSACTIONFEE,
                            @NUMBEROFUNITS = STOCKSALE.NUMBEROFUNITS,
                            @LOWPRICE = STOCKSALE.TRANSACTIONLOWPRICE,
                            @MEDIANPRICE = STOCKSALE.TRANSACTIONMEDIANPRICE,
                            @HIGHPRICE = STOCKSALE.TRANSACTIONHIGHPRICE,
                            @ISSUER = STOCKDETAIL.ISSUER,
                            @UNITSREMAINING = STOCKDETAIL.NUMBEROFUNITS - coalesce((select sum(NUMBEROFUNITS) from dbo.STOCKSALE where STOCKDETAILID = STOCKDETAIL.ID and STOCKSALE.ID <> @ID), 0),
                            @ORIGINALMEDIANPRICE = STOCKDETAIL.TRANSACTIONMEDIANPRICE,
                            @BASECURRENCYID = STOCKSALE.BASECURRENCYID,
                            @TRANSACTIONCURRENCYID = STOCKSALE.TRANSACTIONCURRENCYID,
                            @BASEEXCHANGERATEID = STOCKSALE.BASEEXCHANGERATEID,
                            @EXCHANGERATE = 
                                case
                                    when STOCKSALE.BASEEXCHANGERATEID is not null
                                        then CURRENCYEXCHANGERATE.RATE
                                    when STOCKSALE.TRANSACTIONCURRENCYID = STOCKSALE.BASECURRENCYID
                                        then 1
                                    else 0
                                end,
                            @HADSPOTRATE =  
                                case
                                    when CURRENCYEXCHANGERATE.TYPECODE = 2
                                        then 1
                                    else 0
                                end,
                            @RATECHANGED = 0,
                            @TRANSACTIONCURRENCYDESCRIPTION = dbo.UFN_CURRENCY_GETDESCRIPTION(STOCKSALE.TRANSACTIONCURRENCYID)
                        from
                            dbo.STOCKSALE
                            inner join dbo.STOCKDETAIL on STOCKSALE.STOCKDETAILID = STOCKDETAIL.ID
                            left join dbo.CURRENCYEXCHANGERATE on STOCKSALE.BASEEXCHANGERATEID = CURRENCYEXCHANGERATE.ID
                        where
                            STOCKSALE.ID = @ID;

                        -- If adjustment already exists for this sold stock detail

                        set @ADJUSTMENTEXISTS = 0
                        set @ADJUSTMENTDATE = dbo.UFN_DATE_GETEARLIESTTIME(getdate())
                        set @ADJUSTMENTPOSTDATE = dbo.UFN_DATE_GETEARLIESTTIME(getdate())
            set @ADJUSTMENTPOSTSTATUSCODE = 1
                        select top 1
                            @ADJUSTMENTDATE = DATE,
                            @ADJUSTMENTPOSTDATE = POSTDATE,
                            @ADJUSTMENTREASON = REASON,
                            @ADJUSTMENTEXISTS = 1,
                            @ADJUSTMENTREASONCODEID = REASONCODEID,
              @ADJUSTMENTPOSTSTATUSCODE = POSTSTATUSCODE
                        from dbo.STOCKSALEADJUSTMENT
                        where STOCKSALEID = @ID and POSTSTATUSCODE <> 0