project QadFinancials > class BCompany > API query CompanyBySharedSet (optimised)

Description

Query to return a list of the Companies and the Domains that are part of a shared set.


query filter (table tFilter)


tcBusinessFieldNametcDataTypetcOperator
iiCompanyIdi
iiSharedSetIdi=
tCompany.CompanyCodec=,>=,>,<>,<=,<,begins,can-do,matches
tCompany.CompanyDomainc=,>=,>,<>,<=,<,begins,can-do,matches
tCompany.CompanyIsActivel=,<>
tDomains.DomainCodec=,>=,>,<>,<=,<,begins,can-do,matches
tDomains.DomainIsActivel=,<>
tDomainProperty.DomainPropertyIsSetupCompll=,<>


Parameters (internal)


iiCompanyIdintegerCompany id
iiSharedSetIdintegerThe ID of the shared set to get the companies & Domains for.


query condition


  each CompanySharedSet where
CompanySharedSet.Company_Id = iiCompanyId AND
CompanySharedSet.SharedSet_ID = iiSharedSetId

      first Company (inner-join) where
Company.Company_Id = iiCompanyId AND
Company.Company_ID = CompanySharedSet.Company_ID AND
Company.CompanyIsActive = true

          first Domains (inner-join) where
Domains.Domain_ID = Company.Domain_ID AND

              each DomainProperty (inner-join) where
DomainProperty.Domain_ID = Domains.Domain_ID AND


query resultset tqCompanyBySharedSet


field namedata typedb fielddescription
tcDomainCodecharacterDomains.DomainCodeDomain
tlDomainIsActivelogicalDomains.DomainIsActiveActive
tlDomainPropertyIsSetupCompllogicalDomainProperty.DomainPropertyIsSetupComplSetup Complete
tiSharedSet_IDintegerCompanySharedSet.SharedSet_IDShared Set
tcCompanyCodecharacterCompany.CompanyCodeEntity Code
tcCompanyDomaincharacterCompany.CompanyDomainDomain
tlCompanyIsActivelogicalCompany.CompanyIsActiveActive
tiCompany_IDintegerCompany.Company_IDRecord ID
CompanySharedSetCustomcharactercalculatedcustom fields
CompanyCustomcharactercalculatedcustom fields
DomainsCustomcharactercalculatedcustom fields
DomainPropertyCustomcharactercalculatedcustom fields
ti_sequenceintegercalculatedprimary index
tc_rowidcharactercalculated = rowid(CompanySharedSet),rowid(Company),rowid(Domains),rowid(DomainProperty)


Internal usage


QadFinancials
method BCreditor.GetCompanyList
method BCreditor.ValidateComponent
method BDebtor.GetCompanyList
method BDebtorEndUser.ValidateComponent
method BDebtorReport.GetBusinessFields2
method BDebtorReport.GetBusinessFields3
method BDebtorShipTo.ValidateComponent
method MfgDatabaseComponent.ProcessSharedSetToMfg
method BMfgAddress.MaintainDataCreditor
method BMfgAddress.MaintainDataDebtor
method BMfgAddress.MaintainDataDebtorShipto
method BMfgAddress.MaintainDataEndUser
method BMfgAddressListDetail.MaintainDataCreditor
method BMfgAddressListDetail.MaintainDataDebtor
method BMfgAddressListDetail.MaintainDataDebtorEnduser
method BMfgAddressListDetail.MaintainDataDebtorShipto


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 = "BCompany".
create ttContext.
assign ttContext.propertyName = "methodName"
       ttContext.propertyValue = "CompanyBySharedSet".
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/bcompany.companybysharedset.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.