project QadFinancials > class BFixedAssetBook > 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/bfixedassetbook.p)

<ANCESTOR-CODE>

case icTableName:
    when "FABook":U
    then do:
        assign tFABook.Company_ID               = viCompanyId
               tFABook.FABookIsActive           = true
               tFABook.FABookIsWithDepreciation = true
               tFABook.FABookCalculationType    = {&BOOKCALCULATIONTYPE-FULLYEAR}.
    end. /* When "FABook":U */
end. /* case icTableName */