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

[George]

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.

Если я второму полю присвою конкретное значение, то и встанет на именно ту запись (если найдет подобную).

[George]

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.

1) Если четко определить и второе поле, то и встанет на такую запись (если найдет).
2) SET и NEXT для QUEUE?

[George]

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

Этот вариант был бы хорош, если потом мне не нужно было бы все равно искать строку с наименьшей суммой.

[Дед Пахом]

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

  KOL::Kod = 1
  MAX::Kod = KOL::Kod
  GET(Queue:Max,MAX::Kod)
  MESSAGE(MAX::Summa)   ! результат 50

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

  KOL::Kod = 2
  MAX::Kod = KOL::Kod
  GET(Queue:Max,MAX::Kod)
  MESSAGE(MAX::Summa)   ! результат 12

[George]

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

  KOL::Kod = 1
  MAX::Kod = KOL::Kod
  GET(Queue:Max,MAX::Kod)
  MESSAGE(MAX::Summa)   ! результат 50

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

  KOL::Kod = 2
  MAX::Kod = KOL::Kod
  GET(Queue:Max,MAX::Kod)
  MESSAGE(MAX::Summa)   ! результат 12

К сожалению, я не понял Ваши примеры.
Общая задача такая - есть набор сумм, необходимо отобрать из этого набора 5 наибольших.
Естественно, первоначальный набор не упорядочен и не может быть упорядочен в принципе.

[Дед Пахом]

К сожалению, я не понял Ваши примеры.

Это как раз Ваши примеры. Я заполнил очередь теми данными, что Вы привели, в том же порядке.

[George]

Дополнительно - 5 наибольших по коду 1, 5 наибольших по коду 2 и т.д.

[George]

К сожалению, я не понял Ваши примеры.

Это как раз Ваши примеры. Я заполнил очередь теми данными, что Вы привели, в том же порядке.

KOL::Kod = 1
MAX::Kod = KOL::Kod
GET(Queue:Max,MAX::Kod)
MESSAGE(MAX::Summa) ! результат 50
Нет, такой вариант не работает.

[Дед Пахом]

Нет, такой вариант не работает.

Работает, могу доказать.

[George]

Нет, такой вариант не работает.

Работает, могу доказать.

Тогда почему у меня не работает? Я попробовал

[George]

В Вашем варианте, по логике, встанет на первую попавшуюся запись с MAX::Kod = 1

[Дед Пахом]

В Вашем варианте, по логике, встанет на первую попавшуюся запись с MAX::Kod = 1

Почему-то первая попавшаяся всегда с MAX::Summa=50.

[Дед Пахом]

Тогда почему у меня не работает? Я попробовал

Напишите минимальную тестовую программу. У меня получилось 54 строчки считая пустые.

[finsoftrz]

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

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)      
        
     sort(lor:queue,lor:kod,lor:sum)
        
     lor:kod=2
     get(lor:queue,lor:kod)
     stop(lor:sum)   

В этом примере работает, выдает значение 49.2. А не может это от версии клариона зависеть? Я на с6 пробую.

[Дед Пахом]

Я на с6 пробую.

Я на последней.