COMO UTILIZAR INDICES CDX

[prm_pedro]

HOLA TODOS ALGUIEN ME PODRIA AYUDAR PARA UTILIZAR INDICES


EN UNA PALICACION DE POCKET PC..



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

[wilsongamboa]

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