method GetAllCompanyForChart

Description

Get all company for chart.

Parameters

tCompanyForChart	output	temp-table
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bfrwchart.p)

/**************************************************************************/
/* This method will get all companies for chart                           */
/**************************************************************************/
MainBlock:
do on error undo, throw:
    empty temp-table tCompanyForChart no-error.
    <Q-27 run CompanyForDomainAndDomainProperty (all) (Read) (NoCache)
       (input ?, (CompanyId)
        output dataset tqCompanyForDomainAndDomProperty) in BCompany>

    for each tqCompanyForDomainAndDomProperty: 
        create tCompanyForChart.
        assign tCompanyForChart.tcChartCompany     = tqCompanyForDomainAndDomProperty.tcCompanyCode
               tCompanyForChart.tiChartCompanyId   = tqCompanyForDomainAndDomProperty.tiCompany_ID
               tCompanyForChart.tlIsSelected       = yes
               tCompanyForChart.tcChartCompanyDomain = tqCompanyForDomainAndDomProperty.tcDomainCode
               tCompanyForChart.tcChartCompanyDesc = tqCompanyForDomainAndDomProperty.tcCompanyDescription
               tCompanyForChart.tcDomainDesc = tqCompanyForDomainAndDomProperty.tcDomainPropertyName.
    end. /* for each tqSelectCompanyForChart: */
end. /* do on error undo, throw: */