/* HomeBank -- Free, easy, personal accounting for everyone.
* Copyright (C) 1995-2016 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 .
*/
#include "homebank.h"
#include "rep_stats.h"
#include "list_operation.h"
#include "gtk-chart.h"
#include "gtk-dateentry.h"
#include "dsp_mainwindow.h"
#include "ui-account.h"
#include "ui-payee.h"
#include "ui-category.h"
#include "ui-filter.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;
/* prototypes */
static void ui_repdist_action_viewlist(GtkAction *action, gpointer user_data);
static void ui_repdist_action_viewbar(GtkAction *action, gpointer user_data);
static void ui_repdist_action_viewpie(GtkAction *action, gpointer user_data);
static void ui_repdist_action_detail(GtkAction *action, gpointer user_data);
static void ui_repdist_action_legend(GtkAction *action, gpointer user_data);
static void ui_repdist_action_rate(GtkAction *action, gpointer user_data);
static void ui_repdist_action_filter(GtkAction *action, gpointer user_data);
static void ui_repdist_action_refresh(GtkAction *action, gpointer user_data);
static void ui_repdist_action_export(GtkAction *action, gpointer user_data);
static GtkActionEntry entries[] = {
{ "List" , ICONNAME_HB_VIEW_LIST , N_("List") , NULL, N_("View results as list"), G_CALLBACK (ui_repdist_action_viewlist) },
{ "Column" , ICONNAME_HB_VIEW_COLUMN , N_("Column") , NULL, N_("View results as column"), G_CALLBACK (ui_repdist_action_viewbar) },
{ "Donut" , ICONNAME_HB_VIEW_DONUT , N_("Donut") , NULL, N_("View results as donut"), G_CALLBACK (ui_repdist_action_viewpie) },
{ "Filter" , ICONNAME_HB_FILTER , N_("Filter") , NULL, N_("Edit filter"), G_CALLBACK (ui_repdist_action_filter) },
{ "Refresh" , ICONNAME_REFRESH , N_("Refresh"), NULL, N_("Refresh results"), G_CALLBACK (ui_repdist_action_refresh) },
{ "Export" , ICONNAME_HB_FILE_EXPORT , N_("Export") , NULL, N_("Export as CSV"), G_CALLBACK (ui_repdist_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 (ui_repdist_action_detail),
FALSE }, /* is_active */
{ "Legend", ICONNAME_HB_SHOW_LEGEND, /* name, icon-name */
N_("Legend"), NULL, /* label, accelerator */
N_("Toggle legend"), /* tooltip */
G_CALLBACK (ui_repdist_action_legend),
TRUE }, /* is_active */
{ "Rate", ICONNAME_HB_SHOW_RATE, /* name, icon-name */
N_("Rate"), NULL, /* label, accelerator */
N_("Toggle rate"), /* tooltip */
G_CALLBACK (ui_repdist_action_rate),
FALSE }, /* is_active */
};
static guint n_toggle_entries = G_N_ELEMENTS (toggle_entries);
static const gchar *ui_info =
""
" "
" "
" "
" "
" "
" "
" "
" "
" "
" "
" "
" "
" "
" "
"";
static void ui_repdist_date_change(GtkWidget *widget, gpointer user_data);
static void ui_repdist_range_change(GtkWidget *widget, gpointer user_data);
static void ui_repdist_detail(GtkWidget *widget, gpointer user_data);
static void ui_repdist_update(GtkWidget *widget, gpointer user_data);
static void ui_repdist_update_total(GtkWidget *widget, gpointer user_data);
static void ui_repdist_export_csv(GtkWidget *widget, gpointer user_data);
static void ui_repdist_compute(GtkWidget *widget, gpointer user_data);
static void ui_repdist_sensitive(GtkWidget *widget, gpointer user_data);
static void ui_repdist_toggle_detail(GtkWidget *widget, gpointer user_data);
static void ui_repdist_toggle_legend(GtkWidget *widget, gpointer user_data);
static void ui_repdist_toggle_minor(GtkWidget *widget, gpointer user_data);
static void ui_repdist_toggle_rate(GtkWidget *widget, gpointer user_data);
static GtkWidget *ui_list_repdist_create(void);
static void ui_repdist_update_daterange(GtkWidget *widget, gpointer user_data);
static gint ui_list_repdist_compare_func (GtkTreeModel *model, GtkTreeIter *a, GtkTreeIter *b, gpointer userdata);
gchar *CYA_STATSELECT[] = {
N_("Category"),
N_("Subcategory"),
N_("Payee"),
N_("Tag"),
N_("Month"),
N_("Year"),
NULL
};
gchar *CYA_KIND2[] = {
N_("Exp. & Inc."),
N_("Expense"),
N_("Income"),
N_("Balance"),
NULL
};
//extern gchar *CYA_FLT_SELECT[];
gchar *CYA_MONTHS[] =
{
N_("January"),
N_("February"),
N_("March"),
N_("April"),
N_("May"),
N_("June"),
N_("July"),
N_("August"),
N_("September"),
N_("October"),
N_("November"),
N_("December"),
NULL
};
/* action functions -------------------- */
static void ui_repdist_action_viewlist(GtkAction *action, gpointer user_data)
{
struct ui_repdist_data *data = user_data;
gtk_notebook_set_current_page(GTK_NOTEBOOK(data->GR_result), 0);
ui_repdist_sensitive(data->window, NULL);
}
static void ui_repdist_action_viewbar(GtkAction *action, gpointer user_data)
{
struct ui_repdist_data *data = user_data;
gtk_notebook_set_current_page(GTK_NOTEBOOK(data->GR_result), 1);
gtk_chart_set_type (GTK_CHART(data->RE_chart), CHART_TYPE_COL);
ui_repdist_sensitive(data->window, NULL);
}
static void ui_repdist_action_viewpie(GtkAction *action, gpointer user_data)
{
struct ui_repdist_data *data = user_data;
gint tmpview;
gtk_notebook_set_current_page(GTK_NOTEBOOK(data->GR_result), 1);
gtk_chart_set_type (GTK_CHART(data->RE_chart), CHART_TYPE_PIE);
ui_repdist_sensitive(data->window, NULL);
tmpview = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_view));
// ensure not exp & inc for piechart
if( tmpview == 0 )
{
//g_signal_handler_block(data->CY_view, data->handler_id[HID_REPDIST_VIEW]);
gtk_combo_box_set_active(GTK_COMBO_BOX(data->CY_view), 1);
//g_signal_handler_unblock(data->CY_view, data->handler_id[HID_REPDIST_VIEW]);
}
}
static void ui_repdist_action_detail(GtkAction *action, gpointer user_data)
{
struct ui_repdist_data *data = user_data;
ui_repdist_toggle_detail(data->window, NULL);
}
static void ui_repdist_action_legend(GtkAction *action, gpointer user_data)
{
struct ui_repdist_data *data = user_data;
ui_repdist_toggle_legend(data->window, NULL);
}
static void ui_repdist_action_rate(GtkAction *action, gpointer user_data)
{
struct ui_repdist_data *data = user_data;
ui_repdist_toggle_rate(data->window, NULL);
}
static void ui_repdist_action_filter(GtkAction *action, gpointer user_data)
{
struct ui_repdist_data *data = user_data;
//debug
//create_deffilter_window(data->filter, TRUE);
if(ui_flt_manage_dialog_new(data->window, data->filter, TRUE) != GTK_RESPONSE_REJECT)
{
ui_repdist_compute(data->window, NULL);
ui_repdist_update_daterange(data->window, NULL);
}
}
static void ui_repdist_action_refresh(GtkAction *action, gpointer user_data)
{
struct ui_repdist_data *data = user_data;
ui_repdist_compute(data->window, NULL);
}
static void ui_repdist_action_export(GtkAction *action, gpointer user_data)
{
struct ui_repdist_data *data = user_data;
ui_repdist_export_csv(data->window, NULL);
}
/* ======================== */
/*
** ============================================================================
*/
/*
** return the month list position correponding to the passed date
*/
static gint DateInPer(guint32 from, guint32 opedate)
{
GDate *date1, *date2;
gint pos;
//debug
// this return sometimes -1, -2 which is wrong
date1 = g_date_new_julian(from);
date2 = g_date_new_julian(opedate);
pos = ((g_date_get_year(date2) - g_date_get_year(date1)) * 12) + g_date_get_month(date2) - g_date_get_month(date1);
//g_print(" from=%d-%d ope=%d-%d => %d\n", g_date_get_month(date1), g_date_get_year(date1), g_date_get_month(date2), g_date_get_year(date2), pos);
g_date_free(date2);
g_date_free(date1);
return(pos);
}
/*
** return the year list position correponding to the passed date
*/
static gint DateInYear(guint32 from, guint32 opedate)
{
GDate *date;
gint year_from, year_ope, pos;
date = g_date_new_julian(from);
year_from = g_date_get_year(date);
g_date_set_julian(date, opedate);
year_ope = g_date_get_year(date);
g_date_free(date);
pos = year_ope - year_from;
//g_print(" from=%d ope=%d => %d\n", year_from, year_ope, pos);
return(pos);
}
static void ui_repdist_date_change(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
DB( g_print("\n[repdist] 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_REPDIST_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_REPDIST_RANGE]);
ui_repdist_compute(widget, NULL);
ui_repdist_update_daterange(widget, NULL);
}
static void ui_repdist_range_change(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
gint range;
DB( g_print("\n[repdist] 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_REPDIST_MINDATE]);
g_signal_handler_block(data->PO_maxdate, data->handler_id[HID_REPDIST_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_REPDIST_MINDATE]);
g_signal_handler_unblock(data->PO_maxdate, data->handler_id[HID_REPDIST_MAXDATE]);
ui_repdist_compute(widget, NULL);
ui_repdist_update_daterange(widget, NULL);
}
else
{
if(ui_flt_manage_dialog_new(data->window, data->filter, TRUE) != GTK_RESPONSE_REJECT)
{
ui_repdist_compute(data->window, NULL);
ui_repdist_update_daterange(widget, NULL);
}
}
}
static gint ui_repdist_result_get_pos(gint tmpfor, guint from, Transaction *ope)
{
gint pos = 0;
switch(tmpfor)
{
case BY_REPDIST_CATEGORY:
{
Category *catentry = da_cat_get(ope->kcat);
if(catentry)
pos = (catentry->flags & GF_SUB) ? catentry->parent : catentry->key;
}
break;
case BY_REPDIST_SUBCATEGORY:
pos = ope->kcat;
break;
case BY_REPDIST_PAYEE:
pos = ope->kpay;
break;
case BY_REPDIST_MONTH:
pos = DateInPer(from, ope->date);
break;
case BY_REPDIST_YEAR:
pos = DateInYear(from, ope->date);
break;
}
return pos;
}
static void ui_repdist_detail(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
guint active = GPOINTER_TO_INT(user_data);
guint tmpfor;
GList *list;
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[repdist] detail\n") );
/* 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));
if(data->detail)
{
tmpfor = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_by));
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 */
/* fill in the model */
list = g_queue_peek_head_link(data->txn_queue);
while (list != NULL)
{
Transaction *ope = list->data;
if(filter_test(data->filter, ope) == 1)
{
guint i, pos = 0;
if( tmpfor != BY_REPDIST_TAG )
{
if( (tmpfor == BY_REPDIST_CATEGORY || tmpfor == BY_REPDIST_SUBCATEGORY) && ope->flags & OF_SPLIT )
{
guint nbsplit = da_splits_count(ope->splits);
Split *split;
for(i=0;isplits[i];
switch(tmpfor)
{
case BY_REPDIST_CATEGORY:
{
Category *catentry = da_cat_get(split->kcat);
if(catentry)
pos = (catentry->flags & GF_SUB) ? catentry->parent : catentry->key;
}
break;
case BY_REPDIST_SUBCATEGORY:
pos = split->kcat;
break;
}
if( pos == active )
{
gtk_list_store_append (GTK_LIST_STORE(model), &iter);
gtk_list_store_set (GTK_LIST_STORE(model), &iter,
LST_DSPOPE_DATAS, ope,
-1);
break;
}
}
}
else
{
pos = ui_repdist_result_get_pos(tmpfor, data->filter->mindate, ope);
if( pos == active )
{
gtk_list_store_append (GTK_LIST_STORE(model), &iter);
gtk_list_store_set (GTK_LIST_STORE(model), &iter,
LST_DSPOPE_DATAS, ope,
-1);
}
}
}
else
/* the TAG process is particular */
{
if(ope->tags != NULL)
{
guint32 *tptr = ope->tags;
while(*tptr)
{
pos = *tptr - 1;
DB( g_print(" -> storing tag %d %.2f\n", pos, ope->amount) );
if( pos == active )
{
gtk_list_store_append (GTK_LIST_STORE(model), &iter);
gtk_list_store_set (GTK_LIST_STORE(model), &iter,
LST_DSPOPE_DATAS, ope,
-1);
}
tptr++;
}
}
}
}
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 ui_repdist_update(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
gboolean byamount;
GtkTreeModel *model;
gint page, tmpfor, tmpkind, column;
gboolean xval;
gchar *title;
DB( g_print("\n[repdist] update\n") );
data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
model = gtk_tree_view_get_model(GTK_TREE_VIEW(data->LV_report));
byamount = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(data->CM_byamount));
tmpfor = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_by));
tmpkind = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_view));
// ensure not exp & inc for piechart
page = gtk_notebook_get_current_page(GTK_NOTEBOOK(data->GR_result));
if( page == 2 && tmpkind == 0 )
{
g_signal_handler_block(data->CY_view, data->handler_id[HID_REPDIST_VIEW]);
gtk_combo_box_set_active(GTK_COMBO_BOX(data->CY_view), 1);
g_signal_handler_unblock(data->CY_view, data->handler_id[HID_REPDIST_VIEW]);
tmpkind = 1;
}
DB( g_print(" tmpkind %d\n\n", tmpkind) );
column = byamount ? LST_REPDIST_EXPENSE+(tmpkind-1)*2 : LST_REPDIST_POS;
//#833614 sort category/payee by name
//if(!byamount && tmpkind <= BY_REPDIST_PAYEE)
// column = LST_REPDIST_NAME;
DB( g_print(" sort on column %d\n\n", column) );
gtk_tree_sortable_set_sort_column_id(GTK_TREE_SORTABLE(model), column, GTK_SORT_DESCENDING);
column = LST_REPDIST_EXPENSE+(tmpkind-1)*2;
/* set chart color scheme */
gtk_chart_set_color_scheme(GTK_CHART(data->RE_chart), PREFS->report_color_scheme);
/* set chart title */
////TRANSLATORS: example 'Expense by Category'
title = g_strdup_printf(_("%s by %s"), _(CYA_KIND2[tmpkind]), _(CYA_STATSELECT[tmpfor]) );
/* update absolute or not */
gboolean abs = (tmpkind == 1 || tmpkind == 2) ? TRUE : FALSE;
gtk_chart_set_absolute(GTK_CHART(data->RE_chart), abs);
/* update bar chart */
DB( g_print(" set bar to %d %s\n\n", column, _(CYA_KIND2[tmpkind])) );
if( tmpkind == 0 )
gtk_chart_set_dualdatas(GTK_CHART(data->RE_chart), model, LST_REPDIST_EXPENSE, LST_REPDIST_INCOME, title, NULL);
else
gtk_chart_set_datas(GTK_CHART(data->RE_chart), model, column, title, NULL);
/* show xval for month/year and no by amount display */
xval = FALSE;
if( !byamount && (tmpfor == BY_REPDIST_MONTH || tmpfor == BY_REPDIST_YEAR) )
{
xval = TRUE;
switch( tmpfor)
{
case BY_REPDIST_MONTH:
gtk_chart_set_every_xval(GTK_CHART(data->RE_chart), 4);
break;
case BY_REPDIST_YEAR:
gtk_chart_set_every_xval(GTK_CHART(data->RE_chart), 2);
break;
}
}
gtk_chart_show_xval(GTK_CHART(data->RE_chart), xval);
g_free(title);
}
static void ui_repdist_update_daterange(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
gchar *daterange;
DB( g_print("\n[repdist] 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 ui_repdist_update_total(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
//gboolean minor;
DB( g_print("\n[repdist] update total\n") );
data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
//minor = gtk_toggle_button_get_active(GTK_TOGGLE_BUTTON(data->CM_minor));
hb_label_set_colvalue(GTK_LABEL(data->TX_total[0]), data->total_expense, GLOBALS->kcur, GLOBALS->minor);
hb_label_set_colvalue(GTK_LABEL(data->TX_total[1]), data->total_income, GLOBALS->kcur, GLOBALS->minor);
hb_label_set_colvalue(GTK_LABEL(data->TX_total[2]), data->total_expense + data->total_income, GLOBALS->kcur, GLOBALS->minor);
}
static void ui_repdist_export_csv(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
GtkTreeModel *model;
GtkTreeIter iter;
gboolean valid;
gchar *filename = NULL;
GIOChannel *io;
gchar *outstr, *name;
gint tmpfor;
DB( g_print("\n[repdist] export csv\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_by));
name = g_strdup_printf("hb-stat_%s.csv", CYA_STATSELECT[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)
{
// header
outstr = g_strdup_printf("%s;%s;%s;%s\n", _("Result"), _("expense"), _("Income"), _("Balance"));
g_io_channel_write_chars(io, outstr, -1, NULL, NULL);
model = gtk_tree_view_get_model(GTK_TREE_VIEW(data->LV_report));
valid = gtk_tree_model_get_iter_first(GTK_TREE_MODEL(model), &iter);
while (valid)
{
gchar *name;
gdouble exp, inc, bal;
gtk_tree_model_get (model, &iter,
//LST_REPDIST_KEY, i,
LST_REPDIST_NAME , &name,
LST_REPDIST_EXPENSE, &exp,
LST_REPDIST_INCOME , &inc,
LST_REPDIST_BALANCE, &bal,
-1);
outstr = g_strdup_printf("%s;%.2f;%.2f;%.2f\n", name, exp, inc, bal);
g_io_channel_write_chars(io, outstr, -1, NULL, NULL);
DB( g_print("%s", outstr) );
g_free(outstr);
valid = gtk_tree_model_iter_next(GTK_TREE_MODEL(model), &iter);
}
g_io_channel_unref (io);
}
g_free( filename );
}
g_free(name);
}
static void ui_repdist_compute(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
gint tmpfor, tmpkind;
guint32 from, to;
GtkTreeModel *model;
GtkTreeIter iter;
GList *list, *tmplist = NULL;
guint n_result, sortid;
guint i;
GDate *date1, *date2;
gdouble *tmp_income, *tmp_expense;
gdouble exprate, incrate, balrate;
DB( g_print("\n[repdist] 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_by));
tmpkind = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_view));
DB( g_print(" for=%d,kind=%d\n", tmpfor, tmpkind) );
//get our min max date
from = data->filter->mindate;
to = data->filter->maxdate;
if(to < from) return;
g_queue_free (data->txn_queue);
data->txn_queue = hbfile_transaction_get_partial(data->filter->mindate, data->filter->maxdate);
DB( g_print(" nb-txn=%d\n", g_queue_get_length (data->txn_queue) ) );
/* count number or results */
switch(tmpfor)
{
case BY_REPDIST_CATEGORY:
case BY_REPDIST_SUBCATEGORY:
n_result = da_cat_get_max_key() + 1;
tmplist = category_glist_sorted(1);
break;
case BY_REPDIST_PAYEE:
n_result = da_pay_get_max_key() + 1;
tmplist = payee_glist_sorted(1);
break;
case BY_REPDIST_TAG:
n_result = da_tag_length();
tmplist = tag_glist_sorted(1);
break;
case BY_REPDIST_MONTH:
date1 = g_date_new_julian(from);
date2 = g_date_new_julian(to);
n_result = ((g_date_get_year(date2) - g_date_get_year(date1)) * 12) + g_date_get_month(date2) - g_date_get_month(date1) + 1;
g_date_free(date2);
g_date_free(date1);
break;
case BY_REPDIST_YEAR:
date1 = g_date_new_julian(from);
date2 = g_date_new_julian(to);
n_result = g_date_get_year(date2) - g_date_get_year(date1) + 1;
g_date_free(date2);
g_date_free(date1);
break;
default:
n_result = 0;
}
DB( g_print(" %s :: n_result=%d\n", CYA_STATSELECT[tmpfor], n_result) );
/* allocate some memory */
tmp_expense = g_malloc0((n_result+2) * sizeof(gdouble));
tmp_income = g_malloc0((n_result+2) * sizeof(gdouble));
data->total_expense = 0.0;
data->total_income = 0.0;
if(tmp_expense && tmp_income)
{
DB( g_print(" - ok memory\n") );
/* compute the results */
list = g_queue_peek_head_link(data->txn_queue);
while (list != NULL)
{
Transaction *ope = list->data;
DB( g_print("** testing '%s', cat=%d==> %d\n", ope->wording, ope->kcat, filter_test(data->filter, ope)) );
if( (filter_test(data->filter, ope) == 1) )
{
guint32 pos = 0;
gdouble trn_amount;
DB( g_print(" - should insert\n") );
//trn_amount = ope->amount;
trn_amount = hb_amount_base(ope->amount, ope->kcur);
//#1562372 in case of a split we need to take amount for filter categories only
if( ope->flags & OF_SPLIT )
{
guint nbsplit = da_splits_count(ope->splits);
Split *split;
Category *catentry;
gint sinsert;
trn_amount = 0.0;
for(i=0;isplits[i];
catentry = da_cat_get(split->kcat);
if(catentry == NULL) continue;
sinsert = ( catentry->filter == TRUE ) ? 1 : 0;
if(data->filter->option[FILTER_CATEGORY] == 2) sinsert ^= 1;
DB( g_print(" split '%s' insert=%d\n",catentry->name, sinsert) );
if( (data->filter->option[FILTER_CATEGORY] == 0) || sinsert)
{
trn_amount += hb_amount_base(split->amount, ope->kcur);
}
}
}
if( tmpfor != BY_REPDIST_TAG )
{
if( (tmpfor == BY_REPDIST_CATEGORY || tmpfor == BY_REPDIST_SUBCATEGORY) && ope->flags & OF_SPLIT )
{
guint nbsplit = da_splits_count(ope->splits);
Split *split;
Category *catentry;
gint sinsert;
for(i=0;isplits[i];
catentry = da_cat_get(split->kcat);
if(catentry == NULL) continue;
sinsert = ( catentry->filter == TRUE ) ? 1 : 0;
if(data->filter->option[FILTER_CATEGORY] == 2) sinsert ^= 1;
DB( g_print(" split '%s' insert=%d\n",catentry->name, sinsert) );
if( (data->filter->option[FILTER_CATEGORY] == 0) || sinsert)
{
switch(tmpfor)
{
case BY_REPDIST_CATEGORY:
{
pos = (catentry->flags & GF_SUB) ? catentry->parent : catentry->key;
}
break;
case BY_REPDIST_SUBCATEGORY:
pos = split->kcat;
break;
}
trn_amount = hb_amount_base(split->amount, ope->kcur);
//trn_amount = split->amount;
if(trn_amount > 0.0)
{
tmp_income[pos] += trn_amount;
data->total_income += trn_amount;
}
else
{
tmp_expense[pos] += trn_amount;
data->total_expense += trn_amount;
}
}
// end insert
}
}
else
{
pos = ui_repdist_result_get_pos(tmpfor, from, ope);
if(trn_amount > 0.0)
{
tmp_income[pos] += trn_amount;
data->total_income += trn_amount;
}
else
{
tmp_expense[pos] += trn_amount;
data->total_expense += trn_amount;
}
}
}
else
/* the TAG process is particularly */
{
if(ope->tags != NULL)
{
guint32 *tptr = ope->tags;
while(*tptr)
{
pos = *tptr - 1;
DB( g_print(" -> storing tag %d %s %.2f\n", pos, da_tag_get(*tptr)->name, trn_amount) );
if(trn_amount > 0.0)
{
tmp_income[pos] += trn_amount;
}
else
{
tmp_expense[pos] += trn_amount;
}
tptr++;
}
//#1195859
if(trn_amount > 0.0)
{
data->total_income += trn_amount;
}
else
{
data->total_expense += trn_amount;
}
}
}
// fix total according to selection
//if(tmpkind==0 && !tmp_expense[pos]) { data->total_income -= ope->amount; }
//if(tmpkind==1 && !tmp_income[pos] ) { data->total_expense -= ope->amount; }
}
list = g_list_next(list);
}
/* 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 */
/* insert into the treeview */
for(i=0, sortid=0; ikey == 0 ? _("(no category)") : entry->name;
sortid = g_list_index(tmplist, entry);
}
}
break;
case BY_REPDIST_SUBCATEGORY:
{
Category *entry = da_cat_get(i);
if(entry != NULL)
{
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->key == 0 ? _("(no category)") : entry->name;
sortid = g_list_index(tmplist, entry);
}
}
break;
case BY_REPDIST_PAYEE:
{
Payee *entry = da_pay_get(i);
if(entry != NULL)
{
name = entry->key == 0 ? _("(no payee)") : entry->name;
sortid = g_list_index(tmplist, entry);
}
}
break;
case BY_REPDIST_TAG:
{
Tag *entry = da_tag_get(i+1);
name = entry->name;
sortid = g_list_index(tmplist, entry);
}
break;
case BY_REPDIST_MONTH:
date = g_date_new_julian(from);
g_date_add_months(date, i);
//g_snprintf(buffer, 63, "%d-%02d", g_date_get_year(date), g_date_get_month(date));
g_snprintf(buffer, 63, "%d-%s", g_date_get_year(date), _(CYA_MONTHS[g_date_get_month(date)-1]));
g_date_free(date);
name = buffer;
break;
case BY_REPDIST_YEAR:
date = g_date_new_julian(from);
g_date_add_years(date, i);
g_snprintf(buffer, 63, "%d", g_date_get_year(date));
g_date_free(date);
name = buffer;
break;
}
DB( g_print(" inserting %2d, '%s', %9.2f %9.2f %9.2f\n", i, name, tmp_expense[i], tmp_income[i], tmp_expense[i] + tmp_income[i]) );
//compute rate
exprate = 0.0;
incrate = 0.0;
balrate = 0.0;
if( data->total_expense )
exprate = ABS((tmp_expense[i] * 100 / data->total_expense));
if( data->total_income )
incrate = (tmp_income[i] * 100 / data->total_income);
data->total_balance = ABS(data->total_expense) + data->total_income;
if( data->total_balance )
balrate = (ABS(tmp_expense[i]) + tmp_income[i]) * 100 / data->total_balance;
gtk_list_store_append (GTK_LIST_STORE(model), &iter);
gtk_list_store_set (GTK_LIST_STORE(model), &iter,
LST_REPDIST_POS, sortid++,
LST_REPDIST_KEY, i,
LST_REPDIST_NAME, name,
LST_REPDIST_EXPENSE, tmp_expense[i],
LST_REPDIST_INCOME , tmp_income[i],
LST_REPDIST_BALANCE, tmp_expense[i] + tmp_income[i],
LST_REPDIST_EXPRATE, exprate,
LST_REPDIST_INCRATE, incrate,
LST_REPDIST_BALRATE, balrate,
-1);
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_STATSELECT[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);
}
/* free our memory */
g_free(tmp_expense);
g_free(tmp_income);
/* free tmplist (sort cat/pay) */
g_list_free(tmplist);
ui_repdist_update_total(widget,NULL);
ui_repdist_update(widget, user_data);
}
/*
** update sensitivity
*/
static void ui_repdist_sensitive(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
gboolean active;
gboolean sensitive;
gint page;
DB( g_print("\n[repdist] sensitive\n") );
data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
active = gtk_tree_selection_get_selected(gtk_tree_view_get_selection(GTK_TREE_VIEW(data->LV_report)), NULL, NULL);
page = gtk_notebook_get_current_page(GTK_NOTEBOOK(data->GR_result));
sensitive = page == 0 ? active : FALSE;
// gtk_widget_set_sensitive(data->TB_buttons[ACTION_REPBUDGET_DETAIL], sensitive);
gtk_action_set_sensitive(gtk_ui_manager_get_action(data->ui, "/ToolBar/Detail"), sensitive);
//view = gtk_combo_box_get_active(GTK_COMBO_BOX(data->CY_view));
sensitive = page == 0 ? FALSE : TRUE;
gtk_widget_set_sensitive(data->LB_zoomx, sensitive);
gtk_widget_set_sensitive(data->RG_zoomx, sensitive);
gtk_action_set_sensitive(gtk_ui_manager_get_action(data->ui, "/ToolBar/Legend"), sensitive);
sensitive = page == 0 ? TRUE : FALSE;
gtk_action_set_sensitive(gtk_ui_manager_get_action(data->ui, "/ToolBar/Rate"), sensitive);
}
static void ui_repdist_detail_onRowActivated (GtkTreeView *treeview,
GtkTreePath *path,
GtkTreeViewColumn *col,
gpointer userdata)
{
struct ui_repdist_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[repdist] 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++;
ui_repdist_compute(data->window, NULL);
}
da_transaction_free (old_txn);
}
}
static void ui_repdist_update_detail(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
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_REPDIST_KEY, &key, -1);
DB( g_print(" - active is %d\n", key) );
ui_repdist_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 ui_repdist_toggle_detail(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
data->detail ^= 1;
DB( g_print("\n[repdist] toggledetail to %d\n", data->detail) );
ui_repdist_update_detail(widget, user_data);
}
/*
** change the chart legend visibility
*/
static void ui_repdist_toggle_legend(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
//gint active;
DB( g_print("\n[repdist] toggle legend\n") );
data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
data->legend ^= 1;
gtk_chart_show_legend(GTK_CHART(data->RE_chart), data->legend, FALSE);
}
static void ui_repdist_zoomx_callback(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
gdouble value;
DB( g_print("\n[repdist] zoomx\n") );
data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
value = gtk_range_get_value(GTK_RANGE(data->RG_zoomx));
DB( g_print(" + scale is %.2f\n", value) );
gtk_chart_set_barw(GTK_CHART(data->RE_chart), value);
}
/*
** change the chart rate columns visibility
*/
static void ui_repdist_toggle_rate(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
GtkTreeViewColumn *column;
DB( g_print("\n[repdist] toggle rate\n") );
data = g_object_get_data(G_OBJECT(gtk_widget_get_ancestor(widget, GTK_TYPE_WINDOW)), "inst_data");
data->rate ^= 1;
if(GTK_IS_TREE_VIEW(data->LV_report))
{
column = gtk_tree_view_get_column (GTK_TREE_VIEW(data->LV_report), 2);
gtk_tree_view_column_set_visible(column, data->rate);
column = gtk_tree_view_get_column (GTK_TREE_VIEW(data->LV_report), 4);
gtk_tree_view_column_set_visible(column, data->rate);
column = gtk_tree_view_get_column (GTK_TREE_VIEW(data->LV_report), 6);
gtk_tree_view_column_set_visible(column, data->rate);
}
}
static void ui_repdist_toggle_minor(GtkWidget *widget, gpointer user_data)
{
struct ui_repdist_data *data;
DB( g_print("\n[repdist] toggle minor\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));
ui_repdist_update_total(widget,NULL);
//hbfile_update(data->LV_acc, (gpointer)4);
gtk_tree_view_columns_autosize (GTK_TREE_VIEW(data->LV_report));
gtk_chart_show_minor(GTK_CHART(data->RE_chart), GLOBALS->minor);
}
/*
**
*/
static void ui_repdist_setup(struct ui_repdist_data *data)
{
DB( g_print("\n[repdist] setup\n") );
data->txn_queue = g_queue_new ();
data->filter = da_filter_malloc();
filter_default_all_set(data->filter);
data->detail = PREFS->stat_showdetail;
data->legend = 1;
data->rate = PREFS->stat_showrate^1;
ui_repdist_toggle_rate(data->window, NULL);
/* 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_REPDIST_MINDATE]);
g_signal_handler_block(data->PO_maxdate, data->handler_id[HID_REPDIST_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_REPDIST_MINDATE]);
g_signal_handler_unblock(data->PO_maxdate, data->handler_id[HID_REPDIST_MAXDATE]);
}
static void ui_repdist_selection(GtkTreeSelection *treeselection, gpointer user_data)
{
GtkTreeModel *model;
GtkTreeIter iter;
guint key = -1;
DB( g_print("\n[repdist] selection\n") );
if (gtk_tree_selection_get_selected(treeselection, &model, &iter))
{
gtk_tree_model_get(model, &iter, LST_REPDIST_KEY, &key, -1);
}
DB( g_print(" - active is %d\n", key) );
ui_repdist_detail(GTK_WIDGET(gtk_tree_selection_get_tree_view (treeselection)), GINT_TO_POINTER(key));
ui_repdist_sensitive(GTK_WIDGET(gtk_tree_selection_get_tree_view (treeselection)), NULL);
}
/*
**
*/
static gboolean ui_repdist_dispose(GtkWidget *widget, GdkEvent *event, gpointer user_data)
{
struct ui_repdist_data *data = user_data;
struct WinGeometry *wg;
DB( g_print("\n[repdist] dispose\n") );
g_queue_free (data->txn_queue);
da_filter_free(data->filter);
g_free(data);
//store position and size
wg = &PREFS->sta_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));
return FALSE;
}
// the window creation
GtkWidget *ui_repdist_window_new(void)
{
struct ui_repdist_data *data;
struct WinGeometry *wg;
GtkWidget *window, *mainvbox, *hbox, *vbox, *notebook, *treeview, *vpaned, *sw;
GtkWidget *label, *widget, *table, *entry;
gint row;
GtkUIManager *ui;
GtkActionGroup *actions;
GtkAction *action;
GError *error = NULL;
DB( g_print("\n[repdist] new\n") );
data = g_malloc0(sizeof(struct ui_repdist_data));
if(!data) return NULL;
//disable define windows
GLOBALS->define_off++;
ui_mainwindow_update(GLOBALS->mainwindow, GINT_TO_POINTER(2));
/* 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);
gtk_window_set_title (GTK_WINDOW (window), _("Statistics Report"));
//set the window icon
gtk_window_set_icon_name(GTK_WINDOW (window), ICONNAME_HB_REP_STATS);
//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_widget_set_hexpand (GTK_WIDGET(table), FALSE);
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(_("_View:"));
gtk_grid_attach (GTK_GRID (table), label, 1, row, 1, 1);
widget = make_cycle(label, CYA_KIND2);
data->CY_view = widget;
gtk_grid_attach (GTK_GRID (table), widget, 2, row, 1, 1);
row++;
label = make_label_widget(_("_By:"));
gtk_grid_attach (GTK_GRID (table), label, 1, row, 1, 1);
widget = make_cycle(label, CYA_STATSELECT);
data->CY_by = widget;
gtk_grid_attach (GTK_GRID (table), data->CY_by, 2, row, 1, 1);
row++;
widget = gtk_check_button_new_with_mnemonic (_("By _amount"));
data->CM_byamount = 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++;
label = make_label_widget(_("_Zoom X:"));
data->LB_zoomx = label;
gtk_grid_attach (GTK_GRID (table), label, 1, row, 1, 1);
widget = make_scale(label);
data->RG_zoomx = widget;
gtk_grid_attach (GTK_GRID (table), widget, 2, row, 1, 1);
/*
row++;
widget = gtk_check_button_new_with_mnemonic ("Legend");
data->CM_legend = widget;
gtk_grid_attach (GTK_GRID (table), widget, 1, 2, row, row+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, TRUE);
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 ("Account");
//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_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, "Column");
g_object_set(action, "is_important", TRUE, NULL);
action = gtk_action_group_get_action(actions, "Donut");
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->stat_showdetail, NULL);
action = gtk_action_group_get_action(actions, "Rate");
g_object_set(action, "active", PREFS->stat_showrate, NULL);
action = gtk_action_group_get_action(actions, "Filter");
g_object_set(action, "is_important", TRUE, 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;
data->actions = actions;
//toolbar
data->TB_bar = gtk_ui_manager_get_widget (ui, "/ToolBar");
gtk_box_pack_start (GTK_BOX (vbox), data->TB_bar, FALSE, FALSE, 0);
//infos + balance
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(_("Balance:"));
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(_("Income:"));
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(_("Expense:"));
gtk_box_pack_end (GTK_BOX (hbox), label, FALSE, FALSE, 0);
/* report area */
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/detail
vpaned = gtk_paned_new(GTK_ORIENTATION_VERTICAL);
gtk_notebook_append_page(GTK_NOTEBOOK(notebook), vpaned, NULL);
// list
sw = gtk_scrolled_window_new (NULL, NULL);
gtk_scrolled_window_set_shadow_type (GTK_SCROLLED_WINDOW (sw), GTK_SHADOW_ETCHED_IN);
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (sw), GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
treeview = ui_list_repdist_create();
data->LV_report = treeview;
gtk_container_add (GTK_CONTAINER(sw), treeview);
gtk_paned_pack1 (GTK_PANED(vpaned), sw, TRUE, TRUE);
//detail
sw = gtk_scrolled_window_new (NULL, NULL);
data->GR_detail = sw;
//gtk_scrolled_window_set_placement(GTK_SCROLLED_WINDOW (sw), GTK_CORNER_TOP_RIGHT);
gtk_scrolled_window_set_shadow_type (GTK_SCROLLED_WINDOW (sw), GTK_SHADOW_ETCHED_IN);
gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (sw), 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(sw), treeview);
gtk_paned_pack2 (GTK_PANED(vpaned), sw, TRUE, TRUE);
//page: 2d bar /pie
widget = gtk_chart_new(CHART_TYPE_COL);
data->RE_chart = widget;
gtk_chart_set_minor_prefs(GTK_CHART(widget), PREFS->euro_value, PREFS->minor_cur.symbol);
gtk_chart_set_currency(GTK_CHART(widget), GLOBALS->kcur);
gtk_notebook_append_page(GTK_NOTEBOOK(notebook), widget, NULL);
//todo: setup should move this
gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(data->CM_minor), GLOBALS->minor);
gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(data->CM_byamount), PREFS->stat_byamount);
gtk_combo_box_set_active(GTK_COMBO_BOX(data->CY_view), 1);
/* 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 (ui_repdist_dispose), (gpointer)data);
g_signal_connect (data->CM_minor, "toggled", G_CALLBACK (ui_repdist_toggle_minor), NULL);
data->handler_id[HID_REPDIST_MINDATE] = g_signal_connect (data->PO_mindate, "changed", G_CALLBACK (ui_repdist_date_change), (gpointer)data);
data->handler_id[HID_REPDIST_MAXDATE] = g_signal_connect (data->PO_maxdate, "changed", G_CALLBACK (ui_repdist_date_change), (gpointer)data);
data->handler_id[HID_REPDIST_RANGE] = g_signal_connect (data->CY_range, "changed", G_CALLBACK (ui_repdist_range_change), NULL);
g_signal_connect (data->CY_by, "changed", G_CALLBACK (ui_repdist_compute), (gpointer)data);
data->handler_id[HID_REPDIST_VIEW] = g_signal_connect (data->CY_view, "changed", G_CALLBACK (ui_repdist_compute), (gpointer)data);
g_signal_connect (data->RG_zoomx, "value-changed", G_CALLBACK (ui_repdist_zoomx_callback), NULL);
g_signal_connect (data->CM_byamount, "toggled", G_CALLBACK (ui_repdist_update), NULL);
g_signal_connect (gtk_tree_view_get_selection(GTK_TREE_VIEW(data->LV_report)), "changed", G_CALLBACK (ui_repdist_selection), NULL);
g_signal_connect (GTK_TREE_VIEW(data->LV_detail), "row-activated", G_CALLBACK (ui_repdist_detail_onRowActivated), NULL);
//setup, init and show window
ui_repdist_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->sta_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);
//gtk_widget_hide(data->GR_detail);
ui_repdist_sensitive(window, NULL);
ui_repdist_update_detail(window, NULL);
DB( g_print("range: %d\n", PREFS->date_range_rep) );
if( PREFS->date_range_rep != 0)
gtk_combo_box_set_active(GTK_COMBO_BOX(data->CY_range), PREFS->date_range_rep);
else
ui_repdist_compute(window, NULL);
return window;
}
/*
** ============================================================================
*/
static void ui_list_repdist_rate_cell_data_function (GtkTreeViewColumn *col,
GtkCellRenderer *renderer,
GtkTreeModel *model,
GtkTreeIter *iter,
gpointer user_data)
{
//GtkWidget *widget;
//widget = g_object_get_data(G_OBJECT(model), "minor");
//todo g_assert here and null test
gdouble tmp;
gchar buf[128];
gtk_tree_model_get(model, iter, GPOINTER_TO_INT(user_data), &tmp, -1);
if(tmp != 0.0)
{
g_snprintf(buf, sizeof(buf), "%.2f %%", tmp);
g_object_set(renderer, "text", buf, NULL);
}
else
g_object_set(renderer, "text", "", NULL);
}
static void ui_list_repdist_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];
gtk_tree_model_get(model, iter, GPOINTER_TO_INT(user_data), &value, -1);
if( value )
{
hb_strfmon(buf, G_ASCII_DTOSTR_BUF_SIZE-1, value, GLOBALS->kcur, GLOBALS->minor);
color = get_normal_color_amount(value);
g_object_set(renderer,
"foreground", color,
"text", buf,
NULL); }
else
{
g_object_set(renderer, "text", "", NULL);
}
}
static GtkTreeViewColumn *ui_list_repdist_amount_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, ui_list_repdist_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;
}
static GtkTreeViewColumn *ui_list_repdist_rate_column(gint id)
{
GtkTreeViewColumn *column;
GtkCellRenderer *renderer;
column = gtk_tree_view_column_new();
gtk_tree_view_column_set_title(column, "%");
renderer = gtk_cell_renderer_text_new ();
g_object_set(renderer, "xalign", 1.0, "yalign", 1.0, "scale", 0.8, "scale-set", TRUE, NULL);
gtk_tree_view_column_pack_start(column, renderer, TRUE);
//gtk_tree_view_column_add_attribute(column, renderer, "text", id);
gtk_tree_view_column_set_cell_data_func(column, renderer, ui_list_repdist_rate_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);
//gtk_tree_view_column_set_visible(column, FALSE);
return column;
}
/*
** create our statistic list
*/
static GtkWidget *ui_list_repdist_create(void)
{
GtkListStore *store;
GtkWidget *view;
GtkCellRenderer *renderer;
GtkTreeViewColumn *column;
/* create list store */
store = gtk_list_store_new(
NUM_LST_REPDIST,
G_TYPE_INT,
G_TYPE_INT,
G_TYPE_STRING,
G_TYPE_DOUBLE,
G_TYPE_DOUBLE,
G_TYPE_DOUBLE,
G_TYPE_DOUBLE,
G_TYPE_DOUBLE,
G_TYPE_DOUBLE
);
//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, _("Result"));
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_REPDIST_NAME);
//gtk_tree_view_column_set_sort_column_id (column, LST_REPDIST_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 = ui_list_repdist_amount_column(_("Expense"), LST_REPDIST_EXPENSE);
gtk_tree_view_append_column (GTK_TREE_VIEW(view), column);
column = ui_list_repdist_rate_column(LST_REPDIST_EXPRATE);
gtk_tree_view_append_column (GTK_TREE_VIEW(view), column);
/* column: Income */
column = ui_list_repdist_amount_column(_("Income"), LST_REPDIST_INCOME);
gtk_tree_view_append_column (GTK_TREE_VIEW(view), column);
column = ui_list_repdist_rate_column(LST_REPDIST_INCRATE);
gtk_tree_view_append_column (GTK_TREE_VIEW(view), column);
/* column: Balance */
column = ui_list_repdist_amount_column(_("Balance"), LST_REPDIST_BALANCE);
gtk_tree_view_append_column (GTK_TREE_VIEW(view), column);
column = ui_list_repdist_rate_column(LST_REPDIST_BALRATE);
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_sort_func(GTK_TREE_SORTABLE(store), LST_REPDIST_POS , ui_list_repdist_compare_func, GINT_TO_POINTER(LST_REPDIST_POS), NULL);
gtk_tree_sortable_set_sort_func(GTK_TREE_SORTABLE(store), LST_REPDIST_EXPENSE, ui_list_repdist_compare_func, GINT_TO_POINTER(LST_REPDIST_EXPENSE), NULL);
gtk_tree_sortable_set_sort_func(GTK_TREE_SORTABLE(store), LST_REPDIST_INCOME , ui_list_repdist_compare_func, GINT_TO_POINTER(LST_REPDIST_INCOME), NULL);
gtk_tree_sortable_set_sort_func(GTK_TREE_SORTABLE(store), LST_REPDIST_BALANCE, ui_list_repdist_compare_func, GINT_TO_POINTER(LST_REPDIST_BALANCE), NULL);
return(view);
}
static gint ui_list_repdist_compare_func (GtkTreeModel *model, GtkTreeIter *a, GtkTreeIter *b, gpointer userdata)
{
gint sortcol = GPOINTER_TO_INT(userdata);
gint retval = 0;
gint pos1, pos2;
gdouble val1, val2;
gtk_tree_model_get(model, a,
LST_REPDIST_POS, &pos1,
sortcol, &val1,
-1);
gtk_tree_model_get(model, b,
LST_REPDIST_POS, &pos2,
sortcol, &val2,
-1);
switch(sortcol)
{
case LST_REPDIST_POS:
retval = pos2 - pos1;
break;
default:
retval = (ABS(val1) - ABS(val2)) > 0 ? 1 : -1;
break;
}
//DB( g_print(" sort %d=%d or %.2f=%.2f :: %d\n", pos1,pos2, val1, val2, ret) );
return retval;
}