Позиционирование в QUEUE

[George]

Привет всем!
Clarion 10 ABC
Есть QUEUE:
Queue:Max QUEUE,PRE(MAX:)
Kod LONG
Summa REAL
END
Необходимо встать на запись с меньшей суммой.
Вот такая конструкция почему-то не работает:
SORT(Queue:Max,MAX::Kod,MAX::Summa)
MAX::Kod = KOL::Kod
GET(Queue:Max,MAX::Kod)

[VWV]

Может код не определен? :

SORT(Queue:Max,MAX::Summa)
GET(Queue:Max,1)
KOL::Kod = ...

[Губин Игорь]

SORT(Queue:Max,MAX::Kod,MAX::Summa)

Да воскурим мануал!

Вначале идёт сортировка по первому ключу, а потом - по второму. Вот и получается, что сортировка по MAX::Summa идёт в рамках сортировки по MAX::Kod

Поменяй их местами

[George]

Извиняюсь за неточную формулировку задачи
Надо определить наименьшую сумму в рамках конкретного MAX::Kod.
Т.е. очередь типа:
Код Сумма
1 100
1 200
1 50
1 300
2 55
2 12
2 100
2 200

[Дед Пахом]

SORT(Queue:Max,MAX::Kod,MAX::Summa)
MAX::Kod = KOL::Kod
GET(Queue:Max,MAX::Kod)

Перед GET очистите поле суммы:

Код: Выделить всё

CLEAR(MAX::Summa) 

[George]

И этот вариант не работает.

[Alex_G]

Вот такая конструкция почему-то не работает:
SORT(Queue:Max,MAX::Kod,MAX::Summa)
MAX::Kod = KOL::Kod
GET(Queue:Max,MAX::Kod)

Не работает: возвращает ошибку или не то значение?
Проверьте, есть ли в очереди элемент со значением MAX::Kod = KOL::Kod.
Должно работать и без очистки MAX::Summa

[George]

MAX::Kod = KOL::Kod есть и на него встает, но при этом не на самую меньшую MAX::Summa.

[Дед Пахом]

Должно работать и без очистки MAX::Summa

Да, и работает как надо, проверил.

[finsoftrz]

Насколько я понимаю, это некорректный код. Сортировка по 2 полям, а get по одному. Будет создаваться второй индекс (сортировка) , в котором одно поле кода, а второе поле суммы не упорядочено.

[George]

Насколько я понимаю, это некорректный код. Сортировка по 2 полям, а get по одному. Будет создаваться второй индекс (сортировка) , в котором одно поле кода, а второе поле суммы не упорядочено.

Скорее всего именно так, но как получить нужный результат?

[finsoftrz]

Разные варианты есть. На практике самый юзабельный, на мой взгляд, при заполнении этой кьюшки формировать вторую с некими итоговыми значениями. Или после заполнения кьшки перебрать один раз все строки и заполнить вторую кьюшку. В этой второй кьюшке, например, могут быть поля код+минимальное значение, либо код+границы относящихся к нему строк в первой кьюшке и т.п.

[finsoftrz]

Можно еще служебную строку воткнуть с минимальным значением суммы.

[kreator]

George, почему не почитать справку? Сделайте в очереди именованные поля. И тогда:

Код: Выделить всё

Que:Name = 'Smith'                       !Initialize the key fields
Que:Zip = 12345
GET(NameQue,'FirstField,SecondField')    !Get the matching record
IF ERRORCODE() THEN STOP(ERROR()) END

Ещё можно сначала сделать set, потом один next.

[Дед Пахом]

MAX::Kod = KOL::Kod есть и на него встает, но при этом не на самую меньшую MAX::Summa.

У меня встаёт на самую меньшую.