То есть альтернативная сортировка строится на основании дефолтной.
Вопрос по версии клариона остается, так как я помню, что подобная проблема вылезала. Возможно во времена с5 или с55.
Код: Выделить всё
form_r routine
DATA
lor:queue queue, pre()
lor:kod long
lor:sum real
.
CODE
lor:kod=1
lor:sum=100
add(lor:queue)
lor:kod=1
lor:sum=50
add(lor:queue)
lor:kod=2
lor:sum=100
add(lor:queue)
lor:kod=2
lor:sum=49.2
add(lor:queue)
lor:kod=2
lor:sum=50
add(lor:queue)
lor:kod=2
get(lor:queue,lor:kod)
stop(lor:sum)
sort(lor:queue,lor:kod,lor:sum)
lor:kod=2
get(lor:queue,lor:kod)
stop(lor:sum)