project QadFinancials > class TFRWTreeView > method GetFRWTreeNodeMainMethod


Parameters


icTargetChartinputcharacter
icCubeNameinputcharacter
icTreeNodeCodeinputcharacter
icFilterAnCodeinputcharacter
icFromReportPeriodinputcharacter
icToReportPeriodinputcharacter
icFromReportYearinputcharacter
icToReportYearinputcharacter
icViewCurrencyinputcharacter
icViewForUserinputcharacter
icAmountInViewinputcharacter
iiNodeIDinputinteger
iiNodeLevelinputinteger
tNewNodeoutputtemp-table
tErrorTableoutputtemp-table
icCurrentLanguageinputcharacter
bcTempParamsinput-outputcharacter
iiNumOfDecimalsinputinteger
oiReturnStatusoutputinteger


Internal usage


QadFinancials
method BFRWTreeView.GetFRWTreeViewBalance
method BFRWTreeView.GetFRWTreeViewMeas


program code (program1/tfrwtreeview.p)

assign viNumOfDecimals = iiNumOfDecimals.

/* ================================================================= */
/* If node level is 3, get into GetFRWTreeLevel3Node branch          */
/* ================================================================= */
if iiNodeLevel = 3 then
do:
  <M-4 run GetFRWTreeLevel3Node
     (input  icFromReportYear (icfromreportyear), 
      input  icToReportYear (ictoreportyear), 
      input  icFromReportPeriod (icfromreportperiod), 
      input  icToReportPeriod (ictoreportperiod), 
      input  icCubeName (icCubeName), 
      input  INTEGER(icAmountInView) (iiAmountInView), 
      input  icTargetChart (icTaregetChart), 
      input  icFilterAnCode (icAnCodeCode), 
      input  iiNodeID (iiNodeID), 
      output tNewNode (tNewNode), 
      output tErrorTable (tErrorTable), 
      input-output bcTempParams (bcTempParams), 
      output viFcReturnSuper (oiReturnStatus)) in TFRWTreeView>
end.
/* ================================================================= */
/* If node level is 2, get into GetFRWTreeLevel2Node branch          */
/* ================================================================= */
else do:

   <M-54 run GetFRWTreeLevel2Node
      (input  icTargetChart (icTargetChart), 
       input  icCubeName (icCubeName), 
       input  icTreeNodeCode (icTreeNodeCode), 
       input  icFilterAnCode (icFilterAnCode), 
       input  icFromReportPeriod (icFromReportPeriod), 
       input  icToReportPeriod (icToReportPeriod), 
       input  icFromReportYear (icFromReportYear), 
       input  icToReportYear (icToReportYear), 
       input  icViewCurrency (icViewCurrency), 
       input  icViewForUser (icViewForUser), 
       input  icAmountInView (icAmountInView), 
       output tNewNode (tNewNode), 
       output tErrorTable (tErrorTable), 
       input  icCurrentLanguage (icCurrentLanguage), 
       input-output bcTempParams (bcTempParams), 
       output viFcReturnSuper (oiReturnStatus)) in TFRWTreeView>

end.

/* Calculate Net Activity Column */
for each tNewNode:
    assign tNewNode.tdNetActivity = tNewNode.tdActivityDR - tNewNode.tdActivityCR.
end.

assign oiReturnStatus = viFcReturnSuper.