Сортировка по столбцу Дата

Обсуждение MAV Direct ODBC

Модератор: Andrew™

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion и MAV который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Сортировка по столбцу Дата

Сообщение Admin »

При сортировке по столбцу Дата когда есть еще и столбец Время все получается не очень красиво.
На метод Sortered(*LONG Column) цепляю такой код:

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

 ! сортировка поля даты вместе со временем
 IF ABS(Column) = 5
   IF Column > 0
     SORT(Queue:Browse,Queue:Browse.Update_DATE,Queue:Browse.Update_TIME)
   ELSE
     SORT(Queue:Browse,-Queue:Browse.Update_DATE,Queue:Browse.Update_TIME)
   END
 END
 RETURN PARENT.Sortered(Column)
Есть куда оптимизировать, кому нужно.
Можно сортировать имея и отчество при сортировке по фамилии и в т.д.

P.S. В идеале, функционал напрашивается в шаблон. Но это так... мечты :) Тем более до сих пор используем версию 2007 года
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
AlesDales
Активист
Сообщения: 198
Зарегистрирован: 14 Июль 2005, 15:42

Re: Сортировка по столбцу Дата

Сообщение AlesDales »

IF Column = 5
SORT(Queue:Browse,Queue:Browse.Update_DATE,Queue:Browse.Update_TIME)
END
IF Column = -5
SORT(Queue:Browse,-Queue:Browse.Update_DATE,Queue:Browse.Update_TIME)
END
RETURN PARENT.Sortered(Column)


Надо посмотреть как оптимальнее после компиляции.
в стране слепых правит одноглазый король (c) ...
Аватара пользователя
Admin
Администратор
Сообщения: 3959
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 25 раз
Поблагодарили: 22 раза
Контактная информация:

Re: Сортировка по столбцу Дата

Сообщение Admin »

Имел в виду такое... т.е. уменьшение строк :)

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

IF ABS(Column) = 5
   SORT(Queue:Browse,CHOOSE(Column > 0,'','-')&Queue:Browse.Update_DATE,Queue:Browse.Update_TIME)
END
RETURN PARENT.Sortered(Column)
Если так можно :)
Рай совершает ошибки ничуть не реже чем ад. Просто у него хорошая пресса
AlesDales
Активист
Сообщения: 198
Зарегистрирован: 14 Июль 2005, 15:42

Re: Сортировка по столбцу Дата

Сообщение AlesDales »

IF Column = 5 THEN SORT(Queue:Browse,Queue:Browse.Update_DATE,Queue:Browse.Update_TIME).
IF Column = -5 THEN SORT(Queue:Browse,-Queue:Browse.Update_DATE,Queue:Browse.Update_TIME).
RETURN PARENT.Sortered(Column)
:)
в стране слепых правит одноглазый король (c) ...
Ответить