mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-12-01 21:19:16 -06:00
1238b9d8cd
This will avoid a ninja-build from picking up a config.h generated by the autotools build (in the root build directory). Picking up the wrong config.h may lead to all kinds of subtle issues if the autotools run was done with different options than the cmake run.
329 lines
10 KiB
C
329 lines
10 KiB
C
/********************************************************************\
|
|
* policy.c -- Implement FIFO Accounting Policy *
|
|
* *
|
|
* This program 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. *
|
|
* *
|
|
* This program 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, contact: *
|
|
* *
|
|
* Free Software Foundation Voice: +1-617-542-5942 *
|
|
* 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652 *
|
|
* Boston, MA 02110-1301, USA gnu@gnu.org *
|
|
\********************************************************************/
|
|
|
|
/** @file policy.c
|
|
* @brief Implement FIFO Accounting Policy.
|
|
* @author Created by Linas Vepstas August 2003
|
|
* @author Copyright (c) 2003,2004 Linas Vepstas <linas@linas.org>
|
|
*
|
|
* This file implements the FIFO Accounting Policy (and, in the
|
|
* future, others as well). The Accounting Polciy determines
|
|
* how splits are assigned to lots.
|
|
*/
|
|
|
|
#include <config.h>
|
|
|
|
#include <glib.h>
|
|
|
|
#include "Account.h"
|
|
#include "Transaction.h"
|
|
#include "TransactionP.h"
|
|
#include "cap-gains.h"
|
|
#include "gnc-engine.h"
|
|
#include "gnc-lot.h"
|
|
#include "policy.h"
|
|
#include "policy-p.h"
|
|
|
|
#ifndef SWIG /* swig doesn't see N_() as a string constant */
|
|
#include <glib/gi18n.h>
|
|
#else
|
|
#define N_(string) string
|
|
#endif
|
|
|
|
#define FIFO_POLICY "fifo"
|
|
#define FIFO_POLICY_DESC N_("First In, First Out")
|
|
#define FIFO_POLICY_HINT N_("Use oldest lots first.")
|
|
#define LIFO_POLICY "lifo"
|
|
#define LIFO_POLICY_DESC N_("Last In, First Out")
|
|
#define LIFO_POLICY_HINT N_("Use newest lots first.")
|
|
#define AVERAGE_POLICY "average"
|
|
#define AVERAGE_POLICY_DESC N_("Average")
|
|
#define AVERAGE_POLICY_HINT N_("Average cost of open lots.")
|
|
#define MANUAL_POLICY "manual"
|
|
#define MANUAL_POLICY_DESC N_("Manual")
|
|
#define MANUAL_POLICY_HINT N_("Manually select lots.")
|
|
|
|
//static QofLogModule log_module = GNC_MOD_LOT;
|
|
|
|
GList *
|
|
gnc_get_valid_policy_list (void)
|
|
{
|
|
GList *return_list = NULL;
|
|
|
|
/* return_list = g_list_prepend (return_list, xaccGetManualPolicy());
|
|
return_list = g_list_prepend (return_list, xaccGetAveragePolicy()); */
|
|
return_list = g_list_prepend (return_list, xaccGetLIFOPolicy());
|
|
return_list = g_list_prepend (return_list, xaccGetFIFOPolicy());
|
|
|
|
return return_list;
|
|
}
|
|
|
|
gboolean
|
|
gnc_valid_policy_name (const gchar *policy_name)
|
|
{
|
|
GList *list_of_policies = NULL;
|
|
gboolean ret_val = FALSE;
|
|
|
|
if (!policy_name)
|
|
return ret_val;
|
|
|
|
list_of_policies = gnc_get_valid_policy_list();
|
|
if (!list_of_policies)
|
|
{
|
|
return ret_val;
|
|
}
|
|
else
|
|
{
|
|
GList *l = NULL;
|
|
for (l = list_of_policies; l != NULL; l = l->next)
|
|
{
|
|
GNCPolicy *list_pcy = l->data;
|
|
if (g_strcmp0(PolicyGetName (list_pcy), policy_name) == 0)
|
|
ret_val = TRUE;
|
|
}
|
|
g_list_free(list_of_policies);
|
|
return ret_val;
|
|
}
|
|
}
|
|
|
|
static Split *
|
|
DirectionPolicyGetSplit (GNCPolicy *pcy, GNCLot *lot, short reverse)
|
|
{
|
|
Split *split;
|
|
SplitList *node;
|
|
gnc_commodity *common_currency;
|
|
gboolean want_positive;
|
|
gnc_numeric baln;
|
|
Split *osplit;
|
|
Transaction *otrans;
|
|
Timespec open_ts;
|
|
Account* lot_account;
|
|
|
|
if (!pcy || !lot || !gnc_lot_get_split_list(lot)) return NULL;
|
|
lot_account = gnc_lot_get_account(lot);
|
|
if (!lot_account) return NULL;
|
|
|
|
/* Recomputing the balance re-evaluates the lot closure */
|
|
baln = gnc_lot_get_balance (lot);
|
|
if (gnc_lot_is_closed(lot)) return NULL;
|
|
|
|
want_positive = gnc_numeric_negative_p (baln);
|
|
|
|
/* All splits in lot must share a common transaction currency. */
|
|
split = gnc_lot_get_split_list(lot)->data;
|
|
common_currency = split->parent->common_currency;
|
|
|
|
/* Don't add a split to the lot unless it will be the new last
|
|
split in the lot. Otherwise our balance tests will be wrong
|
|
and the lot may end up too thin or too fat. */
|
|
osplit = gnc_lot_get_latest_split (lot);
|
|
otrans = osplit ? xaccSplitGetParent (osplit) : 0;
|
|
open_ts = xaccTransRetDatePostedTS (otrans);
|
|
|
|
/* Walk over *all* splits in the account, till we find one that
|
|
* hasn't been assigned to a lot. Return that split.
|
|
* Make use of the fact that the splits in an account are
|
|
* already in date order; so we don't have to sort. */
|
|
node = xaccAccountGetSplitList (lot_account);
|
|
if (reverse)
|
|
{
|
|
node = g_list_last (node);
|
|
}
|
|
while (node)
|
|
{
|
|
gboolean is_match;
|
|
gboolean is_positive;
|
|
Timespec this_ts;
|
|
split = node->data;
|
|
if (split->lot) goto donext;
|
|
|
|
/* Skip it if it's too early */
|
|
this_ts = xaccTransRetDatePostedTS ( xaccSplitGetParent (split));
|
|
if ((this_ts.tv_sec < open_ts.tv_sec) ||
|
|
((this_ts.tv_sec == open_ts.tv_sec) &&
|
|
(this_ts.tv_nsec < open_ts.tv_nsec)))
|
|
{
|
|
if (reverse)
|
|
/* Going backwards, no point in looking further */
|
|
break;
|
|
goto donext;
|
|
}
|
|
|
|
/* Allow equiv currencies */
|
|
is_match = gnc_commodity_equiv (common_currency,
|
|
split->parent->common_currency);
|
|
if (FALSE == is_match) goto donext;
|
|
|
|
/* Disallow zero-amount splits in general. */
|
|
if (gnc_numeric_zero_p(split->amount)) goto donext;
|
|
|
|
is_positive = gnc_numeric_positive_p (split->amount);
|
|
if ((want_positive && is_positive) ||
|
|
((!want_positive) && (!is_positive))) return split;
|
|
donext:
|
|
if (reverse)
|
|
{
|
|
node = node->prev;
|
|
}
|
|
else
|
|
{
|
|
node = node->next;
|
|
}
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
const char *
|
|
PolicyGetName (const GNCPolicy *pcy)
|
|
{
|
|
if(!pcy) return NULL;
|
|
return pcy->name;
|
|
}
|
|
|
|
const char *
|
|
PolicyGetDescription (const GNCPolicy *pcy)
|
|
{
|
|
if(!pcy) return NULL;
|
|
return pcy->description;
|
|
}
|
|
const char *
|
|
PolicyGetHint (const GNCPolicy *pcy)
|
|
{
|
|
if(!pcy) return NULL;
|
|
return pcy->hint;
|
|
}
|
|
|
|
/* ============================================================== */
|
|
|
|
static GNCLot *
|
|
FIFOPolicyGetLot (GNCPolicy *pcy, Split *split)
|
|
{
|
|
if (!split) return NULL;
|
|
return xaccAccountFindEarliestOpenLot (split->acc, split->amount,
|
|
split->parent->common_currency);
|
|
}
|
|
|
|
static Split *
|
|
FIFOPolicyGetSplit (GNCPolicy *pcy, GNCLot *lot)
|
|
{
|
|
return DirectionPolicyGetSplit (pcy, lot, 0);
|
|
}
|
|
|
|
static void
|
|
FIFOPolicyGetLotOpening (GNCPolicy *pcy,
|
|
GNCLot *lot,
|
|
gnc_numeric *ret_amount, gnc_numeric *ret_value,
|
|
gnc_commodity **ret_currency)
|
|
{
|
|
Split *opening_split;
|
|
opening_split = gnc_lot_get_earliest_split(lot);
|
|
|
|
if (ret_amount) *ret_amount = opening_split->amount;
|
|
if (ret_value) *ret_value = opening_split->value;
|
|
if (ret_currency) *ret_currency = opening_split->parent->common_currency;
|
|
}
|
|
|
|
static gboolean
|
|
FIFOPolicyIsOpeningSplit (GNCPolicy *pcy, GNCLot *lot, Split *split)
|
|
{
|
|
Split *opening_split;
|
|
opening_split = gnc_lot_get_earliest_split(lot);
|
|
return (split == opening_split);
|
|
}
|
|
|
|
GNCPolicy *
|
|
xaccGetFIFOPolicy (void)
|
|
{
|
|
static GNCPolicy *pcy = NULL;
|
|
|
|
if (!pcy)
|
|
{
|
|
pcy = g_new (GNCPolicy, 1);
|
|
pcy->name = FIFO_POLICY;
|
|
pcy->description = FIFO_POLICY_DESC;
|
|
pcy->hint = FIFO_POLICY_HINT;
|
|
pcy->PolicyGetLot = FIFOPolicyGetLot;
|
|
pcy->PolicyGetSplit = FIFOPolicyGetSplit;
|
|
pcy->PolicyGetLotOpening = FIFOPolicyGetLotOpening;
|
|
pcy->PolicyIsOpeningSplit = FIFOPolicyIsOpeningSplit;
|
|
}
|
|
return pcy;
|
|
}
|
|
|
|
static GNCLot *
|
|
LIFOPolicyGetLot (GNCPolicy *pcy, Split *split)
|
|
{
|
|
if (!split) return NULL;
|
|
return xaccAccountFindLatestOpenLot (split->acc, split->amount,
|
|
split->parent->common_currency);
|
|
}
|
|
|
|
static Split *
|
|
LIFOPolicyGetSplit (GNCPolicy *pcy, GNCLot *lot)
|
|
{
|
|
return DirectionPolicyGetSplit (pcy, lot, 1);
|
|
}
|
|
|
|
/* This routine is actually identical to FIFO... */
|
|
static void
|
|
LIFOPolicyGetLotOpening (GNCPolicy *pcy,
|
|
GNCLot *lot,
|
|
gnc_numeric *ret_amount, gnc_numeric *ret_value,
|
|
gnc_commodity **ret_currency)
|
|
{
|
|
Split *opening_split;
|
|
opening_split = gnc_lot_get_earliest_split(lot);
|
|
|
|
if (ret_amount) *ret_amount = opening_split->amount;
|
|
if (ret_value) *ret_value = opening_split->value;
|
|
if (ret_currency) *ret_currency = opening_split->parent->common_currency;
|
|
}
|
|
|
|
/* This routine is actually identical to FIFO... */
|
|
static gboolean
|
|
LIFOPolicyIsOpeningSplit (GNCPolicy *pcy, GNCLot *lot, Split *split)
|
|
{
|
|
Split *opening_split;
|
|
opening_split = gnc_lot_get_earliest_split(lot);
|
|
return (split == opening_split);
|
|
}
|
|
|
|
GNCPolicy *
|
|
xaccGetLIFOPolicy (void)
|
|
{
|
|
static GNCPolicy *pcy = NULL;
|
|
|
|
if (!pcy)
|
|
{
|
|
pcy = g_new (GNCPolicy, 1);
|
|
pcy->name = LIFO_POLICY;
|
|
pcy->description = LIFO_POLICY_DESC;
|
|
pcy->hint = LIFO_POLICY_HINT;
|
|
pcy->PolicyGetLot = LIFOPolicyGetLot;
|
|
pcy->PolicyGetSplit = LIFOPolicyGetSplit;
|
|
pcy->PolicyGetLotOpening = LIFOPolicyGetLotOpening;
|
|
pcy->PolicyIsOpeningSplit = LIFOPolicyIsOpeningSplit;
|
|
}
|
|
return pcy;
|
|
}
|
|
|
|
/* =========================== END OF FILE ======================= */
|