**-- Method SetDBC
*
lparameters tcDBCPath,;
tcDBCName
local lcObject,;
lcDEObject,;
lcExString,;
laObjectList,;
laObjectDEList,;
i,;
j
**-- Check parinfo for more than 1
**-- if only one parameter sent, default the DBC path.
*
tcDBCPath = iif( pcount() == 1, fullpath(curdir()),addbs(alltrim(tcDBCPath)) )
dimension laObjectList[1]
if amembers(laObjectList,ThisForm,2) < 1
return(.F.)
endif
if ascan(laObjectList,'DATAENVIRONMENT') > 0
**-- DE Objects
*
dimension laObjectDEList[1]
**-- Does the DE have any objects?
*
if amembers(laObjectDEList,ThisForm.DataEnvironment,2) < 1
return(.F.)
endif
**--loop through the cursors objects and set the DBC
*
for j = 1 to alen(laObjectDEList,1)
lcDEObject = evaluate('ThisForm.DataEnvironment.' + laObjectDEList(j))
if upper(lcDEObject.baseclass) = "CURSOR"
if upper(right(alltrim(tcDBCName),3)) = 'DBC'
lcDEObject.Database = tcDBCPath + tcDBCName
else
lcDEObject.Database = tcDBCPath + tcDBCName + '.dbc'
endif
next
else
return(.F.)
endif
return(.T.)
**