project QadFinancials > class TFRWTreeView > method GetFRWTreeNodeMainMethod
Parameters
icTargetChart | input | character | |
icCubeName | input | character | |
icTreeNodeCode | input | character | |
icFilterAnCode | input | character | |
icFromReportPeriod | input | character | |
icToReportPeriod | input | character | |
icFromReportYear | input | character | |
icToReportYear | input | character | |
icViewCurrency | input | character | |
icViewForUser | input | character | |
icAmountInView | input | character | |
iiNodeID | input | integer | |
iiNodeLevel | input | integer | |
tNewNode | output | temp-table | |
tErrorTable | output | temp-table | |
icCurrentLanguage | input | character | |
bcTempParams | input-output | character | |
iiNumOfDecimals | input | integer | |
oiReturnStatus | output | integer | |
Internal usage
QadFinancials
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.