project QadFinancials > class BBankEntry > 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 >