project QadFinancials > class BPeriod > method GetFirstOpenPeriod
Description
to get the first open Period of the company
Parameters
| oiYear | output | integer | Year |
| oiPeriod | output | integer | Period |
| iiCompanyID | input | integer | |
| oiPeriodID | output | integer | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program7/bperiod.p)
/* ==================================================================== */
/* This Method retrieves the first Open Period */
/* ==================================================================== */
assign oiYear = 0
oiPeriod = 0
oiPeriodID = 0.
<Q-27 run PeriodForOldestOpenPeriod (all) (Read) (NoCache)
(input iiCompanyID, (CompanyID)
output dataset tqPeriodForOldestOpenPeriod) in BPeriod>
find first tqPeriodForOldestOpenPeriod where
tqPeriodForOldestOpenPeriod.tiCompany_ID = iiCompanyID and
tqPeriodForOldestOpenPeriod.tcPeriodStatus = {&PERIODSTATUS-OPEN}
no-error.
if available tqPeriodForOldestOpenPeriod
then assign oiPeriod = tqPeriodForOldestOpenPeriod.tiPeriodPeriod
oiYear = tqPeriodForOldestOpenPeriod.tiPeriodYear
oiPeriodID = tqPeriodForOldestOpenPeriod.tiPeriod_ID.