project QadFinancials > class BFRWTreeView > method UpdateFRWTreeNodeId


Parameters


iiFRWTreeNodeOriginalIdinputinteger
iiFRWTreeNodeNewIdinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bfrwtreeview.p)

message "update".
assign vcFreeform = "for each FRWTreeView where FRWTreeView.FRWTreeNode_ID = " + string(iiFRWTreeNodeOriginalId).
<M-98 run DataLoad
   (input  '':U (icRowids), 
    input  '':U (icPkeys), 
    input  '':U (icObjectIds), 
    input  vcFreeform (icFreeform), 
    input  false (ilKeepPrevious), 
    output viFcReturnSuper (oiReturnStatus)) in BFRWTreeView>
for each tFRWTreeView:
message string(tFRWTreeView.FRWTreeNode_ID) + " " + string(iiFRWTreeNodeNewId).
    assign tFRWTreeView.FRWTreeNode_ID = iiFRWTreeNodeNewId
           tFRWTreeView.tc_Status = 'C':U.
end.

<M-90 run ValidateBC  (output oiReturnStatus (oiReturnStatus)) in BFRWTreeView>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0) then
   assign oiReturnStatus = viFcReturnSuper.


<M-14 run AdditionalUpdates  (output viFcReturnSuper (oiReturnStatus)) in BFRWTreeView>
if viFcReturnSuper < 0 or (viFcReturnSuper > 0 and oiReturnStatus = 0) then
   assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0 then
return.