Description
Load company's verify status transition
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program1/bverifystatustransition.p)
if oiReturnStatus = 0
then oiReturnStatus = -98.
<Q-1 run VerifyStatusTransByAll (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input ?, (VerifyStatusTransFrStatus)
input ?, (VerifyStatusTransToStatus)
output dataset tqVerifyStatusTransByAll) in BVerifyStatusTransition >
assign
vcRowId = "":U.
for each tqVerifyStatusTransByAll:
if vcRowId <> "":U
then assign vcRowId = vcRowId + ",":U.
assign vcRowId = vcRowId + tqVerifyStatusTransByAll.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 BVerifyStatusTransition>
end.
if viFcReturnSuper <> 0
then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper < 0
then return.
if oiReturnStatus = -98
then oiReturnStatus = 0.