forum.clarionlife.net

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

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

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

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

Дед Пахом писал(а): ↑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
Нет, такой вариант не работает.

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

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 н...

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

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

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) Есл...

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. Если я...

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

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

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

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

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

Привет всем! 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)

Спасибо всем.
Видно без AnyScreen не обойтись

Привет всем!
Clarion 10 ABC
Кто-нибудь прикручивал проверку правописания в Clarion?
С чего начать, куда смотреть???

Я так и делаю. Только для вывода использую DExcel. В принципе, на месте DExcel можно и другие библиотеки подцепить. На первом скрине бланк в Excel. На втором сгенеренной программой шаблон (скрипт). Заголовок до ******* вписывается вручную, остальное создается автоматически. На третьем результат в E...