method WriteObjectSecurity

Description

Create or update object security for the database object available in the class dataset.

Parameters

tSelectedActivities	input	temp-table
tSelectedUsers	input	temp-table
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program1/database.p)

if viBObjectSecurityID = 0
or viBObjectSecurityID = ?
then do:
    <M-1 run SetMessage (input  'Object security not loaded.':U (icMessage), 
                     input  '' (icArguments), 
                     input  '' (icFieldName), 
                     input  '' (icFieldValue), 
                     input  'S':U (icType), 
                     input  3 (iiSeverity), 
                     input  '' (icRowid), 
                     input  'BLF-336':U (icFcMsgNumber), 
                     input  '' (icFcExplanation), 
                     input  '' (icFcIdentification), 
                     input  '' (icFcContext), 
                     output viFcReturnSuper (oiReturnStatus)) in database>
    assign oiReturnStatus = -3.
    return.
end.

<I-2 {bFcOpenInstance
            &CLASS           = "BObjectSecurity"}>

<M-3 run DataSaveObjectSecurity (input  vcFcComponentName (icBusinessComponentName), 
                                 input  vcObjectSecurityLoaded (icObjectReference), 
                                 input  tSelectedActivities (tSelectedActivities), 
                                 input  tSelectedUsers (tSelectedUsers), 
                                 output viFcReturnSuper (oiReturnStatus)) in BObjectSecurity>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.

<I-4 {bFcCloseInstance
            &CLASS           = "BObjectSecurity"}>