API query SelectDDocumentPosting (optimised)

query filter (table tFilter)

tcBusinessFieldName	tcDataType	tcOperator
iiCompanyId	i
tCurrency.CurrencyCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tDDocument.DDocumentNumber	i	=,>=,>,<>,<=,<
tDDocumentPostingLine.DDocumentStatus	c	=,>=,>,<>,<=,<,begins,can-do,matches
tDDocument.DDocumentType	c	=,>=,>,<>,<=,<,begins,can-do,matches
tDDocument.DDocumentYear	i	=,>=,>,<>,<=,<
tGL.GLCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tGL.GLDescription	c	=,>=,>,<>,<=,<,begins,can-do,matches
tGL.GLSystemTypeCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tGL.GLTypeCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tJournal.JournalCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tJournal.JournalTypeCode	c	=,>=,>,<>,<=,<,begins,can-do,matches
tPostingLine.PostingDate	t	=,>=,>,<>,<=,<
tPostingLine.PostingLineCreditCC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineCreditLC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineCreditTC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineDebitCC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineDebitLC	d	=,>=,>,<>,<=,<
tPostingLine.PostingLineDebitTC	d	=,>=,>,<>,<=,<
tPosting.PostingPeriod	i	=,>=,>,<>,<=,<
tPosting.PostingSystemDate	t	=,>=,>,<>,<=,<
tPosting.PostingVoucher	i	=,>=,>,<>,<=,<
tPosting.PostingYear	i	=,>=,>,<>,<=,<
tPostingLine.PostingYearPeriod	i	=,>=,>,<>,<=,<

Parameters (internal)

iiCompanyId

integer

Company id

query condition

each DDocument where

DDocument.Company_Id = iiCompanyId AND

each DDocumentPostingLine (inner-join) where

DDocumentPostingLine.DDocument_ID = DDocument.DDocument_ID AND

first PostingLine (inner-join) where

PostingLine.Company_Id = iiCompanyId AND
PostingLine.PostingLine_ID = DDocumentPostingLine.PostingLine_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

first Posting (inner-join) where

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

first Journal (inner-join) where

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

query resultset tqSelectDDocumentPosting

field name	data type	db field	description
tdAmountCCCalc	decimal	calculated
tdAmountLCCalc	decimal	calculated
tdAmountTCCalc	decimal	calculated
tcCurrencyCode	character	Currency.CurrencyCode	Currency Code
tcDayBookTypeCalc	character	calculated
tiDDocument_ID	integer	DDocument.DDocument_ID	Record ID
tiDDocumentNumber	integer	DDocument.DDocumentNumber	Document Number. This field hold a unified number for report use.
tcDDocumentStatus	character	DDocumentPostingLine.DDocumentStatus	Customer Payment Status. This field indicats the customer payment status. At a minimum, you must have two statuses: Paid and Void
tcDDocumentStatusCalc	character	calculated
tcDDocumentType	character	DDocument.DDocumentType	Payment Instrument. The system displays the payment instrument associated with the payment format linked to the customer bank.
tcDDocumentTypeCalc	character	calculated
tiDDocumentYear	integer	DDocument.DDocumentYear	Year/Number. This field displays the accounting year and payment sequence number, which is automatically generated by the accounting year.
tiGL_ID	integer	GL.GL_ID	Record ID
tcGLCode	character	GL.GLCode	A code identifying the GL account.
tcGLDescription	character	GL.GLDescription	A description of the GL account.
tcGLSystemTypeCode	character	GL.GLSystemTypeCode	System Type: A code identifying the type of system account.
tcGLSysTypeCalc	character	calculated
tcGLTypeCalc	character	calculated
tcGLTypeCode	character	GL.GLTypeCode	A code identifying the type of account.
tcJournalCode	character	Journal.JournalCode	A daybook code (maximum eight characters).
tcJournalTypeCode	character	Journal.JournalTypeCode	A daybook type code.
	api annotation:		Value for this field defaults to "Journal Entries".
tcPaymentKeyCalc	character	calculated
ttPostingDate	date	PostingLine.PostingDate	Posting Date.
	api annotation:		If this field is blank, it gets a default value equal to the value of PostingDate in tPosting.
tdPostingLineCreditCC	decimal	PostingLine.PostingLineCreditCC	SC Credit
	api annotation:		Partial Update = yes - it will get a default value depending on the value of PostingLinCreditTC, PostingLineCCRate & PostingLineCCScale. SC Amount = TC Amount * Exchange rate (TC/SC) * Scale Factor (TC/SC). If Partial Update is false, you should enter the correct value for this field
tdPostingLineCreditLC	decimal	PostingLine.PostingLineCreditLC	BC Credit
	api annotation:		Partial Update = yes - it will get a default value depends on the value of PostingLineCreditTC, PostingLineExchangeRate & PostingLineRateScale. BC Amount = TC Amount * Exchange rate (TC/BC) * Scale Factor (TC/BC). If Partial Update is false, enter a value for this field.
tdPostingLineCreditTC	decimal	PostingLine.PostingLineCreditTC	TC Credit
tdPostingLineDebitCC	decimal	PostingLine.PostingLineDebitCC	SC Debit
	api annotation:		Partial Update = yes - it will get a default value depending on the value of PostingLineDebitTC, PostingLineCCRate & PostingLineCCScale. SC Amount = TC Amount * Exchange rate (TC/SC) * Scale Factor (TC/SC). If Partial Update is false, enter the correct value for this field.
tdPostingLineDebitLC	decimal	PostingLine.PostingLineDebitLC	BC Debit
	api annotation:		Partial Update = yes - it will get a default value depending on the value of PostingLineDebitTC, PostingLineExchangeRate and PostingLineRateScale. BC Amount = TC Amount * Exchange rate (TC/BC) * Scale Factor (TC/BC). If Partial Update = false, enter the correct value into this field.
tdPostingLineDebitTC	decimal	PostingLine.PostingLineDebitTC	TC Debit
tiPostingPeriod	integer	Posting.PostingPeriod	The GL period for the posting. The period must be open.
ttPostingSystemDate	date	Posting.PostingSystemDate	The system date of the posting corresponding to "PostingDate".
	api annotation:		In Create mode, when Partial Update = yes - this field gets a default value which is the current date of the system.
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.
tiPostingYear	integer	Posting.PostingYear	The GL calendar year for the posting.
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.
DDocumentCustom	character	calculated	custom fields
DDocumentPostingLineCustom	character	calculated	custom fields
PostingLineCustom	character	calculated	custom fields
GLCustom	character	calculated	custom fields
CurrencyCustom	character	calculated	custom fields
PostingCustom	character	calculated	custom fields
JournalCustom	character	calculated	custom fields
ti_sequence	integer	calculated	primary index
tc_rowid	character	calculated	= rowid(DDocument),rowid(DDocumentPostingLine),rowid(PostingLine),rowid(Currency),rowid(GL),rowid(Posting),rowid(Journal)

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 = "BDDocument".
create ttContext.
assign ttContext.propertyName = "methodName"
       ttContext.propertyValue = "SelectDDocumentPosting".
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/bddocument.selectddocumentposting.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.