Description
This method is used to get all records in tFilter into class data members.
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bemployeereport.p)
assign vcERActivityCodeFilter = ?
vcERAddressCityFilter = ?
vcERAddressStreetFilter = ?
vcERBRCodeFilter = ?
vcERBRNameFilter = ?
vcERCostCentreCodeFilter = ?
vcERCreditorCodeFilter = ?
vcERDivisionCodeFilter = ?
vcEREmployeeCodeCandoFilter = ?
vcEREmployeeCodeFromFilter = ?
vcEREmployeeCodeToFilter = ?
vcERExpenseCodeFilter = ?
vcERPriceGroupFilter = ?
vcERPriceListFilter = ?
vcERUserNameFilter = ?
vtEREndDateFromFilter = ?
vtEREndDateToFilter = ?
vtERStartDateFromFilter = ?
vtERStartDateToFilter = ?
vlEREmployeeIsActiveFilter = ?
vlEREmployeeIsActSheetFilter = ?
vlEREmployeeIsExpNodesFilter = ?
vlEREmployeeIsExternalFilter = ?
vlEREmployeeIsUserFilter = ?
viERAPYearFilter = ?
vcERJournalCodeFilter = ?
viERFromCInvoiceVoucherFilter = ?
viERToCInvoiceVoucherFilter = ?
vcERCreditorCodeFilter = ?
vcERCurrencyFilter = ?
vcEmployeeDepartmentCodeFilter = ?
vcEmployeeJobTitleFilter = ?.
for each tFilter:
case tFilter.tcBusinessFieldName:
when "ActivityCode_CANDO":U
then vcERActivityCodeFilter = tFilter.tcParameterValue no-error.
when "AddressCity_CANDO":U
then vcERAddressCityFilter = tFilter.tcParameterValue no-error.
when "AddressStreet_CANDO":U
then vcERAddressStreetFilter = tFilter.tcParameterValue no-error.
when "BusinessRelationCode_CANDO":U
then vcERBRCodeFilter = tFilter.tcParameterValue no-error.
when "BusinessRelationName_CANDO":U
then vcERBRNameFilter = tFilter.tcParameterValue no-error.
when "CostCentreCode_CANDO":U
then vcERCostCentreCodeFilter = tFilter.tcParameterValue no-error.
when "CreditorCode_CANDO":U
then vcERCreditorCodeFilter = tFilter.tcParameterValue no-error.
when "DivisionCode_CANDO":U
then vcERDivisionCodeFilter = tFilter.tcParameterValue no-error.
when "EmployeeCode_CANDO":U
then vcEREmployeeCodeCandoFilter = tFilter.tcParameterValue no-error.
when "EmployeeCode_RANGE":U
then if tFilter.tcOperator = ">=":U
then assign vcEREmployeeCodeFromFilter = tFilter.tcParameterValue no-error.
else if tFilter.tcOperator = "<=":U
then assign vcEREmployeeCodeToFilter = tFilter.tcParameterValue no-error.
when "ExpenseCode_CANDO":U
then vcERExpenseCodeFilter = tFilter.tcParameterValue no-error.
when "PriceGroup_CANDO":U
then vcERPriceGroupFilter = tFilter.tcParameterValue no-error.
when "PriceList_CANDO":U
then vcERPriceListFilter = tFilter.tcParameterValue no-error.
when "UserName_CANDO":U
then vcERUserNameFilter = tFilter.tcParameterValue no-error.
when "ActiveEmployee":U
then assign vlEREmployeeIsActiveFilter = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlEREmployeeIsActiveFilter no-error.
when "ActiveActivitySheets":U
then assign vlEREmployeeIsActSheetFilter = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlEREmployeeIsActSheetFilter no-error.
when "ActiveExpenseNodes":U
then assign vlEREmployeeIsExpNodesFilter = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlEREmployeeIsExpNodesFilter no-error.
when "ExternalEmployee":U
then assign vlEREmployeeIsExternalFilter = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlEREmployeeIsExternalFilter no-error.
when "User":U
then assign vlEREmployeeIsUserFilter = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlEREmployeeIsUserFilter no-error.
when "StartDate_RANGE":U
then if tFilter.tcOperator = ">=":U
then assign vtERStartDateFromFilter = DATE(INTEGER(SUBSTRING(tFilter.tcParameterValue,5,2,"CHARACTER":U)),integer(SUBSTRING(tFilter.tcParameterValue,7,2,"CHARACTER":U)),INTEGER(SUBSTRING(tFilter.tcParameterValue,1,4,"CHARACTER":U))) no-error.
else if tFilter.tcOperator = "<=":U
then assign vtERStartDateToFilter = DATE(INTEGER(SUBSTRING(tFilter.tcParameterValue,5,2,"CHARACTER":U)),integer(SUBSTRING(tFilter.tcParameterValue,7,2,"CHARACTER":U)),INTEGER(SUBSTRING(tFilter.tcParameterValue,1,4,"CHARACTER":U))) no-error.
when "EndDate_RANGE":U
then if tFilter.tcOperator = ">=":U
then assign vtEREndDateFromFilter = DATE(INTEGER(SUBSTRING(tFilter.tcParameterValue,5,2,"CHARACTER":U)),integer(SUBSTRING(tFilter.tcParameterValue,7,2,"CHARACTER":U)),INTEGER(SUBSTRING(tFilter.tcParameterValue,1,4,"CHARACTER":U))) no-error.
else if tFilter.tcOperator = "<=":U
then assign vtEREndDateToFilter = DATE(INTEGER(SUBSTRING(tFilter.tcParameterValue,5,2,"CHARACTER":U)),integer(SUBSTRING(tFilter.tcParameterValue,7,2,"CHARACTER":U)),INTEGER(SUBSTRING(tFilter.tcParameterValue,1,4,"CHARACTER":U))) no-error.
when "Voucher_RANGE":U
then if tFilter.tcOperator = ">=":U
then assign viERFromCInvoiceVoucherFilter = int(tFilter.tcParameterValue) no-error.
else if tFilter.tcOperator = "<=":U
then assign viERToCInvoiceVoucherFilter = int(tFilter.tcParameterValue) no-error.
when "CreditorCode":U
then vcERCreditorCodeFilter = tFilter.tcParameterValue no-error.
when "CurrencyCode":U
then vcERCurrencyFilter = tFilter.tcParameterValue no-error.
when "JournalCode":U
then vcERJournalCodeFilter = tFilter.tcParameterValue no-error.
when "AccYear":U
then viERAPYearFilter = int(tFilter.tcParameterValue) no-error.
when "EmployeeDepartmentCode_MATCHES":U
then vcEmployeeDepartmentCodeFilter = tFilter.tcParameterValue no-error.
when "EmployeeJobTitle_MATCHES":U
then vcEmployeeJobTitleFilter= tFilter.tcParameterValue no-error.
end.
end.