Page 1 of 1
COMO UTILIZAR INDICES CDX
Posted: Mon Nov 13, 2006 3:40 pm
by prm_pedro
HOLA TODOS ALGUIEN ME PODRIA AYUDAR PARA UTILIZAR INDICES
EN UNA PALICACION DE POCKET PC..
ESPERO Y ALGUIEN ME PUEDA AYUDAR.........
Posted: Mon Nov 13, 2006 4:51 pm
by 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