project QadFinancials > class BFixedAssetReport > method SetDataItemsBasedOnFilterTT


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BFixedAssetReport.MovementsByAssetCode
method BFixedAssetReport.MutationsByGL
method BFixedAssetReport.TransactionsByAssetCode


program code (program1/bfixedassetreport.p)

assign vcBookCodeFilter             = ?
    vcCandoAssetCodeFilter          = ?
    vcCandoAssetTypeFilter          = ?
    vcCandoGLCodeFilter             = ?
    vcCurrencyLCCCFilter            = ?
    vcFromAssetCodeFilter           = ?
    vcFromAssetTypeFilter           = ?
    vcFromGLCodeFilter              = ?
    vcToAssetCodeFilter             = ?
    vcToAssetTypeFilter             = ?
    vcToGLCodeFilter                = ?
    viFromBreakOffPeriodFilter      = ?
    viToBreakOffPeriodFilter        = ?
    vlPageBreakFilter               = ?
    viFromBreakOffYearFilter        = ?
    viToBreakOffYearFilter          = ?
    vcCandoFACatalogueValue2Filter  = ?
    vcCandoFACatalogueValue3Filter  = ?
    vcCandoFACatalogueValue4Filter  = ?
    vcCandoFACatalogueValue5Filter  = ?
    vcCandoFACatalogueValue6Filter  = ?.
    
for each tFilter:
    case tFilter.tcBusinessFieldName:    
        when "Book":U
        then assign vcBookCodeFilter = tFilter.tcParameterValue.
            
        when "FACode_CANDO":U
        then assign vcCandoAssetCodeFilter = tFilter.tcParameterValue.
            
        when "FAType_CANDO":U
        then assign vcCandoAssetTypeFilter = tFilter.tcParameterValue.

        when "GLCode_CANDO":U
        then assign vcCandoGLCodeFilter = tFilter.tcParameterValue.

        when "BreakOffPeriod_RANGE":U
        then do:
            if tFilter.tcOperator = ">=":U 
            then assign viFromBreakOffPeriodFilter = int(tFilter.tcParameterValue) no-error.
            if tFilter.tcOperator = "<=":U
            then assign viToBreakOffPeriodFilter = int(tFilter.tcParameterValue) no-error.
        end.

        when "BreakOffYear_RANGE":U
        then do:
            if tFilter.tcOperator = ">=":U 
            then assign viFromBreakOffYearFilter = int(tFilter.tcParameterValue) no-error.
            if tFilter.tcOperator = "<=":U
            then assign viToBreakOffYearFilter = int(tFilter.tcParameterValue) no-error.
        end.
        
        when "FAType_RANGE":U
        then do:
            if tFilter.tcOperator = ">=":U 
            then assign vcFromAssetTypeFilter = tFilter.tcParameterValue.
            if tFilter.tcOperator = "<=":U
            then assign vcToAssetTypeFilter = tFilter.tcParameterValue.
        end. 
        
        
        
        when "FACode_RANGE":U
        then do:
            if tFilter.tcOperator = ">=":U 
            then assign vcFromAssetCodeFilter = tFilter.tcParameterValue.
            if tFilter.tcOperator = "<=":U
            then assign vcToAssetCodeFilter = tFilter.tcParameterValue.
        end.                        
        
        when "FACode_CANDO":U
        then assign vcActivityCode = tFilter.tcParameterValue.
        
        when "GLCode_RANGE":U
        then do:
            if tFilter.tcOperator = ">=":U 
            then assign vcFromGLCodeFilter = tFilter.tcParameterValue.
            if tFilter.tcOperator = "<=":U
            then assign vcToGLCodeFilter = tFilter.tcParameterValue.
        end.
        
        
        
        when "Currency":U
        then assign vcCurrencyLCCCFilter = tFilter.tcParameterValue. 

        when "PageBreak":U
        then assign vlPageBreakFilter = if tFilter.tcParameterValue = "true":U 
                                                        then true 
                                                        else if tFilter.tcParameterValue = "false":U 
                                                            then false 
                                                            else vlPageBreakFilter no-error.
                                                            
        when "FACatalogueValue2_CANDO":U
        then assign vcCandoFACatalogueValue2Filter = tFilter.tcParameterValue.                                                             
        
        when "FACatalogueValue3_CANDO":U
        then assign vcCandoFACatalogueValue3Filter = tFilter.tcParameterValue.
        
        when "FACatalogueValue4_CANDO":U
        then assign vcCandoFACatalogueValue4Filter = tFilter.tcParameterValue.
        
        when "FACatalogueValue5_CANDO":U
        then assign vcCandoFACatalogueValue5Filter = tFilter.tcParameterValue.
        
        when "FACatalogueValue6_CANDO":U
        then assign vcCandoFACatalogueValue6Filter = tFilter.tcParameterValue.
    end.
end.