project QadFinancials > class BJournal > method Calculate

Description

Add code here to initialize the calculated fields of the class temp-tables after loading existing records from the application database.


Parameters


oiReturnStatusoutputinteger


Internal usage


unused


program code (program/bjournal.p)

<ANCESTOR-CODE>

<Q-3 assign vlFcQueryRecordsAvailable = JournalGroupByCodeByID (NoCache)
   (input ?, (JournalGroupCode)
    input ?, (JournalGroupId)
    input true, (JournalGroupIsActive)
    input viCompanyID, (CompanyId)) in BJournalGroup >

assign vlJournalGroupsEnabled = if vlFcQueryRecordsAvailable <> false then true else false.

for each tJournal:
    assign tJournal.tlJournalGroupsIsEnabled = vlJournalGroupsEnabled.
end.