project QadFinancials > class BBox1099Report > method CrossCompanyEntries

Description

This method is used to get all system companies' id and codes, and invoked by method SetDataItemBaseOnFilterTT.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBox1099Report.SetDataItemsBasedOnFilterTT


program code (program1/bbox1099report.p)

/* ========================== */
/* Cross-Company operations   */
/* Pre cache system companies */
/* ========================== */

<Q-1 run CompanyPrim (all) (Read) (NoCache)
   (input ?, (LookupCompanyId)
    input ?, (CompanyCode)
    output dataset tqCompanyPrim) in BCompany >

/* Assign cross- company values (how many companies are selected) */
IF vcBoxEntityFilter = ? or vcBoxEntityFilter = "":U THEN
    viBoxCompanyEntries = 1.
ELSE
    viBoxCompanyEntries = num-entries(vcBoxEntityFilter,",":U).