Hi All,
Found this in our tracker, converted the example to self-contained one:
---
PROCEDURE Main()
dbCreate( "test", {{ "ITEM", "N", 10, 2 }} )
USE test
dbAppend() ; FIELD->ITEM := 5.00
dbAppend() ; FIELD->ITEM := -5.12
dbAppend() ; FIELD->ITEM := 6.00
dbAppend() ; FIELD->ITEM := 7.00
dbAppend() ; FIELD->ITEM := -5.00
SORT TO temp ON ITEM /D
USE temp
dbEval( {|| QOut( FIELD->ITEM ) } )
RETURN
---
In Harbour it returns:
---
-5.12
-5.00
7.00
6.00
5.00
---
In Clipper:
---
7.00
6.00
5.00
-5.00
-5.12
---
Brgds,
Viktor
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
