Thanks:)


>>Dragan do you have your production copy of this code at hand
>>
>>It looks like it would be much simpler to use than what I am doing at present.
>
>Had you reacted faster, I may still have had the code, but the company went bust and the server's gone. Anyway, what I was doing was to have a list of dbcs and directories in use, and compared whatever I had in the oCursor.Database and oCursor.Cursorsource with the list, and replaced accordingly. Sample added in the code below. I was basically replacing the development paths with actual paths relative to the current location in production.
>In each form's .dataenvironment.BeforeOpenTables there was a call to
>oApp.CheckDataEnv(this).
>
>>

* 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()
>>