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/breportvariant.p)

/* requests and variants are created in the same table */
if icTableName = "RptRequest"
then do:
    assign tRptRequest.RptRequestType = "V".
    <M-1 run AddDetailLine
       (input  'RptRequestVariant' (icTable), 
        input  tRptRequest.tc_Rowid (icParentRowid), 
        output viFcReturnSuper (oiReturnStatus)) in BReportVariant>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
end.

<ANCESTOR-CODE>

if icTableName = "RptRequestVariant"
then vcLastCreatedRowid = tRptRequestVariant.tc_Rowid.