project QadFinancials > class BDDocumentReport > method SetDataItemsBasesOnFilterTT


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDDocumentReport.DDocumentReportAll
method BDDocumentReport.DDocumentReportAutoIncasso
method BDDocumentReport.DDocumentReportCheque
method BDDocumentReport.DDocumentReportDraft
method BDDocumentReport.DDocumentReportPromisNote
method BDDocumentReport.DDocumentReportSumStatement
method BDDocumentReport.DDocumentReportTransfer


program code (program1/bddocumentreport.p)

assign viBDDocRepFromYearFilter       = ?
       viBDDocRepFromNumberFilter     = ?
       viBDDocRepToNumberFilter       = ?
       vcBDDocRepFromStatusFilter     = ?
       vcBDDocRepFromDebtorCodeFilter = ?
       vcBDDocRepFromReferenceFilter  = ?
       vlBDDocRepIsOpenFilter         = ?
       vtBDDocRepFromDueDateFilter    = ?
       vtBDDocRepToDueDateFilter      = ?
       vtBDDocRepFromCreaDateFilter   = ?
       vtBDDocRepToCreationDateFilter = ?
       viBDDocRepFromCreaTimeFilter   = ?
       viBDDocRepToCreaTimeFilter     = ?
       vcBDDocRepFromCollNumberFilter = ?
       vcBDDocRepFromCurrencyFilter   = ?
       vcBDDocRepFromSubTypeFilter    = ?
       vlBDDocRepFromIncreaseCounter  = ?
       vlBDDocRepFromNewDoc           = ?
       vcBDDocRepUserFilter           = ?
       vcBDDocRepIncSelCodeFilter     = ?
       viBDDocRepTimesPrintedFilter   = ?.
       
for each tFilter:
    case tFilter.tcBusinessFieldName:
        when "Year":U
        then assign viBDDocRepFromYearFilter = int(tFilter.tcParameterValue) no-error.
        
        when "Number_RANGE":U
        then do:
            if tFilter.tcOperator = ">=":U
            then assign viBDDocRepFromNumberFilter = int(tFilter.tcParameterValue) no-error.
            else
            if tFilter.tcOperator = "<=":U
            then assign viBDDocRepToNumberFilter = int(tFilter.tcParameterValue) no-error.
        end.
        
        when "Status":U
        then assign vcBDDocRepFromStatusFilter = tFilter.tcParameterValue.
        
        when "DebtorCode":U
        then assign vcBDDocRepFromDebtorCodeFilter = tFilter.tcParameterValue.
        
        when "Reference":U
        then assign vcBDDocRepFromReferenceFilter = tFilter.tcParameterValue.
        
        when "IsOpen":U
        then assign vlBDDocRepIsOpenFilter = tFilter.tcParameterValue = string(true) or tFilter.tcParameterValue = "true":U.
        
        when "DueDate_RANGE":U
        then do:
            if tFilter.tcOperator = ">=":U
            then assign vtBDDocRepFromDueDateFilter =  date(int(substr(tFilter.tcParameterValue, 5, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 7, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 1, 4, "CHARACTER":U))) no-error.
            else
            if tFilter.tcOperator = "<=":U
            then assign vtBDDocRepToDueDateFilter =  date(int(substr(tFilter.tcParameterValue, 5, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 7, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 1, 4, "CHARACTER":U))) no-error.
        end.
        
        when "CreationDate_RANGE":U
        then do:
            if tFilter.tcOperator = ">=":U
            then assign vtBDDocRepFromCreaDateFilter =  date(int(substr(tFilter.tcParameterValue, 5, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 7, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 1, 4, "CHARACTER":U))) no-error.
            else
            if tFilter.tcOperator = "<=":U
            then assign vtBDDocRepToCreationDateFilter =  date(int(substr(tFilter.tcParameterValue, 5, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 7, 2, "CHARACTER":U)), int(substr(tFilter.tcParameterValue, 1, 4, "CHARACTER":U))) no-error.
        end.
        
        when "CreTime_RANGE":U
        then do:
            if tFilter.tcOperator = ">=":U
            then assign viBDDocRepFromCreaTimeFilter = int(tFilter.tcParameterValue) no-error.
            else
            if tFilter.tcOperator = "<=":U
            then assign viBDDocRepToCreaTimeFilter = int(tFilter.tcParameterValue) no-error.
        end.
        
        when "CollNumber":U
        then assign vcBDDocRepFromCollNumberFilter = tFilter.tcParameterValue.
        
        when "Currency":U
        then assign vcBDDocRepFromCurrencyFilter = tFilter.tcParameterValue.
        
        when "SubType":U
        then assign vcBDDocRepFromSubTypeFilter = tFilter.tcParameterValue.
        
        when "Increase":U
        then assign vlBDDocRepFromIncreaseCounter = tFilter.tcParameterValue = string(true) or tFilter.tcParameterValue = "true":U.
        
        when "NewDoc":U
        then assign vlBDDocRepFromNewDoc = tFilter.tcParameterValue = string(true) or tFilter.tcParameterValue = "true":U.
        
        when "User":U
        then assign vcBDDocRepUserFilter = tFilter.tcParameterValue.
        
        when "IncSelCode":U
        then assign vcBDDocRepIncSelCodeFilter = tFilter.tcParameterValue.
        
        when "TimesPrint":U
        then assign viBDDocRepTimesPrintedFilter = int(tFilter.tcParameterValue) no-error.
    end case.
end.