a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
25 lines
523 B
Plaintext
25 lines
523 B
Plaintext
|
|
PROCEDURE Main()
|
|
|
|
dbCreate( "testsort", { { "ITEM", "N", 10, 2 } } )
|
|
|
|
USE testsort
|
|
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 tempsort ON FIELD->ITEM /D
|
|
|
|
USE tempsort
|
|
dbEval( {|| QOut( FIELD->ITEM ) } )
|
|
|
|
/* TOFIX: To work like in Cl*pper: 7.00, 6.00, 5.00, -5.00, -5.12 */
|
|
|
|
dbCloseArea()
|
|
hb_dbDrop( "testsort" )
|
|
hb_dbDrop( "tempsort" )
|
|
|
|
RETURN
|