USP_DATAFORMTEMPLATE_EDIT_PDACCOUNTCODEMAPDEVELOPMENTAUCTIONGAINLOSS

The save procedure used by the edit dataform template "Map Development Auction Purchase Gain Loss Edit Form".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	IN	The input ID parameter indicating the ID of the record being edited.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@REVENUETYPES	xml	IN	Transaction types
@DEBITGLACCOUNTID	uniqueidentifier	IN	Account
@DEBITPDACCOUNTSEGMENTVALUEID	uniqueidentifier	IN	Account code
@CREDITGLACCOUNTID	uniqueidentifier	IN	Account
@CREDITPDACCOUNTSEGMENTVALUEID	uniqueidentifier	IN	Account code
@PDACCOUNTSYSTEMID	uniqueidentifier	IN
@PAYMENTMETHODS	xml	IN	Payment methods
@SUBTYPETWO	xml	IN	Credit card subtypes

Definition

Copy


CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_PDACCOUNTCODEMAPDEVELOPMENTAUCTIONGAINLOSS
    (
        @ID uniqueidentifier,
        @CHANGEAGENTID uniqueidentifier = null,
        @REVENUETYPES xml,
        @DEBITGLACCOUNTID uniqueidentifier,
        @DEBITPDACCOUNTSEGMENTVALUEID uniqueidentifier,
        @CREDITGLACCOUNTID uniqueidentifier,
        @CREDITPDACCOUNTSEGMENTVALUEID uniqueidentifier, 
        @PDACCOUNTSYSTEMID uniqueidentifier,
        @PAYMENTMETHODS xml,
        @SUBTYPETWO xml
    )
as

    set nocount on;

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

    declare @CURRENTDATE datetime
    set @CURRENTDATE = getdate()

    declare @PaymentMethodsTable table (NameID int)

    declare @OFFICEID int
    set @OFFICEID = 14


    begin try
        begin tran 

            insert into @PaymentMethodsTable (NameID)
            select NameID from dbo.UFN_PDACCOUNTCODEMAPPING_PAYMENTMETHODS_FROMITEMLISTXML(@PAYMENTMETHODS)

            update dbo.PDACCOUNTCODEMAPPING set
                REVENUETYPE = (select sum(NAMEID) from dbo.UFN_PDACCOUNTCODEMAPPING_REVENUETYPES_FROMITEMLISTXML(@REVENUETYPES)),
                PAYMENTMETHOD = (select sum(distinct NAMEID) from @PaymentMethodsTable),
                OFFICEID = @OFFICEID,
                DEBITGLACCOUNTID = @DEBITGLACCOUNTID,
                DEBITPDACCOUNTSEGMENTVALUEID = @DEBITPDACCOUNTSEGMENTVALUEID,
                CREDITGLACCOUNTID = @CREDITGLACCOUNTID,
                CREDITPDACCOUNTSEGMENTVALUEID = @CREDITPDACCOUNTSEGMENTVALUEID,
                CHANGEDBYID = @CHANGEAGENTID,
                DATECHANGED = @CURRENTDATE,
                PDACCOUNTSYSTEMID = @PDACCOUNTSYSTEMID        
            where ID = @ID

              declare @CONTEXTCACHE varbinary(128) = CONTEXT_INFO()
              set CONTEXT_INFO @CHANGEAGENTID

              if @CONTEXTCACHE is not null
                set CONTEXT_INFO @CONTEXTCACHE

            if exists(select * from @PaymentMethodsTable where NameID = 4)   --Credit card
            begin

              if exists (select * from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETWO_FROMITEMLISTXML(@SUBTYPETWO) where SUBTYPETWOID = '99999999-9999-9999-9999-999999999999') 
                  begin
                  if not exists (select * from dbo.PDACCOUNTCODEMAPPINGSUBTYPE where PDACCOUNTCODEMAPPINGID = @ID and SUBTYPEID = '99999999-9999-9999-9999-999999999999' and ADDITIONALSUBTYPE = 2)
                      begin
                      delete from dbo.PDACCOUNTCODEMAPPINGSUBTYPE where PDACCOUNTCODEMAPPINGID = @ID and ADDITIONALSUBTYPE = 2
                      insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                      values 
                      (2, @ID, '99999999-9999-9999-9999-999999999999', @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)
                      end 
                  end
              else
                  begin
                  delete PDACCOUNTCODEMAPPINGSUBTYPE from dbo.PDACCOUNTCODEMAPPINGSUBTYPE 
                  where not exists(select * from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETWO_FROMITEMLISTXML(@SUBTYPETWO) TF where TF.SUBTYPETWOID = PDACCOUNTCODEMAPPINGSUBTYPE.SUBTYPEID)
                  and PDACCOUNTCODEMAPPINGID = @ID
                  and ADDITIONALSUBTYPE = 2

          if (select count(*) from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETWO_FROMITEMLISTXML(@SUBTYPETWO)) = 0
                      insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                      values 
                      (2, @ID, '99999999-9999-9999-9999-999999999999', @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)
          else
                    insert into dbo.PDACCOUNTCODEMAPPINGSUBTYPE (ADDITIONALSUBTYPE, PDACCOUNTCODEMAPPINGID, SUBTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
                    select 2, @ID, SUBTYPETWOID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE from dbo.UFN_PDACCOUNTCODEMAPPINGSUBTYPE_SUBTYPETWO_FROMITEMLISTXML(@SUBTYPETWO) TF
                    where not exists(select * from PDACCOUNTCODEMAPPINGSUBTYPE WHERE PDACCOUNTCODEMAPPINGSUBTYPE.SUBTYPEID = TF.SUBTYPETWOID and PDACCOUNTCODEMAPPINGID = @ID and ADDITIONALSUBTYPE = 2)
                  end            
            end     
            else
              delete from dbo.PDACCOUNTCODEMAPPINGSUBTYPE where PDACCOUNTCODEMAPPINGID = @ID and ADDITIONALSUBTYPE = 2

            if dbo.UFN_PDACCOUNTCODEMAPPING_VALIDMAPPINGWITHSUBTYPES2(@ID, @CURRENTDATE) = 0
                raiserror('CK_PDACCOUNTCODEMAPPING_VALIDMAPPINGWITHSUBTYPES', 16, 1)
        commit         

    end try
    begin catch
        exec dbo.USP_RAISE_ERROR
        return 1
    end catch

return 0;