Description
This method will set the default values for the accounting period, start date and end date based on the accounting year.
Parameters
| iiReportPeriodYear | input | integer | Specific Report Period Year |
| oiNewReportPeriod | output | integer | Report period of the specific report year |
| otNewReportStartDate | output | date | Start date of the specific report year |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program6/breportperiod.p)
if iiReportPeriodYear <> 0
then do :
for each bReportPeriod where
bReportPeriod.ReportPeriodYear = iiReportPeriodYear
by bReportPeriod.ReportPeriodPeriod desc:
assign oiNewReportPeriod = bReportPeriod.ReportPeriodPeriod + 1
otNewReportStartDate = bReportPeriod.ReportPeriodEndDate + 1.
leave.
end. /* for each bReportPeriod where */
<Q-2 run ReportPeriodByAllInfo (last) (Read) (NoCache)
(input ?, (ReportPeriodID)
input iiReportPeriodYear, (ReportPeriodYear)
input ?, (ReportPeriodPeriod)
input ?, (ReportPeriodStartDate)
input ?, (ReportPeriodEndDate)
input ?, (ReportPeriodIsReported)
output dataset tqReportPeriodByAllInfo) in BReportPeriod >
find last tqReportPeriodByAllInfo no-error.
if available tqReportPeriodByAllInfo
then do:
if tqReportPeriodByAllInfo.tiReportPeriodPeriod >= oiNewReportPeriod
then assign oiNewReportPeriod = tqReportPeriodByAllInfo.tiReportPeriodPeriod + 1
otNewReportStartDate = tqReportPeriodByAllInfo.ttReportPeriodEndDate + 1.
end. /* if available tqReportPeriodByAllInfo */
else if oiNewReportPeriod = 0
then assign oiNewReportPeriod = 1
otNewReportStartDate = date (1, 1, iiReportPeriodYear).
end. /* if iiReportPeriodYear <> 0 */