project QadFinancials > class BMfgDaybookSetReport > method SetDataItemsBasedOnFilterTT


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BMfgDaybookSetReport.DaybookSetReport


program code (program2/bmfgdaybooksetreport.p)

/* =================================================================== */
/* Find all filter-parameters and assign them to the correct data-item */
/* =================================================================== */

assign vcFromDaybookSet   = ?
       vcToDaybookSet     = ?
       vcDBSType          = ?
       vlDaybookSetActive = ?.

for each tFilter:
    case tFilter.tcBusinessFieldName:
                
        when "DaybookSet_RANGE":U          
        then do:
            if tFilter.tcOperator = ">=":U 
            then assign vcFromDaybookSet = tFilter.tcParameterValue no-error.
            if tFilter.tcOperator = "<=":U
            then assign vcToDaybookSet = tFilter.tcParameterValue no-error.
        end.
        
        when "DaybookSetType":U
        then do:       
            if tFilter.tcParameterValue = {&DAYBOOKSETTYPE-AR}
            then assign vcDBSType = "1":U.
            if tFilter.tcParameterValue = {&DAYBOOKSETTYPE-AP}
            then assign vcDBSType = "2":U.
        end.          
                
        when "DaybookSetActive":U
        then assign vlDaybookSetActive = if tFilter.tcParameterValue = "true":U or
                                            tFilter.tcParameterValue = string(true)
                                         then true 
                                         else if tFilter.tcParameterValue = "false":U or
                                                 tFilter.tcParameterValue = string(false) 
                                              then false
                                              else vlDaybookSetActive no-error.
    end case.    
end.