forum.clarionlife.net

kreator писал(а): 20 Май 2022, 16:14 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.

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

kreator писал(а): 20 Май 2022, 16:14 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?

finsoftrz писал(а): 20 Май 2022, 16:08 Можно еще служебную строку воткнуть с минимальным значением суммы.

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

Дед Пахом писал(а): 20 Май 2022, 17:10

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

  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 писал(а): 20 Май 2022, 17:16 К сожалению, я не понял Ваши примеры.

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

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

Дед Пахом писал(а): 20 Май 2022, 17:18

George писал(а): 20 Май 2022, 17:16 К сожалению, я не понял Ваши примеры.

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

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

George писал(а): 20 Май 2022, 17:22 Нет, такой вариант не работает.

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

Дед Пахом писал(а): 20 Май 2022, 17:24

George писал(а): 20 Май 2022, 17:22 Нет, такой вариант не работает.

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

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

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

George писал(а): 20 Май 2022, 17:29 В Вашем варианте, по логике, встанет на первую попавшуюся запись с MAX::Kod = 1

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

George писал(а): 20 Май 2022, 17:28 Тогда почему у меня не работает? Я попробовал

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

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

finsoftrz писал(а): 20 Май 2022, 17:38 Я на с6 пробую.

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