Tengo problemas cuando creo los indices desde la PDA. si los geb¡nero en un PC y los copio funcionan perfectamente, me podeis ayudar los creo de la siguiente manera:
- Code: Select all Expand view RUN
- wa1 = CurDir() + "\EMP" + wempr + "\ACTIVIDA.CDX"
wb1 = CurDir() + "\EMP" + wempr + "\BANCOS.CDX"
wc1 = CurDir() + "\EMP" + wempr + "\CONCEPTO.CDX"
wd1 = CurDir() + "\EMP" + wempr + "\PROVEEDO.CDX"
we1 = CurDir() + "\EMP" + wempr + "\CLIENTES.CDX"
wf1 = CurDir() + "\EMP" + wempr + "\FACTURAC.CDX"
wg1 = CurDir() + "\EMP" + wempr + "\EMPLEADO.CDX"
wh1 = CurDir() + "\EMP" + wempr + "\GASTOS.CDX"
wi1 = CurDir() + "\EMP" + wempr + "\APUNTES.CDX"
wj1 = CurDir() + "\EMP" + wempr + "\COMISION.CDX"
wm1 = CurDir() + "\EMP" + wempr + "\FACTURAP.CDX"
wn1 = CurDir() + "\EMP" + wempr + "\GASTO.CDX"
wo1 = CurDir() + "\EMP" + wempr + "\APUNTE.CDX"
wp1 = CurDir() + "\EMP" + wempr + "\PAGOCOBR.CDX"
wr1 = CurDir() + "\EMP" + wempr + "\SERIES.CDX"
ws1 = CurDir() + "\EMP" + wempr + "\CITAS.CDX"
wt1 = CurDir() + "\EMP" + wempr + "\CENTROS.CDX"
erase &wa1
erase &wb1
erase &wc1
erase &wd1
erase &we1
erase &wf1
erase &wg1
erase &wh1
erase &wi1
erase &wj1
erase &wm1
erase &wn1
erase &wo1
erase &wp1
erase &wr1
erase &ws1
erase &wt1
erase "empresa.cdx"
QuiSayPan(3,3)
QuiBotPan(11,12)
SysRefresh()
@ 60*ProporV, 10*ProporH SAY tDlg003 VAR LocaText( 30,3) OF tDlg001 PIXEL COLOR escri1, fondo1 FONT oFont SIZE 460*ProporH,26*ProPorV CENTER
SysRefresh()
SELECT 1
use (CurDir()+ "\EMPRESA.DBF") VIA "DBFCDX" EXCLUSIVE
index on apellidos + nombre tag empre02
index on numero tag empre01
clos data
SELECT 4
use &WA VIA "DBFCDX" EXCLUSIVE
index on str(numero,6,0) tag &waa
clos data
SELECT 5
use &WB VIA "DBFCDX" EXCLUSIVE
index on codigo tag &wba
index on descripcio tag &wbb
clos data
SELECT 6
use &WC VIA "DBFCDX" EXCLUSIVE
index on codigo tag &wca
index on descripcio tag &wcb
clos data
SELECT 7
use &WD VIA "DBFCDX" EXCLUSIVE
index on codigo tag &wda
index on nombre tag &wdb
index on cif tag &wdc
clos data
SELECT 8
use &WE VIA "DBFCDX" EXCLUSIVE
index on codigo tag &wea
index on nombre tag &web
index on cif tag &wec
clos data
SELECT 9
use &WF VIA "DBFCDX" EXCLUSIVE
index on numero tag &wfa
clos data
SELECT 10
use &WG VIA "DBFCDX" EXCLUSIVE
index on codigo tag &wga
index on nombre tag &wgb
index on cif tag &wgc
clos data
SELECT 11
use &WH VIA "DBFCDX" EXCLUSIVE
index on str(numero,6,0) tag &wha
clos data
SELECT 12
use &WI VIA "DBFCDX" EXCLUSIVE
index on str(factura,6,0) + str(npedido,3,0) tag &wia
clos data
SELECT 13
use &WJ VIA "DBFCDX" EXCLUSIVE
index on dtos(fecha) tag &wja
clos data
SELECT 16
use &WM VIA "DBFCDX" EXCLUSIVE
index on numero tag &wma
clos data
SELECT 17
use &WN VIA "DBFCDX" EXCLUSIVE
index on cliente + dtos(fecha) tag &wna
index on cliente tag &wnb
clos data
SELECT 18
use &WO VIA "DBFCDX" EXCLUSIVE
index on cliente + dtos(fecha) tag &woa
index on cliente tag &wob
clos data
SELECT 19
use &WP VIA "DBFCDX" EXCLUSIVE
index on dtos(fecha) + cliente tag &wpa
clos data
SELECT 21
use &WR VIA "DBFCDX" EXCLUSIVE
index on codigo tag &wra
index on nombre tag &wrb
clos data
SELECT 22
use &WS VIA "DBFCDX" EXCLUSIVE
index on dtos(fecha) + hora tag &wsa
clos data
SELECT 23
use &WT VIA "DBFCDX" EXCLUSIVE
index on codigo tag &wta
index on nombre tag &wtb
clos data
Un saludo
Carlos