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/brecurringentry.p)
<ANCESTOR-CODE>
case icTableName :
/* === RecEntry === */
when "RecEntry":U
then do :
assign tRecEntry.RecEntryFreq = {&RECENTRYFREQ-MONTHLY}
tRecEntry.RecEntryStartDate = today
tRecEntry.RecEntryIsOpenEnded = true
tRecEntry.RecEntryIsReversing = false
tRecEntry.RecEntryUpdate = {&RECENTRYUPDATE-ALLOWED}
tRecEntry.RecEntryIsAmountApply = false
tRecEntry.Company_ID = viCompanyId
tRecEntry.RecEntryIsActive = true.
end. /* when "RecEntry":U */
/* === RecEntryLine === */
when "RecEntryLine":U
then do:
assign tRecEntryLine.RecEntryLineStatus = {&RECENTRYLINESTATUS-WAITING}
tRecEntryLine.RecEntryLinePostingDate = today
tRecEntryLine.RecEntryLineReversingDate = ?.
end. /* when "RecEntryLine":U */
end. /* case icTableName */