project QadFinancials > class BClosingPostingsReport > method TransientLayers

Description

Parameters

Internal usage

program code (program7/bclosingpostingsreport.p)

assign oiReturnStatus      = -98
       viLocalReturnStatus = 0.

empty temp-table tqTransientLayers.

<M-3 run GetReportLabels
   (input  'TransientLayers':U (icReportName), 
    input  icLanguageCode (icLanguageCode), 
    input  tFilter (tFilter), 
    output tqHeader (tqHeader), 
    output tqFilter (tqFilter), 
    output tqText (tqText), 
    output viFcReturnSuper (oiReturnStatus)) in BClosingPostingsReport>
if viFcReturnSuper <> 0 and viLocalReturnStatus >= 0
then assign viLocalReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then do:
    assign oiReturnStatus = viFcReturnSuper.
    return.
end. /* if viFcReturnSuper < 0 */

<M-2 run SetDataItemsBasedOnFilterTT  (output viFcReturnSuper (oiReturnStatus)) in BClosingPostingsReport>
if viFcReturnSuper <> 0 and viLocalReturnStatus >= 0
then assign viLocalReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then do:
    assign oiReturnStatus = viFcReturnSuper.
    return.
end. /* if viFcReturnSuper < 0 */

/* ========================================================== */
/* Querry getting all transactions linked to transient layers */
/* ========================================================== */

<Q-1 run TransientLayersCheck (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input {&LAYERTYPECODE-TRANSIENT}, (LayerType)
    input viPeriodPeriodFilter, (Period)
    input viPeriodYearFilter, (Year)
    output dataset tqTransientLayersCheck) in BClosingPostingsReport >

for each tqTransientLayersCheck:
    create tqTransientLayers.
    assign tqTransientLayers.tcJournalCode = tqTransientLayersCheck.tcJournalCode
           tqTransientLayers.tcPostingText = tqTransientLayersCheck.tcPostingText
           tqTransientLayers.tiPostingVoucher = tqTransientLayersCheck.tiPostingVoucher
           tqTransientLayers.tcLayerCode = tqTransientLayersCheck.tcLayerCode
           tqTransientLayers.tcSortBy1 = vcSortFilter1.
end.

if not available tqTransientLayers
then do:
    create tqTransientLayers.
    assign tqTransientLayers.tiExceptionNbr = -1
           tqTransientLayers.tcExceptionMsg = #T-4'No transient postings were found for the selected GL period.':255(57353)t-4#. 
end.

assign oiReturnStatus = viLocalReturnStatus.