project QadFinancials > class BPeriod > method GetFirstOpenPeriod

Description

to get the first open Period of the company


Parameters


oiYearoutputintegerYear
oiPeriodoutputintegerPeriod
iiCompanyIDinputinteger
oiPeriodIDoutputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BConCheck.InitialValues


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.