Description
Add code here to initialize the calculated fields of a 'new' record (= a record that must be created in the application database) in a class temp-table.
Parameters
| icTableName | input | character | Name of the database table of which a record is created in the class temp-table. |
| oiReturnStatus | output | integer | |
Internal usage
unused
program code (program/bconsoliddump.p)
<ANCESTOR-CODE>
If icTableName = "ConsolidDump":U
Then Do:
Assign
tConsolidDump.ConsolidDumpDate = Today
tConsolidDump.ConsolidDumpIsOpeningBal = False
tConsolidDump.ConsolidDumpIsWithDetail = True
tConsolidDump.ConsolidDumpChunkSize = 100
tConsolidDump.Company_ID = viCompanyId.
/*this query is sorted on ToPeriodYear and ToPeriodPeriod */
<Q-1 run ConsolidDumpByCompany (last) (Read) (NoCache)
(input viCompanyId, (CompanyId)
output dataset tqConsolidDumpByCompany) in BConsolidDump >
Find Last tqConsolidDumpByCompany No-error.
If Available tqConsolidDumpByCompany
Then Do:
<Q-2 run PeriodNextPeriodByYearPeriod (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input tqConsolidDumpByCompany.tiToPeriodYear, (PeriodYear)
input tqConsolidDumpByCompany.tiToPeriodPeriod, (PeriodPeriod)
output dataset tqPeriodNextPeriodByYearPeriod) in BPeriod >
Find First tqPeriodNextPeriodByYearPeriod No-error.
If Available tqPeriodNextPeriodByYearPeriod
Then Do:
Assign
tConsolidDump.tiFromPeriodPeriod = tqPeriodNextPeriodByYearPeriod.tiPeriodPeriod
tConsolidDump.tiFromPeriodYear = tqPeriodNextPeriodByYearPeriod.tiPeriodYear
tConsolidDump.tiToPeriodPeriod = tqPeriodNextPeriodByYearPeriod.tiPeriodPeriod
tConsolidDump.tiToPeriodYear = tqPeriodNextPeriodByYearPeriod.tiPeriodYear.
End. /*If Available tqPeriodNextPeriodByYearPeriod*/
Assign
tConsolidDump.tcCurrencyCode = tqConsolidDumpByCompany.tcCurrencyCode
tConsolidDump.ConsolidDumpCode = tqConsolidDumpByCompany.tcConsolidDumpCode
tConsolidDump.ConsolidDumpConsolCompCode = tqConsolidDumpByCompany.tcConsolidDumpConsolCompCode
tConsolidDump.ConsolidDumpDirectory = tqConsolidDumpByCompany.tcConsolidDumpDirectory.
<M-3 run DefaultValuesCurrencyCode (input tConsolidDump.tc_Rowid (icRowid),
input tConsolidDump.tcCurrencyCode (icCurrencyCode),
input tConsolidDump.tiToPeriodYear (iiToPeriodYear),
input tConsolidDump.tiToPeriodPeriod (iiToPeriodPeriod),
output tConsolidDump.ConsolidDumpConsolRate (odConsolidDumpRate),
output tConsolidDump.ConsolidDumpConsolRteScale (odConsolidDumpRateScale),
output viFcReturnSuper (oiReturnStatus)) in BConsolidDump>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If oiReturnStatus < 0
Then Return.
End. /*If Available tqConsolidDumpByCompany*/
End.