project QadFinancials > class BConsolidDump > method InitialValues

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


icTableNameinputcharacterName of the database table of which a record is created in the class temp-table.
oiReturnStatusoutputinteger


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.