method FARDepreciation

report procedure

Parameters

icLanguageCode	input	character	Language Code.
tFilter	input	temp-table	Temp table to store input parameters.
dcrFARDepreciation	output	dataset	Dataset of FARDepreciation.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program7/bclosingpostingsreport.p)

empty temp-table tqFARDepreciation.

<M-1 run GetReportLabels (input  'FARDepreciation':U (icReportName), 
                          input  icLanguageCode (icLanguageCode), 
                          input  tFilter (tFilter), 
                          output tqHeader (tqHeader), 
                          output tqFilter (tqFilter), 
                          output tqText (tqText), 
                          output oiReturnStatus (oiReturnStatus)) in BClosingPostingsReport>
                          
if oiReturnStatus <> 0
then return.                          
                          
<M-2 run SetDataItemsBasedOnFilterTT (output oiReturnStatus (oiReturnStatus)) in BClosingPostingsReport>

if viPeriodPeriodFilter = ? or viPeriodYearFilter = ?
then do:
    <M-3 run SetMessage
          (input  #T-4'The GL Period filter requires a value.':50(2285)T-4# (icMessage), 
           input  '':U (icArguments), 
           input  '':U (icFieldName), 
           input  '':U (icFieldValue), 
           input  'E':U (icType), 
           input  3 (iiSeverity), 
           input  '':U (icRowid), 
           input  'QADFIN-3788':U (icFcMsgNumber), 
           input  '':U (icFcExplanation), 
           input  '':U (icFcIdentification), 
           input  '':U (icFcContext), 
           output oiReturnStatus (oiReturnStatus)) in BClosingPostingsReport>
    assign oiReturnStatus = -1.                     
end.

if oiReturnStatus <> 0
then return.   

<Q-5 run PeriodByYearPeriod (all) (Read) (NoCache)
          (input viCompanyId, (CompanyId)
           input viPeriodYearFilter, (PeriodYear)
           input viPeriodPeriodFilter, (PeriodPeriod)
           input ?, (PeriodId)
           output dataset tqPeriodByYearPeriod) in BPeriod >
                             
find first tqPeriodByYearPeriod no-error.
if not available tqPeriodByYearPeriod
then return.

<Q-6 run BaseFARDepreciation (all) (Read) (NoCache)
          (input viCompanyId, (CompanyId)
           input tqPeriodByYearPeriod.ttPeriodStartDate, (FromDate)
           input tqPeriodByYearPeriod.ttPeriodEndDate, (ToDate)
           output dataset tqBaseFARDepreciation) in BClosingPostingsReport >
                              
for each tqBaseFARDepreciation:
    create tqFARDepreciation.
    buffer-copy tqBaseFARDepreciation to tqFARDepreciation.
end.