project QadFinancials > class BReportTree > method UpdateReportTreeNodeDesc
Description
Update the report tree node desc by analysis code description.
Parameters
icFRWTreeNodeIDs | input | character | |
icFRWAnCodeDescription | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.