static void
gnc_template_register_save_debcred_cell (BasicCell * cell,
gpointer save_data,
gpointer user_data)
{
SRSaveData *sd = save_data;
SplitRegister *reg = user_data;
const char *credit_formula, *debit_formula;
char *error_loc;
gnc_numeric credit_amount, debit_amount;
gboolean parse_result;
g_return_if_fail (gnc_basic_cell_has_name (cell, FDEBT_CELL) ||
gnc_basic_cell_has_name (cell, FCRED_CELL));
if (sd->handled_dc)
return;
/* amountStr = gnc_numeric_to_string (new_amount); */
credit_formula = gnc_table_layout_get_cell_value (reg->table->layout,
FCRED_CELL);
/* If the value can be parsed into a numeric result (without any
* further variable definitions), store that numeric value
* additionally in the kvp. Otherwise store a zero numeric
* there.*/
parse_result = gnc_exp_parser_parse_separate_vars(credit_formula,
&credit_amount,
&error_loc, NULL);
if (!parse_result)
credit_amount = gnc_numeric_zero();
debit_formula = gnc_table_layout_get_cell_value (reg->table->layout,
FDEBT_CELL);
/* If the value can be parsed into a numeric result, store that
* numeric value additionally. See above comment.*/
parse_result = gnc_exp_parser_parse_separate_vars(debit_formula,
&debit_amount,
&error_loc, NULL);
if (!parse_result)
debit_amount = gnc_numeric_zero();
qof_instance_set (QOF_INSTANCE (sd->split),
"sx-credit-formula", credit_formula,
"sx-credit-numeric", &credit_amount,
"sx-debit-formula", debit_formula,
"sx-debit-numeric", &debit_amount,
NULL);
/* set the amount to an innocuous value */
/* Note that this marks the split dirty */
xaccSplitSetValue (sd->split, gnc_numeric_create (0, 1));
sd->handled_dc = TRUE;
}
static void
gnc_template_register_save_debcred_cell (BasicCell * cell,
gpointer save_data,
gpointer user_data)
{
SRSaveData *sd = save_data;
SplitRegister *reg = user_data;
kvp_frame *kvpf;
const char *value;
char *error_loc;
gnc_numeric new_amount;
gboolean parse_result;
g_return_if_fail (gnc_basic_cell_has_name (cell, FDEBT_CELL) ||
gnc_basic_cell_has_name (cell, FCRED_CELL));
if (sd->handled_dc)
return;
kvpf = xaccSplitGetSlots (sd->split);
DEBUG ("kvp_frame before: %s\n", kvp_frame_to_string (kvpf));
/* amountStr = gnc_numeric_to_string (new_amount); */
value = gnc_table_layout_get_cell_value (reg->table->layout, FCRED_CELL);
kvp_frame_set_slot_path (kvpf, kvp_value_new_string (value),
GNC_SX_ID,
GNC_SX_CREDIT_FORMULA,
NULL);
/* If the value can be parsed into a numeric result (without any
* further variable definitions), store that numeric value
* additionally in the kvp. Otherwise store a zero numeric
* there.*/
parse_result = gnc_exp_parser_parse_separate_vars(value, &new_amount, &error_loc, NULL);
if (!parse_result)
{
new_amount = gnc_numeric_zero();
}
kvp_frame_set_slot_path (kvpf, kvp_value_new_numeric (new_amount),
GNC_SX_ID,
GNC_SX_CREDIT_NUMERIC,
NULL);
value = gnc_table_layout_get_cell_value (reg->table->layout, FDEBT_CELL);
kvp_frame_set_slot_path (kvpf,
kvp_value_new_string (value),
GNC_SX_ID,
GNC_SX_DEBIT_FORMULA,
NULL);
/* If the value can be parsed into a numeric result, store that
* numeric value additionally. See above comment.*/
parse_result = gnc_exp_parser_parse_separate_vars(value, &new_amount, &error_loc, NULL);
if (!parse_result)
{
new_amount = gnc_numeric_zero();
}
kvp_frame_set_slot_path (kvpf, kvp_value_new_numeric (new_amount),
GNC_SX_ID,
GNC_SX_DEBIT_NUMERIC,
NULL);
DEBUG ("kvp_frame after: %s\n", kvp_frame_to_string (kvpf));
/* set the amount to an innocuous value */
/* Note that this marks the split dirty */
xaccSplitSetValue (sd->split, gnc_numeric_create (0, 1));
sd->handled_dc = TRUE;
}
static void gnc_entry_ledger_save_cells (gpointer save_data,
gpointer user_data)
{
GncEntryLedger *ledger = user_data;
GncEntry *entry = save_data;
g_return_if_fail (entry != NULL);
/* copy the contents from the cursor to the split */
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_IACCT_CELL, TRUE))
{
Account *acc;
acc = gnc_entry_ledger_get_account (ledger, ENTRY_IACCT_CELL);
if (acc != NULL)
gncEntrySetInvAccount (entry, acc);
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_BACCT_CELL, TRUE))
{
Account *acc;
acc = gnc_entry_ledger_get_account (ledger, ENTRY_BACCT_CELL);
if (acc != NULL)
gncEntrySetBillAccount (entry, acc);
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_ACTN_CELL, TRUE))
{
const char *value;
value = gnc_table_layout_get_cell_value (ledger->table->layout,
ENTRY_ACTN_CELL);
gncEntrySetAction (entry, value);
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_DATE_CELL, TRUE))
{
BasicCell *cell;
GDate date;
cell = gnc_table_layout_get_cell (ledger->table->layout, ENTRY_DATE_CELL);
/* commit any pending changes */
gnc_date_cell_commit ((DateCell *) cell);
gnc_date_cell_get_date_gdate ((DateCell *) cell, &date);
gncEntrySetDateGDate (entry, &date);
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_DESC_CELL, TRUE))
{
const char *value;
value = gnc_table_layout_get_cell_value (ledger->table->layout,
ENTRY_DESC_CELL);
gncEntrySetDescription (entry, value);
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_DISC_CELL, TRUE))
{
gnc_numeric amount;
if (gnc_entry_ledger_get_numeric (ledger, ENTRY_DISC_CELL, &amount))
gncEntrySetInvDiscount (entry, amount);
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_DISTYPE_CELL, TRUE))
{
gint type;
type = gnc_entry_ledger_get_type (ledger, ENTRY_DISTYPE_CELL);
if (type != -1)
gncEntrySetInvDiscountType (entry, type);
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_DISHOW_CELL, TRUE))
{
gint type;
type = gnc_entry_ledger_get_type (ledger, ENTRY_DISHOW_CELL);
if (type != -1)
gncEntrySetInvDiscountHow (entry, type);
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_QTY_CELL, TRUE))
{
gnc_numeric amount;
if (gnc_entry_ledger_get_numeric (ledger, ENTRY_QTY_CELL, &amount))
{
gncEntrySetDocQuantity (entry, amount, ledger->is_credit_note);
}
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_BILLABLE_CELL, TRUE))
{
gboolean billable;
billable = gnc_entry_ledger_get_checkmark (ledger, ENTRY_BILLABLE_CELL);
gncEntrySetBillable (entry, billable);
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_PAYMENT_CELL, TRUE))
{
const char *value;
value = gnc_table_layout_get_cell_value (ledger->table->layout,
ENTRY_PAYMENT_CELL);
if (!g_strcmp0 (value, _("Cash")))
gncEntrySetBillPayment (entry, GNC_PAYMENT_CASH);
else if (!g_strcmp0 (value, _("Charge")))
gncEntrySetBillPayment (entry, GNC_PAYMENT_CARD);
else
g_warning ("Invalid Payment cell: %s", value ? value : "(null)");
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_PRIC_CELL, TRUE))
{
gnc_numeric amount;
if (gnc_entry_ledger_get_numeric (ledger, ENTRY_PRIC_CELL, &amount))
{
if (ledger->is_cust_doc)
gncEntrySetInvPrice (entry, amount);
else
gncEntrySetBillPrice (entry, amount);
}
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_TAXABLE_CELL, TRUE))
{
gboolean taxable;
taxable = gnc_entry_ledger_get_checkmark (ledger, ENTRY_TAXABLE_CELL);
if (ledger->is_cust_doc)
gncEntrySetInvTaxable (entry, taxable);
else
gncEntrySetBillTaxable (entry, taxable);
}
/* XXX: Only (re-set) these if taxable is TRUE? */
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_TAXTABLE_CELL, TRUE))
{
GncTaxTable *table;
table = gnc_entry_ledger_get_taxtable (ledger, ENTRY_TAXTABLE_CELL);
if (table)
{
if (ledger->is_cust_doc)
gncEntrySetInvTaxTable (entry, table);
else
gncEntrySetBillTaxTable (entry, table);
}
}
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_TAXINCLUDED_CELL, TRUE))
{
gboolean taxincluded;
taxincluded = gnc_entry_ledger_get_checkmark (ledger,
ENTRY_TAXINCLUDED_CELL);
if (ledger->is_cust_doc)
gncEntrySetInvTaxIncluded (entry, taxincluded);
else
gncEntrySetBillTaxIncluded (entry, taxincluded);
}
if (ledger->type == GNCENTRY_INVOICE_ENTRY ||
ledger->type == GNCENTRY_CUST_CREDIT_NOTE_ENTRY)
{
gboolean inv_value;
inv_value = gnc_entry_ledger_get_checkmark (ledger, ENTRY_INV_CELL);
if (inv_value)
{
/* Add this to the invoice (if it's not already attached) */
if (gncEntryGetInvoice (entry) == NULL)
gncInvoiceAddEntry (ledger->invoice, entry);
}
else
{
/* Remove from the invoice iff we're attached to an order or bill */
if ((gncEntryGetOrder (entry) != NULL) ||
(gncEntryGetBill (entry) != NULL))
gncInvoiceRemoveEntry (ledger->invoice, entry);
}
}
}
static gboolean
gnc_entry_ledger_auto_completion (GncEntryLedger *ledger,
gncTableTraversalDir dir,
VirtualLocation *p_new_virt_loc)
{
GncEntry *entry;
GncEntry *blank_entry;
GncEntry *auto_entry;
const char* cell_name;
const char *desc;
BasicCell *cell = NULL;
char *account_name = NULL;
char *new_value = NULL;
g_assert(ledger);
g_assert(ledger->table);
blank_entry = gnc_entry_ledger_get_blank_entry (ledger);
/* auto-completion is only triggered by a tab out */
if (dir != GNC_TABLE_TRAVERSE_RIGHT)
return FALSE;
entry = gnc_entry_ledger_get_current_entry (ledger);
if (entry == NULL)
return FALSE;
cell_name = gnc_table_get_current_cell_name (ledger->table);
/* Auto-completion is done only in an entry ledger */
switch (ledger->type)
{
case GNCENTRY_ORDER_ENTRY:
case GNCENTRY_INVOICE_ENTRY:
case GNCENTRY_BILL_ENTRY:
case GNCENTRY_EXPVOUCHER_ENTRY:
case GNCENTRY_CUST_CREDIT_NOTE_ENTRY:
case GNCENTRY_VEND_CREDIT_NOTE_ENTRY:
case GNCENTRY_EMPL_CREDIT_NOTE_ENTRY:
break;
default:
return FALSE;
}
/* Further conditions before we actually do auto-completion: */
/* There must be a blank entry */
if (blank_entry == NULL)
return FALSE;
/* we must be on the blank entry */
if (entry != blank_entry)
return FALSE;
/* and leaving the description cell */
if (!gnc_cell_name_equal (cell_name, ENTRY_DESC_CELL))
return FALSE;
/* nothing but the date and description should be changed */
/* FIXME, this should be refactored. */
if (gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_ACTN_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_QTY_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_PRIC_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_DISC_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_DISTYPE_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_DISHOW_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_IACCT_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_BACCT_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_TAXABLE_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_TAXINCLUDED_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_TAXTABLE_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_VALUE_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_TAXVAL_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_BILLABLE_CELL, TRUE)
|| gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_PAYMENT_CELL, TRUE))
return FALSE;
/* and the description should indeed be changed */
if (!gnc_table_layout_get_cell_changed (ledger->table->layout,
ENTRY_DESC_CELL, TRUE))
return FALSE;
/* to a non-empty value */
desc = gnc_table_layout_get_cell_value (ledger->table->layout, ENTRY_DESC_CELL);
if ((desc == NULL) || (*desc == '\0'))
return FALSE;
/* Ok, we are sure we want to trigger auto-completion. Now find an
* entry to copy the values from. FIXME: Currently we only use
* the entries from the current invoice/bill, but it would be
* better to draw this from a larger set of entries. */
auto_entry =
/* Use this for book-wide auto-completion of the invoice entries */
find_entry_in_book_by_desc(ledger, desc);
/* #else */
/* gnc_find_entry_in_reg_by_desc(ledger, desc); */
/* #endif */
if (auto_entry == NULL)
return FALSE;
/* now perform the completion */
gnc_suspend_gui_refresh ();
/* Auto-complete the action field */
cell = gnc_table_layout_get_cell (ledger->table->layout, ENTRY_ACTN_CELL);
set_value_combo_cell (cell, gncEntryGetAction (auto_entry));
/* Auto-complete the account field */
switch (ledger->type)
{
case GNCENTRY_INVOICE_ENTRY:
case GNCENTRY_CUST_CREDIT_NOTE_ENTRY:
cell = gnc_table_layout_get_cell (ledger->table->layout, ENTRY_IACCT_CELL);
account_name = gnc_get_account_name_for_register (gncEntryGetInvAccount(auto_entry));
break;
case GNCENTRY_EXPVOUCHER_ENTRY:
case GNCENTRY_BILL_ENTRY:
case GNCENTRY_VEND_CREDIT_NOTE_ENTRY:
case GNCENTRY_EMPL_CREDIT_NOTE_ENTRY:
cell = gnc_table_layout_get_cell (ledger->table->layout, ENTRY_BACCT_CELL);
account_name = gnc_get_account_name_for_register (gncEntryGetBillAccount(auto_entry));
break;
case GNCENTRY_ORDER_ENTRY:
default:
cell = NULL;
account_name = NULL;
break;
}
set_value_combo_cell (cell, account_name);
g_free (account_name);
/* Auto-complete quantity cell
* Note: we always autofill a positive quantity value. This allows us to
* - reuse invoice entries on credit note ledgers, meaning you can credit
* some invoice entry via autofill without having to manually fix the sign
* on the credit note.
* - autofill credit note entries on other credit note entries (without having
* to juggle sign reversals internally)
* - autofill credit note entries on invoice ledgers
*
* Disadvantage: invoice entries with explicitly set negative quantities will
* be autofilled to positive quantities in later uses. But it seems less common
* to me to require a negative entry again next time.
*/
cell = gnc_table_layout_get_cell (ledger->table->layout, ENTRY_QTY_CELL);
set_value_price_cell (cell, gnc_numeric_abs(gncEntryGetQuantity (auto_entry)));
/* Auto-complete price cell */
{
gnc_numeric price;
switch (ledger->type)
{
case GNCENTRY_INVOICE_ENTRY:
case GNCENTRY_CUST_CREDIT_NOTE_ENTRY:
price = gncEntryGetInvPrice (auto_entry);
break;
default:
price = gncEntryGetBillPrice (auto_entry);
}
/* Auto-complete price cell */
cell = gnc_table_layout_get_cell (ledger->table->layout, ENTRY_PRIC_CELL);
set_value_price_cell (cell, price);
}
/* We intentionally skip the discount column */
/* Taxable?, Tax-include?, Tax table */
{
gboolean taxable, taxincluded;
GncTaxTable *taxtable;
switch (ledger->type)
{
case GNCENTRY_INVOICE_ENTRY:
case GNCENTRY_CUST_CREDIT_NOTE_ENTRY:
taxable = gncEntryGetInvTaxable (auto_entry);
taxincluded = gncEntryGetInvTaxIncluded (auto_entry);
taxtable = gncEntryGetInvTaxTable (auto_entry);
break;
default:
taxable = gncEntryGetBillTaxable (auto_entry);
taxincluded = gncEntryGetBillTaxIncluded (auto_entry);
taxtable = gncEntryGetBillTaxTable (auto_entry);
}
/* Taxable? cell */
cell = gnc_table_layout_get_cell (ledger->table->layout, ENTRY_TAXABLE_CELL);
gnc_checkbox_cell_set_flag ((CheckboxCell *) cell, taxable);
gnc_basic_cell_set_changed (cell, TRUE);
/* taxincluded? cell */
cell = gnc_table_layout_get_cell (ledger->table->layout, ENTRY_TAXINCLUDED_CELL);
gnc_checkbox_cell_set_flag ((CheckboxCell *) cell, taxincluded);
gnc_basic_cell_set_changed (cell, TRUE);
/* Taxable? cell */
cell = gnc_table_layout_get_cell (ledger->table->layout, ENTRY_TAXTABLE_CELL);
set_value_combo_cell(cell, gncTaxTableGetName (taxtable));
}
gnc_resume_gui_refresh ();
/* now move to the non-empty amount column unless config setting says not */
if ( !gnc_gconf_get_bool(GCONF_GENERAL_REGISTER,
"tab_includes_transfer_on_memorised", NULL) )
{
VirtualLocation new_virt_loc;
const char *cell_name = ENTRY_QTY_CELL;
if (gnc_table_get_current_cell_location (ledger->table, cell_name,
&new_virt_loc))
*p_new_virt_loc = new_virt_loc;
}
return TRUE;
}
