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
icTableName | input | character | Name of the database table of which a record is created in the class temp-table. |
oiReturnStatus | output | integer | |
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.