http://sourceforge.net/tracker/index.php?func=detail&aid=2096950&group_id=681&atid=100681
Descending sort is wrong for negative numerics.
---tt45.prg---
proc Test()
dbcreate( "test2", { { "ITEM", "N", 10, 2 } } )
use test2
dbappend()
test2->ITEM := 5.00
dbappend()
test2->ITEM := -5.12
dbappend()
test2->ITEM := 6.00
dbappend()
test2->ITEM := 7.00
dbappend()
test2->ITEM := -5.00
? "test2:"
dbeval( {|| qout( test2->ITEM ) } )
sort to test3 on item /D
use test3
? "test3:"
dbeval( {|| qout( test3->ITEM ) } )
use
return
--------------
bld_b32 tt45 /w/a/n
tt45
With clipper:
test2: 5.00 -5.12 6.00 7.00 -5.00
test3: 7.00 6.00 5.00 -5.00 -5.12
With Harbour (ChangeLog 2008-09-07 01:44 UTC+0200 Viktor Szakats r9329):
test2: 5.00 -5.12 6.00 7.00 -5.00
test3: -5.12 -5.00 7.00 6.00 5.00
Chen.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
