* app.CheckDataEnv >lParam oDE lcPeopleDbc="..\people\data\people.dbc" lcPeoplePath="..\people\data" lcThingsDbc="..\things\data\things.dbc" lcThingsPath="..\things\data" >=amembers(aCurs, oDe,2) >for each cCursor in aCurs > oCursor=eval(cCursor) > if oCursor.baseclass='Cursor' > if !empty(oCursor.database) do case case atc("people.dbc", oCursor.database)#0 > oCursor.database=lcPeopleDbc case atc("things.dbc", oCursor.database)#0 > oCursor.database=lcThingsDbc ...endcase > else && a free table do case case atc("people\", oCursor.CursorSource)#0 oCursor.cursorsource=forcepath(oCursor.CursorSource,lcPeoplePath) case atc("things\", oCursor.CursorSource)#0 oCursor.cursorsource=forcepath(oCursor.CursorSource,lcthingsPath) > endif > endif >endfor >dodefault() >