project QadFinancials > class BYearClosing > method CheckDivisionsUsed

Description

Check Division Used:
True: Only division-gl's
False: No division-gl's
?: Both gl's with and without divisions.


Parameters


olDivisionsUsedoutputlogicalTrue: Only division-gl's
False: No division-gl's
?: Both gl's with and without divisions.
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BYearClosing.InitialValues


program code (program7/byearclosing.p)

/* ============================================================ */
/* Check if there are some/none/all P&L accounts with divisions */
/* ============================================================ */

<Q-1 assign vlFcQueryRecordsAvailable = GLByCyDivisionBalance (NoCache)  (input viCompanyId, (CompanyId) 
                                                               input false, (GLIsBalanceAccount) 
                                                               input true, (GLIsDivisionAccount)) in BGL >
if vlFcQueryRecordsAvailable = false
then assign olDivisionsUsed = false.
else do:
    <Q-2 assign vlFcQueryRecordsAvailable = GLByCyDivisionBalance (NoCache)  (input viCompanyId, (CompanyId) 
                                                               input false, (GLIsBalanceAccount) 
                                                               input false, (GLIsDivisionAccount)) in BGL >
    if vlFcQueryRecordsAvailable = false
    then assign olDivisionsUsed = true.
    else assign olDivisionsUsed = ?.                                                               
end.