project BLF > class BNumber > 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/bnumber.p)

<ANCESTOR-CODE>

if icTableName = "Numbr"
then do:
    /* Save date and time in UTC */
    session:timezone = 0.

    assign tNumbr.Company_ID    = viCompanyId
           tNumbr.NumbrIsActive = true
           tNumbr.LastModifiedDate = today
           tNumbr.LastModifiedTime = time
           tNumbr.LastModifiedUser = vcUserLogin.
    
    session:timezone = viTimeOffset.

end.