FiveTech Software tech support forums

AScan( ASort( AClone( a ) ), { | n, nPos | n := cToD(a:cargo["fecha"]), If( nVal < n, nResult := AScan( a, n) ) - 1,), cToD(n) > nVal } )

estás seguro de que ese código te funciona bien ?

Gracias a ambos. tomo como ejemplo este: AScan( ASort( AClone( a ) ), { | n, nPos | If( nVal < n, nResult := AScan( a, n ) - 1,), n > nVal } ) en mi caso "n" voy a usarlo asi: cToD(a:cargo["fecha"]) Mi consulta: para que ...

Donde puedo ver un ejemplo de esto: * Mejorado: Se ha mejorado la función FW_ASort( aArray, [nStart], [nCount], [bBlock/naCols] ) para la ordenación multicolumna. 4º Parámetro: -nil/codeblock: la funcionalidad es exactamente la misma que ASort(...) -nColNo: Ordena ...

... opcionales nStart y nCount, es posible restringir el rango de inversión. El array original no se altera. * Mejorado: Se ha mejorado la función FW_ASort( aArray, [nStart], [nCount], [bBlock/naCols] ) para la ordenación multicolumna. 4º Parámetro: -nil/codeblock: la funcionalidad es exactamente ...

... added optional parameters nStart and nCount, it is possible to restrict the range of reversal. The original array is not disturbed. * Enhanced: FW_ASort( aArray, [nStart], [nCount], [bBlock/naCols] ) for multi-column sort. 4th Parameter: -nil/codeblock: functionality is exactly same as ASort(...) ...

... * Nueva: Función FW_ASORT( aArray, [nStart], [nCount], [aColPos/bSort] ) --> aSorted Por defecto, funciona como la función ASort(), pero si el cuarto parámetro es una matriz con columnas numéricas, resulta una ordenación en varias columnas. Para una ordenación descendente, ...

... * New: FW_ASORT( aArray, [nStart], [nCount], [aColPos/bSort] ) --> aSorted By default, this works just as normal ASort(), but if the fourth parameter is an array of column numbers, a nested sort is performed on multiple columns. For descending order, specify the ...

... used the AFIELDS keyword to retrieve the names of the fields in the table and the ADEL keyword to delete any unnecessary information. Using the ASORT keyword, Mary sorted the list alphabetically by family member's name. She then used the ACOPY keyword to create a copy of the list as a backup. ...

...          If  atmp[h][1] == atmp[h][2]               HB_ADel( aTmp, h, .t. )            Endif        next ASort( aTmp, nil, nil, { |x,y| If( x[ 1 ] == y[ 1 ], x[ 2 ] < y[ 2 ], x[ 1 ] < y[ 1 ] ...

ASort( aData, nil, nil, { |x| IF (x[1]<x[2], x[ 1 ] > x[ 2 ],x[ 2 ] > x[ 1 ]) } ) I'm afraid this ordering is wrong how can i fix it? that is, now the result obtained is this A   B1   112   123   134   145   156  ...

Tal vez:

Code: Select all  Expand view

ASORT( OemToAnsi( tabla ) )  // AnsiToOem()
 

Regards, saludos.

Perdón mi ignorancia, pero usar esa función dentro del asort?

Como debería armar el ordenamiento?
Muchas gracias y disculpas....

Saludos
Roberto

Intenta asi:

Code: Select all  Expand view

   ? 'UTF8toSTR OEM : ',hb_utf8tostr( cStr )

   ? 'UTF8toSTR ANSI: ',hb_oemtoansi( hb_utf8tostr( cStr ) )
 

Regards, saludos.

Hola João, gracias por tu ayuda, si si.. ya sé que se ordena así,
el tema es que no me ordena bien según los caracteres especiales, como "ñ" o
vocales acentuadas... este es mi tema...
Muchas gracias...

Roberto