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 (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.