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
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
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.