FiveTech Software tech support forums

Comienzo un nuevo hilo.

Este codigo no funciona bien usando un pda hp ipaq 116 windows mobile 6.0 y tambien se probó con un htc touch con windows mobile 6.1

::cCurDir := CurDir()
::cData := ::cCurDir + "\data"
::aIni := iniload( ::cCurDir + "\movilfac.ini" )
::lDeleteCdx := if( IniGet( ::aIni, "MAIN", "lDeleteCdx" ) == "ON", .t., .f. )

if ::ldeletecdx
ferase( ::cData + "\Maeclient.cdx" )
endif

USE ( ::cData + "\MaeClient" ) VIA "DBFCDX" NEW
if !file( ::cData + "\MaeClient.cdx" )
INDEX ON MaeCLient->codigo TAG ID TO ( ::cData + "\MaeClient.cdx" )
INDEX ON MaeCLient->nombre TAG NOMBRE TO ( ::cData + "\MaeClient.cdx" )
endif
MaeClient->( ordListAdd( "MaeClient" ) )
MaeClient->( dbsetorder( 1 ) )
MaeClient->( DbGoTop() )

//-----------------------------------------------------------------------------------------------//

No se si estoy cometiendo un error, ya que tengo mucho tiempo que no trabajo con dbfcdx, el problema que da es que los indices no funcionan, no ordena nada.
Funciona en los emuladores, probado con emuladores wm 5, wm 6 y wm 6.1 y en todos funciona bien, pero en los pda en los que los he probado no funciona.

Antonio donde estas ?

Simón,

Esta línea no hace falta (salvo que me equivoque):

MaeClient->( ordListAdd( "MaeClient" ) )

prueba a quitarla

Comprueba tambien la existencia del fichero CDX para ver si se crea en su sitio:

MsgInfo( File( ::cData + "\MaeClient.cdx" ) )