IFieldPermission examples

The following code retrieves an ITablePermission object from the service, edits one of the IFieldPermission objects, and passes the ITablePermission back to the service to be committed to the database:

define variable tblPerm as ITablePermission no-undo.
define variable fldPerm as IFieldPermission no-undo.
define variable domain as IDomain no-undo.

tblPerm = service:GetTablePermission("Customer").
fldPerm = tblPerm:FieldPermissions:Find("CustNum").
fldPerm:CanWrite = "xx@ABCDomain".
service:UpdateTablePermission(tblPerm).