ForDerek

Hello Derek
Thank for your answer
An email address where I can send my project ?
Thanks in advance

JB

Hello Derek, how are you?
I created an application with MVD from a skeleton of
one of your projects (the management of family accounts).
I arranged it to my liking and it works very well.
I wanted to add a new function: archiving of the year
former. For this I set up one of your projects which would be suitable
very good at this new approach (CheckBox As Filter).
It functions in its essential role: removing checked lines from the database.
But what bothers me is that when I click on the 'PURGE' button
(I've called it 'ARCHIVAGE'), it does not show me the grid having only the lines
checked (whether I use button B4 or button 21). As a result, the Excel sheet is not displayed
not either, which will allow me to save the past year in XLS form).

For example, let's say I want to archive the period from 02/09/2023 to 02/21/2024.

1- I choose 'Compte courant communt' from the 'Les Comptes' menu on the left. The grid is displayed with all transactions.
2- I click on the 'Archivage des données' menu. Panel 13 is displayed
3- I check the relevant dates on the grid
4- From this panel I click 'Filtrer les opérations'. An action already occurs instead of checking this option. Strange !.
5- The grid does not show me only the selected lines as in your example from which I took inspiration.
6- As a result, the Excel sheet is not displayed which would allow me to save this selection as an archive.
7- On the other hand, the work of deleting the selected lines is done well.

No matter how much I look at the solution from every angle, I end up seeing nothing.
I would need your insight: your example works very well, but for me, there is something wrong somewhere.

May I allow myself to submit my project to you because I don't see where the problem lies.
Thanks don't advance

JB

Hello Derek, how are you ?

Thank you for your answer.
It works perfectly.
As I like with MVD (it's exhilarating) also finding my own solutions
without always asking others, I am looking for the
mine.
Here's what I'm testing:
1- Two DateTimePicker (Start Date and End Date: for example: 01/01/2023 to 31/12/2023).
2- From these two dates, selection of transactions between these two dates
(via SEARCH, dbSQL or SearchQuery).
3- Display in the MVD grid of only these selected transactions.
4- These transactions are checked
5- Display of transactions in Excel (or even save to disk).
6- Deletion of these transactions in MVD.
7- To maintain the correct balance, addition of a first line of the new grid with the new
starting balance (which will be that as of 131/12/2023).

From this pseudo code I should achieve the same result as that of your proposal.
What do you think of this approach which seems quite simple to me?
Thanks again
JB

Salut Jean,
Yes, I think that should work.
But a couple of things to be careful about.
1.  using your example, you would need to make sure that there were no transactions dated prior to 01/01/2023 (but it's a simple test to check for this).
2.  when you create a line with a new starting balance, you might also need to bring forward the balances of 'depenses' and 'recettes' (otherwise doesn't this make your tablegrid.footer calculation of 'Solde' incorrect?).
I was also wondering whether holding 'tpaidin' and 'tpaidout' as absolute values in two discrete fields rather than simply using a single field (tvalue) and signing it positive or negative doesn't start to make things more complicated than it needs to be (and yes, I appreciate the irony of suggesting this as it was me who used absolute values in the first place )!!  I must have thought it was a good idea at the time but I can't remember why!
Can I ask why you want to delete transactions in the first place rather than use something like a filter?
Derek.

Hello Derek
How are you ?

I think I found the solution to my problem

1 - I left Action = Delete Record behind button 21 (PURGE). I deleted it
2 - I modified the code for purging the Purge button: (Action OnClick)

procedure Form1_Button23_OnClick(Sender: TObject; var Cancel: boolean); // Once the spreadsheet is closed, we delete the checked lines
Var IRow, vcount: Integer;
begin
      vcount := 0;
       For vi := 0 to Form1.Tablegrid1.RowCount -1 do
       begin
          SqlExecute('Delete From Transactions Where id = "'+IntToStr(Form1.Tablegrid1.dbIndexToID(vi))+'"');
          vcount := vcount+1;
       end;
          Form1.TableGrid1.dbUpdate;
          ShowMessage(IntToStr(vcount) + 'archived lines');
end;

At first glance, this seems to have solved my problem.
What do you think ?
Sincerely
J.B.