project BLF > class Session > method CreateFilterVariables

Description

Method to define filter default values variables.
Add code behind the ancestor-code tag.
Initial example is entity.
Use the $ sign so the user on UI knows he is dealing with a default values variables.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method Session.ApplicationLoginFromUI
method Session.GetAllData
method Session.GetFilterVariables


program code (program1/session.p)

empty temp-table tFilterVariable.

create tFilterVariable.
assign tFilterVariable.tcFilterVariableName  = '$TRUE':U
       tFilterVariable.tcFilterVariableLabel = #T-42'$True':255(861279406)T-42#
       tFilterVariable.tcFilterVariableValue = "TRUE"
       tFilterVariable.tcDataType            = "l".

create tFilterVariable.
assign tFilterVariable.tcFilterVariableName  = '$FALSE':U
       tFilterVariable.tcFilterVariableLabel = #T-26'$False':255(555006240)T-26#
       tFilterVariable.tcFilterVariableValue = "FALSE"
       tFilterVariable.tcDataType            = "l".

/* Use query to fill in stead of vcCompanyCode because vcCompanyCode is empty */
<Q-2 run CompanyPrim (all) (Read) (NoCache)
   (input viCompanyId, (LookupCompanyId)
    input ?, (CompanyCode)
    output dataset tqCompanyPrim) in BCompany >

find first tqCompanyPrim where
           tqCompanyPrim.tiCompany_ID = viCompanyId
           no-error.

if available tqCompanyPrim
then do:
    create tFilterVariable.

    assign tFilterVariable.tcFilterVariableName  = '$ENTITY':U
           tFilterVariable.tcFilterVariableLabel = trim(#T-1'$Entity':25(8588)T-1#)
           tFilterVariable.tcFilterVariableValue = tqCompanyPrim.tcCompanyCode
           tFilterVariable.tcDataType            = "c".
end.