Search options (Page 27 of 42)

Thank you very much Dmitry...............

What about remaining two sides (top and bottom) of cells - Rows?

Thank you very much Derek...................
All works fine now.
Great stuff from you as usual..........

Perhaps shortcoming at my end with explanation... What I meant is:
1. I add a daily recurring expense today.
2. Added recurring daily expense with todays date shows on tGrid as normal and doesn't show recurred one as it it's not due till tomorrow as it should be since recurrd expenses only need to be displayed on their recur date and thereafter.
3. Left app running. Tomorrow (after midnight) it doesn't show recurred expense. Still showing only recurring expense. However, if I restart the  app it shows recurred one too..

Thank you very much Dmitry.........................

Hi Guys,

Thanks a lot for your help and advise......
I'm not trying to delete records having dependent records... In any case they shouldn't be deleted for the sake of db integrity beside anything else.
I just want to replace "FOREIGN KEY constraint failed..." system message dialog with a custom one.

Dmitry,
I tried the following with sample project on post #1 but couldn't catch it:

function OnSQLException(Sender: TObject; Msg: string; SQL: string): boolean;
begin
    // exception from functions SQLExecute or SQLQuery
    if Sender=nil  then
    begin
        result := true; // to prevent system message
        ShowMessage(Msg); // your message
        MessageBox('Selected record contains...', 'Error', MB_OK+MB_ICONWARNING);
    end;
end;

Thank you very much EHW...................

1. Yes, it runs fine now, as long as I don't delete the db file you have supplied with v8. Once it's deleted, compiling and running fails then crashes instead of creating new db file and run. It seems some of the sql script db specific, I may be wrong tho.

2. I tried an update button to show recurred items but didn't work:

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
   Form1.tgExpenses.dbUpdate
end;

I came a cross Dmitry's script below, perhaps something like that may be used so that recurred items can be saved and displayed on date and time, but it's beyond me currently in this case:

SQLExecute('update entries set date = "'+FormatDateTime('yyyy-MM-DD hh:nn:ss.000', form1.datetimepicker.datetime)+'"' ); 

3. Expenses tGrid data display would be more clearer as on the image 2 below:

Original record marked and saved as recurring needs to be always first record with recurring recur every.. columns filled, i.e. Yes | Month
Recurred items recurring column needs to empty but recurring every column filled with the period selected on first record.
Non-recurring, one of items recurring column needs to displays No
This way user can differentiate better recurring, recurred and non recurring items.

Hi Dmitry,

EHW did a great work on  recurring events - in this case recurring expenses. Two items need your kind attention. Please see the attached sample project EHW coded.

1. Date format is need to be taken from the user OS rather than hard coding in the app (Like MVD date and time component does); so that app runs on different machines with different date formats.

2. As recurring expense entered and saved automatically when they are due, it should be displayed on form1 expenses tgrid without the need of restarting the app. Currently, app needs to be restarted in order to saved recurring expenses to be displayed on form1 tGrid. Perhaps adding refresh button (kind of forced on show event) on form1 / expenses tGrid  may eliminate the need of restart..

Thanks a lot EHW...............
Still crashes but I think it's irrelevant at this point as date issue needs to be sorted out.

Dmitry,
Could you please help us sorting date issue on this project, so that date format can be read from the user system (OS) rather than trying to manipulate it as EHW explained on the post above #22

Thanks a lot Dmitry.....
The above stops saving onClick of print button. However, print button appears as active button, clicking on it doesn't do anything. I tried to add info message

procedure Form2_Button2_OnClick (Sender: string; var Cancel: boolean);
var
buttonSelected : Integer;
begin
  buttonSelected :=MessageDlg('Only saved records can be printed.', mtInformation,mbOK,0);
    begin
    if Form2.Button1.dbGeneralTableId = -1 then Cancel := true;
    end;
end;

Unfortunately, info message is displayed on show record too beside showing print preview. I couldn't get it right to stop info message showing on show record / print.

Then I used disable print button on new record, and enable on show record.

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
begin
    Form2.Button2.enabled := false;
end;

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    Form2.Button2.enabled := true;
end;

I'm not sure if this is the correct approach tho.

Great stuff EHW...........

I think it works now. I tested back dated 5 days. It display recurring items not after save but after restarting the application. I assume it's due to using back date?

It'd be great if date format read from windows date settings rather than hard coding. I changed my windows7 date format from dd/MM//YYYY to YYYY/MM/DD and it crashed on run.

Hi EHW,

Thank you very much................
Truly appreciated.........

Indeed, in this case time is not needed. It was intended for defining what time of the selected period and date recurring expense should be created, but I can do without it.

However, application crashes and refuses to re-start.
Steps:
1. Added a backdated expense and marked as recurring on daily basis to test recurrence.
2. Closed the app.
3. Tried to run .exe again and app didn't start. I got windows ... has stopped working. message
4. Deleted database file and re-run but same, app cannot start.

I put this for your info, without any expectation of you correcting it.  Already, you have been very kind with your help on this and many other ones. So, please don't feel under any obligation whatsoever to put any further time into this project. Perhaps others may offer help on this and we can have a working recurring event script.