method GetBusFieldsNoFS

Description

Get Business Fields where no Field Security is defined on.

Parameters

icComponentCode	input	character
tBusFieldsNoFS	output	temp-table
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program2/bfieldsecurity.p)

Empty Temp-table tBusFieldsNoFS.
    
If icComponentCode = '':U Or
   icComponentCode = ?
Then Return.

If oiReturnStatus = 0 
Then Assign oiReturnStatus = -98.

<M-1 run GetBusinessFields (input  icComponentCode (icReference), 
                            output tBusFieldsNoFS (tBusinessFields), 
                            output viFcReturnSuper (oiReturnStatus)) in BFieldSecurity>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.

<Q-8 run FieldSecurityForCompActivity (all)  (Read)  (NoCache)  (input ?, (ActivityCode) 
                                       input icComponentCode, (BusCompName) 
                                       input ?, (UsrID)
                                       output dataset tqFieldSecurityForCompActivity) in BFieldSecurity >

For Each tBusFieldsNoFS:
    If Can-find(First tqFieldSecurityForCompActivity Where

                      tqFieldSecurityForCompActivity.tcFieldSecurityBusFieldName = tBusFieldsNoFS.tcFcFieldName)
    Then Delete tBusFieldsNoFS.
End.

If oiReturnStatus = -98
Then Assign oiReturnStatus = 0.