project QadFinancials > class BBox1099Report > method SetDataItemsBasedOnFilterTT

Description

This method is used to get all input parameters into component data items.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BBox1099Report.M1099MiscPaperDeclaration
method BBox1099Report.M1099MiscReport


program code (program1/bbox1099report.p)

/* Find all filter-parameters and assign them to the correct data-item */

assign viPaymentYearFilter            = ?
       vcToSupplierFilter             = ?
       vcFromSupplierFilter           = ?       
       vcSupplierTypeFilter           = ?
       vcBoxFederalTaxIDFilter        = ?
       vcBoxEntityFilter              = ?
       vlShowEntityDetails            = ?
       vlShowTransactionDetails       = ?
       /*vcBoxReportCurrencyFilter      = ?*/
       vcBoxReportDescription         = ?
       vlMaskSSN                      = ?.

for each tFilter:
    case tFilter.tcBusinessFieldName:

        when "PaymentYear":U
        then assign viPaymentYearFilter = int(tFilter.tcParameterValue) no-error.

        when "SupplierCode_RANGE":U
        then if tFilter.tcOperator = ">=":U
             then assign vcFromSupplierFilter = tFilter.tcParameterValue no-error. 
             else if tFilter.tcOperator = "<=":U
                  then assign vcToSupplierFilter = tFilter.tcParameterValue NO-ERROR.

        when "SupplierType_CANDO":U
        then assign vcSupplierTypeFilter = tFilter.tcParameterValue.

        when "Company_CANDO":U
        then assign vcBoxEntityFilter = tFilter.tcParameterValue.
        
        when "FederalTaxID_CANDO":U
        then assign vcBoxFederalTaxIDFilter = tFilter.tcParameterValue.
        
        when "ShowEntityDetails":U
        then assign vlShowEntityDetails = if tFilter.tcParameterValue = "True":U 
                                             then true 
                                          else if tFilter.tcParameterValue = "False":U 
                                             then false 
                                             else false no-error. 
        
        when "ShowTransactionDetails":U
        then assign vlShowTransactionDetails = if tFilter.tcParameterValue = "True":U 
                                                  then true 
                                               else if tFilter.tcParameterValue = "False":U 
                                                  then false 
                                                  else false no-error.
                                                  
        when "CheckForUnlinkedInvoices":U
        then assign vlCheckUnlinkedInvoices = if tFilter.tcParameterValue = "True":U 
                                                  then true 
                                               else if tFilter.tcParameterValue = "False":U 
                                                  then false 
                                                  else false no-error.                                                    
                                             
        /*when "ReportingCurrency":U
        then assign vcBoxReportCurrencyFilter = tFilter.tcParameterValue.*/
        
        when "ReportDescription":U
        then assign vcBoxReportDescription = tFilter.tcParameterValue.

        when "MaskSSN":U
        then assign vlMaskSSN = if tFilter.tcParameterValue = "True":U 
                                then true  
                                else false no-error.
                                                       
    end case.
end.

<M-1 run CrossCompanyEntries  (output oiReturnStatus (oiReturnStatus)) in BBox1099Report>