project QadFinancials > class BBox1099 > API query SelectBox1099


query filter (table tFilter)


tcBusinessFieldNametcDataTypetcOperator
tBox1099.Box1099CalendarYeari=,>=,>,<>,<=,<
tBox1099.Box1099Codec=,>=,>,<>,<=,<,begins,can-do,matches
tBox1099.Box1099Descriptionc=,>=,>,<>,<=,<,begins,can-do,matches
tBox1099.Box1099IsActivel=,<>
tBox1099.Box1099MinimumAmountLCd=,>=,>,<>,<=,<
tBox1099.Box1099Referencec=,>=,>,<>,<=,<,begins,can-do,matches


query condition


  each Box1099 where


query resultset tqSelectBox1099


field namedata typedb fielddescription
tiBox1099_IDintegerBox1099.Box1099_IDRecord ID
tiBox1099CalendarYearintegerBox1099.Box1099CalendarYearCalendar Year
tcBox1099CodecharacterBox1099.Box1099Code1099 Box Code
tcBox1099DescriptioncharacterBox1099.Box1099DescriptionDescription
tlBox1099IsActivelogicalBox1099.Box1099IsActiveActive
tdBox1099MinimumAmountLCdecimalBox1099.Box1099MinimumAmountLCMinimum Amount
tcBox1099ReferencecharacterBox1099.Box1099Reference1099 Box Reference
ttLastModifiedDatedateBox1099.LastModifiedDateLast Modified Date
tiLastModifiedTimeintegerBox1099.LastModifiedTimeLast Modified Time
tcLastModifiedUsercharacterBox1099.LastModifiedUserLast Modified User
Box1099Customcharactercalculatedcustom fields
ti_sequenceintegercalculatedprimary index
tc_rowidcharactercalculated = rowid(Box1099)


Internal usage


QadFinancials
lookup query on tBox1099.Box1099Code


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 = "BBox1099".
create ttContext.
assign ttContext.propertyName = "methodName"
       ttContext.propertyValue = "SelectBox1099".
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/bbox1099.selectbox1099.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.