project QadFinancials > class BFRWChart > method CheckChartHasData

Description

Check if chart has related cube that has data


Parameters


icFRWChartCodeinputcharacter
olIsCubeHasDataoutputlogical
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bfrwchart.p)

/**************************************************************************/
/* This method will check whether cube has data */
/**************************************************************************/
MainBlock:
do on error undo, throw:
    assign olIsCubeHasData = false.
    if icFRWChartCode = ? or icFRWChartCode = "":U
    then return.

    <Q-64 run CubeDimByChartCode (first) (Read) (NoCache)
       (input icFRWChartCode, (ChartCode)
        input ?, (CompanyId)
        output dataset tqCubeDimByChartCode) in BCubeQuery>

    find first tqCubeDimByChartCode no-error.
    if available tqCubeDimByChartCode 
    then assign olIsCubeHasData = true.
end. /* do on error undo, throw: */