Description
Add code here to initialize the calculated fields of the class temp-tables after loading existing records from the application database.
Parameters
| oiReturnStatus | output | integer | |
Internal usage
unused
program code (program/bbasedaemonqueue.p)
<ANCESTOR-CODE>
for each tfcDaemonQueue where
tfcDaemonQueue.tc_Status <> 'D':U on error undo, throw:
if vlDataLoadKeepPrevious and can-find (tAlreadyCalculatedRecords where
tAlreadyCalculatedRecords.tcTableName = "fcDaemonQueue" and
tAlreadyCalculatedRecords.tc_Rowid = tfcDaemonQueue .tc_Rowid)
then next.
/* ====================================== */
/* Convert Time Fields to format 99:99:99 */
/* ====================================== */
assign tfcDaemonQueue.tcDaemonQueueReqStartTimeConv =
string(trunc(tfcDaemonQueue.DaemonQueueReqStartTime / 3600, 0), "99":U) + ":":U + /* Hours */
string(trunc((tfcDaemonQueue.DaemonQueueReqStartTime modulo 3600) / 60, 0), "99":U) + ":":U + /* Minutes */
string((tfcDaemonQueue.DaemonQueueReqStartTime modulo 3600) modulo 60, "99":U) /* Seconds */
tfcDaemonQueue.tcDaemonQueueStartTimeConv =
string(trunc(tfcDaemonQueue.DaemonQueueStartTime / 3600, 0), "99":U) + ":":U + /* Hours */
string(trunc((tfcDaemonQueue.DaemonQueueStartTime modulo 3600) / 60, 0), "99":U) + ":":U + /* Minutes */
string((tfcDaemonQueue.DaemonQueueStartTime modulo 3600) modulo 60, "99":U) /* Seconds */
tfcDaemonQueue.tcDaemonQueueEndTimeConv =
string(trunc(tfcDaemonQueue.DaemonQueueEndTime / 3600, 0), "99":U) + ":":U + /* Hours */
string(trunc((tfcDaemonQueue.DaemonQueueEndTime modulo 3600) / 60, 0), "99":U) + ":":U + /* Minutes */
string((tfcDaemonQueue.DaemonQueueEndTime modulo 3600) modulo 60, "99":U) /* Seconds */
tfcDaemonQueue.tcDaemonQueueStartDateTime = string(tfcDaemonQueue.DaemonQueueStartDate) + " - " +
tfcDaemonQueue.tcDaemonQueueStartTimeConv.
end.