method DefaultPostingYearPeriod

Description

default the posting year and period based on posting date

Parameters

itPostingDate	input	date	posting date
oiPostingPeriodYear	output	integer	Posting Year of the Posting Date
oiPostingPeriodPeriod	output	integer	Posting Period of Posting Date
oiReturnStatus	output	integer	Return 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 >