PROCEDURE dbc_BeforeOpenTable(cTableName) If Upper(cTableName)=='EMPLOYEE' return Type("m.CanOpen")='L' and m.CanOpen endif ENDPROC