method SetDataItemsBasesOnFilter

Description

This method will transfer the filter parameters values to the variables defined in BL code.

Parameters

oiReturnStatus

output

integer

Return status of the method.

Internal usage

QadFinancials

method BBLWIReport.DocumentBLWIReport

program code (program5/bblwireport.p)

assign viBWLIRepYearFilter   = ?
       viBWLIRepPeriodFilter = ?
       vcBWLIRepTypeFilter   = ?
       vcBWLIRepFromFilter   = ?
       vcBWLIRepToFilter     = ?
       vlBWLIRepInEuro       = ?.

find first tFilter where tFilter.tcBusinessFieldName = "Year":U no-error.
if avail tFilter
then assign viBWLIRepYearFilter = int(tFilter.tcParameterValue).

find first tFilter where tFilter.tcBusinessFieldName = "Period":U no-error.
if avail tFilter
then assign viBWLIRepPeriodFilter = int(tFilter.tcParameterValue).

find first tFilter where tFilter.tcBusinessFieldName = "Type":U no-error.
if avail tFilter
then assign vcBWLIRepTypeFilter = tFilter.tcParameterValue.

find first tFilter where tFilter.tcBusinessFieldName = "FromBLWI":U no-error.
if avail tfilter
then assign vcBWLIRepFromFilter = tFilter.tcParameterValue.

find first tFilter where tFilter.tcBusinessFieldName = "ToBLWI":U no-error.
if avail tfilter
then assign vcBWLIRepToFilter = tFilter.tcParameterValue.

find first tFilter where tFilter.tcBusinessFieldName = "InEuro":U no-error.
if available tFilter
then do:
   assign vlBWLIRepInEuro = if tFilter.tcParameterValue = "True":U 
                              then true 
                              else if tFilter.tcParameterValue = "False":U 
                                   then false 
                                   else false no-error. 
end.