project QadFinancials > class BApproveStatusTransition > method LoadApproveStatusTransition

Description

Load company's approve status transition


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bapprovestatustransition.p)

if oiReturnStatus = 0
then oiReturnStatus = -98.            
               
<Q-1 run ApproveStatusTransByAll (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input ?, (ApproveStatusTransFrStatus)
    input ?, (ApproveStatusTransToStatus)
    output dataset tqApproveStatusTransByAll) in BApproveStatusTransition >

assign 
    vcRowId = "":U.
    
for each tqApproveStatusTransByAll:
    if vcRowId <> "":U
    then assign vcRowId = vcRowId + ",":U.

    assign vcRowId = vcRowId + tqApproveStatusTransByAll.tc_rowid.    
end.

if vcRowId <> "":U
then do:
    <M-2 run DataLoad
   (input  vcRowId (icRowids), 
    input  '':U (icPkeys), 
    input  '':U (icObjectIds), 
    input  '':U (icFreeform), 
    input  false (ilKeepPrevious), 
    output viFcReturnSuper (oiReturnStatus)) in BApproveStatusTransition>

end.

if viFcReturnSuper <> 0   
then assign oiReturnStatus = viFcReturnSuper.

if viFcReturnSuper < 0
then return.

if oiReturnStatus = -98
then oiReturnStatus = 0.