project QadFinancials > class BBankEntry > method DefaultPostingYearPeriod

Description

default the posting year and period based on posting date


Parameters


itPostingDateinputdateposting date
oiPostingPeriodYearoutputintegerPosting Year of the Posting Date
oiPostingPeriodPeriodoutputintegerPosting Period of Posting Date
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program3/bbankentry.p)

if itPostingDate = ?
    then assign oiPostingPeriodYear   = 0
                oiPostingPeriodPeriod = 0.

    <Q-2 run PeriodByStartEndDate (Start) in BPeriod >

    <Q-1 run PeriodByStartEndDate (first) (Read) (NoCache)
          (input viCompanyId, (CompanyId)
           input itPostingDate, (Date)
           output dataset tqPeriodByStartEndDate) in BPeriod >

    find first tqPeriodByStartEndDate where
               tqPeriodByStartEndDate.tlPeriodIsPostingGLAllowed
               no-error.
    if available tqPeriodByStartEndDate
    then assign oiPostingPeriodYear   = tqPeriodByStartEndDate.tiPeriodYear
                oiPostingPeriodPeriod = tqPeriodByStartEndDate.tiPeriodPeriod.
    
    <Q-3 run PeriodByStartEndDate (Stop) in BPeriod >