method CrossCompanyEntries

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BDebtorReport.SetDataItemsBasedOnFilterTT

program code (program1/bdebtorreport.p)

/* =========================== */
/* Cross-Company operations    */
/* Pre cache companies accross */
/* domains                     */
/* =========================== */
assign vcDInvoiceCompanyIdList = ''.

<Q-88 run CompanyByDomainActive (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input ?, (DomainId)
    input true, (CompanyIsActive)
    output dataset tqCompanyByDomainActive) in BCompany >

assign viDRCompanyEntries = if vcDRCompanyFilter = ?
                            then 1
                            else num-entries(vcDRCompanyFilter).

if vcDRCompanyFilter = ? then
    assign vcDInvoiceCompanyIdList = ?.
else do:
    <Q-31 run CompanyByCompanyCode (all) (Read) (NoCache)
       (input vcDRCompanyFilter, (CompanyCode)
        input ?, (CompanyId)
        output dataset tqCompanyByCompanyCode) in BCompany>
    
    for each tqCompanyByCompanyCode:
        if vcDInvoiceCompanyIdList = '' then
            assign vcDInvoiceCompanyIdList = string(tqCompanyByCompanyCode.tiCompany_ID).
        else 
            assign vcDInvoiceCompanyIdList = vcDInvoiceCompanyIdList + "," + string(tqCompanyByCompanyCode.tiCompany_ID).
    end.
end.