project QadFinancials > class BCashBoxReport > method SetDataItemsBasedOnFilterTT


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BCashBoxReport.CashBook
method BCashBoxReport.CashPaid
method BCashBoxReport.CashReceived


program code (program1/bcashboxreport.p)

assign vcCandoBankStateLineIDFilter = ?
    vcCashGLCodeFilter              = ?
    vtCashPostingDateFromFilter     = ?
    vtCashPostingDateToFilter       = ?
    vcCBJournalCodeFilter           = ?
    vcCBPostingLayerFilter          = ?
    viCBAccPeriodFilter             = ?
    viCBAccYearFilter               = ?
    viCBPostingVoucherFilter        = ?
    vlCBBreakByDateFilter           = ?.
                
for each tFilter:
    case tFilter.tcBusinessFieldName:
        when "BankStateLineID_CANDO":U
        then assign vcCandoBankStateLineIDFilter = tFilter.tcParameterValue no-error.
        
        when "GLCode":U
        then assign vcCashGLCodeFilter = tFilter.tcParameterValue no-error.        

        when "PostingDate_RANGE":U
        then do:
            if tFilter.tcOperator = ">=":U 
            then assign vtCashPostingDateFromFilter = date(int(substring(tFilter.tcParameterValue, 5, 2,"Character":U)), int(substring(tFilter.tcParameterValue, 7, 2,"Character":U)), int(substring(tFilter.tcParameterValue, 1, 4,"Character":U))) no-error.
            if tFilter.tcOperator = "<=":U
            then assign vtCashPostingDateToFilter = date(int(substring(tFilter.tcParameterValue, 5, 2,"Character":U)), int(substring(tFilter.tcParameterValue, 7, 2,"Character":U)), int(substring(tFilter.tcParameterValue, 1, 4,"Character":U))) no-error.
        end.
        
        when "AccPeriod":U
        then assign viCBAccPeriodFilter = int(tFilter.tcParameterValue) no-error.
        
        when "AccYear":U
        then assign viCBAccYearFilter = int(tFilter.tcParameterValue) no-error.
        
        when "Voucher":U
        then assign viCBPostingVoucherFilter = int(tFilter.tcParameterValue) no-error.
        
        when "Journal":U
        then assign vcCBJournalCodeFilter = tFilter.tcParameterValue no-error.
        
        when "Layer_CANDO":U
        then assign vcCBPostingLayerFilter = tFilter.tcParameterValue no-error.
        
        when "PageBreak":U
        then assign vlCBBreakByDateFilter = if tFilter.tcParameterValue = "true":U 
                                                        then true 
                                                        else if tFilter.tcParameterValue = "false":U 
                                                            then false 
                                                            else vlCBBreakByDateFilter no-error.
    end.
end.