project QadFinancials > class BDebtorReport > method SetDataItemsBasedOnFilterTT2
Description
SetDataItemsBasedOnFilterTT2
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bdebtorreport.p)
case tFilter.tcBusinessFieldName:
when "DueInvoicesOnly":U
then assign vlDueInvoicesOnly = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlDueInvoicesOnly no-error.
when "StatementDate":U
then assign vtStatementDateFilter = 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 "DueDateBefore":U
then assign vtDueDateBeforeFilter = 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 "DebtorType_CANDO":U
then assign vcDebtorTypeFilter = tFilter.tcParameterValue no-error.
when "OverCreditLimitOnly":U
then assign vlOverCreditLimitOnlyFilter = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlOverCreditLimitOnlyFilter no-error.
when "SuppressZeroAmounts":U
then assign vlSuppressZeroAmountsFilter = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlSuppressZeroAmountsFilter no-error.
when "ReportCurrency":U
then assign vcReportCurrencyFilter = tFilter.tcParameterValue no-error.
when "SortBy":U
then assign vcSortByNameFilter = tFilter.tcParameterValue no-error.
when "InvoiceDueDate_RANGE":U
then if tFilter.tcOperator = ">=":U
then assign vtDInvoiceDueDateFromFilter = 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 vtDInvoiceDueDateToFilter = 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 "AccYear":U
then assign viAccYear = int(tFilter.tcParameterValue) no-error.
when "DInvoiceVoucher_RANGE":U
then if tFilter.tcOperator = ">=":U
then assign viDInvoiceVoucherFrom = int(tFilter.tcParameterValue) no-error.
else if tFilter.tcOperator = "<=":U
then assign viDInvoiceVoucherTo = int(tFilter.tcParameterValue) no-error.
when "InvoiceOpen":U
then assign vlDInvoiceIsOpenFilter = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlDInvoiceIsOpenFilter no-error.
when "StatementCycle_CANDO":U
then assign vcStatementCycleFilter = tFilter.tcParameterValue no-error.
when "IncludeInvoices":U
then do:
if vcIncludedTypes = ?
then assign vcIncludedTypes = "":U.
assign vcIncludedTypes = vcIncludedTypes +
if tFilter.tcParameterValue = "true":U
then ",":U + {&INVOICETYPE-INVOICE}
else "":U no-error.
end.
when "IncludeCreditNotes":U
then do:
if vcIncludedTypes = ?
then assign vcIncludedTypes = "":U.
assign vcIncludedTypes = vcIncludedTypes +
if tFilter.tcParameterValue = "true":U
then ",":U + {&INVOICETYPE-CREDITNOTE}
else "":U no-error.
end.
when "IncludePrePayments":U
then assign vcIncludedTypes = vcIncludedTypes +
if tFilter.tcParameterValue = "true":U
then ",":U + {&INVOICETYPE-PREPAYMENT}
else "":U no-error.
when "IncludeAdjustments":U
then assign vcIncludedTypes = vcIncludedTypes +
if tFilter.tcParameterValue = "true":U
then ",":U + {&INVOICETYPE-ADJUSTMENT}
else "":U no-error.
when "IncludeInvoiceCorrection":U
then assign vcIncludedTypes = vcIncludedTypes +
if tFilter.tcParameterValue = "true":U
then ",":U + {&INVOICETYPE-INVOICECORRECTION}
else "":U no-error.
when "IncludeCreditNoteCorrection":U
then assign vcIncludedTypes = vcIncludedTypes +
if tFilter.tcParameterValue = "true":U
then ",":U + {&INVOICETYPE-CREDITNOTECORRECTION}
else "":U no-error.
when "IncludeDeductions":U
then assign vcIncludedTypes = vcIncludedTypes +
if tFilter.tcParameterValue = "true":U
then ",":U + {&INVOICETYPE-DEDUCTION}
else "":U no-error.
when "BillToDebtorCode_RANGE":U
then if tFilter.tcOperator = ">=":U
then assign vcFromDebtorBillToCode = tFilter.tcParameterValue no-error.
else if tFilter.tcOperator = "<=":U
then assign vcToDebtorBillToCode = tFilter.tcParameterValue no-error.
when "ShipToDebtorCode_RANGE":U
then if tFilter.tcOperator = ">=":U
then assign vcFromDebtorShipToCode = tFilter.tcParameterValue no-error.
else if tFilter.tcOperator = "<=":U
then assign vcToDebtorShipToCode = tFilter.tcParameterValue no-error.
when "EntityFilter1":U
then assign vcEntityFilter1 = tFilter.tcParameterValue no-error.
when "AddComments":U
then assign vlAddComments = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlAddComments no-error.
when "CostCentreCode_RANGE":U
then if tFilter.tcOperator = ">=":U
then assign vcFromCostCentreCodeFilter1 = trim(tFilter.tcParameterValue) no-error.
else if tFilter.tcOperator = "<=":U
then assign vcToCostCentreCodeFilter1 = trim(tFilter.tcParameterValue) no-error.
when "CostCentreCode_CANDO":U
then assign vcCanDoCostCentreCodeFilter1 = trim(tFilter.tcParameterValue) no-error.
when "Salesperson":U
then assign vcSalespersonFilter = tFilter.tcParameterValue no-error.
when "PaymentGroup":U
then assign vcPaymentGroupFilter = tFilter.tcParameterValue no-error.
end case.