project QadFinancials > class BDebtorReport > method SetDataItemsBasedOnFilterTT2

Description

SetDataItemsBasedOnFilterTT2


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDebtorReport.SetDataItemsBasedOnFilterTT


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.