method GetMultipleCompanyIdList

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BDebtorReport.DebtorBillingAAB

program code (program1/bdebtorreport.p)

if vcDRCompanyFilter = ? then
    assign vcDInvoiceCompanyIdList = ?.
else do:
    <Q-60 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.