Use myTable alias '__Table__' If !empty(cursorgetprop('Database','__Table__')) Open database (cursorgetprop('Database','__Table__')) lnObjects = adbobjects(arrDBObjects,'TABLE') For jx=1 to lnObjects && Find object name in DBC If upper(dbgetprop(arrDBObjects[jx],'TABLE','Path')) == upper(arrTables[ix,1]) lcDbObject = arrDBObjects[jx] Exit Endif Endfor * Disable triggers and row rule lcDelTrigger = DbGetProp(lcDbObject, 'TABLE', 'DeleteTrigger') lcInsTrigger = DbGetProp(lcDbObject, 'TABLE', 'InsertTrigger') lcUpdTrigger = DbGetProp(lcDbObject, 'TABLE', 'UpdateTrigger') lcRuleExpr = DbGetProp(lcDbObject, 'TABLE', 'RuleExpression') If !empty(lcDelTrigger) Delete trigger on (lcDbObject) for delete Endif If !empty(lcInsTrigger) Delete trigger on (lcDbObject) for insert Endif If !empty(lcUpdTrigger) Delete trigger on (lcDbObject) for update Endif If !empty(lcRuleExpr) Alter table (lcDbObject) drop check Endif * Get data Append from ..... && Get data ----------------------------- > appending here * Enable triggers and row rule If !empty(lcDelTrigger) Create trigger on (lcDbObject) for delete as &lcDelTrigger Endif If !empty(lcInsTrigger) Create trigger on (lcDbObject) for insert as &lcInsTrigger Endif If !empty(lcUpdTrigger) Create trigger on (lcDbObject) for update as &lcUpdTrigger Endif If !empty(lcRuleExpr) Alter table (lcDbObject) set check &lcRuleExpr novalidate Endif Else *Free table append here Append from ..... && Get data ----------------------------- > appending here Endif Use in '__Table__'Cetin