Abrir varios ficheros dbf
Posted: Mon Jan 15, 2007 12:06 pm
Buenas al foro.
Tengo la necesidad de tener abiertas más de un dbf a la vez. En VFP para abrir un nuevo fichero, se selecciona un área de tabajo libre y se abre pudiendo tener un sinfin de ficheros abiertos a la vez. Se hace con SELECT 0.
En FiveWin como se hace esto??
Esto no abre la tabla provincias:
FUNCTION AbrirFicheros
Request DbfCdx
Request DbfFpt
RddSetDefault ('DbfCdx')
Request Hb_Lang_PLWIN
Request Hb_CodePage_PLWIN
**********
* Clientes
**********
IF .NOT. USED("Efth010")
USE (CurDir()+"\Efth010") NEW
ELSE
SELECT Efth010
ENDIF
INDEX ON CprvCod TO CODIGO ADDI
INDEX ON CprvNom TO FISCAL ADDI
INDEX ON CprvOme TO COMERCIAL ADDI
Efth010->( OrdSetFocus( "CODIGO" ) )
Efth010->( DbGoTop() )
**********
* Provincias
**********
IF .NOT. USED("Efth003")
SELECT 0
USE (CurDir()+"\Efth003") NEW
ENDIF
RETURN nil
Gracias de antemano.
Tengo la necesidad de tener abiertas más de un dbf a la vez. En VFP para abrir un nuevo fichero, se selecciona un área de tabajo libre y se abre pudiendo tener un sinfin de ficheros abiertos a la vez. Se hace con SELECT 0.
En FiveWin como se hace esto??
Esto no abre la tabla provincias:
FUNCTION AbrirFicheros
Request DbfCdx
Request DbfFpt
RddSetDefault ('DbfCdx')
Request Hb_Lang_PLWIN
Request Hb_CodePage_PLWIN
**********
* Clientes
**********
IF .NOT. USED("Efth010")
USE (CurDir()+"\Efth010") NEW
ELSE
SELECT Efth010
ENDIF
INDEX ON CprvCod TO CODIGO ADDI
INDEX ON CprvNom TO FISCAL ADDI
INDEX ON CprvOme TO COMERCIAL ADDI
Efth010->( OrdSetFocus( "CODIGO" ) )
Efth010->( DbGoTop() )
**********
* Provincias
**********
IF .NOT. USED("Efth003")
SELECT 0
USE (CurDir()+"\Efth003") NEW
ENDIF
RETURN nil
Gracias de antemano.