+++ /dev/null
-/* HomeBank -- Free, easy, personal accounting for everyone.
- * Copyright (C) 1995-2018 Maxime DOYEN
- *
- * This file is part of HomeBank.
- *
- * HomeBank is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * HomeBank is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program. If not, see <http://www.gnu.org/licenses/>.
- */
-
-
-#include "homebank.h"
-
-#include "rep_budget.h"
-
-#include "list_operation.h"
-#include "gtk-chart-stack.h"
-#include "gtk-dateentry.h"
-
-#include "dsp_mainwindow.h"
-#include "ui-transaction.h"
-
-
-/****************************************************************************/
-/* Debug macros */
-/****************************************************************************/
-#define MYDEBUG 0
-
-#if MYDEBUG
-#define DB(x) (x);
-#else
-#define DB(x);
-#endif
-
-
-
-/* our global datas */
-extern struct HomeBank *GLOBALS;
-extern struct Preferences *PREFS;
-
-
-static void repbudget_action_viewlist(GtkAction *action, gpointer user_data);
-static void repbudget_action_viewstack(GtkAction *action, gpointer user_data);
-static void repbudget_action_detail(GtkAction *action, gpointer user_data);
-static void repbudget_action_refresh(GtkAction *action, gpointer user_data);
-
-static void repbudget_date_change(GtkWidget *widget, gpointer user_data);
-static void repbudget_range_change(GtkWidget *widget, gpointer user_data);
-static void repbudget_toggle_detail(GtkWidget *widget, gpointer user_data);
-static void repbudget_detail(GtkWidget *widget, gpointer user_data);
-static void repbudget_compute(GtkWidget *widget, gpointer user_data);
-static void repbudget_update_total(GtkWidget *widget, gpointer user_data);
-static void repbudget_sensitive(GtkWidget *widget, gpointer user_data);
-static void repbudget_toggle(GtkWidget *widget, gpointer user_data);
-static GtkWidget *create_list_budget(void);
-static void repbudget_update_detail(GtkWidget *widget, gpointer user_data);
-static void repbudget_update_daterange(GtkWidget *widget, gpointer user_data);
-
-static GString *ui_list_repbudget_to_string(GtkTreeView *treeview, gboolean clipboard);
-
-gchar *CYA_BUDGSELECT[] = { N_("Category"), N_("Subcategory"), NULL };
-
-gchar *CYA_KIND[] = { N_("Exp. & Inc."), N_("Expense"), N_("Income"), NULL };
-
-gchar *CYA_BUDGETSELECT[] = { N_("Spent & Budget"), N_("Spent"), N_("Budget"), N_("Result"), NULL };
-
-
-//extern gchar *CYA_FLT_SELECT[];
-
-
-static GtkRadioActionEntry radio_entries[] = {
- { "List" , ICONNAME_HB_VIEW_LIST , N_("List") , NULL, N_("View results as list") , 0 },
- { "Stack" , ICONNAME_HB_VIEW_STACK, N_("Stack") , NULL, N_("View results as stack bars"), 1 },
-};
-static guint n_radio_entries = G_N_ELEMENTS (radio_entries);
-
-
-static GtkActionEntry entries[] = {
- { "Refresh" , ICONNAME_REFRESH, N_("Refresh"), NULL, N_("Refresh results"), G_CALLBACK (repbudget_action_refresh) },
-
-// { "Export" , ICONNAME_HB_FILE_EXPORT , N_("Export") , NULL, N_("Export as CSV"), G_CALLBACK (repbudget_action_export) },
-};
-static guint n_entries = G_N_ELEMENTS (entries);
-
-
-static GtkToggleActionEntry toggle_entries[] = {
- { "Detail", ICONNAME_HB_OPE_SHOW, /* name, icon-name */
- N_("Detail"), NULL, /* label, accelerator */
- N_("Toggle detail"), /* tooltip */
- G_CALLBACK (repbudget_action_detail),
- FALSE }, /* is_active */
-
-};
-static guint n_toggle_entries = G_N_ELEMENTS (toggle_entries);
-
-
-static const gchar *ui_info =
-"<ui>"
-" <toolbar name='ToolBar'>"
-" <toolitem action='List'/>"
-" <toolitem action='Stack'/>"
-" <separator/>"
-" <toolitem action='Detail'/>"
-" <separator/>"
-" <toolitem action='Refresh'/>"
-" <separator/>"
-//" <toolitem action='Export'/>"
-// replaced by a menubutton
-" </toolbar>"
-"</ui>";
-
-
-
-/* action functions -------------------- */
-static void repbudget_action_viewlist(GtkAction *action, gpointer user_data)
-{
-struct repbudget_data *data = user_data;
-
- gtk_notebook_set_current_page(GTK_NOTEBOOK(data->GR_result), 0);
- repbudget_sensitive(data->window, NULL);
-}
-
-static void repbudget_action_viewstack(GtkAction *action, gpointer user_data)
-{
-struct repbudget_data *data = user_data;
-
- gtk_notebook_set_current_page(GTK_NOTEBOOK(data->GR_result), 1);
- repbudget_sensitive(data->window, NULL);
-}
-
-
-static void repbudget_action_mode (GtkRadioAction *action, GtkRadioAction *current, gpointer user_data)
-{
-gint value;
-
- value = gtk_radio_action_get_current_value(GTK_RADIO_ACTION(action));
- switch( value )
- {
- case 0:
- repbudget_action_viewlist(GTK_ACTION(action), user_data);
- break;
- case 1:
- repbudget_action_viewstack(GTK_ACTION(action), user_data);
- break;
- }
-}
-
-
-static void repbudget_action_detail(GtkAction *action, gpointer user_data)
-{
-struct repbudget_data *data = user_data;
-
- repbudget_toggle_detail(data->window, NULL);
-}
-
-
-static void repbudget_action_refresh(GtkAction *action, gpointer user_data)
-{
-struct repbudget_data *data = user_data;
-
- repbudget_compute(data->window, NULL);
-}
-
-/*static void repbudget_action_export(GtkAction *action, gpointer user_data)
-{
-struct repbudget_data *data = user_data;
-
- repbudget_export_csv(data->window, NULL);
-}*/
-
-/* ======================== */
-
-
-static gint getmonth(guint date)
-{
-GDate *date1;
-gint month;
-
- date1 = g_date_new_julian(date);
- month = g_date_get_month(date1);
-
- /*#if MYDEBUG == 1
- g_print("\n[repbudget] getmonth\n");
- gchar buffer1[128];
- g_date_strftime (buffer1, 128-1, "%x", date1);
- g_print(" date is '%s', month=%d\n", buffer1, month);
- #endif*/
-
- g_date_free(date1);
-
- return(month);
-}
-
-static gint countmonth(guint32 mindate, guint32 maxdate)
-{
-GDate *date1, *date2;
-gint nbmonth;
-
- date1 = g_date_new_julian(mindate);
- date2 = g_date_new_julian(maxdate);
-
- nbmonth = 0;
- while(g_date_compare(date1, date2) < 0)
- {
- nbmonth++;
- g_date_add_months(date1, 1);
- }
-
- g_date_free(date2);
- g_date_free(date1);
-
- return(nbmonth);
-}
-
-static gdouble budget_compute_result(gdouble budget, gdouble spent)
-{
-gdouble retval;
-
- //original formula
- //result = ABS(budget) - ABS(spent);
-
- retval = spent - budget;
-
- return retval;
-}
-
-
-
-
-
-static void repbudget_date_change(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-
- DB( g_print("\n[repbudget] date change\n") );
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- data->filter->mindate = gtk_date_entry_get_date(GTK_DATE_ENTRY(data->PO_mindate));
- data->filter->maxdate = gtk_date_entry_get_date(GTK_DATE_ENTRY(data->PO_maxdate));
-
- // set min/max date for both widget
- gtk_date_entry_set_maxdate(GTK_DATE_ENTRY(data->PO_mindate), data->filter->maxdate);
- gtk_date_entry_set_mindate(GTK_DATE_ENTRY(data->PO_maxdate), data->filter->mindate);
-
- g_signal_handler_block(data->CY_range, data->handler_id[HID_REPBUDGET_RANGE]);
- gtk_combo_box_set_active(GTK_COMBO_BOX(data->CY_range), FLT_RANGE_OTHER);
- g_signal_handler_unblock(data->CY_range, data->handler_id[HID_REPBUDGET_RANGE]);
-
-
- repbudget_compute(widget, NULL);
- repbudget_update_daterange(widget, NULL);
-
-}
-
-
-static void repbudget_range_change(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-gint range;
-
- DB( g_print("\n[repbudget] range change\n") );
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- range = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_range));
-
-
- if(range != FLT_RANGE_OTHER)
- {
- filter_preset_daterange_set(data->filter, range, 0);
-
- g_signal_handler_block(data->PO_mindate, data->handler_id[HID_REPBUDGET_MINDATE]);
- g_signal_handler_block(data->PO_maxdate, data->handler_id[HID_REPBUDGET_MAXDATE]);
-
- gtk_date_entry_set_date(GTK_DATE_ENTRY(data->PO_mindate), data->filter->mindate);
- gtk_date_entry_set_date(GTK_DATE_ENTRY(data->PO_maxdate), data->filter->maxdate);
-
- g_signal_handler_unblock(data->PO_mindate, data->handler_id[HID_REPBUDGET_MINDATE]);
- g_signal_handler_unblock(data->PO_maxdate, data->handler_id[HID_REPBUDGET_MAXDATE]);
-
- repbudget_compute(widget, NULL);
- repbudget_update_daterange(widget, NULL);
- }
-}
-
-
-static void repbudget_update_daterange(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-gchar *daterange;
-
- DB( g_print("\n[repbudget] update daterange\n") );
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- daterange = filter_daterange_text_get(data->filter);
- gtk_label_set_markup(GTK_LABEL(data->TX_daterange), daterange);
- g_free(daterange);
-}
-
-
-static void repbudget_toggle_detail(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- DB( g_print("\n[repbudget] toggle detail\n") );
-
- data->detail ^= 1;
-
- repbudget_update_detail(widget, user_data);
-
-}
-
-
-static void repbudget_detail_onRowActivated (GtkTreeView *treeview,
- GtkTreePath *path,
- GtkTreeViewColumn *col,
- gpointer userdata)
-{
-struct repbudget_data *data;
-Transaction *active_txn;
-gboolean result;
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(GTK_WIDGET(treeview), GTK_TYPE_WINDOW)), "inst_data");
-
- DB( g_print ("\n[repbudget] A detail row has been double-clicked!\n") );
-
- active_txn = list_txn_get_active_transaction(GTK_TREE_VIEW(data->LV_detail));
- if(active_txn)
- {
- Transaction *old_txn, *new_txn;
-
- old_txn = da_transaction_clone (active_txn);
- new_txn = active_txn;
- result = deftransaction_external_edit(GTK_WINDOW(data->window), old_txn, new_txn);
-
- if(result == GTK_RESPONSE_ACCEPT)
- {
- //#1640885
- GLOBALS->changes_count++;
- repbudget_compute(data->window, NULL);
- }
-
- da_transaction_free (old_txn);
- }
-}
-
-
-static void repbudget_update_detail(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- DB( g_print("\n[repbudget] update detail\n") );
-
- if(GTK_IS_TREE_VIEW(data->LV_report))
- {
- if(data->detail)
- {
- GtkTreeSelection *treeselection;
- GtkTreeModel *model;
- GtkTreeIter iter;
- guint key;
-
- treeselection = gtk_tree_view_get_selection (GTK_TREE_VIEW(data->LV_report));
-
- if (gtk_tree_selection_get_selected(treeselection, &model, &iter))
- {
- gtk_tree_model_get(model, &iter, LST_BUDGET_KEY, &key, -1);
-
- //DB( g_print(" - active is %d\n", pos) );
-
- repbudget_detail(GTK_WIDGET(gtk_tree_selection_get_tree_view (treeselection)), GINT_TO_POINTER(key));
- }
-
-
- gtk_widget_show(data->GR_detail);
- }
- else
- gtk_widget_hide(data->GR_detail);
-
-
- }
-}
-
-
-static void repbudget_export_result_clipboard(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-GtkClipboard *clipboard;
-GString *node;
-
- DB( g_print("\n[repbudget] export result clipboard\n") );
-
- data = user_data;
- //data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- node = ui_list_repbudget_to_string(GTK_TREE_VIEW(data->LV_report), TRUE);
-
- clipboard = gtk_clipboard_get_default(gdk_display_get_default());
- gtk_clipboard_set_text(clipboard, node->str, node->len);
-
- g_string_free(node, TRUE);
-}
-
-
-static void repbudget_export_result_csv(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-gchar *filename = NULL;
-GString *node;
-GIOChannel *io;
-gchar *name;
-gint tmpfor;
-
- DB( g_print("\n[repbudget] export result csv\n") );
-
- data = user_data;
- //data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- tmpfor = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_for));
- name = g_strdup_printf("hb-repbudget_%s.csv", CYA_BUDGSELECT[tmpfor]);
-
- if( ui_file_chooser_csv(GTK_WINDOW(data->window), GTK_FILE_CHOOSER_ACTION_SAVE, &filename, name) == TRUE )
- {
- DB( g_print(" + filename is %s\n", filename) );
- io = g_io_channel_new_file(filename, "w", NULL);
- if(io != NULL)
- {
- node = ui_list_repbudget_to_string(GTK_TREE_VIEW(data->LV_report), FALSE);
- g_io_channel_write_chars(io, node->str, -1, NULL, NULL);
- g_io_channel_unref (io);
- g_string_free(node, TRUE);
- }
- g_free( filename );
- }
- g_free(name);
-}
-
-
-static void repbudget_export_detail_clipboard(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-GtkClipboard *clipboard;
-GString *node;
-
- DB( g_print("\n[repbudget] export detail clipboard\n") );
-
- data = user_data;
- //data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- node = list_txn_to_string(GTK_TREE_VIEW(data->LV_detail), TRUE);
-
- clipboard = gtk_clipboard_get_default(gdk_display_get_default());
- gtk_clipboard_set_text(clipboard, node->str, node->len);
-
- g_string_free(node, TRUE);
-}
-
-
-static void repbudget_export_detail_csv(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-gchar *filename = NULL;
-GString *node;
-GIOChannel *io;
-gchar *name;
-gint tmpfor;
-
- DB( g_print("\n[repbudget] export detail csv\n") );
-
- data = user_data;
- //data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- tmpfor = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_for));
- name = g_strdup_printf("hb-repstat-detail_%s.csv", CYA_BUDGSELECT[tmpfor]);
-
- if( ui_file_chooser_csv(GTK_WINDOW(data->window), GTK_FILE_CHOOSER_ACTION_SAVE, &filename, name) == TRUE )
- {
- DB( g_print(" + filename is %s\n", filename) );
-
- io = g_io_channel_new_file(filename, "w", NULL);
- if(io != NULL)
- {
- node = list_txn_to_string(GTK_TREE_VIEW(data->LV_detail), FALSE);
- g_io_channel_write_chars(io, node->str, -1, NULL, NULL);
-
- g_io_channel_unref (io);
- g_string_free(node, TRUE);
- }
-
- g_free( filename );
- }
-
- g_free(name);
-}
-
-
-
-
-static void repbudget_detail(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-guint active = GPOINTER_TO_INT(user_data);
-GList *list;
-guint tmpfor;
-GtkTreeModel *model;
-GtkTreeIter iter;
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- DB( g_print("\n[repbudget] detail\n") );
-
- if(data->detail)
- {
- /* clear and detach our model */
- model = gtk_tree_view_get_model(GTK_TREE_VIEW(data->LV_detail));
- gtk_list_store_clear (GTK_LIST_STORE(model));
- g_object_ref(model); /* Make sure the model stays with us after the tree view unrefs it */
- gtk_tree_view_set_model(GTK_TREE_VIEW(data->LV_detail), NULL); /* Detach model from view */
-
- tmpfor = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_for));
-
- /* fill in the model */
- list = g_queue_peek_head_link(data->txn_queue);
- while (list != NULL)
- {
- Account *acc;
- Transaction *ope = list->data;
- guint pos = 0;
- gboolean insert = FALSE;
-
- //DB( g_print(" get %s\n", ope->ope_Word) );
-
- acc = da_acc_get(ope->kacc);
- if(acc != NULL)
- {
- if((acc->flags & AF_NOBUDGET)) goto next1;
- }
-
- //filter here
- if( ope->flags & OF_SPLIT )
- {
- guint nbsplit = da_splits_count(ope->splits);
- Split *split;
- guint i;
-
- for(i=0;i<nbsplit;i++)
- {
- split = ope->splits[i];
- switch(tmpfor)
- {
- case BUDG_CATEGORY:
- {
- Category *catentry = da_cat_get(split->kcat);
- if(catentry)
- pos = (catentry->flags & GF_SUB) ? catentry->parent : catentry->key;
- }
- break;
- case BUDG_SUBCATEGORY:
- pos = split->kcat;
- break;
- }
-
- if( pos == active )
- { insert = TRUE; break; }
- }
- }
- else
- {
- switch(tmpfor)
- {
- case BUDG_CATEGORY:
- {
- Category *catentry = da_cat_get(ope->kcat);
- if(catentry)
- pos = (catentry->flags & GF_SUB) ? catentry->parent : catentry->key;
- }
- break;
- case BUDG_SUBCATEGORY:
- pos = ope->kcat;
- break;
- }
-
- if( pos == active )
- insert = TRUE;
- }
-
- //insert
- if( insert == TRUE )
- {
-
- gtk_list_store_append (GTK_LIST_STORE(model), &iter);
- gtk_list_store_set (GTK_LIST_STORE(model), &iter,
- LST_DSPOPE_DATAS, ope,
- -1);
- }
-
-
-next1:
- list = g_list_next(list);
- }
-
- /* Re-attach model to view */
- gtk_tree_view_set_model(GTK_TREE_VIEW(data->LV_detail), model);
- g_object_unref(model);
-
- gtk_tree_view_columns_autosize( GTK_TREE_VIEW(data->LV_detail) );
-
- }
-
-}
-
-
-static void repbudget_compute(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-
-gint tmpfor, tmpkind, tmponlyout;
-guint32 mindate, maxdate;
-
-GtkTreeModel *model;
-GtkTreeIter iter;
-GList *list;
-guint n_result, id;
-gdouble *tmp_spent, *tmp_budget;
-gint nbmonth = 1;
-gchar *title;
-
- DB( g_print("\n[repbudget] compute\n") );
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- tmpfor = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_for));
- tmpkind = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_kind));
- tmponlyout = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(data->CM_onlyout));
-
- mindate = data->filter->mindate;
- maxdate = data->filter->maxdate;
- if(maxdate < mindate) return;
-
- g_queue_free (data->txn_queue);
- data->txn_queue = hbfile_transaction_get_partial_budget(data->filter->mindate, data->filter->maxdate);
-
-
- DB( g_print(" for=%d, kind=%d\n", tmpfor, tmpkind) );
-
- nbmonth = countmonth(mindate, maxdate);
- DB( g_print(" date: min=%d max=%d nbmonth=%d\n", mindate, maxdate, nbmonth) );
-
- n_result = da_cat_get_max_key();
- DB( g_print(" nbcat=%d\n", n_result) );
-
- /* allocate some memory */
- tmp_spent = g_malloc0((n_result+1) * sizeof(gdouble));
- tmp_budget = g_malloc0((n_result+1) * sizeof(gdouble));
-
- if(tmp_spent && tmp_budget)
- {
- guint i = 0;
- /* compute the results */
- data->total_spent = 0.0;
- data->total_budget = 0.0;
-
- /* compute budget for each category */
- DB( g_print("\n+ compute budget\n") );
-
- //fixed #328034: here <=n_result
- for(i=1; i<=n_result; i++)
- {
- Category *entry;
- //gchar buffer[128];
- gint pos;
-
- entry = da_cat_get(i);
- if( entry == NULL)
- continue;
-
- DB( g_print(" category %d:'%s' issub=%d hasbudget=%d custom=%d\n",
- entry->key, entry->name, (entry->flags & GF_SUB), (entry->flags & GF_BUDGET), (entry->flags & GF_CUSTOM)) );
-
- //debug
- #if MYDEBUG == 1
- gint k;
- g_print(" budget vector: ");
- for(k=0;k<13;k++)
- g_print( " %d:[%.2f]", k, entry->budget[k]);
- g_print("\n");
- #endif
-
- pos = 0;
- switch(tmpfor)
- {
- case BUDG_CATEGORY:
- {
- Category *catentry = da_cat_get(i);
- if(catentry)
- pos = (catentry->flags & GF_SUB) ? catentry->parent : catentry->key;
- }
- break;
- case BUDG_SUBCATEGORY:
- pos = i;
- break;
- }
-
- // same value each month ?
- if(!(entry->flags & GF_CUSTOM))
- {
- DB( g_print(" - monthly %.2f\n", entry->budget[0]) );
- tmp_budget[pos] += entry->budget[0]*nbmonth;
- }
- //otherwise sum each month from mindate month
- else
- {
- gint month = getmonth(mindate);
- gint j;
-
- DB( g_print(" - custom each month for %d months\n", nbmonth) );
- for(j=0;j<nbmonth;j++) {
- DB( g_print(" j=%d month=%d budg=%.2f\n", j, month, entry->budget[month]) );
- tmp_budget[pos] += entry->budget[month];
- month++;
- if(month > 12) {
- month = 1;
- }
- }
- }
-
- //debug
- #if MYDEBUG == 1
- g_print(" final budget: %d:'%s' : budg[%d]=%.2f\n", entry->key, entry->name, pos, tmp_budget[pos] );
- #endif
- }
-
-
- // compute spent for each transaction */
- DB( g_print("\n+ compute spent from transactions\n") );
-
-
- list = g_queue_peek_head_link(data->txn_queue);
- while (list != NULL)
- {
- Transaction *ope = list->data;
- gint pos = 0;
- gdouble trn_amount;
-
- //DB( g_print("%d, get ope: %s :: acc=%d, cat=%d, mnt=%.2f\n", i, ope->memo, ope->account, ope->category, ope->amount) );
-
- if( ope->flags & OF_SPLIT )
- {
- guint nbsplit = da_splits_count(ope->splits);
- Split *split;
-
- for(i=0;i<nbsplit;i++)
- {
- split = ope->splits[i];
- switch(tmpfor)
- {
- case BUDG_CATEGORY:
- {
- Category *catentry = da_cat_get(split->kcat);
- if(catentry)
- pos = (catentry->flags & GF_SUB) ? catentry->parent : catentry->key;
- }
- break;
- case BUDG_SUBCATEGORY:
- pos = split->kcat;
- break;
- }
-
- //trn_amount = split->amount;
- trn_amount = hb_amount_base(split->amount, ope->kcur);
-
- DB( g_print(" -> affecting split %.2f to cat pos %d\n", trn_amount, pos) );
-
- tmp_spent[pos] += trn_amount;
-
- }
- }
- else
- {
- switch(tmpfor)
- {
- case BUDG_CATEGORY:
- {
- Category *catentry = da_cat_get(ope->kcat);
- if(catentry)
- pos = (catentry->flags & GF_SUB) ? catentry->parent : catentry->key;
- }
- break;
- case BUDG_SUBCATEGORY:
- pos = ope->kcat;
- break;
- }
-
- //trn_amount = ope->amount;
- trn_amount = hb_amount_base(ope->amount, ope->kcur);
-
- DB( g_print(" -> affecting %.2f to cat pos %d\n", trn_amount, pos) );
-
- tmp_spent[pos] += trn_amount;
-
- }
-
- list = g_list_next(list);
- i++;
- }
-
- DB( g_print("\nclear and detach model\n") );
-
- /* clear and detach our model */
- model = gtk_tree_view_get_model(GTK_TREE_VIEW(data->LV_report));
- gtk_list_store_clear (GTK_LIST_STORE(model));
- g_object_ref(model); /* Make sure the model stays with us after the tree view unrefs it */
- gtk_tree_view_set_model(GTK_TREE_VIEW(data->LV_report), NULL); /* Detach model from view */
-
- DB( g_print("\n+ insert into treeview\n") );
-
- /* insert into the treeview */
- for(i=1, id=0; i<=n_result; i++)
- {
- gchar *name, *fullcatname;
- gboolean outofbudget;
- Category *entry;
-
- fullcatname = NULL;
-
- entry = da_cat_get(i);
- if( entry == NULL)
- continue;
-
- if(entry->flags & GF_SUB)
- {
- Category *parent = da_cat_get( entry->parent);
-
- fullcatname = g_strdup_printf("%s:%s", parent->name, entry->name);
- name = fullcatname;
- }
- else
- name = entry->name;
-
- if(name == NULL) name = "(None)";
-
- //#1553862
- //if( (tmpfor == BUDG_CATEGORY && !(entry->flags & GF_SUB)) || (tmpfor == BUDG_SUBCATEGORY) )
- if( (tmpfor == BUDG_CATEGORY && !(entry->flags & GF_SUB)) || (tmpfor == BUDG_SUBCATEGORY && (entry->flags & GF_SUB)) )
- {
- guint pos;
-
- pos = 0;
- switch(tmpfor)
- {
- case BUDG_CATEGORY:
- {
- Category *catentry = da_cat_get(i);
- if(catentry)
- pos = (catentry->flags & GF_SUB) ? catentry->parent : catentry->key;
- }
- break;
- case BUDG_SUBCATEGORY:
- pos = i;
- break;
- }
-
- // display expense or income (filter on amount and not category hypothetical flag
- //if( tmpkind != (entry->flags & GF_INCOME)) continue;
- if( tmpkind == 1 && tmp_budget[pos] > 0)
- continue;
-
- if( tmpkind == 2 && tmp_budget[pos] < 0)
- continue;
-
- //DB( g_print(" eval %d '%s' : spen=%.2f bud=%.2f \n", i, name, tmp_spent[pos], tmp_budget[pos] ) );
-
- if((entry->flags & (GF_BUDGET|GF_FORCED)) || tmp_budget[pos] /*|| tmp_spent[pos]*/)
- {
- gdouble result, rawrate;
- gchar *status;
-
- result = budget_compute_result(tmp_budget[pos], tmp_spent[pos]);
- rawrate = 0.0;
- if(ABS(tmp_budget[pos]) > 0)
- {
- rawrate = tmp_spent[pos] / tmp_budget[pos];
- }
- else if(tmp_budget[pos] == 0.0)
- rawrate = ABS(tmp_spent[pos]);
-
- status = "";
- outofbudget = FALSE;
- if(rawrate > 1.0)
- {
- status = _(" over");
- outofbudget = TRUE;
- }
- else
- {
- if(tmp_budget[pos] < 0.0)
- status = _(" left");
- else if(tmp_budget[pos] > 0.0)
- {
- status = _(" under");
- outofbudget = TRUE;
- }
- }
-
- if(tmponlyout == TRUE && outofbudget == FALSE)
- goto nextins;
-
- DB( g_print(" => insert %.2f | %.2f = %.2f (%.2f) '%s'\n\n", tmp_spent[pos], tmp_budget[pos], result, rawrate, status ) );
-
- gtk_list_store_append (GTK_LIST_STORE(model), &iter);
- gtk_list_store_set (GTK_LIST_STORE(model), &iter,
- LST_BUDGET_POS, id++,
- LST_BUDGET_KEY, pos,
- LST_BUDGET_NAME, name,
- LST_BUDGET_SPENT, tmp_spent[pos],
- LST_BUDGET_BUDGET, tmp_budget[pos],
- LST_BUDGET_RESULT, result,
- LST_BUDGET_STATUS, status,
- -1);
-
- nextins:
- data->total_spent += tmp_spent[pos];
- data->total_budget += tmp_budget[pos];
- }
- }
-
- g_free(fullcatname);
-
- }
-
- /* update column 0 title */
- GtkTreeViewColumn *column = gtk_tree_view_get_column( GTK_TREE_VIEW(data->LV_report), 0);
- gtk_tree_view_column_set_title(column, _(CYA_BUDGSELECT[tmpfor]));
-
- gtk_tree_view_columns_autosize (GTK_TREE_VIEW(data->LV_report));
-
- /* Re-attach model to view */
- gtk_tree_view_set_model(GTK_TREE_VIEW(data->LV_report), model);
- g_object_unref(model);
-
-
- repbudget_update_total(widget, NULL);
-
- /* update stack chart */
- title = g_strdup_printf(_("Budget for %s"), _(CYA_BUDGSELECT[tmpfor]) );
-
- ui_chart_stack_set_currency(GTK_CHARTSTACK(data->RE_stack), GLOBALS->kcur);
-
- /* set chart color scheme */
- ui_chart_stack_set_color_scheme(GTK_CHARTSTACK(data->RE_stack), PREFS->report_color_scheme);
- ui_chart_stack_set_dualdatas(GTK_CHARTSTACK(data->RE_stack), model, _("Budget"), _("Result"), title, NULL);
-
- g_free(title);
- }
-
- //DB( g_print(" inserting %i, %f %f\n", i, total_expense, total_income) );
-
- /* free our memory */
- g_free(tmp_spent);
- g_free(tmp_budget);
-
-}
-
-
-static void repbudget_update_total(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-
- DB( g_print("\n[repbudget] update total\n") );
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- GLOBALS->minor = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(data->CM_minor));
-
- hb_label_set_colvalue(GTK_LABEL(data->TX_total[0]), data->total_spent, GLOBALS->kcur, GLOBALS->minor);
- hb_label_set_colvalue(GTK_LABEL(data->TX_total[1]), data->total_budget, GLOBALS->kcur, GLOBALS->minor);
- hb_label_set_colvalue(GTK_LABEL(data->TX_total[2]), budget_compute_result(data->total_budget, data->total_spent), GLOBALS->kcur, GLOBALS->minor);
-
-
-}
-
-
-/*
-** update sensitivity
-*/
-static void repbudget_sensitive(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-GtkAction *action;
-gboolean visible, sensitive;
-gint page;
-
- DB( g_print("\n[repbudget] sensitive\n") );
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- page = gtk_notebook_get_current_page(GTK_NOTEBOOK(data->GR_result));
-
- visible = page == 0 ? TRUE : FALSE;
- action = gtk_ui_manager_get_action(data->ui, "/ToolBar/Detail");
- gtk_action_set_visible (action, visible);
- //sensitive = gtk_tree_selection_get_selected(gtk_tree_view_get_selection(GTK_TREE_VIEW(data->LV_report)), NULL, NULL);
- //gtk_action_set_sensitive(action, sensitive);
- //action = gtk_ui_manager_get_action(data->ui, "/ToolBar/Export");
- //gtk_action_set_visible (action, visible);
- hb_widget_visible (data->BT_export, visible);
-
- sensitive = gtk_tree_model_iter_n_children(gtk_tree_view_get_model(GTK_TREE_VIEW(data->LV_detail)), NULL) > 0 ? TRUE : FALSE;
- gtk_widget_set_sensitive(data->MI_detailtoclip, sensitive);
- gtk_widget_set_sensitive(data->MI_detailtocsv, sensitive);
-
-}
-
-
-static void repbudget_toggle(GtkWidget *widget, gpointer user_data)
-{
-struct repbudget_data *data;
-gboolean minor;
-
- DB( g_print("\n[repbudget] toggle\n") );
-
- data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
-
- repbudget_update_total(widget, NULL);
-
- //hbfile_update(data->LV_acc, (gpointer)4);
- gtk_tree_view_columns_autosize (GTK_TREE_VIEW(data->LV_report));
-
- minor = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(data->CM_minor));
- ui_chart_stack_show_minor(GTK_CHARTSTACK(data->RE_stack), minor);
-
-}
-
-static void repbudget_setup(struct repbudget_data *data)
-{
- DB( g_print("\n[repbudget] setup\n") );
-
- data->txn_queue = g_queue_new ();
-
- data->filter = da_filter_malloc();
- filter_default_all_set(data->filter);
-
- data->detail = PREFS->budg_showdetail;
- data->legend = 1;
-
- /* 3.4 : make int transfer out of stats */
- data->filter->option[FILTER_PAYMODE] = 1;
- data->filter->paymode[PAYMODE_INTXFER] = FALSE;
-
- filter_preset_daterange_set(data->filter, PREFS->date_range_rep, 0);
-
- g_signal_handler_block(data->PO_mindate, data->handler_id[HID_REPBUDGET_MINDATE]);
- g_signal_handler_block(data->PO_maxdate, data->handler_id[HID_REPBUDGET_MAXDATE]);
-
- gtk_date_entry_set_date(GTK_DATE_ENTRY(data->PO_mindate), data->filter->mindate);
- gtk_date_entry_set_date(GTK_DATE_ENTRY(data->PO_maxdate), data->filter->maxdate);
-
- g_signal_handler_unblock(data->PO_mindate, data->handler_id[HID_REPBUDGET_MINDATE]);
- g_signal_handler_unblock(data->PO_maxdate, data->handler_id[HID_REPBUDGET_MAXDATE]);
-
-}
-
-
-static void repbudget_selection(GtkTreeSelection *treeselection, gpointer user_data)
-{
-GtkTreeModel *model;
-GtkTreeIter iter;
-guint key = -1;
-
- DB( g_print("\n[repbudget] selection\n") );
-
- if (gtk_tree_selection_get_selected(treeselection, &model, &iter))
- {
- gtk_tree_model_get(model, &iter, LST_BUDGET_KEY, &key, -1);
- }
-
- DB( g_print(" - active is %d\n", key) );
-
- repbudget_detail(GTK_WIDGET(gtk_tree_selection_get_tree_view (treeselection)), GINT_TO_POINTER(key));
- repbudget_sensitive(GTK_WIDGET(gtk_tree_selection_get_tree_view (treeselection)), NULL);
-}
-
-
-/*
-**
-*/
-static gboolean repbudget_window_dispose(GtkWidget *widget, GdkEvent *event, gpointer user_data)
-{
-struct repbudget_data *data = user_data;
-struct WinGeometry *wg;
-
- DB( g_print("\n[repbudget] start dispose\n") );
-
- g_queue_free (data->txn_queue);
-
- da_filter_free(data->filter);
-
- g_free(data);
-
- //store position and size
- wg = &PREFS->bud_wg;
- gtk_window_get_position(GTK_WINDOW(widget), &wg->l, &wg->t);
- gtk_window_get_size(GTK_WINDOW(widget), &wg->w, &wg->h);
-
- DB( g_print(" window: l=%d, t=%d, w=%d, h=%d\n", wg->l, wg->t, wg->w, wg->h) );
-
- //enable define windows
- GLOBALS->define_off--;
- ui_mainwindow_update(GLOBALS->mainwindow, GINT_TO_POINTER(UF_SENSITIVE));
-
- DB( g_print("\n[repbudget] end dispose\n") );
-
- return FALSE;
-}
-
-
-// the window creation
-GtkWidget *repbudget_window_new(void)
-{
-struct repbudget_data *data;
-struct WinGeometry *wg;
-GtkWidget *window, *mainvbox, *hbox, *vbox, *notebook, *treeview;
-GtkWidget *label, *widget, *table, *entry;
-gint row;
-GtkUIManager *ui;
-GtkActionGroup *actions;
-GtkAction *action;
-GError *error = NULL;
-
- data = g_malloc0(sizeof(struct repbudget_data));
- if(!data) return NULL;
-
- DB( g_print("\n[repbudget] new\n") );
-
- //disable define windows
- GLOBALS->define_off++;
- ui_mainwindow_update(GLOBALS->mainwindow, GINT_TO_POINTER(UF_SENSITIVE));
-
- /* create window, etc */
- window = gtk_window_new (GTK_WINDOW_TOPLEVEL);
- data->window = window;
-
- //store our window private data
- g_object_set_data(G_OBJECT(window), "inst_data", (gpointer)data);
- DB( g_print(" - new window=%p, inst_data=%p\n", window, data) );
-
- gtk_window_set_title (GTK_WINDOW (window), _("Budget report"));
-
- //set the window icon
- gtk_window_set_icon_name(GTK_WINDOW (window), ICONNAME_HB_REP_BUDGET);
-
-
- //window contents
- mainvbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 0);
- gtk_container_add (GTK_CONTAINER (window), mainvbox);
-
- hbox = gtk_box_new(GTK_ORIENTATION_HORIZONTAL, 0);
- gtk_box_pack_start (GTK_BOX (mainvbox), hbox, TRUE, TRUE, 0);
-
- //control part
- table = gtk_grid_new ();
- // gtk_alignment_new(xalign, yalign, xscale, yscale)
- //alignment = gtk_alignment_new(0.0, 0.0, 0.0, 0.0);
- //gtk_container_add(GTK_CONTAINER(alignment), table);
- gtk_box_pack_start (GTK_BOX (hbox), table, FALSE, FALSE, 0);
-
- gtk_container_set_border_width (GTK_CONTAINER (table), SPACING_SMALL);
- gtk_grid_set_row_spacing (GTK_GRID (table), SPACING_SMALL);
- gtk_grid_set_column_spacing (GTK_GRID (table), SPACING_MEDIUM);
-
- row = 0;
- label = make_label_group(_("Display"));
- gtk_grid_attach (GTK_GRID (table), label, 0, row, 3, 1);
-
- row++;
- label = make_label_widget(_("_For:"));
- gtk_grid_attach (GTK_GRID (table), label, 1, row, 1, 1);
- widget = make_cycle(label, CYA_BUDGSELECT);
- data->CY_for = widget;
- gtk_grid_attach (GTK_GRID (table), data->CY_for, 2, row, 1, 1);
-
-
- row++;
- label = make_label_widget(_("_Kind:"));
- gtk_grid_attach (GTK_GRID (table), label, 1, row, 1, 1);
- widget = make_cycle(label, CYA_KIND);
- data->CY_kind = widget;
- gtk_grid_attach (GTK_GRID (table), data->CY_kind, 2, row, 1, 1);
-
- row++;
- widget = gtk_check_button_new_with_mnemonic (_("Only out of budget"));
- data->CM_onlyout = widget;
- gtk_grid_attach (GTK_GRID (table), widget, 2, row, 1, 1);
-
- row++;
- widget = gtk_check_button_new_with_mnemonic (_("Euro _minor"));
- data->CM_minor = widget;
- gtk_grid_attach (GTK_GRID (table), widget, 2, row, 1, 1);
-
- row++;
- widget = gtk_separator_new(GTK_ORIENTATION_HORIZONTAL);
- gtk_grid_attach (GTK_GRID (table), widget, 0, row, 3, 1);
-
- row++;
- label = make_label_group(_("Date filter"));
- gtk_grid_attach (GTK_GRID (table), label, 0, row, 3, 1);
-
- row++;
- label = make_label_widget(_("_Range:"));
- gtk_grid_attach (GTK_GRID (table), label, 1, row, 1, 1);
- data->CY_range = make_daterange(label, FALSE);
- gtk_grid_attach (GTK_GRID (table), data->CY_range, 2, row, 1, 1);
-
- row++;
- label = make_label_widget(_("_From:"));
- gtk_grid_attach (GTK_GRID (table), label, 1, row, 1, 1);
- data->PO_mindate = gtk_date_entry_new();
- gtk_grid_attach (GTK_GRID (table), data->PO_mindate, 2, row, 1, 1);
-
- row++;
- label = make_label_widget(_("_To:"));
- gtk_grid_attach (GTK_GRID (table), label, 1, row, 1, 1);
- data->PO_maxdate = gtk_date_entry_new();
- gtk_grid_attach (GTK_GRID (table), data->PO_maxdate, 2, row, 1, 1);
-
-
- //part: info + report
- vbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 0);
- gtk_box_pack_start (GTK_BOX (hbox), vbox, TRUE, TRUE, 0);
-
- //ui manager
- actions = gtk_action_group_new ("default");
-
- //as we use gettext
- gtk_action_group_set_translation_domain(actions, GETTEXT_PACKAGE);
-
- // data to action callbacks is set here (data)
- gtk_action_group_add_radio_actions (actions, radio_entries, n_radio_entries, 0, G_CALLBACK(repbudget_action_mode), data);
-
- gtk_action_group_add_actions (actions, entries, n_entries, data);
-
- gtk_action_group_add_toggle_actions (actions,
- toggle_entries, n_toggle_entries,
- data);
-
-
- /* set which action should have priority in the toolbar */
- //action = gtk_action_group_get_action(actions, "List");
- //g_object_set(action, "is_important", TRUE, NULL);
-
- //action = gtk_action_group_get_action(actions, "Stack");
- //g_object_set(action, "is_important", TRUE, NULL);
-
- action = gtk_action_group_get_action(actions, "Detail");
- //g_object_set(action, "is_important", TRUE, NULL);
- g_object_set(action, "active", PREFS->budg_showdetail, NULL);
-
- //action = gtk_action_group_get_action(actions, "Refresh");
- //g_object_set(action, "is_important", TRUE, NULL);
-
-
- ui = gtk_ui_manager_new ();
- gtk_ui_manager_insert_action_group (ui, actions, 0);
- gtk_window_add_accel_group (GTK_WINDOW (window), gtk_ui_manager_get_accel_group (ui));
-
- if (!gtk_ui_manager_add_ui_from_string (ui, ui_info, -1, &error))
- {
- g_message ("building UI failed: %s", error->message);
- g_error_free (error);
- }
-
- data->ui = ui;
-
- //toolbar
- data->TB_bar = gtk_ui_manager_get_widget (ui, "/ToolBar");
- gtk_box_pack_start (GTK_BOX (vbox), data->TB_bar, FALSE, FALSE, 0);
-
- //add export menu button
- GtkToolItem *toolitem;
- GtkWidget *menu, *menuitem, *image;
-
- menu = gtk_menu_new ();
- //gtk_widget_set_halign (menu, GTK_ALIGN_END);
-
- menuitem = gtk_menu_item_new_with_mnemonic (_("_Result to clipboard"));
- gtk_menu_shell_append (GTK_MENU_SHELL (menu), menuitem);
- g_signal_connect (G_OBJECT (menuitem), "activate", G_CALLBACK (repbudget_export_result_clipboard), data);
-
- menuitem = gtk_menu_item_new_with_mnemonic (_("_Result to CSV"));
- gtk_menu_shell_append (GTK_MENU_SHELL (menu), menuitem);
- g_signal_connect (G_OBJECT (menuitem), "activate", G_CALLBACK (repbudget_export_result_csv), data);
-
- menuitem = gtk_menu_item_new_with_mnemonic (_("_Detail to clipboard"));
- data->MI_detailtoclip = menuitem;
- gtk_menu_shell_append (GTK_MENU_SHELL (menu), menuitem);
- g_signal_connect (G_OBJECT (menuitem), "activate", G_CALLBACK (repbudget_export_detail_clipboard), data);
-
- menuitem = gtk_menu_item_new_with_mnemonic (_("_Detail to CSV"));
- data->MI_detailtocsv = menuitem;
- gtk_menu_shell_append (GTK_MENU_SHELL (menu), menuitem);
- g_signal_connect (G_OBJECT (menuitem), "activate", G_CALLBACK (repbudget_export_detail_csv), data);
-
- gtk_widget_show_all (menu);
-
- widget = gtk_menu_button_new();
- data->BT_export = widget;
- gtk_style_context_add_class (gtk_widget_get_style_context (GTK_WIDGET(widget)), GTK_STYLE_CLASS_FLAT);
-
- //gtk_menu_button_set_direction (GTK_MENU_BUTTON(widget), GTK_ARROW_DOWN);
- //gtk_widget_set_halign (widget, GTK_ALIGN_END);
- image = gtk_image_new_from_icon_name (ICONNAME_HB_FILE_EXPORT, GTK_ICON_SIZE_LARGE_TOOLBAR);
- g_object_set (widget, "image", image, "popup", GTK_MENU(menu), NULL);
-
- toolitem = gtk_tool_item_new();
- gtk_container_add (GTK_CONTAINER(toolitem), widget);
- gtk_toolbar_insert(GTK_TOOLBAR(data->TB_bar), GTK_TOOL_ITEM(toolitem), -1);
-
- //infos
- hbox = gtk_box_new (GTK_ORIENTATION_HORIZONTAL, SPACING_SMALL);
- gtk_container_set_border_width (GTK_CONTAINER(hbox), SPACING_SMALL);
- gtk_box_pack_start (GTK_BOX (vbox), hbox, FALSE, FALSE, 0);
-
- widget = make_label(NULL, 0.5, 0.5);
- gimp_label_set_attributes (GTK_LABEL (widget), PANGO_ATTR_SCALE, PANGO_SCALE_SMALL, -1);
- data->TX_daterange = widget;
- gtk_box_pack_start (GTK_BOX (hbox), widget, TRUE, TRUE, 0);
-
-
- entry = gtk_label_new(NULL);
- data->TX_total[2] = entry;
- gtk_box_pack_end (GTK_BOX (hbox), entry, FALSE, FALSE, 0);
- label = gtk_label_new(_("Result:"));
- gtk_box_pack_end (GTK_BOX (hbox), label, FALSE, FALSE, 0);
-
- entry = gtk_label_new(NULL);
- data->TX_total[1] = entry;
- gtk_box_pack_end (GTK_BOX (hbox), entry, FALSE, FALSE, 0);
- label = gtk_label_new(_("Budget:"));
- gtk_box_pack_end (GTK_BOX (hbox), label, FALSE, FALSE, 0);
-
- entry = gtk_label_new(NULL);
- data->TX_total[0] = entry;
- gtk_box_pack_end (GTK_BOX (hbox), entry, FALSE, FALSE, 0);
- label = gtk_label_new(_("Spent:"));
- gtk_box_pack_end (GTK_BOX (hbox), label, FALSE, FALSE, 0);
-
-
- notebook = gtk_notebook_new();
- data->GR_result = notebook;
- gtk_widget_show(notebook);
- gtk_notebook_set_show_tabs(GTK_NOTEBOOK(notebook), FALSE);
- gtk_notebook_set_show_border(GTK_NOTEBOOK(notebook), FALSE);
-
- gtk_box_pack_start (GTK_BOX (vbox), notebook, TRUE, TRUE, 0);
-
- //page: list
-
- vbox = gtk_box_new (GTK_ORIENTATION_VERTICAL, 0);
- gtk_notebook_append_page(GTK_NOTEBOOK(notebook), vbox, NULL);
-
- widget = gtk_scrolled_window_new (NULL, NULL);
- gtk_scrolled_window_set_shadow_type (GTK_SCROLLED_WINDOW (widget), GTK_SHADOW_ETCHED_IN);
- gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (widget), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
- treeview = create_list_budget();
- data->LV_report = treeview;
- gtk_container_add (GTK_CONTAINER(widget), treeview);
- gtk_box_pack_start (GTK_BOX (vbox), widget, TRUE, TRUE, 0);
-
- //detail
- widget = gtk_scrolled_window_new (NULL, NULL);
- data->GR_detail = widget;
- gtk_scrolled_window_set_shadow_type (GTK_SCROLLED_WINDOW (widget), GTK_SHADOW_ETCHED_IN);
- gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (widget), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
- treeview = create_list_transaction(LIST_TXN_TYPE_DETAIL, PREFS->lst_ope_columns);
- data->LV_detail = treeview;
- gtk_container_add (GTK_CONTAINER(widget), treeview);
-
- gtk_box_pack_start (GTK_BOX (vbox), widget, TRUE, TRUE, 0);
-
- //page: 2d bar
- //widget = gtk_chart_new(CHART_TYPE_COL);
- widget = ui_chart_stack_new();
- data->RE_stack = widget;
- gtk_notebook_append_page(GTK_NOTEBOOK(notebook), widget, NULL);
-
- //todo:should move this
- gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(data->CM_minor),GLOBALS->minor);
-
-
- /* attach our minor to treeview */
- g_object_set_data(G_OBJECT(gtk_tree_view_get_model(GTK_TREE_VIEW(data->LV_report))), "minor", (gpointer)data->CM_minor);
- g_object_set_data(G_OBJECT(gtk_tree_view_get_model(GTK_TREE_VIEW(data->LV_detail))), "minor", (gpointer)data->CM_minor);
-
- /* signal connect */
- g_signal_connect (window, "delete-event", G_CALLBACK (repbudget_window_dispose), (gpointer)data);
-
- g_signal_connect (data->CM_onlyout, "toggled", G_CALLBACK (repbudget_compute), NULL);
- g_signal_connect (data->CM_minor, "toggled", G_CALLBACK (repbudget_toggle), NULL);
-
-
- data->handler_id[HID_REPBUDGET_RANGE] = g_signal_connect (data->CY_range, "changed", G_CALLBACK (repbudget_range_change), NULL);
-
- g_signal_connect (data->CY_for , "changed", G_CALLBACK (repbudget_compute), (gpointer)data);
- g_signal_connect (data->CY_kind, "changed", G_CALLBACK (repbudget_compute), (gpointer)data);
-
- data->handler_id[HID_REPBUDGET_MINDATE] = g_signal_connect (data->PO_mindate, "changed", G_CALLBACK (repbudget_date_change), (gpointer)data);
- data->handler_id[HID_REPBUDGET_MAXDATE] = g_signal_connect (data->PO_maxdate, "changed", G_CALLBACK (repbudget_date_change), (gpointer)data);
-
- g_signal_connect (gtk_tree_view_get_selection(GTK_TREE_VIEW(data->LV_report)), "changed", G_CALLBACK (repbudget_selection), NULL);
-
- g_signal_connect (GTK_TREE_VIEW(data->LV_detail), "row-activated", G_CALLBACK (repbudget_detail_onRowActivated), NULL);
-
-
- //setup, init and show window
- repbudget_setup(data);
-
-
- /* toolbar */
- if(PREFS->toolbar_style == 0)
- gtk_toolbar_unset_style(GTK_TOOLBAR(data->TB_bar));
- else
- gtk_toolbar_set_style(GTK_TOOLBAR(data->TB_bar), PREFS->toolbar_style-1);
-
-
- //setup, init and show window
- wg = &PREFS->bud_wg;
- gtk_window_move(GTK_WINDOW(window), wg->l, wg->t);
- gtk_window_resize(GTK_WINDOW(window), wg->w, wg->h);
-
-
-
- gtk_widget_show_all (window);
-
-
- //minor ?
- if( PREFS->euro_active )
- gtk_widget_show(data->CM_minor);
- else
- gtk_widget_hide(data->CM_minor);
-
- //check for any account included into the budget or warn
- {
- guint count =0;
- GList *lacc, *list;
-
- lacc = list = g_hash_table_get_values(GLOBALS->h_acc);
-
- while (list != NULL)
- {
- Account *acc;
- acc = list->data;
- //#1674045 ony rely on nosummary
- //if((acc->flags & (AF_CLOSED|AF_NOREPORT))) goto next1;
- if((acc->flags & (AF_NOREPORT))) goto next1;
- if(!(acc->flags & AF_NOBUDGET))
- count++;
- next1:
- list = g_list_next(list);
- }
- g_list_free(lacc);
-
- if(count <= 0)
- {
- ui_dialog_msg_infoerror(GTK_WINDOW(data->window), GTK_MESSAGE_WARNING,
- _("No account is defined to be part of the budget."),
- _("You should include some accounts from the account dialog.")
- );
- }
-
-
-
- }
-
-
-
- //gtk_widget_hide(data->GR_detail);
-
- repbudget_sensitive(window, NULL);
- repbudget_update_detail(window, NULL);
-
- if( PREFS->date_range_rep != 0)
- gtk_combo_box_set_active(GTK_COMBO_BOX(data->CY_range), PREFS->date_range_rep);
- else
- repbudget_compute(window, NULL);
-
- return(window);
-}
-
-
-/* = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = */
-
-static GString *ui_list_repbudget_to_string(GtkTreeView *treeview, gboolean clipboard)
-{
-GString *node;
-GtkTreeModel *model;
-GtkTreeIter iter;
-gboolean valid;
-const gchar *format;
-
- node = g_string_new(NULL);
-
- // header
- format = (clipboard == TRUE) ? "%s\t%s\t%s\t%s\t\n" : "%s;%s;%s;%s;\n";
- g_string_append_printf(node, format, _("Category"), _("Spent"), _("Budget"), _("Result"));
-
- model = gtk_tree_view_get_model(treeview);
- valid = gtk_tree_model_get_iter_first(GTK_TREE_MODEL(model), &iter);
- while (valid)
- {
- gchar *name, *status;
- gdouble spent, budget, result;
-
- gtk_tree_model_get (model, &iter,
- //LST_REPDIST_KEY, i,
- LST_BUDGET_NAME, &name,
- LST_BUDGET_SPENT, &spent,
- LST_BUDGET_BUDGET, &budget,
- LST_BUDGET_RESULT, &result,
- LST_BUDGET_STATUS, &status,
- -1);
-
- format = (clipboard == TRUE) ? "%s\t%.2f\t%.2f\t%.2f\t%s\n" : "%s;%.2f;%.2f;%.2f;%s\n";
- g_string_append_printf(node, format, name, spent, budget, result, status);
-
- //leak
- g_free(name);
- g_free(status);
-
- valid = gtk_tree_model_iter_next(GTK_TREE_MODEL(model), &iter);
- }
-
- //DB( g_print("text is:\n%s", node->str) );
-
- return node;
-}
-
-
-
-
-/*
-**
-** The function should return:
-** a negative integer if the first value comes before the second,
-** 0 if they are equal,
-** or a positive integer if the first value comes after the second.
-*/
-static gint budget_listview_compare_funct (GtkTreeModel *model, GtkTreeIter *a, GtkTreeIter *b, gpointer userdata)
-{
-gint retval = 0;
-//Category *entry1, *entry2;
-gchar *entry1, *entry2;
-
- gtk_tree_model_get(model, a, LST_BUDGET_NAME, &entry1, -1);
- gtk_tree_model_get(model, b, LST_BUDGET_NAME, &entry2, -1);
-
- retval = hb_string_utf8_compare(entry1, entry2);
- //retval = (entry1->flags & GF_INCOME) - (entry2->flags & GF_INCOME);
- //if(!retval)
- //{
- // retval = hb_string_utf8_compare(entry1->name, entry2->name);
- //}
- //leak
- g_free(entry2);
- g_free(entry1);
-
- return retval;
-}
-
-
-static void budget_amount_cell_data_function (GtkTreeViewColumn *col,
- GtkCellRenderer *renderer,
- GtkTreeModel *model,
- GtkTreeIter *iter,
- gpointer user_data)
- {
-gdouble value;
-gchar *color;
-gchar buf[G_ASCII_DTOSTR_BUF_SIZE];
-gint column_id = GPOINTER_TO_INT(user_data);
-
- gtk_tree_model_get(model, iter, column_id, &value, -1);
-
- if( value )
- {
- hb_strfmon(buf, G_ASCII_DTOSTR_BUF_SIZE-1, value, GLOBALS->kcur, GLOBALS->minor);
-
- if( column_id == LST_BUDGET_RESULT)
- color = get_minimum_color_amount (value, 0.0);
- else
- color = get_normal_color_amount(value);
-
- g_object_set(renderer,
- "foreground", color,
- "text", buf,
- NULL);
- }
- else
- {
- g_object_set(renderer, "text", "", NULL);
- }
-}
-
-
-
-static void budget_result_cell_data_function (GtkTreeViewColumn *col,
- GtkCellRenderer *renderer,
- GtkTreeModel *model,
- GtkTreeIter *iter,
- gpointer user_data)
- {
-gdouble value;
-gchar *color;
-gchar *status;
-gint column_id = GPOINTER_TO_INT(user_data);
-
- gtk_tree_model_get(model, iter,
- column_id, &value,
- LST_BUDGET_STATUS, &status,
- -1);
-
- if( value )
- {
- color = get_minimum_color_amount (value, 0.0);
- g_object_set(renderer,
- "foreground", color,
- "text", status,
- NULL);
- }
- else
- {
- g_object_set(renderer, "text", "", NULL);
- }
-
- //leak
- g_free(status);
-}
-
-
-
-static GtkTreeViewColumn *amount_list_budget_column(gchar *name, gint id)
-{
-GtkTreeViewColumn *column;
-GtkCellRenderer *renderer;
-
- column = gtk_tree_view_column_new();
- gtk_tree_view_column_set_title(column, name);
- renderer = gtk_cell_renderer_text_new ();
- g_object_set(renderer, "xalign", 1.0, NULL);
- gtk_tree_view_column_pack_start(column, renderer, TRUE);
- gtk_tree_view_column_set_cell_data_func(column, renderer, budget_amount_cell_data_function, GINT_TO_POINTER(id), NULL);
- gtk_tree_view_column_set_alignment (column, 0.5);
- //gtk_tree_view_column_set_sort_column_id (column, id);
- return column;
-}
-
-/*
-** create our statistic list
-*/
-static GtkWidget *create_list_budget(void)
-{
-GtkListStore *store;
-GtkWidget *view;
-GtkCellRenderer *renderer;
-GtkTreeViewColumn *column;
-
- DB( g_print("\n[repbudget] create list\n") );
-
-
- /* create list store */
- store = gtk_list_store_new(
- NUM_LST_BUDGET,
- G_TYPE_INT,
- G_TYPE_INT,
- G_TYPE_STRING,
- G_TYPE_DOUBLE, //spent
- G_TYPE_DOUBLE, //budget
- G_TYPE_DOUBLE, //result
- G_TYPE_STRING //status
- );
-
- //treeview
- view = gtk_tree_view_new_with_model(GTK_TREE_MODEL(store));
- g_object_unref(store);
-
- gtk_tree_view_set_grid_lines (GTK_TREE_VIEW (view), PREFS->grid_lines);
-
- /* column: Name */
- column = gtk_tree_view_column_new();
- gtk_tree_view_column_set_title(column, _("Category"));
- renderer = gtk_cell_renderer_text_new ();
- gtk_tree_view_column_pack_start(column, renderer, TRUE);
- //gtk_tree_view_column_set_cell_data_func(column, renderer, ope_result_cell_data_function, NULL, NULL);
- gtk_tree_view_column_add_attribute(column, renderer, "text", LST_BUDGET_NAME);
- //gtk_tree_view_column_set_sort_column_id (column, LST_STAT_NAME);
- gtk_tree_view_column_set_resizable(column, TRUE);
- gtk_tree_view_column_set_alignment (column, 0.5);
- gtk_tree_view_append_column (GTK_TREE_VIEW(view), column);
-
- /* column: Expense */
- column = amount_list_budget_column(_("Spent"), LST_BUDGET_SPENT);
- gtk_tree_view_append_column (GTK_TREE_VIEW(view), column);
-
- /* column: Income */
- column = amount_list_budget_column(_("Budget"), LST_BUDGET_BUDGET);
- gtk_tree_view_append_column (GTK_TREE_VIEW(view), column);
-
- /* column: Result */
- column = amount_list_budget_column(_("Result"), LST_BUDGET_RESULT);
- renderer = gtk_cell_renderer_text_new ();
- //g_object_set(renderer, "xalign", 0.0, NULL);
- gtk_tree_view_column_pack_start(column, renderer, TRUE);
- gtk_tree_view_column_set_cell_data_func(column, renderer, budget_result_cell_data_function, GINT_TO_POINTER(LST_BUDGET_RESULT), NULL);
- gtk_tree_view_append_column (GTK_TREE_VIEW(view), column);
-
- /* column last: empty */
- column = gtk_tree_view_column_new();
- gtk_tree_view_append_column (GTK_TREE_VIEW(view), column);
-
- /* sort */
- gtk_tree_sortable_set_default_sort_func(GTK_TREE_SORTABLE(store), budget_listview_compare_funct, NULL, NULL);
- gtk_tree_sortable_set_sort_column_id(GTK_TREE_SORTABLE(store), GTK_TREE_SORTABLE_DEFAULT_SORT_COLUMN_ID, GTK_SORT_ASCENDING);
-
-/*
- gtk_tree_sortable_set_sort_func(GTK_TREE_SORTABLE(store), LST_BUDGET_POS , stat_list_compare_func, GINT_TO_POINTER(LST_BUDGET_POS), NULL);
- gtk_tree_sortable_set_sort_func(GTK_TREE_SORTABLE(store), LST_BUDGET_SPENT , stat_list_compare_func, GINT_TO_POINTER(LST_BUDGET_SPENT), NULL);
- gtk_tree_sortable_set_sort_func(GTK_TREE_SORTABLE(store), LST_BUDGET_BUDGET, stat_list_compare_func, GINT_TO_POINTER(LST_BUDGET_BUDGET), NULL);
- gtk_tree_sortable_set_sort_func(GTK_TREE_SORTABLE(store), LST_BUDGET_RESULT , stat_list_compare_func, GINT_TO_POINTER(LST_BUDGET_RESULT), NULL);
-*/
-
- return(view);
-}
-