project QadFinancials > class BDebtorReport > method ValidateDateFilter


Parameters


otAgingDateoutputdate
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDebtorReport.DebtorAgeingAnalysisBackwards
method BDebtorReport.DebtorAgingHistAcroDomain
method BDebtorReport.DebtorBillingAAB


program code (program1/bdebtorreport.p)

/* There cannot be year 0, this is converted to -999 so it won't be translated in querry as 0 -> true !!! */
if viToAccYearFilter = 0
then assign viToAccYearFilter = -999.
assign viToAccPeriodFilter = viToAccYearFilter * 100 + viToAccPeriodFilter.
if viToAccPeriodFilter <> ? and viToAccYearFilter   <> ?
then do:
    <Q-86 run PeriodFromTo (all) (Read) (NoCache)
       (input viCompanyId, (CompanyId)
        input viToAccPeriodFilter, (FromPeriodYear)
        input viToAccPeriodFilter, (ToPeriodYear)
        output dataset tqPeriodFromTo) in BDebtorReport >
    find first tqPeriodFromTo where
               tqPeriodFromTo.tiPeriodYearPeriod >= viToAccPeriodFilter and
               tqPeriodFromTo.tiPeriodYearPeriod <= viToAccPeriodFilter no-error.
    if not available tqPeriodFromTo
    then do:
        <M-79 run SetMessage
           (input  trim(#T-47'The GL period you entered is not defined in the system.':100(28024623)T-47#) (icMessage), 
            input  '':U (icArguments), 
            input  '':U (icFieldName), 
            input  '':U (icFieldValue), 
            input  'E':U (icType), 
            input  3 (iiSeverity), 
            input  '':U (icRowid), 
            input  'QadFin-392986':U (icFcMsgNumber), 
            input  '':U (icFcExplanation), 
            input  '':U (icFcIdentification), 
            input  '':U (icFcContext), 
            output viFcReturnSuper (oiReturnStatus)) in BDebtorReport>
        assign oiReturnStatus = -1.
        return.
    end.
end.
else do:
    <M-54 run SetMessage
       (input  trim(#T-90'You must enter the GL calendar year/GL period.':50(685273593)T-90#) (icMessage), 
        input  '':U (icArguments), 
        input  '':U (icFieldName), 
        input  '':U (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  '':U (icRowid), 
        input  'QadFin-625185':U (icFcMsgNumber), 
        input  '':U (icFcExplanation), 
        input  '':U (icFcIdentification), 
        input  '':U (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BDebtorReport>
     assign oiReturnStatus = -1.
     return.
end.

assign otAgingDate = tqPeriodFromTo.ttPeriodEndDate.