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.
