Extensiones diferentes a Dbf y Cdx

[Elias]

Saludos a todos.
Tengo un sistema desarrollado en clipper que es multiempresa y lo estoy pasando
a xailer, el problema en que me encuentro es el siguiente:
Para diferenciar las BDD de cada empresa utilizo las extenciones D01, D02,
etc para las bases de datos y C01, C02, etc. para los indices.
Las extensiones D01 Y C01 son de la empresa 1 y así.
Si utilizo los las funciones DBUSE no tengo problema, pero quiero utilizar
las clases TDbfDataSet y TCdxDataSource.
En la clase TDbfDataSet no puedo asignarle una BDD que tenga una extension
diferente a .Dbf desde el IDE, tengo que crearlo al vuelo para poder hacerlo.
Pero no logro hacerlo lo mismo con la clase TCdxDataSource o al menos no
se como hacerlo.
Alguien podría decirme como hacerlo
De antemano gracias.

[jrcpoli-quitar]

Saludos:
** Crear el DataSource
WITH OBJECT oDataSource := TCdxDataSource():Create()
:cConnect := "." // directorio donde están las bases
:lAutoOpen := .T.
:nLockScheme := dlDEFAULT
:nMemoType := dmFPT_FLEX
:nTableType := ctDBFSTD
END
*
** Abrir la base de inicio
WITH OBJECT oDSInicio := TDbfDataSet():Create()
IF :lOpen
:lOpen := .F.
ENDIF
*
:cName := "INICIO.SPI"
:lShared := .F.
:oDataSource := oDataSource
*
END
José Ramón Castro.
Andrade escribió:
> Saludos a todos.
>
> Tengo un sistema desarrollado en clipper que es multiempresa y lo estoy pasando
> a xailer, el problema en que me encuentro es el siguiente:
>
> Para diferenciar las BDD de cada empresa utilizo las extenciones D01, D02,
> etc para las bases de datos y C01, C02, etc. para los indices.
>
> Las extensiones D01 Y C01 son de la empresa 1 y así­.
>
> Si utilizo los las funciones DBUSE no tengo problema, pero quiero utilizar
> las clases TDbfDataSet y TCdxDataSource.
>
> En la clase TDbfDataSet no puedo asignarle una BDD que tenga una extension
> diferente a .Dbf desde el IDE, tengo que crearlo al vuelo para poder hacerlo.
> Pero no logro hacerlo lo mismo con la clase TCdxDataSource o al menos no
> se como hacerlo.
>
> Alguien podrí­a decirme como hacerlo
>
> De antemano gracias.
>
>
>
>

[Elias]

José Ramón, gracias por tu respuesta.
Tomando como base tu ejemplo y asumiendo que la BDD se llama
"INICIO.SPI" como le indico que el indice correspondiente es
"INICIO.C01" y no "INICIO.CDX".

[jrcpoli-quitar]

Mira la propiedad aIdxFiles y el método AddIdxFile
::oDataset:aIdxFiles := {"INICIO.C01"}
José Ramón Castro.
Andrade escribió:
> José Ramón, gracias por tu respuesta.
>
> Tomando como base tu ejemplo y asumiendo que la BDD se llama
> "INICIO.SPI" como le indico que el indice correspondiente es
> "INICIO.C01" y no "INICIO.CDX".
>
>

[Elias]

José Ramón
Muchas gracias por tu ayuda.