project QadFinancials > class BConsolid > 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/bconsolid.p)

<ANCESTOR-CODE>

case icTableName:
    when 'Consolid':U
    then do:
        assign tConsolid.ConsolidCompany_ID               = viCompanyId  
               tConsolid.tcConsolidCompanyCode            = vcCompanyCode
               tConsolid.ConsolidSourceLayerTypCode      = {&CONSOLIDSOURCELAYERTYPE-OFFICIAL}
               tConsolid.ConsolidTargetLayerTypCode      = {&CONSOLIDTARGETLAYERTYPE-TRANSIENT}.        
    end. /* when 'Consolid':U */
end. /* case icTableName */