Description
Load company's approve status transition
Parameters
oiReturnStatus | output | integer | Return 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.