FiveTech Software tech support forums

... //--> T    HB_SETCODEPAGE( "ITWIN" )    ? chr(199)<chr(205) //--> F  the problem is not the descend... very sad

The purpose of Descend () is to be Clipper compatible. Therefore it is not an error, but an unexpected behavior for those who use codepages
The existence of hb_Descend (), compatible with the codepage system, would be highly desirable.

Yes, the order changes but it's not correct either.

EMG

have you tryied using StrZero instead of Str?

It looks like the bug has never been fixed.

EMG

... http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29052&p=163632&hilit=descend&sid=17d6d2aeb2ab1b539390e4fd93f78e55#p163632 http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=17321&start=0 Solution and explication: ...

Thank you. It is not feasible as it would require to change all the ASort() calls. I prefer to remove the codepage.

EMG

I am not commenting on the behaviour of the Descend() function, but I would have approached it in a different way:

Code: Select all  Expand view

ASort( aData,nil,nil, { |x,y| If( x[ 2 ] == y[ 2 ], x[ 1 ] > y[ 1 ],  x[ 2 ] > y[ 2 ] ) } )
 

The problem seems to be the codepage. Without setting it, the sort order is correct. But the codepage should not affect the behaviour of Descend() function, should it?

EMG

No, as I want to sort for the second item descending and the first item ascending. Anyway, it doesn't work either.

EMG

IMHO Test is erronous

Sorting so:

Code: Select all  Expand view

ASORT( aData, , , { | aItem1, aItem2 | Descend( Str( aItem1[ 2 ], 10, 2 )  + aItem1[ 1 ] ) < Descend( Str( aItem2[ 2 ], 10, 2 )  + aItem2[ 1 ]  )} )

Regards

... }    aData[ 7 ] = { "TEST7", 255.65 }    ASORT( aData, , , { | aItem1, aItem2 | Descend( Str( aItem1[ 2 ], 10, 2 ) ) + aItem1[ 1 ] < Descend( Str( aItem2[ 2 ], 10, 2 ) ) ...

não deu certo
eh algo no xbrowse ... essa area RECENEW nem faz paste do xbrowse.... estranho

karinha wrote:Intente asi. Tente assim.

[code=fw]
EXTERNAL DESCEND
Saludos.

OrdDescend() does not require the EXTERNAL DESCEND

Gracias Cristobal

reviso