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/bvatperiod.p)
<ANCESTOR-CODE>
/* ===================================================== */
/* Get PeriodMark with Sequence=1 of the current company */
/* ===================================================== */
if viPeriodMarkID = 0 or
viPeriodMarkID = ?
then do :
<M-1 run SetPeriodMarkIDSequence1 (output viFcReturnSuper (oiReturnStatus)) in BVATPeriod>
end. /* if viPeriodMarkIDSequence1 = 0 or */
/* ===================================================== */
/* Set Initial values */
/* ===================================================== */
assign tVatPeriod.Company_ID = viCompanyId
tVatPeriod.VatPeriodStatus = {&VATPERIODSTATUS-OPEN}
tVatPeriod.VatPeriodIsReportChecked = false
tVatPeriod.PeriodMark_ID = viPeriodMarkID
tVatPeriod.tcPeriodMarkCode = vcPeriodMarkCode.