No mention,
Cheers :)



>Hi Srdjan,
>
>Thank you so much for this code. This is precisely what I was looking for without having to re-invent the wheel!
>
>Best regards,
>
>-=Gary
>
>>>Hi,
>>>
>>>Could anyone point me in the direction of some Cursor object Database path "fix-up" code?
>>>
>>>Thanks,
>>
>>Hi There
>>
>>Here is solution I am using from 1997 (VFP5) enabling me to confortably use
>>unlimited number of databases (multiple company/year/projdata datasets)
>>without any problems. It is also aplicable to reports dataenvironments.
>>
>>It is class object changing database property to all DE cursors at run time.
>>
>>At the begining, object has to be instantiated as public (e.g 'oSystem' )
>>so all forms can will be able to call it.
>>Then all form can call it (single line) from method DE.BeforeOpenTable passing entire DE as parameter.
>>
>>

>>public cServerDataDir,oSystem
>>oSystem=createobject('redirect_dataenvironment')
>>cServerDataDir = '\\someserver\RealRunTimePath' &&Should normaly come from some ini file
>>
>>* Then you have to insert tiny call to this object from every form DE ;
>>
>>* DE.BeforeOpenTables method
>>oSystem.form_de(this)
>>
>>

>>
>>And here is class object that does it.
>>(You can upgrade it for more complex path constructions.)
>>
>>

>>define class redirect_dataenvironment as custom
>>
>>    procedure get_database
>>        lparameters cDatabaseName
>>        local cDatabaseName
>>
>>        *** Here you build your own path construction for
>>        *** multiple databases,
>>        *** instead of simple one I used for my sample
>>        *** with one database
>>
>>        return addbs(cServerDataDir) + 'tastrade.dbc'
>>
>>    procedure form_de
>>        lparameters oDataEnvironment
>>        local i,j,db_name,arr_obj(1)
>>        amembers(arr_obj,oDataEnvironment,2)
>>        for i = 1 to alen(arr_obj)
>>            j = oDataEnvironment.&arr_obj(i) .baseclass
>>            if upper(alltrim(j)) = 'CURSOR'
>>                db_name=upper(justfname(allt(oDataEnvironment.&arr_obj(i) .database )))
>>                oDataEnvironment.&arr_obj(i) .database=this.get_database(allt(db_name))
>>            endif
>>        endfor
>>
>>
>>enddefine
>>

>>
>>
>>
>>I never used free tables, so it does not covers them
>>but you can provide for it easily.
>>
>>Hope this helps you.
>>Rgds++