project QadFinancials > class BFRWChart > method CheckEntityUsedInCube

Description

Check if entity is used in cube


Parameters


iiChartIDinputinteger
iiCompanyIdinputinteger
olIsUsedInCubeoutputlogical
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bfrwchart.p)

/* ====================================================================================== *
 * Method       : CheckEntityUsedInCube                                                   *
 * Description  : Check if entity is used in cube                                         *
 * ====================================================================================== */


MAIN_BLOCK:
do on error undo, throw:   
    assign olIsUsedInCube = no.
    <Q-91 run FRWCubeCyByChartAndCompany (first) (Read) (NoCache)
       (input iiChartID, (ChartID)
        input iiCompanyId, (CompanyId)
        output dataset tqFRWCubeCyByChartAndCompany) in BFRWCube>
    find first tqFRWCubeCyByChartAndCompany no-error.
    if available tqFRWCubeCyByChartAndCompany then assign olIsUsedInCube = yes.
end. /* MAIN_BLOCK */