GnuCash c935c2f+
Loading...
Searching...
No Matches
dialog-tax-info.c
1/********************************************************************\
2 * dialog-tax-info.c -- tax information dialog *
3 * Copyright (C) 2001 Gnumatic, Inc. *
4 * Author: Dave Peticolas <dave@krondo.com> *
5 * *
6 * *
7 * updated by J. Alex Aycinena, July 2009 *
8 * *
9 * This program is free software; you can redistribute it and/or *
10 * modify it under the terms of the GNU General Public License as *
11 * published by the Free Software Foundation; either version 2 of *
12 * the License, or (at your option) any later version. *
13 * *
14 * This program is distributed in the hope that it will be useful, *
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
17 * GNU General Public License for more details. *
18 * *
19 * You should have received a copy of the GNU General Public License*
20 * along with this program; if not, contact: *
21 * *
22 * Free Software Foundation Voice: +1-617-542-5942 *
23 * 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652 *
24 * Boston, MA 02110-1301, USA gnu@gnu.org *
25\********************************************************************/
26
27#include <config.h>
28
29#include <gtk/gtk.h>
30#include <glib/gi18n.h>
31#include <libguile.h>
32#include "guile-mappings.h"
33#include "gnc-guile-utils.h"
34
35#include "Account.h"
36#include "gnc-ui-util.h"
37#include "dialog-utils.h"
38#include "gnc-locale-tax.h"
39#include "gnc-prefs.h"
40#include "gnc-tree-view-account.h"
41#include "gnc-component-manager.h"
42#include "gnc-session.h"
43#include "qof.h"
44#include "gnc-ui.h"
45
46#define DIALOG_TAX_INFO_CM_CLASS "dialog-tax-info"
47#define GNC_PREFS_GROUP "dialogs.tax-info"
48#define GNC_PREF_PANED_POS "paned-position"
49
50enum
51{
52 INCOME,
53 EXPENSE,
54 ASSET,
55 LIAB_EQ,
56 N_CATEGORIES
57};
58
59static struct
60{
61 SCM payer_name_source;
62 SCM form;
63 SCM description;
64 SCM help;
65 SCM line_data;
66 SCM last_year;
67 SCM copy;
68
69 SCM codes;
70
71 SCM tax_entity_type;
72 SCM tax_entity_desc;
73
74 SCM tax_entity_types;
75} getters;
76
77typedef struct
78{
79 char *type_code;
80 char *type;
81 char *description;
82 char *combo_box_entry;
83} TaxTypeInfo;
84
85typedef struct
86{
87 char *code;
88 char *payer_name_source;
89 char *form;
90 char *description;
91 char *help;
92 gboolean copy;
93} TXFInfo;
94
95typedef struct
96{
97 GtkWidget * dialog;
98
99 GtkWidget * entity_name_display;
100 GtkWidget * entity_name_entry;
101 GtkWidget * entity_type_display;
102 GtkWidget * entity_type_combo;
103 GtkWidget * tax_identity_edit_button;
104
105 GtkWidget * acct_info;
106 GtkWidget * income_radio;
107 GtkWidget * expense_radio;
108 GtkWidget * asset_radio;
109 GtkWidget * liab_eq_radio;
110 GtkWidget * account_treeview;
111 GtkWidget * select_button;
112 GtkWidget * num_acct_label;
113 GtkWidget * apply_button;
114
115 GtkWidget * txf_info;
116 GtkWidget * tax_related_button;
117 GtkWidget * txf_vbox;
118 GtkWidget * txf_category_view;
119 GtkWidget * txf_help_text;
120 GtkWidget * help_scroll;
121 GtkWidget * payer_vbox;
122 GtkWidget * pns_vbox;
123 GtkWidget * current_account_button;
124 GtkWidget * parent_account_button;
125 GtkWidget * copy_vbox;
126 GtkWidget * copy_spin_button;
127
128 GList * entity_type_infos;
129 GList * income_txf_infos;
130 GList * expense_txf_infos;
131 GList * asset_txf_infos;
132 GList * liab_eq_txf_infos;
133
134 const gchar * tax_name;
135 const gchar * tax_type;
136 const gchar * tax_type_combo_text;
137 const gchar * default_tax_type;
138
139 QofBook *this_book;
140
141 gboolean changed;
142 gboolean tax_type_changed;
143
144 GNCAccountType account_type;
145} TaxInfoDialog;
146
147static void
148initialize_getters (void)
149{
150 gnc_locale_tax_init();
151
152 getters.payer_name_source = scm_c_eval_string ("gnc:txf-get-payer-name-source");
153 getters.form = scm_c_eval_string ("gnc:txf-get-form");
154 getters.description = scm_c_eval_string ("gnc:txf-get-description");
155 getters.help = scm_c_eval_string ("gnc:txf-get-help");
156 getters.line_data = scm_c_eval_string ("gnc:txf-get-line-data");
157 getters.last_year = scm_c_eval_string ("gnc:txf-get-last-year");
158 getters.copy = scm_c_eval_string ("gnc:txf-get-multiple");
159
160 getters.codes = scm_c_eval_string ("gnc:txf-get-codes");
161
162 getters.tax_entity_type = scm_c_eval_string ("gnc:txf-get-tax-entity-type");
163 getters.tax_entity_desc = scm_c_eval_string
164 ("gnc:txf-get-tax-entity-type-description");
165
166 getters.tax_entity_types = scm_c_eval_string
167 ("gnc:txf-get-tax-entity-type-codes");
168}
169
170static void
171destroy_tax_type_info (gpointer data)
172{
173 TaxTypeInfo *tax_type = data;
174
175 g_free (tax_type->type_code);
176 tax_type->type_code = NULL;
177
178 g_free (tax_type->type);
179 tax_type->type = NULL;
180
181 g_free (tax_type->description);
182 tax_type->description = NULL;
183
184 g_free (tax_type->combo_box_entry);
185 tax_type->combo_box_entry = NULL;
186
187 g_free (tax_type);
188}
189
190static inline void
191destroy_tax_type_infos (GList *types)
192{
193 g_list_free_full (types, destroy_tax_type_info);
194}
195
196static void
197destroy_txf_info (gpointer data)
198{
199 TXFInfo *txf_info = data;
200
201 g_free (txf_info->code);
202 txf_info->code = NULL;
203
204 g_free (txf_info->payer_name_source);
205 txf_info->payer_name_source = NULL;
206
207 g_free (txf_info->form);
208 txf_info->form = NULL;
209
210 g_free (txf_info->description);
211 txf_info->description = NULL;
212
213 g_free (txf_info->help);
214 txf_info->help = NULL;
215
216 g_free (txf_info);
217}
218
219static inline void
220destroy_txf_infos (GList *infos)
221{
222 g_list_free_full (infos, destroy_txf_info);
223}
224
225static void
226gnc_tax_info_set_changed (TaxInfoDialog *ti_dialog, gboolean changed)
227{
228 ti_dialog->changed = changed;
229 gtk_widget_set_sensitive (ti_dialog->apply_button, changed);
230}
231
232static GList *
233load_txf_info (gint acct_category, TaxInfoDialog *ti_dialog)
234{
235 GList *infos = NULL;
236 SCM tax_entity_type;
237 SCM category;
238 SCM codes;
239
240 if (ti_dialog->tax_type == NULL ||
241 (g_strcmp0 (ti_dialog->tax_type, "") == 0))
242 {
243 destroy_txf_infos (infos);
244 return NULL;
245 }
246 else
247 {
248 tax_entity_type = scm_from_utf8_string (ti_dialog->tax_type);
249 }
250
251 switch (acct_category)
252 {
253 case INCOME:
254 category = scm_c_eval_string ("txf-income-categories");
255 break;
256 case EXPENSE:
257 category = scm_c_eval_string ("txf-expense-categories");
258 break;
259 case ASSET:
260 category = scm_c_eval_string ("txf-asset-categories");
261 break;
262 case LIAB_EQ:
263 category = scm_c_eval_string ("txf-liab-eq-categories");
264 break;
265 default:
266 destroy_txf_infos (infos);
267 return NULL;
268 }
269
270 if (category == SCM_UNDEFINED)
271 {
272 destroy_txf_infos (infos);
273 return NULL;
274 }
275
276 codes = scm_call_2 (getters.codes, category, tax_entity_type);
277 if (!scm_is_list (codes))
278 {
279 destroy_txf_infos (infos);
280 return NULL;
281 }
282
283 while (!scm_is_null (codes))
284 {
285 TXFInfo *txf_info;
286 SCM code_scm;
287 const gchar *last_yr = _("Last Valid Year: ");
288 const gchar *form_line = _("Form Line Data: ");
289 /* Translators: Tax Code */
290 const gchar *code_line_word = _("Code");
291 const gchar *code_line_colon = ": ";
292 const gchar *prefix = "N";
293 gchar *str = NULL;
294 gchar *num_code = NULL;
295 gchar *form_line_data = NULL;
296 gchar *help_text = NULL;
297 SCM scm;
298 gint year;
299 gboolean cpy;
300
301 code_scm = SCM_CAR (codes);
302 codes = SCM_CDR (codes);
303
304 scm = scm_call_3 (getters.payer_name_source, category, code_scm,
305 tax_entity_type);
306 if (scm_is_symbol(scm))
307 str = gnc_scm_symbol_to_locale_string (scm);
308 else
309 str = g_strdup ("");
310 if (g_strcmp0 (str, "not-impl") == 0)
311 {
312 g_free (str);
313 continue;
314 }
315
316 txf_info = g_new0 (TXFInfo, 1);
317
318 if (g_strcmp0 (str, "none") == 0)
319 txf_info->payer_name_source = NULL;
320 else
321 txf_info->payer_name_source = g_strdup (str);
322 g_free (str);
323
324 if (scm_is_symbol(code_scm))
325 str = gnc_scm_symbol_to_locale_string (code_scm);
326 else
327 str = g_strdup ("");
328 txf_info->code = g_strdup (str);
329 if (g_str_has_prefix (str, prefix))
330 {
331 const gchar *num_code_tmp;
332 num_code_tmp = g_strdup (str);
333 num_code_tmp++; /* to lose the leading N */
334 num_code = g_strdup (num_code_tmp);
335 num_code_tmp--;
336 g_free ((gpointer *) num_code_tmp);
337 }
338 else
339 num_code = g_strdup (str);
340 g_free (str);
341
342 scm = scm_call_3 (getters.form, category, code_scm, tax_entity_type);
343 if (scm_is_string(scm))
344 txf_info->form = gnc_scm_to_utf8_string(scm);
345 else
346 txf_info->form = g_strdup ("");
347
348 scm = scm_call_3 (getters.description, category, code_scm, tax_entity_type);
349 if (scm_is_string(scm))
350 txf_info->description = gnc_scm_to_utf8_string(scm);
351 else
352 txf_info->description = g_strdup ("");
353
354 scm = scm_call_2 (getters.help, category, code_scm);
355 if (scm_is_string(scm))
356 help_text = gnc_scm_to_utf8_string(scm);
357 else
358 help_text = g_strdup ("");
359
360 scm = scm_call_3 (getters.last_year, category, code_scm, tax_entity_type);
361 year = scm_is_bool (scm) ? 0 : scm_to_int(scm);
362 scm = scm_call_3 (getters.line_data, category, code_scm, tax_entity_type);
363 if (scm_is_list (scm))
364 {
365 const gchar *now = _("now");
366 gchar *until;
367
368 until = (gchar *) now;
369 form_line_data = g_strconcat ("\n", "\n", form_line, NULL);
370 while (!scm_is_null (scm))
371 {
372 SCM year_scm;
373 gint line_year;
374 gchar *line = NULL;
375 gchar *temp = NULL;
376 gchar *temp2 = NULL;
377
378 year_scm = SCM_CAR (scm);
379 scm = SCM_CDR (scm);
380
381 line_year = scm_is_bool (SCM_CAR (year_scm)) ? 0 :
382 scm_to_int (SCM_CAR (year_scm));
383 if (scm_is_string((SCM_CAR (SCM_CDR (year_scm)))))
384 line = gnc_scm_to_utf8_string((SCM_CAR (SCM_CDR
385 (year_scm))));
386 else
387 line = g_strdup ("");
388 temp2 = g_strdup_printf ("%d", line_year);
389 temp = g_strconcat (form_line_data, "\n", temp2, " - ",
390 ((year != 0) && (until == now))
391 ? g_strdup_printf("%d", year)
392 : until,
393 " ", line, NULL);
394 if (until != now)
395 g_free (until);
396 until = g_strdup_printf ("%d", (line_year - 1));
397 g_free (form_line_data);
398 form_line_data = g_strdup (temp);
399 g_free (line);
400 g_free (temp);
401 g_free (temp2);
402 }
403 if (g_strcmp0 (until, now) != 0)
404 g_free (until);
405 }
406 if (year != 0)
407 {
408 gchar *temp = g_strdup_printf("%d", year);
409 if (form_line_data != NULL)
410 txf_info->help = g_strconcat (last_yr, temp, "\n", "\n",
411 help_text, "\n", "\n",
412 code_line_word,
413 code_line_colon, num_code,
414 form_line_data, NULL);
415 else
416 txf_info->help = g_strconcat (last_yr, temp, "\n", "\n",
417 help_text, "\n", "\n",
418 code_line_word,
419 code_line_colon, num_code, NULL);
420 g_free (temp);
421 }
422 else
423 {
424 if (form_line_data != NULL)
425 txf_info->help = g_strconcat (help_text, "\n", "\n",
426 code_line_word,
427 code_line_colon, num_code,
428 form_line_data, NULL);
429 else
430 txf_info->help = g_strconcat (help_text, "\n", "\n",
431 code_line_word,
432 code_line_colon, num_code, NULL);
433 }
434
435 g_free (num_code);
436 g_free (help_text);
437 g_free (form_line_data);
438
439 scm = scm_call_3 (getters.copy, category, code_scm, tax_entity_type);
440 cpy = scm_is_bool (scm) ? (scm_is_false (scm) ? FALSE : TRUE) : FALSE;
441 txf_info->copy = cpy;
442
443 infos = g_list_prepend (infos, txf_info);
444 }
445 return g_list_reverse (infos);
446}
447
448static GList *
449tax_infos (TaxInfoDialog *ti_dialog)
450{
451 return
452 (ti_dialog->account_type == ACCT_TYPE_INCOME)
453 ? ti_dialog->income_txf_infos :
454 ((ti_dialog->account_type == ACCT_TYPE_EXPENSE)
455 ? ti_dialog->expense_txf_infos :
456 (((ti_dialog->account_type == ACCT_TYPE_ASSET)
457 ? ti_dialog->asset_txf_infos :
458 ti_dialog->liab_eq_txf_infos)));
459}
460
461static void
462load_tax_entity_type_list (TaxInfoDialog *ti_dialog)
463{
464 GList *types = NULL;
465 SCM tax_types;
466
467 ti_dialog->tax_type_combo_text = NULL;
468 tax_types = scm_call_0 (getters.tax_entity_types);
469 if (!scm_is_list (tax_types))
470 {
471 destroy_tax_type_infos (types);
472 return;
473 }
474
475 while (!scm_is_null (tax_types))
476 {
477 TaxTypeInfo *tax_type_info;
478 SCM type_scm;
479 SCM scm;
480
481 type_scm = SCM_CAR (tax_types);
482 tax_types = SCM_CDR (tax_types);
483
484 ti_dialog->default_tax_type = NULL;
485
486 tax_type_info = g_new0 (TaxTypeInfo, 1);
487
488 if (scm_is_symbol(type_scm))
489 tax_type_info->type_code = gnc_scm_symbol_to_locale_string (type_scm);
490 else
491 tax_type_info->type_code = g_strdup ("");
492
493 scm = scm_call_1 (getters.tax_entity_type, type_scm);
494 if (scm_is_string(scm))
495 tax_type_info->type = gnc_scm_to_utf8_string(scm);
496 else
497 tax_type_info->type = g_strdup ("");
498
499 scm = scm_call_1 (getters.tax_entity_desc, type_scm);
500 if (scm_is_string(scm))
501 tax_type_info->description = gnc_scm_to_utf8_string(scm);
502 else
503 tax_type_info->description = g_strdup ("");
504
505 tax_type_info->combo_box_entry = g_strconcat(tax_type_info->type,
506 " - ",
507 tax_type_info->description, NULL);
508 /* save combo text for current tax type code */
509 if (g_strcmp0 (ti_dialog->tax_type, tax_type_info->type_code) == 0)
510 ti_dialog->tax_type_combo_text = tax_type_info->combo_box_entry;
511 /* the last will be default */
512 ti_dialog->default_tax_type = tax_type_info->combo_box_entry;
513
514 types = g_list_prepend (types, tax_type_info);
515 }
516 ti_dialog->entity_type_infos = g_list_reverse (types);
517}
518
519static void
520load_category_list (TaxInfoDialog *ti_dialog)
521{
522 GtkTreeView *view;
523 GtkListStore *store;
524 GtkTreeIter iter;
525 GList *codes;
526
527 view = GTK_TREE_VIEW(ti_dialog->txf_category_view);
528 store = GTK_LIST_STORE(gtk_tree_view_get_model(view));
529 g_object_ref(store);
530 gtk_tree_view_set_model(view, NULL);
531
532 gtk_list_store_clear(store);
533
534 codes = tax_infos (ti_dialog);
535 for ( ; codes; codes = codes->next)
536 {
537 TXFInfo *txf_info = codes->data;
538
539 gtk_list_store_append(store, &iter);
540 gtk_list_store_set(store, &iter,
541 0, txf_info->form,
542 1, txf_info->description,
543 -1);
544 }
545
546 gtk_tree_view_set_model(view, GTK_TREE_MODEL(store));
547 g_object_unref(store);
548}
549
550static void
551clear_gui (TaxInfoDialog *ti_dialog)
552{
553 GtkTreeView *view;
554 GtkTreeSelection *selection;
555
556 gtk_toggle_button_set_active
557 (GTK_TOGGLE_BUTTON (ti_dialog->tax_related_button), FALSE);
558
559 view = GTK_TREE_VIEW(ti_dialog->txf_category_view);
560 selection = gtk_tree_view_get_selection(view);
561 gtk_tree_selection_unselect_all(selection);
562
563 gtk_toggle_button_set_active
564 (GTK_TOGGLE_BUTTON (ti_dialog->current_account_button), TRUE);
565
566 gtk_spin_button_set_value
567 (GTK_SPIN_BUTTON (ti_dialog->copy_spin_button), 1);
568}
569
570static gboolean
571gnc_tax_info_dialog_account_filter_func (Account *account,
572 gpointer data)
573{
574 TaxInfoDialog *dialog = data;
575 GNCAccountType fund_acct_type = xaccAccountTypeGetFundamental (xaccAccountGetType (account));
576 gboolean included = FALSE;
577
578 if ((dialog->account_type == ACCT_TYPE_INCOME) ||
579 (dialog->account_type == ACCT_TYPE_EXPENSE))
580 included = (xaccAccountGetType (account) == dialog->account_type);
581 else if (dialog->account_type == ACCT_TYPE_ASSET)
582 included = (ACCT_TYPE_ASSET == fund_acct_type);
583 else if (dialog->account_type == ACCT_TYPE_LIABILITY)
584 included = ((ACCT_TYPE_LIABILITY == fund_acct_type) ||
585 (ACCT_TYPE_EQUITY == fund_acct_type));
586 else
587 included = FALSE;
588 return included;
589}
590
591static TXFInfo *
592txf_infos_find_code (GList *infos, const char *code)
593{
594 for (; infos; infos = infos->next)
595 {
596 TXFInfo *info = infos->data;
597
598 if (g_strcmp0 (code, info->code) == 0)
599 return info;
600 }
601
602 return NULL;
603}
604
605static void
606account_to_gui (TaxInfoDialog *ti_dialog, Account *account)
607{
608 GtkTreeView *view;
609 GtkTreeSelection *selection;
610 GtkTreePath *path;
611 gboolean tax_related;
612 const char *str;
613 TXFInfo *info;
614 GList *infos;
615 gint index = 0;
616
617 if (!account)
618 {
619 clear_gui (ti_dialog);
620 return;
621 }
622
623 tax_related = xaccAccountGetTaxRelated (account);
624 gtk_toggle_button_set_active
625 (GTK_TOGGLE_BUTTON (ti_dialog->tax_related_button), tax_related);
626
627 infos = tax_infos (ti_dialog);
628
629 str = xaccAccountGetTaxUSCode (account);
630 info = txf_infos_find_code (infos, str);
631 if (info)
632 index = g_list_index (infos, info);
633
634 if (index < 0)
635 index = 0;
636
637 view = GTK_TREE_VIEW(ti_dialog->txf_category_view);
638 selection = gtk_tree_view_get_selection(view);
639 path = gtk_tree_path_new_from_indices(index, -1);
640 gtk_tree_selection_select_path(selection, path);
641 gtk_tree_view_scroll_to_cell(view, path, NULL, TRUE, 0.5, 0);
642 gtk_tree_path_free(path);
643
644 str = xaccAccountGetTaxUSPayerNameSource (account);
645 if (g_strcmp0 (str, "parent") == 0)
646 gtk_toggle_button_set_active
647 (GTK_TOGGLE_BUTTON (ti_dialog->parent_account_button), TRUE);
648 else
649 gtk_toggle_button_set_active
650 (GTK_TOGGLE_BUTTON (ti_dialog->current_account_button), TRUE);
651
652 gtk_spin_button_set_value
653 (GTK_SPIN_BUTTON (ti_dialog->copy_spin_button),
654 (gdouble) xaccAccountGetTaxUSCopyNumber (account));
655}
656
657static void
658gui_to_accounts (TaxInfoDialog *ti_dialog)
659{
660 GtkTreeView *view;
661 GtkTreeModel *model;
662 GtkTreeSelection *selection;
663 GtkTreePath *path;
664 GtkTreeIter iter;
665 gint *indices;
666 gboolean tax_related;
667 const char *code;
668 const char *pns;
669 GList *accounts;
670 TXFInfo *info;
671 GList *infos;
672 GList *node;
673 gint64 copy_number;
674
675 tax_related = gtk_toggle_button_get_active
676 (GTK_TOGGLE_BUTTON (ti_dialog->tax_related_button));
677
678 infos = tax_infos (ti_dialog);
679
680 view = GTK_TREE_VIEW(ti_dialog->txf_category_view);
681 selection = gtk_tree_view_get_selection(view);
682 if (!gtk_tree_selection_get_selected(selection, &model, &iter))
683 return;
684 path = gtk_tree_model_get_path(model, &iter);
685 indices = gtk_tree_path_get_indices(path);
686 info = g_list_nth_data (infos, indices[0]);
687 gtk_tree_path_free(path);
688 g_return_if_fail (info != NULL);
689
690 code = tax_related ? info->code : NULL;
691
692 if (tax_related && info->payer_name_source)
693 {
694 gboolean current;
695
696 current = gtk_toggle_button_get_active
697 (GTK_TOGGLE_BUTTON (ti_dialog->current_account_button));
698
699 pns = current ? "current" : "parent";
700 }
701 else
702 pns = NULL;
703
704 if (tax_related && info->copy)
705 {
706 copy_number = gtk_spin_button_get_value_as_int
707 (GTK_SPIN_BUTTON (ti_dialog->copy_spin_button));
708 }
709 else
710 copy_number = 0;/* setting to zero removes slot */
711
712 accounts = gnc_tree_view_account_get_selected_accounts
713 (GNC_TREE_VIEW_ACCOUNT(ti_dialog->account_treeview));
714
715 for (node = accounts; node; node = node->next)
716 {
717 Account *account = node->data;
718
719 xaccAccountBeginEdit (account);
720
721 xaccAccountSetTaxRelated (account, tax_related);
722 xaccAccountSetTaxUSPayerNameSource (account, pns);
723 xaccAccountSetTaxUSCopyNumber (account, copy_number);
724 /* USCode is last because it removes TaxUS KVP if not tax_related */
725 xaccAccountSetTaxUSCode (account, code);
726
727 xaccAccountCommitEdit (account);
728 }
729 g_list_free (accounts);
730}
731
732static void
733identity_edit_destroy_cb (GtkDialog *dialog, gpointer data)
734{
735 TaxInfoDialog *ti_dialog = data;
736
737 ti_dialog->entity_name_entry = NULL;
738 ti_dialog->entity_type_combo = NULL;
739
740 gtk_widget_destroy(GTK_WIDGET(dialog));
741}
742
743static void
744window_destroy_cb (GtkWidget *object, gpointer data)
745{
746 TaxInfoDialog *ti_dialog = data;
747
748 gnc_unregister_gui_component_by_data (DIALOG_TAX_INFO_CM_CLASS, ti_dialog);
749
750 destroy_tax_type_infos (ti_dialog->entity_type_infos);
751 ti_dialog->entity_type_infos = NULL;
752
753 destroy_txf_infos (ti_dialog->income_txf_infos);
754 ti_dialog->income_txf_infos = NULL;
755
756 destroy_txf_infos (ti_dialog->expense_txf_infos);
757 ti_dialog->expense_txf_infos = NULL;
758
759 destroy_txf_infos (ti_dialog->asset_txf_infos);
760 ti_dialog->asset_txf_infos = NULL;
761
762 destroy_txf_infos (ti_dialog->liab_eq_txf_infos);
763 ti_dialog->liab_eq_txf_infos = NULL;
764
765 g_free (ti_dialog);
766}
767
768static void
769cursor_changed_cb (GtkWidget *widget, gpointer data)
770{
771 TaxInfoDialog *ti_dialog = data;
772 GncTreeViewAccount *account_tree;
773 Account *account;
774 gint num_children;
775
776 account_tree = GNC_TREE_VIEW_ACCOUNT (ti_dialog->account_treeview);
777 account = gnc_tree_view_account_get_cursor_account (account_tree);
778 if (!account)
779 {
780 gtk_widget_set_sensitive(ti_dialog->select_button, FALSE);
781 return;
782 }
783
784 num_children = gnc_tree_view_account_count_children(account_tree, account);
785 gtk_widget_set_sensitive(ti_dialog->select_button, num_children > 0);
786}
787
788static void
789select_subaccounts_clicked (GtkWidget *widget, gpointer data)
790{
791 TaxInfoDialog *ti_dialog = data;
792 GncTreeViewAccount *account_tree;
793 Account *account;
794
795 account_tree = GNC_TREE_VIEW_ACCOUNT (ti_dialog->account_treeview);
796 account = gnc_tree_view_account_get_cursor_account (account_tree);
797 if (!account)
798 return;
799
800 gnc_tree_view_account_select_subaccounts (account_tree, account);
801
802 gtk_widget_grab_focus (ti_dialog->account_treeview);
803}
804
805static void
806gnc_tax_info_dialog_response (GtkDialog *dialog, gint response, gpointer data)
807{
808 TaxInfoDialog *ti_dialog = data;
809
810 if (ti_dialog->changed && (response == GTK_RESPONSE_APPLY || response == GTK_RESPONSE_OK))
811 gui_to_accounts (ti_dialog);
812
813 if (response != GTK_RESPONSE_APPLY)
814 gnc_close_gui_component_by_data (DIALOG_TAX_INFO_CM_CLASS, ti_dialog);
815}
816
817static void
818tax_info_show_acct_type_accounts (TaxInfoDialog *ti_dialog)
819{
820 GncTreeViewAccount *tree;
821 AccountViewInfo info;
822 GNCAccountType type;
823
824 tree = GNC_TREE_VIEW_ACCOUNT (ti_dialog->account_treeview);
825
826 gnc_tree_view_account_get_view_info (tree, &info);
827
828 for (type = 0; type < NUM_ACCOUNT_TYPES; type++) /* from Account.h */
829 {
830 if (ti_dialog->account_type == ACCT_TYPE_EXPENSE)
831 info.include_type[type] = (type == ACCT_TYPE_EXPENSE);
832 else if (ti_dialog->account_type == ACCT_TYPE_INCOME)
833 info.include_type[type] = (type == ACCT_TYPE_INCOME);
834 else if (ti_dialog->account_type == ACCT_TYPE_ASSET)
835 info.include_type[type] = ((type == ACCT_TYPE_BANK) ||
836 (type == ACCT_TYPE_CASH) ||
837 (type == ACCT_TYPE_ASSET) ||
838 (type == ACCT_TYPE_STOCK) ||
839 (type == ACCT_TYPE_MUTUAL) ||
840 (type == ACCT_TYPE_RECEIVABLE));
841 else if (ti_dialog->account_type == ACCT_TYPE_LIABILITY)
842 info.include_type[type] = ((type == ACCT_TYPE_CREDIT) ||
843 (type == ACCT_TYPE_LIABILITY) ||
844 (type == ACCT_TYPE_EQUITY) ||
845 (type == ACCT_TYPE_PAYABLE));
846 else
847 info.include_type[type] = FALSE;
848 }
849
850 info.show_hidden = TRUE;
851 gnc_tree_view_account_set_view_info (tree, &info);
852
853 load_category_list (ti_dialog);
854 cursor_changed_cb(GTK_WIDGET(tree), ti_dialog);
855}
856
857static int
858gnc_tax_info_update_accounts (TaxInfoDialog *ti_dialog)
859{
860 GncTreeViewAccount *tree;
861 GtkTreeSelection* selection;
862 GtkWidget *label;
863 int num_accounts;
864 char *string;
865
866 tree = GNC_TREE_VIEW_ACCOUNT(ti_dialog->account_treeview);
867 selection = gtk_tree_view_get_selection (GTK_TREE_VIEW(tree));
868 num_accounts = gtk_tree_selection_count_selected_rows (selection);
869
870 label = ti_dialog->num_acct_label;
871 string = g_strdup_printf (_("Accounts Selected: %d"), num_accounts);
872 gtk_label_set_text (GTK_LABEL (label), string);
873 g_free (string);
874
875 gtk_widget_set_sensitive (ti_dialog->txf_info, num_accounts > 0);
876
877 return num_accounts;
878}
879
880static void
881gnc_tax_info_set_acct (TaxInfoDialog *ti_dialog, Account *account)
882{
883 if (account == NULL)
884 return;
885
886 ti_dialog->account_type = xaccAccountTypeGetFundamental (xaccAccountGetType (account));
887
888 if (ti_dialog->account_type == ACCT_TYPE_INCOME)
889 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON(ti_dialog->income_radio), TRUE);
890 else if (ti_dialog->account_type == ACCT_TYPE_EXPENSE)
891 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON(ti_dialog->expense_radio), TRUE);
892 else if (ti_dialog->account_type == ACCT_TYPE_ASSET)
893 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON(ti_dialog->asset_radio), TRUE);
894 else if ((ti_dialog->account_type == ACCT_TYPE_LIABILITY) ||
895 (ti_dialog->account_type == ACCT_TYPE_EQUITY))
896 gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON(ti_dialog->liab_eq_radio), TRUE);
897 else
898 return;
899
900 gnc_tree_view_account_set_selected_account (GNC_TREE_VIEW_ACCOUNT(ti_dialog->account_treeview),
901 account);
902}
903
904static void
905gnc_tax_info_acct_type_cb (GtkWidget *w, gpointer data)
906{
907 TaxInfoDialog *ti_dialog = data;
908 const gchar *button_name;
909
910 if (gtk_toggle_button_get_active (GTK_TOGGLE_BUTTON (w)))
911 {
912 button_name = gtk_buildable_get_name(GTK_BUILDABLE(w));
913 if (g_strcmp0 (button_name, "income_radio") == 0)
914 ti_dialog->account_type = ACCT_TYPE_INCOME;
915 else if (g_strcmp0 (button_name, "expense_radio") == 0)
916 ti_dialog->account_type = ACCT_TYPE_EXPENSE;
917 else if (g_strcmp0 (button_name, "asset_radio") == 0)
918 ti_dialog->account_type = ACCT_TYPE_ASSET;
919 else if (g_strcmp0 (button_name, "liab_eq_radio") == 0)
920 ti_dialog->account_type = ACCT_TYPE_LIABILITY;
921 else
922 return;
923 tax_info_show_acct_type_accounts (ti_dialog);
924 gnc_tree_view_account_refilter
925 (GNC_TREE_VIEW_ACCOUNT (ti_dialog->account_treeview));
926 gnc_tax_info_update_accounts (ti_dialog);
927 clear_gui (ti_dialog);
928 }
929 else
930 return;
931}
932
933static void
934gnc_tax_info_account_changed_cb (GtkTreeSelection *selection,
935 gpointer data)
936{
937 TaxInfoDialog *ti_dialog = data;
938 GncTreeViewAccount *view;
939 GList *accounts;
940 int num_accounts;
941
942 g_return_if_fail(GTK_IS_TREE_SELECTION(selection));
943
944 num_accounts = gnc_tax_info_update_accounts (ti_dialog);
945 switch (num_accounts)
946 {
947 case 0:
948 clear_gui (ti_dialog);
949 gnc_tax_info_set_changed (ti_dialog, FALSE);
950 return;
951
952 case 1:
953 /* Get the account. This view is set for multiple selection, so we
954 can only get a list of accounts. */
955 view = GNC_TREE_VIEW_ACCOUNT(ti_dialog->account_treeview);
956 accounts = gnc_tree_view_account_get_selected_accounts (view);
957 if (accounts == NULL)
958 {
959 clear_gui (ti_dialog);
960 gnc_tax_info_set_changed (ti_dialog, FALSE);
961 return;
962 }
963 account_to_gui (ti_dialog, accounts->data);
964 g_list_free (accounts);
965
966 gnc_tax_info_set_changed (ti_dialog, FALSE);
967 break;
968
969 default:
970 gnc_tax_info_set_changed (ti_dialog, TRUE);
971 return;
972 }
973}
974
975static void
976txf_code_select_row_cb (GtkTreeSelection *selection,
977 gpointer user_data)
978{
979 TaxInfoDialog *ti_dialog = user_data;
980 GtkTreeModel *model;
981 GtkTreePath *path;
982 GtkTreeIter iter;
983 gint *indices;
984 TXFInfo *txf_info;
985 GtkAdjustment *adj;
986 GtkWidget *vbox;
987 GtkTextBuffer *tb;
988 const char *text;
989
990 if (!gtk_tree_selection_get_selected(selection, &model, &iter))
991 return;
992 path = gtk_tree_model_get_path(model, &iter);
993 indices = gtk_tree_path_get_indices(path);
994 txf_info = g_list_nth_data (tax_infos (ti_dialog), indices[0]);
995 gtk_tree_path_free(path);
996
997 tb = gtk_text_view_get_buffer(GTK_TEXT_VIEW(ti_dialog->txf_help_text));
998
999 text = (txf_info && txf_info->help) ? txf_info->help : "";
1000 gtk_text_buffer_set_text (tb, text, -1);
1001
1002 adj = gtk_scrolled_window_get_vadjustment (GTK_SCROLLED_WINDOW (ti_dialog->help_scroll));
1003 gtk_adjustment_set_value (adj, 0.0);
1004
1005 vbox = ti_dialog->payer_vbox;
1006
1007 if (txf_info && txf_info->payer_name_source)
1008 {
1009 gboolean current;
1010
1011 gtk_widget_set_sensitive (vbox, TRUE);
1012
1013 current = (strcmp ("current", txf_info->payer_name_source) == 0);
1014
1015 if (current)
1016 gtk_toggle_button_set_active
1017 (GTK_TOGGLE_BUTTON (ti_dialog->current_account_button), TRUE);
1018 else
1019 gtk_toggle_button_set_active
1020 (GTK_TOGGLE_BUTTON (ti_dialog->parent_account_button), TRUE);
1021 }
1022 else
1023 {
1024 gtk_widget_set_sensitive (vbox, FALSE);
1025 gtk_toggle_button_set_active
1026 (GTK_TOGGLE_BUTTON (ti_dialog->current_account_button), TRUE);
1027 }
1028
1029 vbox = ti_dialog->copy_vbox;
1030
1031 if (txf_info && txf_info->copy)
1032 {
1033 gtk_widget_set_sensitive (vbox, TRUE);
1034 }
1035 else
1036 {
1037 gtk_widget_set_sensitive (vbox, FALSE);
1038 }
1039
1040 gnc_tax_info_set_changed (ti_dialog, TRUE);
1041}
1042
1043static void
1044set_focus_sensitivity (TaxInfoDialog *ti_dialog)
1045{
1046 if ((ti_dialog->tax_type == NULL) ||
1047 (g_strcmp0 (ti_dialog->tax_type, "Other") == 0) ||
1048 (g_strcmp0 (ti_dialog->tax_type, "") == 0))
1049 {
1050 gtk_widget_grab_focus (ti_dialog->tax_identity_edit_button);
1051 gtk_widget_set_sensitive (ti_dialog->acct_info, FALSE);
1052 gtk_widget_set_sensitive (ti_dialog->txf_info, FALSE);
1053 gtk_widget_hide (ti_dialog->txf_help_text); /* textview doesn't go insensitive!? */
1054 }
1055 else if (ti_dialog->tax_type_changed)
1056 {
1057 gtk_widget_set_sensitive (ti_dialog->acct_info, TRUE);
1058 gtk_widget_set_sensitive (ti_dialog->txf_info, TRUE);
1059 gtk_widget_grab_focus (ti_dialog->account_treeview);
1060 }
1061 else
1062 {
1063 gtk_widget_set_sensitive (ti_dialog->acct_info, TRUE);
1064 gtk_widget_grab_focus (ti_dialog->account_treeview);
1065 }
1066 if (ti_dialog->asset_txf_infos == NULL)
1067 gtk_widget_hide (ti_dialog->asset_radio);
1068 else
1069 gtk_widget_show (ti_dialog->asset_radio);
1070 if (ti_dialog->liab_eq_txf_infos == NULL)
1071 gtk_widget_hide (ti_dialog->liab_eq_radio);
1072 else
1073 gtk_widget_show (ti_dialog->liab_eq_radio);
1074}
1075
1076static void
1077identity_edit_response_cb (GtkDialog *dialog, gint response, gpointer data)
1078{
1079 TaxInfoDialog *ti_dialog = data;
1080 const gchar *entry_name = NULL;
1081 const gchar *entry_type = NULL;
1082 gboolean tax_name_changed = FALSE;
1083 gint active_item = 0;
1084 TaxTypeInfo *selected_type = NULL;
1085
1086 if (response == GTK_RESPONSE_APPLY)
1087 {
1088 entry_name = gtk_entry_get_text (GTK_ENTRY (ti_dialog->entity_name_entry));
1089 active_item = gtk_combo_box_get_active
1090 (GTK_COMBO_BOX (ti_dialog->entity_type_combo));
1091 if (active_item != -1) /* -1 if there's no active item */
1092 {
1093 selected_type = g_list_nth_data (ti_dialog->entity_type_infos,
1094 (guint) active_item);
1095 if (selected_type)
1096 {
1097 entry_type = selected_type->type_code;
1098 if (!(g_strcmp0 (ti_dialog->tax_type, entry_type) == 0))
1099 {
1100 if (!((g_strcmp0 (ti_dialog->tax_type, "") == 0) &&
1101 (g_strcmp0 (entry_type, "Other") == 0)))
1102 { /* tax type changed */
1103 ti_dialog->tax_type_changed = TRUE;
1104 ti_dialog->tax_type = entry_type;
1105 if (entry_type != NULL)
1106 {
1107 gtk_label_set_text (GTK_LABEL (ti_dialog->entity_type_display),
1108 selected_type->combo_box_entry);
1109 }
1110 else
1111 {
1112 gtk_label_set_text (GTK_LABEL (ti_dialog->entity_type_display),
1113 ti_dialog->default_tax_type);
1114 }
1115 if (ti_dialog->income_txf_infos != NULL)
1116 destroy_txf_infos (ti_dialog->income_txf_infos);
1117 ti_dialog->income_txf_infos = load_txf_info (INCOME, ti_dialog);
1118 if (ti_dialog->expense_txf_infos != NULL)
1119 destroy_txf_infos (ti_dialog->expense_txf_infos);
1120 ti_dialog->expense_txf_infos = load_txf_info (EXPENSE, ti_dialog);
1121 if (ti_dialog->asset_txf_infos != NULL)
1122 destroy_txf_infos (ti_dialog->asset_txf_infos);
1123 ti_dialog->asset_txf_infos = load_txf_info (ASSET, ti_dialog);
1124 if (ti_dialog->liab_eq_txf_infos != NULL)
1125 destroy_txf_infos (ti_dialog->liab_eq_txf_infos);
1126 ti_dialog->liab_eq_txf_infos = load_txf_info (LIAB_EQ, ti_dialog);
1127 gtk_toggle_button_set_active
1128 (GTK_TOGGLE_BUTTON(ti_dialog->expense_radio), TRUE);
1129 tax_info_show_acct_type_accounts (ti_dialog);
1130 gnc_tree_view_account_refilter
1131 (GNC_TREE_VIEW_ACCOUNT (ti_dialog->account_treeview));
1132 gnc_tax_info_update_accounts (ti_dialog);
1133 clear_gui (ti_dialog);
1134 }
1135 else /* tax type changed but from "" to "Other" - doesn't count as change */
1136 ti_dialog->tax_type_changed = FALSE;
1137 }
1138 else /* tax type not changed */
1139 ti_dialog->tax_type_changed = FALSE;
1140 }
1141 }
1142 if (!(g_strcmp0 (ti_dialog->tax_name, entry_name) == 0))
1143 {
1144 if (!(((ti_dialog->tax_name == NULL) &&
1145 (g_strcmp0 (entry_name, "") == 0))))
1146 {
1147 tax_name_changed = TRUE;
1148 ti_dialog->tax_name = g_strdup (entry_name);
1149 gtk_label_set_text (GTK_LABEL (ti_dialog->entity_name_display),
1150 entry_name);
1151 }
1152 else /* tax name changed but from NULL to "" - doesn't count as change */
1153 tax_name_changed = FALSE;
1154 }
1155 else /* tax name not changed */
1156 tax_name_changed = FALSE;
1157 if (tax_name_changed || ti_dialog->tax_type_changed)
1158 gnc_set_current_book_tax_name_type (tax_name_changed, entry_name,
1159 ti_dialog->tax_type_changed, entry_type);
1160 set_focus_sensitivity (ti_dialog);
1161 ti_dialog->tax_type_changed = FALSE;
1162 }
1163 identity_edit_destroy_cb (GTK_DIALOG (dialog), ti_dialog);
1164}
1165
1166static void
1167identity_edit_clicked_cb (GtkButton *button,
1168 gpointer user_data)
1169{
1170 TaxInfoDialog *ti_dialog = user_data;
1171 GtkWidget *dialog;
1172 GtkWidget *content_area;
1173 GtkWidget *name_entry;
1174 GtkWidget *label;
1175 GtkWidget *table;
1176 GtkListStore *store;
1177 GList *types = NULL;
1178 GtkTreeIter iter;
1179 gint current_item = -1;
1180 gint item = 0;
1181 GtkCellRenderer *renderer;
1182 GtkWidget *type_combo;
1183
1184 dialog = gtk_dialog_new_with_buttons (_("Income Tax Identity"),
1185 (GtkWindow *)ti_dialog->dialog,
1186 GTK_DIALOG_MODAL |
1187 GTK_DIALOG_DESTROY_WITH_PARENT,
1188 _("_Cancel"),
1189 GTK_RESPONSE_CANCEL,
1190 _("_Apply"),
1191 GTK_RESPONSE_APPLY,
1192 NULL);
1193
1194 content_area = gtk_dialog_get_content_area (GTK_DIALOG (dialog));
1195 name_entry = gtk_entry_new();
1196 ti_dialog->entity_name_entry = name_entry;
1197 if (!(g_strcmp0 (ti_dialog->tax_name, NULL) == 0))
1198 gtk_entry_set_text (GTK_ENTRY (name_entry), ti_dialog->tax_name);
1199 label = gtk_label_new (_("Name"));
1200 gnc_label_set_alignment (label, 1.00, 0.50);
1201 table = gtk_grid_new ();
1202 gtk_grid_set_column_spacing (GTK_GRID(table), 12);
1203 gtk_grid_attach (GTK_GRID(table), label, 0, 0, 1, 1);
1204 gtk_grid_attach (GTK_GRID(table), name_entry, 1, 0, 1, 1);
1205
1206 store = gtk_list_store_new (1, G_TYPE_STRING);
1207 gtk_list_store_clear(store);
1208 types = ti_dialog->entity_type_infos;
1209 for ( ; types; types = types->next)
1210 {
1211 TaxTypeInfo *tax_type_info = types->data;
1212
1213 gtk_list_store_append(store, &iter);
1214 gtk_list_store_set(store, &iter, 0, tax_type_info->combo_box_entry, -1);
1215 if (g_strcmp0 (ti_dialog->tax_type, tax_type_info->type_code) == 0)
1216 current_item = item;
1217 item++;
1218 }
1219 type_combo = gtk_combo_box_new_with_model (GTK_TREE_MODEL(store));
1220 g_object_unref(G_OBJECT (store));
1221 renderer = gtk_cell_renderer_text_new();
1222 gtk_cell_layout_pack_start(GTK_CELL_LAYOUT(type_combo), renderer, TRUE);
1223 gtk_cell_layout_set_attributes(GTK_CELL_LAYOUT(type_combo), renderer,
1224 "text", 0, NULL);
1225 ti_dialog->entity_type_combo = type_combo;
1226 if (ti_dialog->tax_type)
1227 {
1228 gtk_combo_box_set_active (GTK_COMBO_BOX (type_combo), current_item);
1229 }
1230 else /* set to no active item */
1231 {
1232 gtk_combo_box_set_active (GTK_COMBO_BOX (type_combo), -1);
1233 }
1234 label = gtk_label_new (_("Type"));
1235 gnc_label_set_alignment (label, 1.00, 0.50);
1236 gtk_grid_attach (GTK_GRID(table), label, 0, 1, 1, 1);
1237 gtk_grid_attach (GTK_GRID(table), type_combo, 1, 1, 1, 1);
1238
1239 label = gtk_label_new (_("CAUTION: If you set TXF categories, and later change 'Type', you will need to manually reset those categories one at a time"));
1240 gtk_label_set_max_width_chars (GTK_LABEL (label), 50);
1241 gtk_label_set_line_wrap (GTK_LABEL (label), TRUE);
1242 gnc_label_set_alignment (label, 0.50, 0.50);
1243 gtk_widget_set_margin_top (GTK_WIDGET(label), 5);
1244 gtk_grid_attach (GTK_GRID(table), label, 0, 2, 2, 1);
1245
1246 gtk_container_add (GTK_CONTAINER (content_area), table);
1247 gtk_dialog_set_default_response (GTK_DIALOG (dialog), GTK_RESPONSE_APPLY);
1248 g_signal_connect (G_OBJECT (dialog), "response",
1249 G_CALLBACK (identity_edit_response_cb), ti_dialog);
1250 g_signal_connect (G_OBJECT (dialog), "destroy",
1251 G_CALLBACK (identity_edit_destroy_cb), ti_dialog);
1252 gtk_widget_show_all (dialog);
1253}
1254
1255static void
1256tax_related_toggled_cb (GtkToggleButton *togglebutton,
1257 gpointer user_data)
1258{
1259 TaxInfoDialog *ti_dialog = user_data;
1260 GtkWidget *vbox;
1261 GtkWidget *hbox;
1262 gboolean on;
1263
1264 on = gtk_toggle_button_get_active (togglebutton);
1265
1266 vbox = ti_dialog->txf_vbox;
1267 hbox = ti_dialog->pns_vbox;
1268 gtk_widget_set_sensitive (vbox, on);
1269
1270 gtk_widget_set_sensitive (hbox, on);
1271
1272 if (on == FALSE)
1273 gtk_widget_hide (ti_dialog->txf_help_text); /* textview doesn't go insensitive!? */
1274 else
1275 gtk_widget_show (ti_dialog->txf_help_text);
1276
1277 gnc_tax_info_set_changed (ti_dialog, TRUE);
1278}
1279
1280static void
1281current_account_toggled_cb (GtkToggleButton *togglebutton,
1282 gpointer user_data)
1283{
1284 TaxInfoDialog *ti_dialog = user_data;
1285
1286 gnc_tax_info_set_changed (ti_dialog, TRUE);
1287}
1288
1289static void
1290copy_number_value_changed_cb (GtkSpinButton *spinbutton,
1291 gpointer user_data)
1292{
1293 TaxInfoDialog *ti_dialog = user_data;
1294
1295 gnc_tax_info_set_changed (ti_dialog, TRUE);
1296}
1297
1298static void
1299gnc_tax_info_dialog_create (GtkWidget * parent, TaxInfoDialog *ti_dialog)
1300{
1301 GtkWidget *dialog;
1302 GtkBuilder *builder;
1303 GtkTreeView *tree_view;
1304 GtkTreeSelection *selection;
1305 GtkWidget *label;
1306
1307 builder = gtk_builder_new();
1308 gnc_builder_add_from_file (builder, "dialog-tax-info.glade", "copy_spin_adj");
1309 gnc_builder_add_from_file (builder, "dialog-tax-info.glade", "tax_information_dialog");
1310
1311 dialog = GTK_WIDGET(gtk_builder_get_object (builder, "tax_information_dialog"));
1312 ti_dialog->dialog = dialog;
1313
1314 // Set the name for this dialog so it can be easily manipulated with css
1315 gtk_widget_set_name (GTK_WIDGET(dialog), "gnc-id-tax-information");
1316 gnc_widget_style_context_add_class (GTK_WIDGET(dialog), "gnc-class-taxes");
1317
1318 initialize_getters ();
1319
1320 g_signal_connect (G_OBJECT (dialog), "response",
1321 G_CALLBACK (gnc_tax_info_dialog_response), ti_dialog);
1322
1323 g_signal_connect (G_OBJECT (dialog), "destroy",
1324 G_CALLBACK (window_destroy_cb), ti_dialog);
1325
1326 /* parent */
1327 if (parent != NULL)
1328 gtk_window_set_transient_for (GTK_WINDOW (dialog), GTK_WINDOW (parent));
1329
1330 /* default to ok */
1331 gtk_dialog_set_default_response (GTK_DIALOG(dialog), GTK_RESPONSE_OK);
1332
1333 /* tax identity */
1334 {
1335 GtkWidget *label;
1336 GtkWidget *edit_button;
1337
1338 ti_dialog->this_book = gnc_get_current_book();
1339 ti_dialog->tax_name = gnc_get_current_book_tax_name();
1340 ti_dialog->tax_type = gnc_get_current_book_tax_type();
1341
1342 label = GTK_WIDGET(gtk_builder_get_object (builder, "entity_name"));
1343 ti_dialog->entity_name_display = label;
1344 gtk_label_set_text (GTK_LABEL (label), ti_dialog->tax_name);
1345 ti_dialog->entity_name_entry = NULL;
1346
1347 load_tax_entity_type_list (ti_dialog); /* initialize tax_type_combo_text */
1348
1349 label = GTK_WIDGET(gtk_builder_get_object (builder, "entity_type"));
1350 ti_dialog->entity_type_display = label;
1351 if (ti_dialog->tax_type != NULL)
1352 gtk_label_set_text (GTK_LABEL (label), ti_dialog->tax_type_combo_text);
1353 ti_dialog->entity_type_combo = NULL;
1354
1355 edit_button = GTK_WIDGET(gtk_builder_get_object (builder, "identity_edit_button"));
1356 ti_dialog->tax_identity_edit_button = edit_button;
1357 g_signal_connect (G_OBJECT (edit_button), "clicked",
1358 G_CALLBACK (identity_edit_clicked_cb), ti_dialog);
1359 ti_dialog->tax_type_changed = FALSE;
1360 }
1361
1362 ti_dialog->income_txf_infos = load_txf_info (INCOME, ti_dialog);
1363 ti_dialog->expense_txf_infos = load_txf_info (EXPENSE, ti_dialog);
1364 ti_dialog->asset_txf_infos = load_txf_info (ASSET, ti_dialog);
1365 ti_dialog->liab_eq_txf_infos = load_txf_info (LIAB_EQ, ti_dialog);
1366
1367 /* tax information */
1368 {
1369 GtkListStore *store;
1370 GtkTreeViewColumn *column;
1371 GtkCellRenderer *renderer;
1372 GtkWidget *button;
1373 GtkWidget *text;
1374
1375 ti_dialog->txf_info = GTK_WIDGET(gtk_builder_get_object (builder, "tax_info_vbox"));
1376 button = GTK_WIDGET(gtk_builder_get_object (builder, "tax_related_button"));
1377 ti_dialog->tax_related_button = button;
1378
1379 g_signal_connect (G_OBJECT (button), "toggled",
1380 G_CALLBACK (tax_related_toggled_cb), ti_dialog);
1381
1382 text = GTK_WIDGET(gtk_builder_get_object (builder, "txf_help_text"));
1383 gtk_text_view_set_wrap_mode(GTK_TEXT_VIEW(text), GTK_WRAP_WORD);
1384 ti_dialog->txf_help_text = text;
1385
1386 tree_view = GTK_TREE_VIEW(gtk_builder_get_object (builder, "txf_category_view"));
1387 store = gtk_list_store_new(2, G_TYPE_STRING, G_TYPE_STRING);
1388 gtk_tree_view_set_model(tree_view, GTK_TREE_MODEL(store));
1389 g_object_unref(store);
1390 renderer = gtk_cell_renderer_text_new();
1391 column = gtk_tree_view_column_new_with_attributes
1392 (_("Form"), renderer, "text", 0, NULL);
1393 gtk_tree_view_append_column(tree_view, GTK_TREE_VIEW_COLUMN(column));
1394 renderer = gtk_cell_renderer_text_new();
1395 column = gtk_tree_view_column_new_with_attributes
1396 (_("Description"), renderer, "text", 1, NULL);
1397 gtk_tree_view_append_column(tree_view, GTK_TREE_VIEW_COLUMN(column));
1398 ti_dialog->txf_category_view = GTK_WIDGET(tree_view);
1399
1400 selection = gtk_tree_view_get_selection(tree_view);
1401 g_signal_connect (G_OBJECT (selection), "changed",
1402 G_CALLBACK (txf_code_select_row_cb), ti_dialog);
1403
1404 label = GTK_WIDGET(gtk_builder_get_object (builder, "txf_category_label"));
1405 gtk_label_set_mnemonic_widget(GTK_LABEL(label), GTK_WIDGET(tree_view));
1406
1407 ti_dialog->apply_button = GTK_WIDGET(gtk_builder_get_object (builder, "apply_button"));
1408
1409 button = GTK_WIDGET(gtk_builder_get_object (builder, "current_account_button"));
1410 ti_dialog->current_account_button = button;
1411
1412 button = GTK_WIDGET(gtk_builder_get_object (builder, "parent_account_button"));
1413 ti_dialog->parent_account_button = button;
1414
1415 ti_dialog->help_scroll = GTK_WIDGET(gtk_builder_get_object (builder, "help_scroll"));
1416 ti_dialog->payer_vbox = GTK_WIDGET(gtk_builder_get_object (builder, "payer_name_source_vbox"));
1417 ti_dialog->copy_vbox = GTK_WIDGET(gtk_builder_get_object (builder, "copy_number_vbox"));
1418 ti_dialog->txf_vbox = GTK_WIDGET(gtk_builder_get_object (builder, "txf_categories_vbox"));
1419 ti_dialog->pns_vbox = GTK_WIDGET(gtk_builder_get_object (builder, "pns_copy_hbox"));
1420
1421 g_signal_connect (G_OBJECT (button), "toggled",
1422 G_CALLBACK (current_account_toggled_cb),
1423 ti_dialog);
1424
1425 button = GTK_WIDGET(gtk_builder_get_object (builder, "copy_spin_button"));
1426 ti_dialog->copy_spin_button = button;
1427
1428 g_signal_connect (G_OBJECT (button), "value-changed",
1429 G_CALLBACK (copy_number_value_changed_cb),
1430 ti_dialog);
1431 }
1432
1433 /* account tree */
1434 {
1435 GtkWidget *income_radio, *expense_radio, *asset_radio,
1436 *liab_eq_radio, *box;
1437
1438 ti_dialog->acct_info = GTK_WIDGET(gtk_builder_get_object (builder, "acct_info_vbox"));
1439 ti_dialog->num_acct_label = GTK_WIDGET(gtk_builder_get_object (builder, "num_accounts_label"));
1440
1441 tree_view = gnc_tree_view_account_new (FALSE);
1442 gnc_tree_view_account_set_filter (GNC_TREE_VIEW_ACCOUNT(tree_view),
1443 gnc_tax_info_dialog_account_filter_func,
1444 ti_dialog, NULL);
1445 ti_dialog->account_treeview = GTK_WIDGET(tree_view);
1446
1447 selection = gtk_tree_view_get_selection (tree_view);
1448 gtk_tree_selection_set_mode (selection, GTK_SELECTION_MULTIPLE);
1449 g_signal_connect (G_OBJECT (selection), "changed",
1450 G_CALLBACK (gnc_tax_info_account_changed_cb),
1451 ti_dialog);
1452
1453 gtk_widget_show (ti_dialog->account_treeview);
1454 box = GTK_WIDGET(gtk_builder_get_object (builder, "account_scroll"));
1455 gtk_container_add (GTK_CONTAINER (box), ti_dialog->account_treeview);
1456
1457 label = GTK_WIDGET(gtk_builder_get_object (builder, "accounts_label"));
1458 gtk_label_set_mnemonic_widget(GTK_LABEL(label), GTK_WIDGET(tree_view));
1459
1460 income_radio = GTK_WIDGET(gtk_builder_get_object (builder, "income_radio"));
1461 ti_dialog->income_radio = income_radio;
1462 expense_radio = GTK_WIDGET(gtk_builder_get_object (builder, "expense_radio"));
1463 ti_dialog->expense_radio = expense_radio;
1464 asset_radio = GTK_WIDGET(gtk_builder_get_object (builder, "asset_radio"));
1465 ti_dialog->asset_radio = asset_radio;
1466 liab_eq_radio = GTK_WIDGET(gtk_builder_get_object (builder, "liab_eq_radio"));
1467 ti_dialog->liab_eq_radio = liab_eq_radio;
1468 ti_dialog->account_type = ACCT_TYPE_EXPENSE;
1469 gtk_toggle_button_set_active(GTK_TOGGLE_BUTTON(expense_radio), TRUE);
1470
1471 g_signal_connect (G_OBJECT (income_radio), "toggled",
1472 G_CALLBACK (gnc_tax_info_acct_type_cb),
1473 ti_dialog);
1474 g_signal_connect (G_OBJECT (expense_radio), "toggled",
1475 G_CALLBACK (gnc_tax_info_acct_type_cb),
1476 ti_dialog);
1477 g_signal_connect (G_OBJECT (asset_radio), "toggled",
1478 G_CALLBACK (gnc_tax_info_acct_type_cb),
1479 ti_dialog);
1480 g_signal_connect (G_OBJECT (liab_eq_radio), "toggled",
1481 G_CALLBACK (gnc_tax_info_acct_type_cb),
1482 ti_dialog);
1483 }
1484
1485 /* select subaccounts button */
1486 {
1487 GtkWidget *button;
1488
1489 button = GTK_WIDGET(gtk_builder_get_object (builder, "select_subaccounts_button"));
1490 ti_dialog->select_button = button;
1491
1492 g_signal_connect (G_OBJECT (button), "clicked",
1493 G_CALLBACK (select_subaccounts_clicked),
1494 ti_dialog);
1495 g_signal_connect (G_OBJECT (ti_dialog->account_treeview), "cursor_changed",
1496 G_CALLBACK (cursor_changed_cb),
1497 ti_dialog);
1498 }
1499
1500 tax_info_show_acct_type_accounts (ti_dialog);
1501 gnc_tax_info_update_accounts (ti_dialog);
1502 clear_gui (ti_dialog);
1503 gnc_tax_info_set_changed (ti_dialog, FALSE);
1504
1505 gnc_restore_window_size(GNC_PREFS_GROUP,
1506 GTK_WINDOW(ti_dialog->dialog), GTK_WINDOW (parent));
1507
1508
1509 if (gnc_prefs_get_bool(GNC_PREFS_GROUP_GENERAL, GNC_PREF_SAVE_GEOMETRY))
1510 {
1511 GObject *object = gtk_builder_get_object (builder, "paned");
1512 gnc_prefs_bind (GNC_PREFS_GROUP, GNC_PREF_PANED_POS, NULL, object, "position");
1513 }
1514 g_object_unref (builder);
1515}
1516
1517static void
1518close_handler (gpointer user_data)
1519{
1520 TaxInfoDialog *ti_dialog = user_data;
1521
1522 gnc_save_window_size(GNC_PREFS_GROUP, GTK_WINDOW(ti_dialog->dialog));
1523 gtk_widget_destroy (ti_dialog->dialog);
1524}
1525
1526static void
1527refresh_handler (GHashTable *changes, gpointer user_data)
1528{
1529 TaxInfoDialog *ti_dialog = user_data;
1530
1531 gnc_tax_info_update_accounts (ti_dialog);
1532}
1533
1534/********************************************************************\
1535 * gnc_tax_info_dialog *
1536 * opens up a window to set account tax information *
1537 * *
1538 * Args: parent - the parent of the window to be created *
1539 * Return: nothing *
1540\********************************************************************/
1541void
1542gnc_tax_info_dialog (GtkWidget * parent, Account * account)
1543{
1544 TaxInfoDialog *ti_dialog;
1545 gint component_id;
1546
1547 ti_dialog = g_new0 (TaxInfoDialog, 1);
1548
1549 gnc_tax_info_dialog_create (parent, ti_dialog);
1550
1551 if (account)
1552 gnc_tax_info_set_acct (ti_dialog, account);
1553
1554 component_id = gnc_register_gui_component (DIALOG_TAX_INFO_CM_CLASS,
1555 refresh_handler, close_handler,
1556 ti_dialog);
1557 gnc_gui_component_set_session (component_id, gnc_get_current_session ());
1558
1559 gnc_gui_component_watch_entity_type (component_id,
1560 GNC_ID_ACCOUNT,
1561 QOF_EVENT_MODIFY | QOF_EVENT_DESTROY);
1562
1563 set_focus_sensitivity (ti_dialog);
1564
1565 gtk_widget_show (ti_dialog->dialog);
1566}
Account.h
Account handling public routines.
gnc-prefs.h
Generic api to store and retrieve preferences.
gnc-tree-view-account.h
GtkTreeView implementation for gnucash account tree.
gnc-ui-util.h
utility functions for the GnuCash UI
python.gnucash_core._
_(s)
Definition gnucash_core.py:205
xaccAccountCommitEdit
void xaccAccountCommitEdit(Account *acc)
ThexaccAccountCommitEdit() subroutine is the second phase of a two-phase-commit wrapper for account u...
Definition Account.cpp:1516
xaccAccountBeginEdit
void xaccAccountBeginEdit(Account *acc)
The xaccAccountBeginEdit() subroutine is the first phase of a two-phase-commit wrapper for account up...
Definition Account.cpp:1475
GNCAccountType
GNCAccountType
The account types are used to determine how the transaction data in the account is displayed.
Definition Account.h:103
xaccAccountGetType
GNCAccountType xaccAccountGetType(const Account *acc)
Returns the account's account type.
Definition Account.cpp:3267
ACCT_TYPE_INCOME
@ ACCT_TYPE_INCOME
Income accounts are used to denote income.
Definition Account.h:140
ACCT_TYPE_MUTUAL
@ ACCT_TYPE_MUTUAL
Mutual Fund accounts will typically be shown in registers which show three columns: price,...
Definition Account.h:125
ACCT_TYPE_EXPENSE
@ ACCT_TYPE_EXPENSE
Expense accounts are used to denote expenses.
Definition Account.h:143
ACCT_TYPE_BANK
@ ACCT_TYPE_BANK
The bank account type denotes a savings or checking account held at a bank.
Definition Account.h:107
ACCT_TYPE_ASSET
@ ACCT_TYPE_ASSET
asset (and liability) accounts indicate generic, generalized accounts that are none of the above.
Definition Account.h:116
ACCT_TYPE_LIABILITY
@ ACCT_TYPE_LIABILITY
liability (and asset) accounts indicate generic, generalized accounts that are none of the above.
Definition Account.h:119
ACCT_TYPE_EQUITY
@ ACCT_TYPE_EQUITY
Equity account is used to balance the balance sheet.
Definition Account.h:146
ACCT_TYPE_CREDIT
@ ACCT_TYPE_CREDIT
The Credit card account is used to denote credit (e.g.
Definition Account.h:113
NUM_ACCOUNT_TYPES
@ NUM_ACCOUNT_TYPES
stop here; the following types just aren't ready for prime time
Definition Account.h:161
xaccAccountSetTaxUSCopyNumber
void xaccAccountSetTaxUSCopyNumber(Account *acc, gint64 copy_number)
Saves copy_number in KVP if it is greater than 1; if copy_number is zero, deletes KVP.
Definition Account.cpp:4078
xaccAccountTypeGetFundamental
GNCAccountType xaccAccountTypeGetFundamental(GNCAccountType t)
Convenience function to return the fundamental type asset/liability/income/expense/equity given an ac...
Definition Account.cpp:4495
xaccAccountGetTaxUSCopyNumber
gint64 xaccAccountGetTaxUSCopyNumber(const Account *acc)
Returns copy_number stored in KVP; if KVP doesn't exist or copy_number is zero, returns 1.
Definition Account.cpp:4071
xaccAccountSetTaxUSCode
void xaccAccountSetTaxUSCode(Account *acc, const char *code)
DOCUMENT ME!
Definition Account.cpp:4053
xaccAccountGetTaxRelated
gboolean xaccAccountGetTaxRelated(const Account *acc)
DOCUMENT ME!
Definition Account.cpp:4035
xaccAccountGetTaxUSCode
const char * xaccAccountGetTaxUSCode(const Account *acc)
DOCUMENT ME!
Definition Account.cpp:4047
xaccAccountGetTaxUSPayerNameSource
const char * xaccAccountGetTaxUSPayerNameSource(const Account *acc)
DOCUMENT ME!
Definition Account.cpp:4059
xaccAccountSetTaxRelated
void xaccAccountSetTaxRelated(Account *acc, gboolean tax_related)
DOCUMENT ME!
Definition Account.cpp:4041
xaccAccountSetTaxUSPayerNameSource
void xaccAccountSetTaxUSPayerNameSource(Account *acc, const char *source)
DOCUMENT ME!
Definition Account.cpp:4065
gnc_tree_view_account_select_subaccounts
void gnc_tree_view_account_select_subaccounts(GncTreeViewAccount *view, Account *account)
This function selects all sub-accounts of an account in the account tree view.
Definition gnc-tree-view-account.c:1666
gnc_tree_view_account_get_selected_accounts
GList * gnc_tree_view_account_get_selected_accounts(GncTreeViewAccount *view)
This function returns a list of the accounts associated with the selected items in the account tree v...
Definition gnc-tree-view-account.c:1566
gnc_tree_view_account_refilter
void gnc_tree_view_account_refilter(GncTreeViewAccount *view)
This function forces the account tree filter to be evaluated.
Definition gnc-tree-view-account.c:1297
gnc_tree_view_account_new
GtkTreeView * gnc_tree_view_account_new(gboolean show_root)
Create a new account tree view.
Definition gnc-tree-view-account.c:1070
gnc_tree_view_account_get_cursor_account
Account * gnc_tree_view_account_get_cursor_account(GncTreeViewAccount *view)
This function returns the account in the account tree view at the current location of the cursor.
Definition gnc-tree-view-account.c:1761
gnc_tree_view_account_get_view_info
void gnc_tree_view_account_get_view_info(GncTreeViewAccount *view, AccountViewInfo *avi)
Given pointers to an account tree and old style filter block, this function will copy the current con...
Definition gnc-tree-view-account.c:1214
gnc_tree_view_account_set_view_info
void gnc_tree_view_account_set_view_info(GncTreeViewAccount *view, AccountViewInfo *avi)
Given pointers to an account tree and old style filter block, this function will applies the settings...
Definition gnc-tree-view-account.c:1228
gnc_tree_view_account_set_selected_account
void gnc_tree_view_account_set_selected_account(GncTreeViewAccount *view, Account *account)
This function selects an account in the account tree view.
Definition gnc-tree-view-account.c:1448
gnc_tree_view_account_set_filter
void gnc_tree_view_account_set_filter(GncTreeViewAccount *view, gnc_tree_view_account_filter_func func, gpointer data, GSourceFunc destroy)
This function attaches a filter function to the given account tree.
Definition gnc-tree-view-account.c:1271
gnc_tree_view_account_count_children
gint gnc_tree_view_account_count_children(GncTreeViewAccount *view, Account *account)
This function determines if an account in the account tree view has any visible children.
Definition gnc-tree-view-account.c:1165
gnc_prefs_bind
void gnc_prefs_bind(const gchar *group, const gchar *pref_name, const gchar *pref_value, gpointer object, const gchar *property)
Bind a setting to a g_object property.
Definition gnc-prefs.cpp:180
gnc_prefs_get_bool
gboolean gnc_prefs_get_bool(const gchar *group, const gchar *pref_name)
Get a boolean value from the preferences backend.
Definition gmock-gnc-prefs.cpp:16
Account
STRUCTS.
QofBook
QofBook reference.
Definition qofbook-p.hpp:47
Generated by doxygen 1.9.8