| tcBusinessFieldName | tcDataType | tcOperator |
|---|---|---|
| iiCompanyId | i | |
| iiBankPayFormat_ID | i | = |
| ilIsInvoiceApproved | l | = |
| iiCInvoice_ID | i | = |
| icCInvoiceType | c | can-do |
| ilIsLockPayment | l | = |
| ilIsOpen | l | = |
| ilIsSelected | l | = |
| icCurrencyCode | c | = |
| icDivisionCode | c | matches |
| icPaymentGroupCode | c | = |
| icAddressTypeCode | c | = |
| icBusinessRelationCode | c | = |
| icCountryCode | c | = |
| ilIsWithBank | l | = |
| ilBusinessRelationIsInterco | l | = |
| icCorporateGroupCode | c | = |
| icFromBusinessRelationCode | c | >= |
| icToBusinessRelationCode | c | <= |
| iiBankNumber_ID | i | <> |
| tAddressType.AddressTypeCode | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tBankNumber.BankNumber | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tBankNumber.BankNumberExtension | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tBankNumber.BankNumberFormatted | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tBankNumber.BankNumberValidation | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tBusinessRelation.BusinessRelationCode | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tBusinessRelation.BusinessRelationIsInComp | l | =,<> |
| tBusinessRelation.BusinessRelationIsInterco | l | =,<> |
| tBusinessRelation.BusinessRelationName1 | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tCInvoice.CInvoiceBalanceCreditTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceBalanceDebitTC | d | =,>=,>,<>,<=,< |
| tCInvoiceBank.CInvoiceBankToPayTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceDate | t | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceDiscountDueDate | t | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceDueDate | t | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceExchangeRate | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceHoldAmountTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceIsDiscTaxAtPaym | l | =,<> |
| tCInvoice.CInvoiceIsInvoiceApproved | l | =,<> |
| tCInvoice.CInvoiceIsLockPayment | l | =,<> |
| tCInvoice.CInvoiceIsOpen | l | =,<> |
| tCInvoice.CInvoiceIsSelected | l | =,<> |
| tCInvoice.CInvoiceIsWHT | l | =,<> |
| tCInvoice.CInvoiceIsWithBank | l | =,<> |
| tCInvoice.CInvoiceNonDiscAmtTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceOriginalCreditTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceOriginalDebitTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoicePostingDate | t | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceRateScale | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceReference | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tCInvoice.CInvoiceTSMNumber | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tCInvoice.CInvoiceType | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tCInvoice.CInvoiceVatBaseCreditTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceVatBaseDebitTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceVatCreditTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceVatDebitTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceVoucher | i | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTBaseAmtCreditCC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTBaseAmtCreditLC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTBaseAmtCreditTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTBaseAmtDebitCC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTBaseAmtDebitLC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTBaseAmtDebitTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTTotAmtCreditCC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTTotAmtCreditLC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTTotAmtCreditTC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTTotAmtDebitCC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTTotAmtDebitLC | d | =,>=,>,<>,<=,< |
| tCInvoice.CInvoiceWHTTotAmtDebitTC | d | =,>=,>,<>,<=,< |
| tCompany.CompanyCode | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tCompanyProperty.CompanyPropertyIsWHT | l | =,<> |
| tCorporateGroup.CorporateGroupCode | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tCountry.CountryCode | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tCreditor.CreditorCode | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tCreditor.CreditorIsIndividualPaymnt | l | =,<> |
| tCreditor.CreditorIsWHT | l | =,<> |
| tCurrency.CurrencyCode | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tDivision.DivisionCode | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tJournal.JournalCode | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tPaymentCondition.PaymentConditionPaymentTyp | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tPaymentCondition.PaymentConditionPercentage | d | =,>=,>,<>,<=,< |
| tPaymentGroup.PaymentGroupCode | c | =,>=,>,<>,<=,<,begins,can-do,matches |
| tPeriod.PeriodPeriod | i | =,>=,>,<>,<=,< |
| tPeriod.PeriodYear | i | =,>=,>,<>,<=,< |
| iiCompanyId | integer | Company id |
| iiBankPayFormat_ID | integer | Bank Payment Format ID |
| ilIsInvoiceApproved | logical | Is invoice approved flag |
| iiCInvoice_ID | integer | Creditor Invoice ID |
| icCInvoiceType | character | Invoice Type |
| ilIsLockPayment | logical | is lock payment flag |
| ilIsOpen | logical | is open flag |
| ilIsSelected | logical | is selected flag |
| icCurrencyCode | character | Currency Code |
| icDivisionCode | character | Division Code |
| icPaymentGroupCode | character | Payment Format Group |
| icAddressTypeCode | character | Address Type Code |
| icBusinessRelationCode | character | Business Relation Code |
| icCountryCode | character | Country code |
| ilIsWithBank | logical | Is with bank |
| ilBusinessRelationIsInterco | logical | Business Relation is Intercompany flag |
| icCorporateGroupCode | character | Corporate Group Code |
| icFromBusinessRelationCode | character | From BusinessRelationCode |
| icToBusinessRelationCode | character | To BusinessRelationCode |
| iiBankNumber_ID | integer |
each CInvoice where
each CInvoiceBank (conditional-join) where
first BankNumber (conditional-join) where
first Company (inner-join) where
each CompanyProperty (inner-join) where
first Creditor (inner-join) where
first BusinessRelation (inner-join) where
each Address (inner-join) where
first AddressType (inner-join) where
first Country (inner-join) where
first CorporateGroup (conditional-join) where
first PaymentGroup (conditional-join) where
first Currency (inner-join) where
first Division (conditional-join) where
first Journal (inner-join) where
first PaymentCondition (inner-join) where
first Period (inner-join) where
| field name | data type | db field | description |
|---|---|---|---|
| tcAddressTypeCode | character | AddressType.AddressTypeCode | Address Type |
| tcBankNumber | character | BankNumber.BankNumber | Bank Number |
| tiBankNumber_ID | integer | CInvoiceBank.BankNumber_ID | Bank Number |
| tcBankNumberExtension | character | BankNumber.BankNumberExtension | Bank Extension |
| tcBankNumberFormatted | character | BankNumber.BankNumberFormatted | Formatted Bank Account No |
| tcBankNumberValidation | character | BankNumber.BankNumberValidation | Validation |
| tiBankPayFormat_ID | integer | BankNumber.BankPayFormat_ID | Link to BankPayFormat |
| tcBusinessRelationCode | character | BusinessRelation.BusinessRelationCode | Business Relation. A code to identify the business relation. If this field does not have a input from the user, the system automatically generates a number for the record based on the sequence defined in Business Relation Autonumber Create. |
| tlBusinessRelationIsInComp | logical | BusinessRelation.BusinessRelationIsInComp | Internal Entity. This filed indicates if the business relation identifies one of your entities within this database. If this is an internal entity, you can also update the Tax Report, Name Control, and Last Filing fields, which are used for filing 1099-MISC reports in the US. |
| api annotation: | PartialUpdate = yes - defaults to false. For internal entities, this field defaults to yes and cannot be changed. | ||
| tlBusinessRelationIsInterco | logical | BusinessRelation.BusinessRelationIsInterco | Intercompany. This field Indicates if the business relation identifies an entity that is a member of a group of entities that trade with each other. If the business relation is identified as an internal entity,this field is true and cannot be changed. |
| api annotation: | PartialUpdate = yes - defaults to false. | ||
| tcBusinessRelationName1 | character | BusinessRelation.BusinessRelationName1 | Name: The full name of the business relation. This field sets the default name for linked addresses such as customers and suppliers. |
| api annotation: | PartialUpdate = yes - defaults to the BusinessRelationCode. | ||
| tiCInvoice_ID | integer | CInvoice.CInvoice_ID | Record ID |
| tdCInvoiceBalanceCreditTC | decimal | CInvoice.CInvoiceBalanceCreditTC | TC Balance Amount CR. This field displays the sum of the credit amounts of all posting lines in transaction currency. |
| tdCInvoiceBalanceDebitTC | decimal | CInvoice.CInvoiceBalanceDebitTC | TC Balance Amount DR. This field displays the sum of the debit amounts of all posting lines in transaction currency. |
| tiCInvoiceBank_ID | integer | CInvoiceBank.CInvoiceBank_ID | Record ID |
| tdCInvoiceBankToPayTC | decimal | CInvoiceBank.CInvoiceBankToPayTC | TC Payment Amount. This field displays the payment amount in the transaction currency. |
| ttCInvoiceDate | date | CInvoice.CInvoiceDate | Invoice Date. This field indicates the invoice creation date. The system uses this field with the credit terms to calculate due date and discount date. |
| api annotation: | This field defaults from the system date. | ||
| ttCInvoiceDiscountDueDate | date | CInvoice.CInvoiceDiscountDueDate | Discount Due Date.This field indicates the last date a discount applies, calculated by the system based on the credit terms and the invoice date. User can modify this field without affecting the credit terms. |
| ttCInvoiceDueDate | date | CInvoice.CInvoiceDueDate | Due Date.This field indicates the date when payment become due. This field can be modified without affecting the credit terms. This field is calculated by the system based on the credit terms and the invoice date. |
| tdCInvoiceExchangeRate | decimal | CInvoice.CInvoiceExchangeRate | Exchange Rate. The exchange rate used by the invoice. The BC Invoice Amount is calculated based on the exchange rate. If user modify the TC Invoice Amount, the BC invoice amount is automatically adjusted. |
| tdCInvoiceHoldAmountTC | decimal | CInvoice.CInvoiceHoldAmountTC | TC Hold Amount. This field displays the amount of the invoice total that is not to be paid. If this field is not blank, the hold amount is taken into account during payment processing. Hold amounts must be: For invoices or correction invoices: Less than the invoice total and greater than zero. For credit notes or correction credit notes: Greater than the document total and less than zero. The hold amount for a negative payment must always be set to zero. |
| tlCInvoiceIsDiscTaxAtPaym | logical | CInvoice.CInvoiceIsDiscTaxAtPaym | Discount Tax at Payment. This field indicates if the invoice has a discount for tax at the time of payment. The discount amount at the time of payment only applies to the tax base amount. |
| api annotation: | PartialUpdate = yes - defaults to false | ||
| tlCInvoiceIsInvoiceApproved | logical | CInvoice.CInvoiceIsInvoiceApproved | Invoice Approved. This field indicates if the invoice is already approved for payment. |
| api annotation: | PartialUpdate = yes - defaults to false | ||
| tlCInvoiceIsLockPayment | logical | CInvoice.CInvoiceIsLockPayment | Lock Payment. This field indicates if the invoice is locked for payment. The invoice cannot be included in any automatic payment selections if this field is true. |
| api annotation: | PartialUpdate = yes - defaults to false | ||
| tlCInvoiceIsOpen | logical | CInvoice.CInvoiceIsOpen | Open.This field indicates if the invoice has been completely paid. This field is updated automatically when complete payment is confirmed. This field is read-only. |
| api annotation: | PartialUpdate = yes - defaults to true | ||
| tlCInvoiceIsSelected | logical | CInvoice.CInvoiceIsSelected | Selected. This field indicates whether the invoice is included in a payment selection. This field is read-only. |
| tlCInvoiceIsWHT | logical | CInvoice.CInvoiceIsWHT | Withholding Tax |
| tlCInvoiceIsWithBank | logical | CInvoice.CInvoiceIsWithBank | With Bank. This field indicates if the invoice has a supplier bank number specified for it. |
| api annotation: | PartialUpdate = yes - defaults to true | ||
| tdCInvoiceNonDiscAmtTC | decimal | CInvoice.CInvoiceNonDiscAmtTC | TC Non-discount Amount. This field display the invoice amount without discount in base currency. |
| tdCInvoiceOriginalCreditTC | decimal | CInvoice.CInvoiceOriginalCreditTC | TC Invoice Amount CR. This field displays the credit total invoice amount in the transaction currency. If you modify this field, the system automatically recalculates the exchange rate to ensure that the BC Invoice Amount remains the same. |
| tdCInvoiceOriginalDebitTC | decimal | CInvoice.CInvoiceOriginalDebitTC | TC AP Amount. This field displays the debit total invoice amount in the transaction currency. If you modify this field, the system automatically recalculates the exchange rate to ensure that the TC Invoice Amount remains the same. |
| ttCInvoicePostingDate | date | CInvoice.CInvoicePostingDate | Posting Date. This filed indicates the date on which the invoice is to be posted. |
| api annotation: | This field defaults from the invoice creation date. | ||
| tdCInvoiceRateScale | decimal | CInvoice.CInvoiceRateScale | Scale Factor. This field indicates the scale factor applying to the exchange rate in use for foreign currency payments. |
| tcCInvoiceReference | character | CInvoice.CInvoiceReference | Reference. An alphanumeric reference to help identify the invoice in the system. This reference is typically the ID number of the invoice received from the supplier. |
| tcCInvoiceTSMNumber | character | CInvoice.CInvoiceTSMNumber | Payment Reference. This field displays a unique reference number to be included in the supplier payment file. This reference can consist of a Transfer with Structured Message (TSM) number. This field can be blank. |
| tcCInvoiceType | character | CInvoice.CInvoiceType | Invoice Type. This field identifies the invoice type. The value can be Invoice Correction and Credit Note Correction type only when the appropriate daybook types have already been defined. |
| tdCInvoiceVatBaseCreditTC | decimal | CInvoice.CInvoiceVatBaseCreditTC | TC Base Amount CR. This field displays the credit base amount in the transaction currency. This field is calculated by the system using the total invoice amount (TC) and the applicable tax rate code. |
| tdCInvoiceVatBaseDebitTC | decimal | CInvoice.CInvoiceVatBaseDebitTC | TC Base Amount DR. This field displays the debit base amount in the transaction currency. This field is calculated by the system using the total invoice amount (TC) and the applicable tax rate code. |
| tdCInvoiceVatCreditTC | decimal | CInvoice.CInvoiceVatCreditTC | TC Tax Amount CR. This field displays the credit tax amount (TC) calculated by the system using the total invoice amount (TC) and the applicable tax rate code. |
| tdCInvoiceVatDebitTC | decimal | CInvoice.CInvoiceVatDebitTC | TC Tax Amount DR. This field displays the debit tax amount (TC) calculated by the system using the total invoice amount (TC) and the applicable tax rate code. |
| tiCInvoiceVoucher | integer | CInvoice.CInvoiceVoucher | Voucher. This field displays the numeric identifier assigned to the posting. When the daybook of the journal entry is changed (after transfer), the voucher is cleared. Voucher must be unique in one GL period. When the user input is zero, the system automatically assign a value not used yet for this field. |
| tdCInvoiceWHTBaseAmtCreditCC | decimal | CInvoice.CInvoiceWHTBaseAmtCreditCC | SC WHT Base Amount (CR) |
| tdCInvoiceWHTBaseAmtCreditLC | decimal | CInvoice.CInvoiceWHTBaseAmtCreditLC | BC WHT Base Amount (CR) |
| tdCInvoiceWHTBaseAmtCreditTC | decimal | CInvoice.CInvoiceWHTBaseAmtCreditTC | TC WHT Base Amount (CR) |
| tdCInvoiceWHTBaseAmtDebitCC | decimal | CInvoice.CInvoiceWHTBaseAmtDebitCC | SC WHT Base Amount (DR) |
| tdCInvoiceWHTBaseAmtDebitLC | decimal | CInvoice.CInvoiceWHTBaseAmtDebitLC | BC WHT Base Amount (DR) |
| tdCInvoiceWHTBaseAmtDebitTC | decimal | CInvoice.CInvoiceWHTBaseAmtDebitTC | TC WHT Base Amount (DR) |
| tdCInvoiceWHTTotAmtCreditCC | decimal | CInvoice.CInvoiceWHTTotAmtCreditCC | SC WHT Total Amount (CR) |
| tdCInvoiceWHTTotAmtCreditLC | decimal | CInvoice.CInvoiceWHTTotAmtCreditLC | BC WHT Total Amount (CR) |
| tdCInvoiceWHTTotAmtCreditTC | decimal | CInvoice.CInvoiceWHTTotAmtCreditTC | TC WHT Total Amount (CR) |
| tdCInvoiceWHTTotAmtDebitCC | decimal | CInvoice.CInvoiceWHTTotAmtDebitCC | SC WHT Total Amount (DR) |
| tdCInvoiceWHTTotAmtDebitLC | decimal | CInvoice.CInvoiceWHTTotAmtDebitLC | BC WHT Total Amount (DR) |
| tdCInvoiceWHTTotAmtDebitTC | decimal | CInvoice.CInvoiceWHTTotAmtDebitTC | TC WHT Total Amount (DR) |
| tiCompany_ID | integer | CInvoice.Company_ID | Link to Company |
| tcCompanyCode | character | Company.CompanyCode | Entity Code |
| tlCompanyPropertyIsWHT | logical | CompanyProperty.CompanyPropertyIsWHT | Use Withholding Tax |
| tcCorporateGroupCode | character | CorporateGroup.CorporateGroupCode | Group Name |
| tcCountryCode | character | Country.CountryCode | Country Code |
| tiCreditor_ID | integer | CInvoice.Creditor_ID | Link to Creditor |
| tcCreditorCode | character | Creditor.CreditorCode | Supplier Code |
| tlCreditorIsIndividualPaymnt | logical | Creditor.CreditorIsIndividualPaymnt | Individual Payments |
| tlCreditorIsWHT | logical | Creditor.CreditorIsWHT | Withholding Tax |
| tcCurrencyCode | character | Currency.CurrencyCode | Currency Code |
| tcDivisionCode | character | Division.DivisionCode | Sub-Account |
| tcJournalCode | character | Journal.JournalCode | A daybook code (maximum eight characters). |
| tcPaymentConditionPaymentTyp | character | PaymentCondition.PaymentConditionPaymentTyp | Payment Type |
| tdPaymentConditionPercentage | decimal | PaymentCondition.PaymentConditionPercentage | Discount Percentage |
| tcPaymentGroupCode | character | PaymentGroup.PaymentGroupCode | Payment Group |
| tiPeriodPeriod | integer | Period.PeriodPeriod | GL Period |
| tiPeriodYear | integer | Period.PeriodYear | GL Calendar Year |
| CInvoiceCustom | character | calculated | custom fields |
| CInvoiceBankCustom | character | calculated | custom fields |
| BankNumberCustom | character | calculated | custom fields |
| CompanyCustom | character | calculated | custom fields |
| CompanyPropertyCustom | character | calculated | custom fields |
| CreditorCustom | character | calculated | custom fields |
| BusinessRelationCustom | character | calculated | custom fields |
| AddressTypeCustom | character | calculated | custom fields |
| CountryCustom | character | calculated | custom fields |
| CurrencyCustom | character | calculated | custom fields |
| JournalCustom | character | calculated | custom fields |
| PaymentConditionCustom | character | calculated | custom fields |
| PeriodCustom | character | calculated | custom fields |
| CorporateGroupCustom | character | calculated | custom fields |
| PaymentGroupCustom | character | calculated | custom fields |
| DivisionCustom | character | calculated | custom fields |
| ti_sequence | integer | calculated | primary index |
| tc_rowid | character | calculated | = rowid(CInvoice),rowid(CInvoiceBank),rowid(BankNumber),rowid(Company),rowid(CompanyProperty),rowid(Creditor),rowid(BusinessRelation),rowid(Address),rowid(AddressType),rowid(Country),rowid(CorporateGroup),rowid(PaymentGroup),rowid(Currency),rowid(Division),rowid(Journal),rowid(PaymentCondition),rowid(Period) |
QadFinancials
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 = "BCInvoice".
create ttContext.
assign ttContext.propertyName = "methodName"
ttContext.propertyValue = "CInvoiceBankForPaymentOthers".
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/bcinvoice.cinvoicebankforpaymentothers.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.