project BLF > class Database Component > 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 (program1/database.p)

if vlInitializeTranslations and not (icTableName begins "CustomTable" or icTableName = "TransString")
then do:
    /* ================================================================= */
    /* Adds BTranslation to the transaction and prepares defaults.       */
    /* ================================================================= */
    <I-4 {bFcRun
         &PARAMETERS           = "input icTableName, output vifcreturnSuper"
         &PROCEDURE            = "gipr_TranslationsInit"}>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
end.