USP_DATAFORMTEMPLATE_ADD_APPOSTTOGLPROCESS

The save procedure used by the add dataform template "AP Post to GL Process Add Form".

Parameters

Parameter	Parameter Type	Mode	Description
@ID	uniqueidentifier	INOUT	The output parameter indicating the ID of the record added.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@NAME	nvarchar(100)	IN	Name
@DESCRIPTION	nvarchar(255)	IN	Description
@INVOICEPOSTINGOPTIONCODE	tinyint	IN	Invoices and credit memos
@INVOICEIDSETREGISTERID	uniqueidentifier	IN	Selection
@DISBURSEMENTOPTIONCODE	tinyint	IN	Disbursements
@DISBURSEMENTREGISTERID	uniqueidentifier	IN	Selection
@INCLUDEBYPOSTDATE	bit	IN	Include 'not posted' transactions by post date
@POSTTHROUGHDATECODE	tinyint	IN	Post dates up to and including
@EXPENSEPOSTMETHODCODE	tinyint	IN	Expense
@PAYABLESPOSTMETHODCODE	tinyint	IN	Payables summary
@CASHPOSTMETHODCODE	tinyint	IN	Treasury cash
@SUMMARIZEBYCODE	tinyint	IN	Summarize transactions by
@CREATEOUTPUTIDSET	bit	IN	Create selection from results
@OUTPUTIDSETNAME	nvarchar(100)	IN	Selection name
@OVERWRITEOUTPUTIDSET	bit	IN	Overwrite existing selection

Definition

Copy



create procedure dbo.USP_DATAFORMTEMPLATE_ADD_APPOSTTOGLPROCESS
(
    @ID uniqueidentifier = null output,
    @CHANGEAGENTID uniqueidentifier = null,
        @NAME nvarchar(100)='', 
        @DESCRIPTION nvarchar(255)='', 
      @INVOICEPOSTINGOPTIONCODE tinyint = 0,
    @INVOICEIDSETREGISTERID uniqueidentifier = null,
    @DISBURSEMENTOPTIONCODE tinyint = 0,
    @DISBURSEMENTREGISTERID uniqueidentifier = null,
    @INCLUDEBYPOSTDATE bit = 0,
    @POSTTHROUGHDATECODE tinyint = 0,
    @EXPENSEPOSTMETHODCODE tinyint = 1,
    @PAYABLESPOSTMETHODCODE tinyint = 2,
    @CASHPOSTMETHODCODE tinyint = 1,
    @SUMMARIZEBYCODE tinyint = 0,
    @CREATEOUTPUTIDSET bit = 0,
    @OUTPUTIDSETNAME nvarchar(100) = '',
    @OVERWRITEOUTPUTIDSET bit = 0

)
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 = (select getdate())
declare @InvoicesID uniqueidentifier = (select ID from dbo.FINANCIALSYSTEMTRANSACTIONTYPE where TYPECODE = 101)
declare @CreditMemosID uniqueidentifier = (select ID from dbo.FINANCIALSYSTEMTRANSACTIONTYPE where TYPECODE = 102)
declare @DisbursementsID uniqueidentifier = (select ID from dbo.FINANCIALSYSTEMTRANSACTIONTYPE where TYPECODE = 105)

begin try
    -- handle inserting the data

    insert into dbo.GLPOSTPROCESS
        (ID, FINANCIALSYSTEMID, NAME, DESCRIPTION, INCLUDEBYPOSTDATE, POSTTHROUGHDATECODE, SUMMARIZEBYDATECODE, CREATEOUTPUTIDSET, OUTPUTIDSETNAME, OVERWRITEOUTPUTIDSET, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
    values
        (@ID, '777AE8A1-67F4-474F-8474-E16F41EE0EC4', @NAME, @DESCRIPTION, @INCLUDEBYPOSTDATE, @POSTTHROUGHDATECODE, @SUMMARIZEBYCODE, @CREATEOUTPUTIDSET, @OUTPUTIDSETNAME, @OVERWRITEOUTPUTIDSET, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)

  insert into dbo.GLPOSTPROCESSPOSTMETHOD
    (ID, GLPOSTPROCESSID, POSTMETHODCODE, TRANSACTIONTYPECODE, FINANCIALSYSTEMTRANSACTIONTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
    values
    (newid(), @ID, @EXPENSEPOSTMETHODCODE, 0, @InvoicesID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE),
    (newid(), @ID, @EXPENSEPOSTMETHODCODE, 0, @CreditMemosID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE),
    (newid(), @ID, @PAYABLESPOSTMETHODCODE, 1, @InvoicesID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE),
    (newid(), @ID, @PAYABLESPOSTMETHODCODE, 1, @CreditMemosID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE),
    (newid(), @ID, @PAYABLESPOSTMETHODCODE, 0, @DisbursementsID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE),
    (newid(), @ID, @CASHPOSTMETHODCODE, 1, @DisbursementsID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)

  if @INVOICEPOSTINGOPTIONCODE = 0 
    insert into dbo.GLPOSTPROCESSTRANSACTIONCRITERIA
      (ID, GLPOSTPROCESSID, POSTINGOPTIONCODE, IDSETREGISTERID, FINANCIALSYSTEMTRANSACTIONTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
      values
      (newid(), @ID, @INVOICEPOSTINGOPTIONCODE, @INVOICEIDSETREGISTERID, @InvoicesID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE),
      (newid(), @ID, @INVOICEPOSTINGOPTIONCODE, @INVOICEIDSETREGISTERID, @CreditMemosID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE),
      (newid(), @ID, @DISBURSEMENTOPTIONCODE, @DISBURSEMENTREGISTERID, @DisbursementsID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)
  else
    insert into dbo.GLPOSTPROCESSTRANSACTIONCRITERIA
      (ID, GLPOSTPROCESSID, POSTINGOPTIONCODE, IDSETREGISTERID, FINANCIALSYSTEMTRANSACTIONTYPEID, ADDEDBYID, CHANGEDBYID, DATEADDED, DATECHANGED)
      values
      (newid(), @ID, @INVOICEPOSTINGOPTIONCODE, @INVOICEIDSETREGISTERID, @InvoicesID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE),
      (newid(), @ID, @DISBURSEMENTOPTIONCODE, @DISBURSEMENTREGISTERID, @DisbursementsID, @CHANGEAGENTID, @CHANGEAGENTID, @CURRENTDATE, @CURRENTDATE)
end try

begin catch
    exec dbo.USP_RAISE_ERROR
    return 1
end catch

return 0