project BLF > class Database Component > method WriteObjectSecurity
Description
Create or update object security for the database object available in the class dataset.
Parameters
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"}>