API query SelectPostingVatV01 (optimised)

Description

SelectPostingVat01: query that returns all kind of information reagrding the vat/tax used on postings.
Notes:
- we have caluclated fields for the debtor-code and creditor-code as we already have the max (18) number of tables in a single query
- the optimise flag is turned on because the users may file on all kind of information

query filter (table tFilter)

tcBusinessFieldName	tcDataType	tcOperator
iiCompanyId	i
tCurrency.CurrencyCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.FromTxzTaxZone	c	=,>=,>,<>,<=,<,begins,can-do,matches
tGL.GLCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tGL.GLTypeCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tJournal.JournalCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tJournal.JournalControl	c	=,>=,>,<>,<=,<,begins,can-do,matches
tJournal.JournalTypeCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingBusinessRelationTxt	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingDate	t	=,>=,>,<>,<=,<
tPosting.PostingInvoiceReferenceTxt	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingIsReplacement	l	=,<>
tPosting.PostingIsReversing	l	=,<>
tPosting.PostingOriginAddressCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingPeriod	i	=,>=,>,<>,<=,<
tPostingVat.PostingVatBaseCreditCC	d	=,>=,>,<>,<=,<
tPostingVat.PostingVatBaseCreditLC	d	=,>=,>,<>,<=,<
tPostingVat.PostingVatBaseDebitCC	d	=,>=,>,<>,<=,<
tPostingVat.PostingVatBaseDebitLC	d	=,>=,>,<>,<=,<
tPostingVat.PostingVatExchangeRate	d	=,>=,>,<>,<=,<
tPostingVat.PostingVatInOut	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatIsSuspDel	l	=,<>
tPostingVat.PostingVatOwnTaxIDFeder	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatOwnTaxIDMisc1	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatOwnTaxIDMisc2	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatOwnTaxIDMisc3	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatOwnTaxIDState	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatRateScale	d	=,>=,>,<>,<=,<
tPostingVat.PostingVatTaxCreditCC	d	=,>=,>,<>,<=,<
tPostingVat.PostingVatTaxCreditLC	d	=,>=,>,<>,<=,<
tPostingVat.PostingVatTaxDebitCC	d	=,>=,>,<>,<=,<
tPostingVat.PostingVatTaxDebitLC	d	=,>=,>,<>,<=,<
tPostingVat.PostingVatTaxIDFeder	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatTaxIDMisc1	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatTaxIDMisc2	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatTaxIDMisc3	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatTaxIDState	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatTaxPointDate	t	=,>=,>,<>,<=,<
tPostingVat.PostingVatTaxTransType	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.PostingVatTransType	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPosting.PostingVoucher	i	=,>=,>,<>,<=,<
tPosting.PostingYear	i	=,>=,>,<>,<=,<
tPostingLine.PostingYearPeriod	i	=,>=,>,<>,<=,<
tPostingVat.ToTxzTaxZone	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.TxclTaxCls	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.TxenvTaxEnv	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.TxtyTaxType	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingVat.TxuTaxUsage	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVat.TxuTaxUsage	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVat.VatCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVat.VatDescription	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVatGroup3.VatGroupCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVatGroup2.VatGroupCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVatGroup4.VatGroupCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVatGroup7.VatGroupCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVatGroup6.VatGroupCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVatGroup1.VatGroupCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVatGroup5.VatGroupCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVat.VatInOut	c	=,>=,>,<>,<=,<,begins,can-do,matches
tVat.VatIsAbsorbed	l	=,<>
tVat.VatIsRetained	l	=,<>
tVatPeriod.VatPeriodPeriod	i	=,>=,>,<>,<=,<
tVatPeriod.VatPeriodYear	i	=,>=,>,<>,<=,<
tVat.VatTransactionType	c	=,>=,>,<>,<=,<,begins,can-do,matches

Parameters (internal)

iiCompanyId

integer

Company id

query condition

each Posting where

Posting.Company_Id = iiCompanyId AND

first Journal (inner-join) where

Journal.SharedSet_Id = vi_JOURNAL_sharedset(iiCompanyId) AND
Journal.Journal_ID = Posting.Journal_ID AND

each PostingLine (inner-join) where

PostingLine.Company_Id = iiCompanyId AND
PostingLine.Posting_ID = Posting.Posting_ID AND

first Currency (inner-join) where

Currency.Currency_ID = PostingLine.Currency_ID AND

first GL (inner-join) where

GL.SharedSet_Id = vi_GL_sharedset(iiCompanyId) AND
GL.GL_ID = PostingLine.GL_ID AND
GL.GLTypeCode = {&GLTYPECODE-VAT}

each PostingVat (inner-join) where

PostingVat.PostingLine_ID = PostingLine.PostingLine_ID AND

first Vat (inner-join) where

Vat.Vat_ID = PostingVat.Vat_ID AND

first VatGroup7 (inner-join) where

VatGroup7.VatGroup_ID = PostingVat.VatGroup_ID AND

first VatPeriod (inner-join) where

VatPeriod.Company_Id = iiCompanyId AND
VatPeriod.VatPeriod_ID = PostingVat.VatPeriod_ID AND

first VatRule (inner-join) where

VatRule.VatRule_ID = PostingVat.VatRule_ID AND

first VatGroup1 (conditional-join) where

VatGroup1.VatGroup_ID = VatRule.InvoiceVatGroup_ID AND

first VatGroup2 (conditional-join) where

VatGroup2.VatGroup_ID = VatRule.CreditNoteVatGroup_ID AND

first VatGroup3 (conditional-join) where

VatGroup3.VatGroup_ID = VatRule.AbsorbedInvoiceVatGroup_ID AND

first VatGroup4 (conditional-join) where

VatGroup4.VatGroup_ID = VatRule.AbsorbedCreditNVatGroup_ID AND

first VatGroup5 (conditional-join) where

VatGroup5.VatGroup_ID = VatRule.RetainVoucherVatGroup_ID AND

first VatGroup6 (conditional-join) where

VatGroup6.VatGroup_ID = VatRule.RetainCVoucherVatGroup_ID AND

query resultset tqSelectPostingVatV01

field name	data type	db field	description
tcGLTypeCode	character	GL.GLTypeCode	A code identifying the type of account.
tcJournalControl	character	Journal.JournalControl	A type of daybook control: Financial/Operational/External-used to clearly separate postings based on their source.
tcJournalTypeCodeTr	character	calculated	Daybook Type
tcPostingOriginAddressCode	character	Posting.PostingOriginAddressCode	For invoices created with Invoice Post and Print, the address code of the bill-to customer is stored in this field.
tdPostingVatBaseCreditCC	decimal	PostingVat.PostingVatBaseCreditCC	SC (Statutory Currency) Base Credit amount.
tdPostingVatBaseDebitCC	decimal	PostingVat.PostingVatBaseDebitCC	SC (Statutory Currency) Base Debit amount.
tlPostingVatIsSuspDel	logical	PostingVat.PostingVatIsSuspDel	Suspended/Delayed Tax
tdPostingVatTaxCreditCC	decimal	PostingVat.PostingVatTaxCreditCC	SC (Statutory Currency) Tax Credit amount.
	api annotation:		?
tdPostingVatTaxDebitCC	decimal	PostingVat.PostingVatTaxDebitCC	SC (Statutory Currency) Tax Debit amount.
	api annotation:		?
tiPostingYearPeriod	integer	PostingLine.PostingYearPeriod	The GL calendar year/period for the journal entry.
	api annotation:		In Create mode, it will get be defaulted to the value for the field PostingYearPeriod of tPosting.
tiVat_ID	integer	Vat.Vat_ID	Record ID
tcVatGroupCode	character	VatGroup7.VatGroupCode	Tax Group Code
tiPostingYear	integer	Posting.PostingYear	The GL calendar year for the posting.
tiPostingPeriod	integer	Posting.PostingPeriod	The GL period for the posting. The period must be open.
tcJournalCode	character	Journal.JournalCode	A daybook code (maximum eight characters).
tiPostingVoucher	integer	Posting.PostingVoucher	Voucher is a sequential number that uniquely identifies the journal entry (within the combination of an entity and a daybook code).
	api annotation:		In create mode,enter 0 in this field - the voucher number is generated by the system. In Modify/Delete, the correct voucher number must be entered because this identifies the record.
ttPostingDate	date	Posting.PostingDate	The accounting date on which the journal entry is posted. The posting date must be a valid calendar date and must be within the GL calendar year (PostingYear) and period (PostingPeriod).
tcPostingBusinessRelationTxt	character	Posting.PostingBusinessRelationTxt	When the posting is a transaction linked to a business relation (for example, an invoice posting), this field contains the Business Relation Name. Used for information purposes on reports and browses.
	api annotation:		Value for this field defaults to blank.
tcPostingInvoiceReferenceTxt	character	Posting.PostingInvoiceReferenceTxt	When the posting is part of an invoice posting, then this field contains the invoice number (Year/Daybook/Voucher extended with supplier invoice Reference in case of a supplier invoice). Used for information purpose on reports and browsers.
	api annotation:		Value for this field defaults to blank
tcCreditorCode	character	calculated	CreditorCode
tcDebtorCode	character	calculated	DebtorCode
tcGLCode	character	GL.GLCode	A code identifying the GL account.
tcCurrencyCode	character	Currency.CurrencyCode	Currency Code
tdPostingVatBaseDebitLC	decimal	PostingVat.PostingVatBaseDebitLC	BC (Base/Local Currency) Base Debit amount.
tdPostingVatBaseCreditLC	decimal	PostingVat.PostingVatBaseCreditLC	BC (Base/Local Currency) Base Credit amount.
tdPostingVatExchangeRate	decimal	PostingVat.PostingVatExchangeRate	TC/BC Exchange Rate.
	api annotation:		?
tdPostingVatRateScale	decimal	PostingVat.PostingVatRateScale	Scale Factor (TC/BC).
	api annotation:		?
tcPostingVatInOut	character	PostingVat.PostingVatInOut	In/Out?
	api annotation:		Aivalable value for this field: "INPUT" represents purchases, "OUTPUT" represents sales.
ttPostingVatTaxPointDate	date	PostingVat.PostingVatTaxPointDate	The date when this posting is taken into account in the Tax sub-adminstration.
	api annotation:		?
tcPostingVatTaxTransType	character	PostingVat.PostingVatTaxTransType	Tax Transaction Type?
	api annotation:		Available value for this field: 29 represents "AP Payment Check (Discount at Payment)", 55 represents "AP Transactions", 22 represents "AP Invoice", 18 represents "AR Invoice", 16 represents "AR Operational Invoice", 19 represents "AR Payment (Discount at Payment)", 56 represents "AR Transactions", 45 represents "Logistic Accounting - DO Shipment", 27 represents "Logistic Accounting - PO Receipt", 43 represents "Logistic Accounting - SO Shipment", 20 represents "Purchase Order", 21 represents "Purchase Order Receipt", 25 represents "Purchase Order Return"
tcPostingVatTransType	character	PostingVat.PostingVatTransType	Transaction Type?
	api annotation:		Available value for this field is: ACQUISITION represents "IC Acquisition", BOTH represents "Both", EXPORT represents "Export", IN represents "IN", OUT represents "OUT", IMPORT represents "Import", INLAND-PURCHASE represents "INLAND-PURCHASE", INLAND-SALES represents "INLAND-SALES", PURCHASE represents "Inland Purchase", SALES represents "Inland Sales", SUPPLY represents "IC Supply", TRIANGULARPURCHASE represents "Triangular Purchase", TRIANGULARSALES represents "Triangular Sales".
tdPostingVatTaxDebitLC	decimal	PostingVat.PostingVatTaxDebitLC	BC (Base Currency) Tax Debit amount.
	api annotation:		?
tdPostingVatTaxCreditLC	decimal	PostingVat.PostingVatTaxCreditLC	BC (Base/Local) Tax Credit amount.
	api annotation:		?
tcPostingVatTaxIDFeder	character	PostingVat.PostingVatTaxIDFeder	Federal Tax?
	api annotation:		?
tcPostingVatTaxIDState	character	PostingVat.PostingVatTaxIDState	State Tax?
	api annotation:		?
tcPostingVatTaxIDMisc1	character	PostingVat.PostingVatTaxIDMisc1	Miscellaneous Tax 1. For reference and documentation purposes, enter any other tax identification numbers that are useful.
	api annotation:		?
tcPostingVatTaxIDMisc2	character	PostingVat.PostingVatTaxIDMisc2	Miscellaneous Tax 2
tcPostingVatTaxIDMisc3	character	PostingVat.PostingVatTaxIDMisc3	Miscellaneous Tax 3
tcPostingVatOwnTaxIDFeder	character	PostingVat.PostingVatOwnTaxIDFeder	Own Federal Tax?
	api annotation:		?
tcPostingVatOwnTaxIDState	character	PostingVat.PostingVatOwnTaxIDState	Own State Tax?
	api annotation:		?
tcPostingVatOwnTaxIDMisc1	character	PostingVat.PostingVatOwnTaxIDMisc1	Own Miscellaneous Tax 1? For reference and documentation purposes, enter any other tax identification numbers that are useful.
	api annotation:		?
tcPostingVatOwnTaxIDMisc2	character	PostingVat.PostingVatOwnTaxIDMisc2	Own Miscellaneous Tax 2
tcPostingVatOwnTaxIDMisc3	character	PostingVat.PostingVatOwnTaxIDMisc3	Own Miscellaneous Tax 3
tcTxtyTaxType	character	PostingVat.TxtyTaxType	Tax Type
tcTxclTaxCls	character	PostingVat.TxclTaxCls	Tax Class. A tax class previously defined in Tax Class Maintenance. Tax classes group addresses taxed at specific rates or that are tax-exempt and help determine the default tax environment (set of tax types) for related transactions.
	api annotation:		The value of Tax Class defaults to the header of transactions created for this address
tcTxuTaxUsage	character	PostingVat.TxuTaxUsage	Tax Usage. A tax usage code previously defined in Tax Usage Maintenance. Tax usage codes identify the normal use of items sold to this address. Common tax usages are retail, manufacturing, and industrialization.
	api annotation:		The value of Tax Usage defaults to the header of transactions created for this address.
tcTxenvTaxEnv	character	PostingVat.TxenvTaxEnv	Tax Environment. A code (maximum 16 characters) that identifies a set of tax types for a tax zone/tax class combination. On transactions, this code identifies the transaction or line-item tax environment.
	api annotation:		?
tcFromTxzTaxZone	character	PostingVat.FromTxzTaxZone	From Tax Zone.
	api annotation:		?
tcToTxzTaxZone	character	PostingVat.ToTxzTaxZone	To Tax Zone
	api annotation:		?
tiVatPeriodYear	integer	VatPeriod.VatPeriodYear	Tax Year
tiVatPeriodPeriod	integer	VatPeriod.VatPeriodPeriod	Tax Period
tcVatCode	character	Vat.VatCode	Tax Code
tcVatDescription	character	Vat.VatDescription	Description
tcVatInOut	character	Vat.VatInOut	Tax In/Out
tcVatTransactionType	character	Vat.VatTransactionType	Transaction Type
tlVatIsRetained	logical	Vat.VatIsRetained	Retained
tlVatIsAbsorbed	logical	Vat.VatIsAbsorbed	Absorbed
tcTxuTaxUsage2	character	Vat.TxuTaxUsage	Tax Usage
tcInvoiceVatGroupCode	character	VatGroup1.VatGroupCode	Tax Group Code
tcCreditNoteVatGroupCode	character	VatGroup2.VatGroupCode	Tax Group Code
tcAbsordedInvoiceVatGroupCode	character	VatGroup3.VatGroupCode	Tax Group Code
tcAbsordedCNVatGroupCode	character	VatGroup4.VatGroupCode	Tax Group Code
tcRetainVoucherVatGroupCode	character	VatGroup5.VatGroupCode	Tax Group Code
tcRetainCNVatGroupCode	character	VatGroup6.VatGroupCode	Tax Group Code
tcJournalTypeCode	character	Journal.JournalTypeCode	A daybook type code.
	api annotation:		Value for this field defaults to "Journal Entries".
ttLastModifiedDate	date	PostingVat.LastModifiedDate	Last Modified Date
tiLastModifiedTime	integer	PostingVat.LastModifiedTime	Last Modified Time
tcLastModifiedUser	character	PostingVat.LastModifiedUser	Last Modified User
tlPostingIsReversing	logical	Posting.PostingIsReversing	Indicate whether the posting is a reversal of an existing posting.
	api annotation:		Value for this field defaults to "false".
tlPostingIsReplacement	logical	Posting.PostingIsReplacement	Indicate whether the posting is a replacement of an existing posting.
	api annotation:		Value for this field defaults to "false". For reversal postings, either automatic or manual - this value defaults to "true".
tiCurrency_ID	integer	PostingLine.Currency_ID	Currency Code
tiGL_ID	integer	PostingLine.GL_ID	GL Description
tiPostingVat_ID	integer	PostingVat.PostingVat_ID	Record ID
tiVatPeriod_ID	integer	PostingVat.VatPeriod_ID	Link to VatPeriod
tiVatRule_ID	integer	PostingVat.VatRule_ID	Link to VatRule
tiAbsorbedCreditNVatGroup_ID	integer	VatRule.AbsorbedCreditNVatGroup_ID	Tax Group Code
tiAbsorbedInvoiceVatGroup_ID	integer	VatRule.AbsorbedInvoiceVatGroup_ID	Tax Group Code
tiCreditNoteVatGroup_ID	integer	VatRule.CreditNoteVatGroup_ID	Credit Note Tax Group
tiInvoiceVatGroup_ID	integer	VatRule.InvoiceVatGroup_ID	Invoice Tax Group
tiRetainCVoucherVatGroup_ID	integer	VatRule.RetainCVoucherVatGroup_ID	Tax Group Code
tiRetainVoucherVatGroup_ID	integer	VatRule.RetainVoucherVatGroup_ID	Tax Group Code
tiCompany_ID	integer	Posting.Company_ID	Link to Company
tiJournal_ID	integer	Posting.Journal_ID	Daybook Code
tiPosting_ID	integer	Posting.Posting_ID	Record ID
PostingCustom	character	calculated	custom fields
JournalCustom	character	calculated	custom fields
PostingLineCustom	character	calculated	custom fields
CurrencyCustom	character	calculated	custom fields
GLCustom	character	calculated	custom fields
PostingVatCustom	character	calculated	custom fields
VatCustom	character	calculated	custom fields
VatPeriodCustom	character	calculated	custom fields
VatRuleCustom	character	calculated	custom fields
VatGroup1Custom	character	calculated	custom fields
VatGroup2Custom	character	calculated	custom fields
VatGroup3Custom	character	calculated	custom fields
VatGroup4Custom	character	calculated	custom fields
VatGroup5Custom	character	calculated	custom fields
VatGroup6Custom	character	calculated	custom fields
VatGroup7Custom	character	calculated	custom fields
ti_sequence	integer	calculated	primary index
tc_rowid	character	calculated	= rowid(Posting),rowid(Journal),rowid(PostingLine),rowid(Currency),rowid(GL),rowid(PostingVat),rowid(Vat),rowid(VatGroup7),rowid(VatPeriod),rowid(VatRule),rowid(VatGroup1),rowid(VatGroup2),rowid(VatGroup3),rowid(VatGroup4),rowid(VatGroup5),rowid(VatGroup6)

Internal usage

unused

Sample code: how to call this query through RPCRequestService (QXtend Inbound)

define temp-table ttContext no-undo
    field propertyQualifier as character
    field propertyName as character
    field propertyValue as character
    index entityContext is primary unique
        propertyQualifier
        propertyName
    index propertyQualifier
        propertyQualifier.

define dataset dsContext for ttContext.

define variable vhContextDS as handle no-undo.
define variable vhExceptionDS as handle no-undo.
define variable vhServer as handle no-undo.
define variable vhInputDS as handle no-undo.
define variable vhInputOutputDS as handle no-undo.
define variable vhOutputDS as handle no-undo.
define variable vhParameter as handle no-undo.

/* Create context */
create ttContext.
assign ttContext.propertyName = "programName"
       ttContext.propertyValue = "BJournalEntry".
create ttContext.
assign ttContext.propertyName = "methodName"
       ttContext.propertyValue = "SelectPostingVatV01".
create ttContext.
assign ttContext.propertyName = "applicationId"
       ttContext.propertyValue = "fin".
create ttContext.
assign ttContext.propertyName = "entity"
       ttContext.propertyValue = "1000".
create ttContext.
assign ttContext.propertyName = "userName"
       ttContext.propertyValue = "mfg".
create ttContext.
assign ttContext.propertyName = "password"
       ttContext.propertyValue = "".

/* Create input dataset */
create dataset vhInputDS.
vhInputDS:read-xmlschema("file", "xml/bjournalentry.selectpostingvatv01.i.xsd", ?).
vhParameter = vhInputDS:get-buffer-handle("tParameterI").
vhParameter:buffer-create().

assign vhParameter::icRange = "A"
       vhParameter::icRowid = ""
       vhParameter::iiRownum = 0
       vhParameter::iiNumber = 5 /* Number of records to read */
       vhParameter::icSortColumns = ""
       vhParameter::ilCountOnly = false
       vhParameter::ilForwardRead = true
       vhParameter::iiMaximumBrowseRecordsToCount = 0.

vhParameter = vhInputDS:get-buffer-handle("tFilter").
vhParameter:buffer-create().

assign vhParameter::<field-name-1> = <field-value-1>
       vhParameter::<field-name-2> = <field-value-2>
       ...

/* Connect the AppServer */
create server vhServer.
vhServer:connect("-URL <appserver-url>").

if not vhServer:connected()
then do:
    message "Could not connect AppServer" view-as alert-box error title "Error".
    return.
end.

/* Run */
assign vhContextDS = dataset dsContext:handle.

run program/rpcrequestservice.p on vhServer
    (input-output dataset-handle vhContextDS by-reference,
           output dataset-handle vhExceptionDS,
     input        dataset-handle vhInputDS by-reference,
     input-output dataset-handle vhInputOutputDS by-reference,
           output dataset-handle vhOutputDS).

/* Handle output however you want, in this example, we dump it to xml */
if valid-handle(vhExceptionDS)
then vhExceptionDS:write-xml("file", "Exceptions.xml", true).

if valid-handle(vhOutputDS)
then vhOutputDS:write-xml("file", "Output.xml", true).

/* Cleanup */
vhServer:disconnect().
assign vhServer = ?.

if valid-handle(vhInputDS)
then delete object vhInputDS.

if valid-handle(vhOutputDS)
then delete object vhOutputDS.

if valid-handle(vhExceptionDS)
then delete object vhExceptionDS.