Модуль напоминаний о событиях

[Vofka18]

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

В версии 2.2 добавлен еще один параметр (предпоследний, если по порядку). это параметр "user" если передать в него пустую строку, то функционал расширения не изменится от предыдущей версии. А если в него передать имя юзера, то оно запишится в напоминание.
Обратите внимание, что в расширении отсутствует проверка, на наличие указанного пользавателя, т.е.
если указать не существующее имя пользавателя, то напоминание не сработает никогда.

31.05.2023 Reminder v3.0 - исправил конфликт с другими расширениями, при старте программы. Также оптимизировал процедуру обновления уведомлений (создавалось много лишних экземпляров формы)
01.06.2023 Reminder v3.1 - Исправил ошибку неопределенного поля цикличных событий.
28.05.2024 Reminder v3.2 - Исправил редактирование записи, при установленном фильтре формы.

---

Демо

---

[cordek]

Тогда лучше записывать две переменных id и form
На форме напоминания добавлять их в два скрытых поля. Использовать потом не запрос, а кнопку с действием открыть форму.

[Lav_andrew]

Тогда лучше записывать две переменных id и form
На форме напоминания добавлять их в два скрытых поля. Использовать потом не запрос, а кнопку с действием открыть форму.

Здравствуйте. Да тоже хорошая идея. Получается это скриптом только реализовать? стандартными функциями не получится?

[cordek]

Тогда лучше записывать две переменных id и form
На форме напоминания добавлять их в два скрытых поля. Использовать потом не запрос, а кнопку с действием открыть форму.

Здравствуйте. Да тоже хорошая идея. Получается это скриптом только реализовать? стандартными функциями не получится?

Записать можно через переменные setvar и потом с помощью getvar сохранить в поле.
Открыть можно действием из расширения dx-plus

[Nero68]

Модуль отличный, но выводится сообщение-исключение если поле описание пустое. Если дата без времени, то не срабатывает в этот же день. Небольшие фиксики:

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

procedure checkCircleMem();
...
      // фикс продление даты без указания времени
      SQL:=SQL + ' ['+remDt.remDone+'] as dn ' +
        ' from ['+remDt.Fm+'] ' +
        ' where ((['+remDt.remDate+'] <=  CURRENT_DATE ' +
        ' AND (['+remDt.remTime+'] <= CURRENT_TIME OR ['+remDt.remTime+'] is NULL)) '+
        ' OR (['+remDt.remDate+'] <  CURRENT_DATE)) ' ;
...

procedure refreshDataEvents();
...
    // фикс работа даты без указания времени
    SQL:=SQL+'from ['+remDt.Fm+'] ' +
      'where ((['+remDt.remDate+'] <=  CURRENT_DATE ' +
      ' AND (['+remDt.remTime+'] <= CURRENT_TIME OR ['+remDt.remTime+'] is NULL)) '+
      ' OR ([' + remDt.remDate+'] <  CURRENT_DATE ))'+
      ' AND ['+remDt.remDone+']=0 ';
...

procedure AddItemMems(sel:TdxSQLQuery);//fm:tdxForm;fmId:integer;dt:TdateTime);
...
    // фикс, если описание путое, не выводится исключение
    if sel['remText']<>NULL then
    begin
      child.Caption :=sel['remText'];//**************** fm.asS[remDT.remText];
      child.Enabled:=false;
      MI.Add(child);
    end;
...

[Runenkov]

Модуль отличный, но выводится сообщение-исключение если поле описание пустое. Если дата без времени, то не срабатывает в этот же день. Небольшие фиксики:

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

procedure checkCircleMem();
...
      // фикс продление даты без указания времени
      SQL:=SQL + ' ['+remDt.remDone+'] as dn ' +
        ' from ['+remDt.Fm+'] ' +
        ' where ((['+remDt.remDate+'] <=  CURRENT_DATE ' +
        ' AND (['+remDt.remTime+'] <= CURRENT_TIME OR ['+remDt.remTime+'] is NULL)) '+
        ' OR (['+remDt.remDate+'] <  CURRENT_DATE)) ' ;
...

procedure refreshDataEvents();
...
    // фикс работа даты без указания времени
    SQL:=SQL+'from ['+remDt.Fm+'] ' +
      'where ((['+remDt.remDate+'] <=  CURRENT_DATE ' +
      ' AND (['+remDt.remTime+'] <= CURRENT_TIME OR ['+remDt.remTime+'] is NULL)) '+
      ' OR ([' + remDt.remDate+'] <  CURRENT_DATE ))'+
      ' AND ['+remDt.remDone+']=0 ';
...

procedure AddItemMems(sel:TdxSQLQuery);//fm:tdxForm;fmId:integer;dt:TdateTime);
...
    // фикс, если описание путое, не выводится исключение
    if sel['remText']<>NULL then
    begin
      child.Caption :=sel['remText'];//**************** fm.asS[remDT.remText];
      child.Enabled:=false;
      MI.Add(child);
    end;
...

в каждой строчке только точки... третий фрагмент не нашёл куда правильно вставлять... хотя бы ссылку на номера строк дали...