project QadFinancials > class BProjectStatus > 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/bprojectstatus.p)

<ANCESTOR-CODE>

if icTableName = "ProjectStatus":U
then assign tProjectStatus.tlIsUsed                  = false
            tProjectStatus.ProjectStatusIsActive     = true
            tProjectStatus.ProjectStatusSystemStatus = {&PROJECTSYSTEMSTATUS-INITIAL}.