HOLA TODOS ALGUIEN ME PODRIA AYUDAR PARA UTILIZAR INDICES

EN UNA PALICACION DE POCKET PC..

ESPERO Y ALGUIEN ME PUEDA AYUDAR.........

Pedro, iguel que en Fwh
es decir

include 'fwce.ch'

Request DbfCdx

Function Main()

local oWnd
local oBmp


if IsExeRunning( cFileName( HB_ArgV( 0 ) ) )
    MsgInfo( "No puedes abrir dos veces el programa", SISTEMA)
    Return Nil
End

......

Return Nil

para crear los indices

//construyo camell3 para reporte de cobros por clientes

#define RDD_SISTEMA 'DbfCdx'
cFile_03 := Curdir() +'\Temporal_03.Dbf''
cNtx_03 := Curdir() +'\Temporal_03.Cdx''
aStru_03:= {}
AADD( aStru_03, {'Cliente' ,'C',30 ,0})
AADD( aStru_03, {'Valor' ,'N',14 ,2})

If File( cFile_03 )
   Ferase( cFile_03 )
   Ferase( cNtx_03 )
End

DbCreate( cFile_03, aStru_03, RDD_SISTEMA)
Use (cFile_03) new Alias Camell3 Exclusive Via RDD_SISTEMA
Index on Cliente Tag Cliente
DbSetOrder ( 1 )

Espero te ayude
Saludos
Att