Ordenación y acentos

[José Luis Sánchez]

Hola,
tengo un problema con la ordenación de campos de tipo carácter cuando van acentuados, en concreto con apellidos. Al ordenar, el programa muestra los apellidos con esta ordenación:
SANCHEZ
SANTOS
SANZ
SÁNCHEZ

Es decir, la Á la mete al final de todas las A, como si fuera una vocal distinta. Entiendo que la ordenación correcta debería ser:
SANCHEZ
SÁNCHEZ
SANTOS
SANZ

Al principio del programa cargo la página de códigos de español, de esta manera:

Code: Select all  Expand view

request HB_LANG_ES
request HB_CODEPAGE_ESWIN
request HB_CODEPAGE_ESMWIN

/*_____________________________________________________________________________*/
function Main()
   Rddsetdefault( "DBFCDX" )
   Hb_langselect( "ES" )
   Hb_setcodepage( "ESMWIN" )

pero no hace bien la ordenación. He estado mirando en el foro de Harbour y lo único que dicen es que hay que cargar la página de códigos correspondiente, cosa que hago.

El índice de los apellidos lo defino de esta manera:

Code: Select all  Expand view

INDEX ON UPPER(coapelli)+UPPER(conombre) TAG co02 FOR ! deleted()

¿ Alguien sabe como corregir esto ?

Saludos,
José Luis

[José Luis Sánchez]

Hola,
Lo he resuelto con una función que quita los acentos en la sentencia de la indexación, pero pensaba que había alguna función de harbour que hacía esto. Yo no la he encontrado.

Saludos,

[karinha]

Esto és en tú banco de datos? Se si, haga algo asi:

Code: Select all  Expand view

FUNCTION TiraAcentos(cStr)
   LOCAL cStrNew := "", nX
   cAcentos:={"Æ","Ç"," ","µ","…","·","‚","","ˆ","Ò","¡","Ö","¢","à","ä","å","“","â","£","é","","š","‡","€","ã","Ã","á","Á","à","À","é","É","ê","Ê","í","Í","ó","Ó","õ","Õ","ô","Ô","ú","Ú","ü","Ü","ç","ù","AAO","§","¦","º","ª"}
   cLetras :={"a","A","a","A","a","A","e","E","e","E","i","I","o","O","o","O","o","O","u","U","u","U","c","C","a","A","a","A","a","A","e","E","e","E","i","I","o","O","o","O","o","O","u","U","u","U","c"," ","CAO",".",".",".","."}
   FOR nX := 1 TO LEN(cAcentos)
       cStrNew := STRTRAN(cStr,cAcentos[nX],cLetras[nX])
       cStr := cStrNew
   NEXT
RETURN(cStrNew)
 

Saludos.

[xmanuel]

José Luis has probado a borrar el fichero de los índices y crearlos con el código de página español cargado?

Por cierto, cuando dices acento quieres decir tilde, no?