project QadFinancials > class BReportingJournalReport > method GetPostingDateFromFilter

Parameters

Internal usage

program code (program4/breportingjournalreport.p)

/* The GL and posting date filters are mutally exclusive so we must find out which we are using */
/* then we must get the posting to and from date from the filters */
/* if its the GL filter find the posting dates from this */

/* ============================= */
/* Default return status         */
/* ============================= */
assign oiReturnStatus      = -98.

if viFromPostingYearFilter <> ? and
        viFromPostingPeriodFilter <> ? and               
        viToPostingYearFilter <> ? and               
        viToPostingPeriodFilter <> ?
then do:
    /* Get From Posting Date */
    <Q-3 run PeriodByYearPeriod (all) (Read) (NoCache)
       (input viCompanyId, (CompanyId)
        input viFromPostingYearFilter, (PeriodYear)
        input viFromPostingPeriodFilter, (PeriodPeriod)
        input ?, (PeriodId)
        output dataset tqPeriodByYearPeriod) in BPeriod >
    find first tqPeriodByYearPeriod
         where tqPeriodByYearPeriod.tiPeriodYear = viFromPostingYearFilter
         and   tqPeriodByYearPeriod.tiPeriodPeriod = viFromPostingPeriodFilter no-error.     
    if available tqPeriodByYearPeriod
    then do:
        assign vtFromPostingDateFilter1 = tqPeriodByYearPeriod.ttPeriodStartDate.
    end.        
    /* Get To Posting Date */
    <Q-4 run PeriodByYearPeriod (all) (Read) (NoCache)
       (input viCompanyId, (CompanyId)
        input viToPostingYearFilter, (PeriodYear)
        input viToPostingPeriodFilter, (PeriodPeriod)
        input ?, (PeriodId)
        output dataset tqPeriodByYearPeriod) in BPeriod >
    find first tqPeriodByYearPeriod
         where tqPeriodByYearPeriod.tiPeriodYear = viToPostingYearFilter
         and   tqPeriodByYearPeriod.tiPeriodPeriod = viToPostingPeriodFilter no-error.     
    if available tqPeriodByYearPeriod
    then do:
        assign vtToPostingDateFilter1 = tqPeriodByYearPeriod.ttPeriodEndDate.
    end.    
end.                     

if vtFromPostingDateFilter1 = ? or
   vtToPostingDateFilter1 = ? 
then do: 
    <M-5 run SetMessage
       (input  trim(#T-6'No date is available':255(73476702)T-6#) (icMessage), 
        input  '':U (icArguments), 
        input  '':U (icFieldName), 
        input  '':U (icFieldValue), 
        input  'E':U (icType), 
        input  3 (iiSeverity), 
        input  '':U (icRowid), 
        input  'QadFin-9562':U:U (icFcMsgNumber), 
        input  '' (icFcExplanation), 
        input  '' (icFcIdentification), 
        input  '' (icFcContext), 
        output viFcReturnSuper (oiReturnStatus)) in BReportingJournalReport>
    assign oiReturnStatus = -1.
    return.    
end.
if (oiReturnStatus = -98) 
then 
    assign oiReturnStatus = 0.