/* This Register is an Account Payable / Receivable one */
static
gboolean
gsr2_determine_account_pr_dialog (gpointer argp)
{
dialog_args *args = argp;
GtkWidget *dialog;
const char *title = _("Account Payable / Receivable Register");
const char *message =
_("The register displayed is for Account Payable or Account Receivable. "
"Changing the entries may cause harm, please use the business "
"options to change the entries.");
dialog = gtk_message_dialog_new (GTK_WINDOW (args->gsr->window),
GTK_DIALOG_DESTROY_WITH_PARENT,
GTK_MESSAGE_WARNING,
GTK_BUTTONS_CLOSE,
"%s", title);
gtk_message_dialog_format_secondary_text (GTK_MESSAGE_DIALOG (dialog),
"%s", message);
gnc_dialog_run (GTK_DIALOG (dialog), GNC_PREF_WARN_REG_IS_ACCT_PAY_REC);
gtk_widget_destroy (dialog);
g_free (args);
return FALSE;
}
void
gnc_prices_dialog_remove_clicked (GtkWidget *widget, gpointer data)
{
PricesDialog *pdb_dialog = data;
GList *price_list;
gint length, response;
GtkWidget *dialog;
ENTER(" ");
price_list = gnc_tree_view_price_get_selected_prices(pdb_dialog->price_tree);
if (!price_list)
{
LEAVE("no price selected");
return;
}
length = g_list_length(price_list);
if (length > 1)
{
gchar *message;
message = g_strdup_printf
(/* Translators: %d is the number of prices. This
is a ngettext(3) message. */
ngettext("Are you sure you want to delete the %d selected price?",
"Are you sure you want to delete the %d selected prices?",
length),
length);
dialog = gtk_message_dialog_new(GTK_WINDOW(pdb_dialog->dialog),
GTK_DIALOG_DESTROY_WITH_PARENT,
GTK_MESSAGE_QUESTION,
GTK_BUTTONS_NONE,
"%s", _("Delete prices?"));
gtk_message_dialog_format_secondary_text(GTK_MESSAGE_DIALOG(dialog),
"%s", message);
g_free(message);
gtk_dialog_add_buttons(GTK_DIALOG(dialog),
GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
GTK_STOCK_DELETE, GTK_RESPONSE_YES,
(gchar *)NULL);
gtk_dialog_set_default_response(GTK_DIALOG(dialog), GTK_RESPONSE_YES);
response = gnc_dialog_run(GTK_DIALOG(dialog), "pricedb_remove_multiple");
gtk_widget_destroy(dialog);
}
else
{
response = GTK_RESPONSE_YES;
}
if (response == GTK_RESPONSE_YES)
{
g_list_foreach(price_list, (GFunc)remove_helper, pdb_dialog->price_db);
}
g_list_free(price_list);
LEAVE(" ");
}
/**
* Gtk has occasional problems with performing function as part of a
* callback. This routine gets called via a timer callback to get it out of
* the data path with the problem.
**/
static
gboolean
gtk_callback_bug_workaround (gpointer argp)
{
dialog_args *args = argp;
const gchar *read_only = _("This account register is read-only.");
GtkWidget *dialog;
dialog = gtk_message_dialog_new (GTK_WINDOW(args->gsr->window),
GTK_DIALOG_DESTROY_WITH_PARENT,
GTK_MESSAGE_WARNING,
GTK_BUTTONS_CLOSE,
"%s", read_only);
gtk_message_dialog_format_secondary_text (GTK_MESSAGE_DIALOG (dialog),
"%s", args->string);
gnc_dialog_run (GTK_DIALOG (dialog), GNC_PREF_WARN_REG_IS_READ_ONLY);
gtk_widget_destroy (dialog);
g_free (args);
return FALSE;
}
static void
remove_clicked (CommoditiesDialog *cd)
{
GNCPriceDB *pdb;
GList *prices;
gboolean can_delete;
gnc_commodity *commodity;
GtkWidget *dialog;
const gchar *message, *warning;
gint response;
commodity = gnc_tree_view_commodity_get_selected_commodity (cd->commodity_tree);
if (commodity == NULL)
return;
AccountList_t accounts = gnc_account_get_descendants (gnc_book_get_root_account(cd->book));
can_delete = TRUE;
for (AccountList_t::const_iterator node = accounts.begin();
node != accounts.end(); node++)
{
Account *account = *node;
if (commodity == xaccAccountGetCommodity (account))
{
can_delete = FALSE;
break;
}
}
/* FIXME check for transaction references */
if (!can_delete)
{
const char *message = _("That commodity is currently used by "
"at least one of your accounts. You may "
"not delete it.");
gnc_warning_dialog (cd->dialog, "%s", message);
return;
}
pdb = gnc_pricedb_get_db (cd->book);
prices = gnc_pricedb_get_prices(pdb, commodity, NULL);
if (prices)
{
message = _("This commodity has price quotes. Are "
"you sure you want to delete the selected "
"commodity and its price quotes?");
warning = "delete_commodity2";
}
else
{
message = _("Are you sure you want to delete the "
"selected commodity?");
warning = "delete_commodity";
}
dialog = gtk_message_dialog_new(GTK_WINDOW(cd->dialog),
GTK_DIALOG_DESTROY_WITH_PARENT,
GTK_MESSAGE_QUESTION,
GTK_BUTTONS_NONE,
"%s", _("Delete commodity?"));
gtk_message_dialog_format_secondary_text(GTK_MESSAGE_DIALOG(dialog),
"%s", message);
gtk_dialog_add_buttons(GTK_DIALOG(dialog),
GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
GTK_STOCK_DELETE, GTK_RESPONSE_OK,
(gchar *)NULL);
response = gnc_dialog_run(GTK_DIALOG(dialog), warning);
gtk_widget_destroy(dialog);
if (response == GTK_RESPONSE_OK)
{
gnc_commodity_table *ct;
ct = gnc_commodity_table_get_table (cd->book);
for (GList *node = prices; node; node = node->next)
gnc_pricedb_remove_price(pdb, node->data);
gnc_commodity_table_remove (ct, commodity);
gnc_commodity_destroy (commodity);
commodity = NULL;
}
gnc_price_list_destroy(prices);
gnc_gui_refresh_all ();
}
static gboolean gnc_entry_ledger_traverse (VirtualLocation *p_new_virt_loc,
gncTableTraversalDir dir,
gpointer user_data)
{
GncEntryLedger *ledger = user_data;
GncEntry *entry, *new_entry;
gint response;
VirtualLocation virt_loc;
int changed;
char const *cell_name;
gboolean exact_traversal;
if (!ledger) return FALSE;
exact_traversal = (dir == GNC_TABLE_TRAVERSE_POINTER);
entry = gnc_entry_ledger_get_current_entry (ledger);
if (!entry)
return FALSE;
/* no changes, make sure we aren't going off the end */
changed = gnc_table_current_cursor_changed (ledger->table, FALSE);
if (!changed)
return FALSE;
virt_loc = *p_new_virt_loc;
cell_name = gnc_table_get_current_cell_name (ledger->table);
/* See if we are leaving the account field */
do
{
ComboCell *cell;
char *name;
char *cell_name = NULL;
switch (ledger->type)
{
case GNCENTRY_INVOICE_ENTRY:
case GNCENTRY_INVOICE_VIEWER:
case GNCENTRY_CUST_CREDIT_NOTE_ENTRY:
case GNCENTRY_CUST_CREDIT_NOTE_VIEWER:
cell_name = ENTRY_IACCT_CELL;
break;
case GNCENTRY_BILL_ENTRY:
case GNCENTRY_BILL_VIEWER:
case GNCENTRY_EXPVOUCHER_ENTRY:
case GNCENTRY_EXPVOUCHER_VIEWER:
case GNCENTRY_VEND_CREDIT_NOTE_ENTRY:
case GNCENTRY_VEND_CREDIT_NOTE_VIEWER:
case GNCENTRY_EMPL_CREDIT_NOTE_ENTRY:
case GNCENTRY_EMPL_CREDIT_NOTE_VIEWER:
cell_name = ENTRY_BACCT_CELL;
break;
default:
g_warning ("Unhandled ledger type");
break;
}
if (!cell_name)
break;
if (!gnc_cell_name_equal (cell_name, cell_name))
break;
if (!gnc_table_layout_get_cell_changed (ledger->table->layout,
cell_name, FALSE))
break;
cell = (ComboCell *) gnc_table_layout_get_cell (ledger->table->layout,
cell_name);
if (!cell)
break;
name = cell->cell.value;
if (!name || *name == '\0')
break;
/* Create the account if necessary. Also checks for a placeholder */
if (!gnc_entry_ledger_get_account_by_name (ledger, (BasicCell *) cell,
cell->cell.value,
&ledger->full_refresh))
return TRUE;
}
while (FALSE);
/* See if we are leaving the TaxTable field */
do
{
ComboCell *cell;
GncTaxTable *table;
char *name;
if (!gnc_cell_name_equal (cell_name, ENTRY_TAXTABLE_CELL))
break;
if (!gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_TAXTABLE_CELL, FALSE))
break;
cell = (ComboCell *) gnc_table_layout_get_cell (ledger->table->layout,
ENTRY_TAXTABLE_CELL);
if (!cell)
break;
name = cell->cell.value;
if (!name || *name == '\0')
break;
table = gncTaxTableLookupByName (ledger->book, cell->cell.value);
if (table)
break;
{
const char *format = _("The tax table %s does not exist. "
"Would you like to create it?");
if (!gnc_verify_dialog (ledger->parent, TRUE, format, name))
break;
}
ledger->full_refresh = FALSE;
table = gnc_ui_tax_table_new_from_name (ledger->book, name);
if (!table)
break;
ledger->full_refresh = TRUE;
name = (char *)gncTaxTableGetName (table);
gnc_combo_cell_set_value (cell, name);
gnc_basic_cell_set_changed (&cell->cell, TRUE);
}
while (FALSE);
/* See if we are tabbing off the end of the very last line
* (i.e. the blank entry)
*/
do
{
VirtualLocation virt_loc;
if (!changed && !ledger->blank_entry_edited)
break;
if (dir != GNC_TABLE_TRAVERSE_RIGHT)
break;
virt_loc = ledger->table->current_cursor_loc;
if (gnc_table_move_vertical_position (ledger->table, &virt_loc, 1))
break;
virt_loc = ledger->table->current_cursor_loc;
if (gnc_table_move_tab (ledger->table, &virt_loc, TRUE))
break;
*p_new_virt_loc = ledger->table->current_cursor_loc;
/* Yep, we're trying to leave the blank entry -- make sure
* we are allowed to do so by verifying the current cursor.
* If the current cursor is ok, then move on!
*/
/* Verify that the cursor is ok. If we can't save the cell, don't move! */
if (!gnc_entry_ledger_verify_can_save (ledger))
{
return TRUE;
}
(p_new_virt_loc->vcell_loc.virt_row)++;
p_new_virt_loc->phys_row_offset = 0;
p_new_virt_loc->phys_col_offset = 0;
ledger->traverse_to_new = TRUE;
/* If we're here, we're tabbing off the end of the 'blank entry' */
return FALSE;
}
while (FALSE);
/* Now see if we are changing cursors. If not, we may be able to
* auto-complete. */
if (!gnc_table_virtual_cell_out_of_bounds (ledger->table,
virt_loc.vcell_loc))
{
if (gnc_entry_ledger_auto_completion (ledger, dir, p_new_virt_loc))
return FALSE;
}
/* Check for going off the end */
gnc_table_find_close_valid_cell (ledger->table, &virt_loc, exact_traversal);
/* Same entry, no problem -- we're just moving backwards in the cursor */
new_entry = gnc_entry_ledger_get_entry (ledger, virt_loc.vcell_loc);
if (entry == new_entry)
{
*p_new_virt_loc = virt_loc;
return FALSE;
}
/* If we are here, then we are trying to leave the cursor. Make sure
* the cursor we are leaving is valid. If so, ask the user if the
* changes should be recorded. If not, don't go anywhere.
*/
/* Verify this cursor -- if it's not valid, don't let them move on */
if (!gnc_entry_ledger_verify_can_save (ledger))
{
*p_new_virt_loc = ledger->table->current_cursor_loc;
return TRUE;
}
/*
* XXX GNCENTRY_INVOICE_EDIT processing to be added:
* 1) check if the qty field changed.
* 2) if so, check if this entry is part of an order.
* 3) if so, ask if they want to change the entry or
* split the entry into two parts.
*/
/* Ok, we are changing lines and the current entry has
* changed. We only ask them what they want to do in
* limited cases -- usually just let the change go through.
*/
{
GtkWidget *dialog;
const char *title = _("Save the current entry?");
const char *message =
_("The current entry has been changed. However, this entry is "
"part of an existing order. Would you like to record the change "
"and effectively change your order?");
switch (ledger->type)
{
case GNCENTRY_INVOICE_ENTRY:
case GNCENTRY_CUST_CREDIT_NOTE_ENTRY:
if (gncEntryGetOrder (entry) != NULL)
{
dialog = gtk_message_dialog_new(GTK_WINDOW(ledger->parent),
GTK_DIALOG_DESTROY_WITH_PARENT,
GTK_MESSAGE_QUESTION,
GTK_BUTTONS_NONE,
"%s", title);
gtk_message_dialog_format_secondary_text(GTK_MESSAGE_DIALOG(dialog),
"%s", message);
gtk_dialog_add_buttons(GTK_DIALOG(dialog),
_("_Don't Record"), GTK_RESPONSE_REJECT,
GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
_("_Record"), GTK_RESPONSE_ACCEPT,
NULL);
response = gnc_dialog_run(GTK_DIALOG(dialog), "invoice_entry_changed");
gtk_widget_destroy(dialog);
break;
}
/* FALL THROUGH */
default:
response = GTK_RESPONSE_ACCEPT;
break;
}
}
switch (response)
{
case GTK_RESPONSE_ACCEPT:
break;
case GTK_RESPONSE_REJECT:
{
VirtualCellLocation vcell_loc;
GncEntry *new_entry;
new_entry = gnc_entry_ledger_get_entry (ledger, virt_loc.vcell_loc);
gnc_entry_ledger_cancel_cursor_changes (ledger);
if (gnc_entry_ledger_find_entry (ledger, new_entry, &vcell_loc))
virt_loc.vcell_loc = vcell_loc;
gnc_table_find_close_valid_cell (ledger->table, &virt_loc,
exact_traversal);
*p_new_virt_loc = virt_loc;
}
break;
case GTK_RESPONSE_CANCEL:
default:
return TRUE;
}
return FALSE;
}