method AdditionalUpdates

Description

This empty method allows to do additional updates on class temp-tables after records were received (and validated) from outside, using method SetPublicTables.
You can start instances of other business classes to do those updates.

Parameters

oiReturnStatus

output

integer

Internal usage

unused

program code (program/bvatexportlisting.p)

<ANCESTOR-CODE>

For each tVatExport where
    (tVatExport.tc_Status = "N":U or tVatExport.tc_Status = "C":U) 
    and tVatExport.VatExportPeriodType = "4":U:

     <Q-1 run VatPeriodByVatYearPeriod (last) (Read) (NoCache)
          (input viCompanyId, (CompanyId)
           input tVatExport.tiVatPeriodYear, (VatPeriodYear)
           input ?, (VatPeriodPeriod)
           output dataset tqVatPeriodByVatYearPeriod) in BVATPeriod >
    find first tqVatPeriodByVatYearPeriod no-error.
    if available tqVatPeriodByVatYearPeriod
    then do:
        assign tVatExport.tiVatPeriodPeriod = tqVatPeriodByVatYearPeriod.tiVatPeriodPeriod
               tVatExport.VatPeriod_ID      = tqVatPeriodByVatYearPeriod.tiVatPeriod_ID.
    end.

end.