method GetFRWTreeViewMeas

Description

Get FRWCubeMeas data

Parameters

tFRWTreeViewSrcTable	output	temp-table
icFromReportYear	input	character
icToReportYear	input	character
icFromReportPeriod	input	character
icToReportPeriod	input	character
icCubeName	input	character
iiAmountInView	input	integer
icTargetChart	input	character
icAnCodeCode	input	character
iiNodeId	input	integer
bcTempParams	input-output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bfrwtreeview.p)

assign oiReturnStatus = - 98.
<M-13 run GetFRWTreeNodeMainMethod
   (input  icTargetChart (icTargetChart), 
    input  icCubeName (icCubeName), 
    input  ? (icTreeNodeCode), 
    input  icAnCodeCode (icFilterAnCode), 
    input  icFromReportPeriod (icFromReportPeriod), 
    input  icToReportPeriod (icToReportPeriod), 
    input  icFromReportYear (icFromReportYear), 
    input  icToReportYear (icToReportYear), 
    input  ? (icViewCurrency), 
    input  ? (icViewForUser), 
    input  STRING(iiAmountInView) (icAmountInView), 
    input  iiNodeId (iiNodeID), 
    input  3 (iiNodeLevel), 
    output tFRWTreeViewSrcTable (tNewNode), 
    output tFRWTreeViewErrorTable (tErrorTable), 
    input  current-language (icCurrentLanguage), 
    input-output bcTempParams (bcTempParams), 
    input  0 (iiNumOfDecimals), 
    output viFcReturnSuper (oiReturnStatus)) in TFRWTreeView>

if viFcReturnSuper < 0 or viFcReturnSuper <> 0 then
do:
    assign oiReturnStatus = viFcReturnSuper.
    for each tFRWTreeViewErrorTable no-lock:

         <M-22 run SetMessage
            (input  tFRWTreeViewErrorTable.tcErrorMessage (icMessage), 
             input  '':U (icArguments), 
             input  tFRWTreeViewErrorTable.tcFieldName (icFieldName), 
             input  tFRWTreeViewErrorTable.tcFieldValue (icFieldValue), 
             input  'E':U (icType), 
             input  3 (iiSeverity), 
             input  '':U (icRowid), 
             input  'qadfin-157683':U (icFcMsgNumber), 
             input  '':U (icFcExplanation), 
             input  '':U (icFcIdentification), 
             input  '':U (icFcContext), 
             output viFcReturnSuper (oiReturnStatus)) in BFRWTreeView>
    end.
end.
else assign oiReturnStatus = 0.