USP_DATAFORMTEMPLATE_ADD_PRICELIST

The save procedure used by the add dataform template "Price List Add Data Form".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	INOUT	The output parameter indicating the ID of the record added.
@NAME	nvarchar(100)	IN	Name
@DESCRIPTION	nvarchar(255)	IN	Description
@PRICES	xml	IN	Prices
@PROGRAMS	xml	IN	This price list will be saved to these programs
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.

Definition

Copy



                CREATE procedure dbo.USP_DATAFORMTEMPLATE_ADD_PRICELIST
                (
                    @ID uniqueidentifier = null output,
                    @NAME nvarchar(100) = '',
                    @DESCRIPTION nvarchar(255) = '',
                    @PRICES xml = null,
                    @PROGRAMS xml = null,
                    @CHANGEAGENTID uniqueidentifier = null
                )
                as

                set nocount on;

                if @ID is null
                        set @ID = newid()

                if @CHANGEAGENTID is null  
                        exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output

                declare @CURRENTDATE datetime
                set @CURRENTDATE = getdate()

                begin try
                    -- Check for any daily sales buttons that would be gutted by the change.

                    -- This was in PriceList.Edit but not here...

                    if exists(
                        select
                            ID
                        from dbo.DAILYSALEITEMPROGRAM
                        where PROGRAMID in (select T.c.value('(ID)[1]','uniqueidentifier') from @PROGRAMS.nodes('/PROGRAMS/ITEM') T(c))
                        and PRICETYPECODEID not in (select T.c.value('(PRICETYPECODEID)[1]','uniqueidentifier') from @PRICES.nodes('/PRICES/ITEM') T(c))
                    )
                    begin
                        raiserror('BBERR_DAILYSALES_PRICETYPESINUSE', 13, 1)
                    end

                    -- handle inserting the data

                    insert into dbo.PRICELIST
                    (
                        ID, 
                        NAME,
                        DESCRIPTION,
                        ADDEDBYID, 
                        CHANGEDBYID, 
                        DATEADDED, 
                        DATECHANGED
                    )
                    values
                    (
                        @ID, 
                        @NAME, 
                        @DESCRIPTION,
                        @CHANGEAGENTID, 
                        @CHANGEAGENTID, 
                        @CURRENTDATE, 
                        @CURRENTDATE
                    )

                    exec dbo.USP_PRICELIST_GETPRICES_ADDFROMXML @ID, @PRICES, @CHANGEAGENTID;

                    exec dbo.USP_PRICELIST_UPDATEPROGRAMPRICE @ID, @PRICES, @PROGRAMS;    

                end try

                begin catch
                        exec dbo.USP_RAISE_ERROR
                        return 1
                end catch

                return 0