method SelectDivisionCOAMaskFilter

Parameters

bcDivisionEq	input-output	character
bcDivisionNotEq	input-output	character
bcDivisionFrom	input-output	character
bcDivisionTo	input-output	character
bcDivisionMatches	input-output	character
bcDivisionDescEq	input-output	character
bcDivisionDescNotEq	input-output	character
bcDivisionDescFrom	input-output	character
bcDivisionDescTo	input-output	character
bcDivisionDescMatches	input-output	character
blActive	input-output	logical
bcBudgetGroupEq	input-output	character
bcBudgetGroupNotEq	input-output	character
bcBudgetGroupFrom	input-output	character
bcBudgetGroupTo	input-output	character
bcBudgetGroupMatches	input-output	character
bcGLCode	input-output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BDivision.ApiSelectDivisionCOAMask
method BDivision.ApiSelectDivisionCOAMaskEnt

program code (program7/bdivision.p)

/* ================================================================================ *
 * Method:    SelectDivisionCOAMaskFilter                                           *
 * Desc:      Parse parameters comming from UI of browse                            *
 * -------------------------------------------------------------------------------- *
 * Input:    Sub-account                                                            *
 *           Description                                                            *
 *           Active                                                                 *
 *           BudgetGroup                                                            *
 * ================================================================================ */
 
 assign bcGLCode               = ?
        bcDivisionEq           = ?
        bcDivisionNotEq        = ?
        bcDivisionFrom         = ?
        bcDivisionTo           = ?
        bcDivisionMatches      = ?
        bcDivisionDescEq       = ?
        bcDivisionDescNotEq    = ?
        bcDivisionDescFrom     = ?
        bcDivisionDescTo       = ?
        bcDivisionDescMatches  = ?
        blActive               = ?
        bcBudgetGroupEq        = ?
        bcBudgetGroupNotEq     = ?
        bcBudgetGroupFrom      = ?
        bcBudgetGroupTo        = ?
        bcBudgetGroupMatches   = ?.
        
for each tFilter:
    case tFilter.tcBusinessFieldName:

        when "tGL.GLCode":U
        then assign bcGLCode = tFilter.tcParameterValue.
        
        when "tDivision.DivisionCode":U
        then case tFilter.tcOperator:
                when "=":U  then assign bcDivisionEq    = tFilter.tcParameterValue.
                when "<>":U then assign bcDivisionNotEq = tFilter.tcParameterValue.
                when "<=":U then assign bcDivisionTo    = tFilter.tcParameterValue.
                when ">=":U then assign bcDivisionFrom  = tFilter.tcParameterValue.
                when "matches":U then assign bcDivisionMatches = tFilter.tcParameterValue.
                when "begins":U then assign bcDivisionMatches  = tFilter.tcParameterValue + '*':U.
        end case.
        
        when "tDivision.DivisionDescription":U
        then case tFilter.tcOperator:
                when "=":U  then assign bcDivisionDescEq           = tFilter.tcParameterValue.
                when "<>":U then assign bcDivisionDescNotEq        = tFilter.tcParameterValue.
                when "<=":U then assign bcDivisionDescTo           = tFilter.tcParameterValue.
                when ">=":U then assign bcDivisionDescFrom         = tFilter.tcParameterValue.
                when "matches":U then assign bcDivisionDescMatches = tFilter.tcParameterValue.
                when "begins":U then assign bcDivisionDescMatches  = tFilter.tcParameterValue + '*':U.
        end case.

        when "tDivision.DivisionIsActive":U
        then case tFilter.tcOperator:
                when "=":U  then assign blActive = logical(tFilter.tcParameterValue) no-error.
                when "<>":U then assign blActive = not logical(tFilter.tcParameterValue) no-error.
        end case.

        when "tDivision.tcBudgetGroupCode":U
        then case tFilter.tcOperator:
                when "=":U  then assign bcBudgetGroupEq           = tFilter.tcParameterValue.
                when "<>":U then assign bcBudgetGroupNotEq        = tFilter.tcParameterValue.
                when "<=":U then assign bcBudgetGroupTo           = tFilter.tcParameterValue.
                when ">=":U then assign bcBudgetGroupFrom         = tFilter.tcParameterValue.
                when "matches":U then assign bcBudgetGroupMatches = tFilter.tcParameterValue.
                when "begins":U then assign bcBudgetGroupMatches  = tFilter.tcParameterValue + '*':U.
        end case.

    end case.
end.