method UpdateWorkObjectFromUI

Parameters

iiWorkObjectInternalId	input	integer
icCurrentBusComponentCode	input	character
icCurrentBusActivityCode	input	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/bworkobject.p)

If iiWorkObjectInternalId    <> 0    And iiWorkObjectInternalId    <> ? And
   icCurrentBusActivityCode  <> '':U And icCurrentBusActivityCode  <> ? And
   icCurrentBusComponentCode <> '':U And icCurrentBusComponentCode <> ?
Then Do:
    <M-1 run UpdateWorkobjectStatus (input  icCurrentBusComponentCode (icBusComponentCode), 
                                 input  String(iiWorkObjectInternalId) (icObjectIdentifiers), 
                                 input  icCurrentBusActivityCode (icBusActivityCode), 
                                 output viFcReturnSuper (oiReturnStatus)) in BWorkObject>
    if viFcReturnSuper = -4
    then viFcReturnSuper = 0.
    If viFcReturnSuper <> 0
    Then Assign oiReturnStatus = viFcReturnSuper.
    If viFcReturnSuper < 0
    Then Return.
End.
Else Do:
    <M-2 run SetMessage
          (input  #T-1'One of the parameters is not specified correctly.':100(6532)t-1# (icMessage), 
           input  '':U (icArguments), 
           input  '':U (icFieldName), 
           input  '':U (icFieldValue), 
           input  'S':U (icType), 
           input  1 (iiSeverity), 
           input  '':U (icRowid), 
           input  'BLF-278':U (icFcMsgNumber), 
           input  '' (icFcExplanation), 
           input  '' (icFcIdentification), 
           input  '' (icFcContext), 
           output viFcReturnSuper (oiReturnStatus)) in BWorkObject>
    Assign oiReturnStatus = -1.
End.