project QadFinancials > class BReportTree > method UpdateReportTreeNodeDesc

Description

Update the report tree node desc by analysis code description.


Parameters


icFRWTreeNodeIDsinputcharacter
icFRWAnCodeDescriptioninputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BFRWAnalysisCode.AdditionalUpdatesReportTree


program code (program1/breporttree.p)

assign oiReturnStatus = -98.

if icFRWTreeNodeIDs = '':U or icFRWTreeNodeIDs = ? then
do:
   assign oiReturnStatus = 0.
   return.
end.

<M-78 run DataLoad
   (input  ? (icRowids), 
    input  icFRWTreeNodeIDs (icPkeys), 
    input  ? (icObjectIds), 
    input  ? (icFreeform), 
    input  yes (ilKeepPrevious), 
    output viFcReturnSuper (oiReturnStatus)) in BReportTree>
do viCountTreeNodeID = 1 to num-entries(icFRWTreeNodeIDs, chr(4)):
    for each tFRWTreeNode where tFRWTreeNode.FRWTreeNode_ID = integer(entry(viCountTreeNodeID,icFRWTreeNodeIDs,chr(4))):
          assign tFRWTreeNode.FRWTreeNodeDescription = icFRWAnCodeDescription
                 tFRWTreeNode.tc_Status = 'C':U.
    end.
end.
<M-56 run ValidateBC  (output viFcReturnSuper (oiReturnStatus)) in BReportTree>
if viFcReturnSuper <> 0
then Assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then Return. 

assign oiReturnStatus = 0.