method CheckChartUsedInBudget

Description

Check if chart is used in budget

Parameters

iiChartId	input	integer
olIsUsedInBudget	output	logical
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bfrwchart.p)

/* ====================================================================================== *
 * Method       : CheckChartUsedInBudget                                                  *
 * Description  : Check if chart is used in budget                                        *
 * ====================================================================================== */


MAIN_BLOCK:
do on error undo, throw:
    assign olIsUsedInBudget = no.   
    <Q-45 run BudgetByFRWChartId (first) (Read) (NoCache)
       (input iiChartId, (FRWChartId)
        output dataset tqBudgetByFRWChartId) in BBudget>
    find first tqBudgetByFRWChartId no-error.
    if available tqBudgetByFRWChartId then assign olIsUsedInBudget = yes.
end. /* MAIN_BLOCK */