IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

add debug statements for problem reported by Dave Reed <drlinux@columbus.rr.com>

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8180 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 2003-04-03 15:18:25 +00:00
parent 351a4c689a
commit 07f773530f
1 changed files with 47 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
src/engine/Scrub.c
View File

@ -203,6 +203,12 @@ xaccSplitScrub (Split *split)
account = xaccSplitGetAccount (split);
if (!account)
{
/* xxxxxxxxxx FIXME: if theres no account, we should
scrub for orphans, and fix that !!
only then should we proceed!
xaccTransScrubOrphans (trans,
--linas march 2003
*/
value = xaccSplitGetValue (split);
if (gnc_numeric_same (xaccSplitGetAmount (split),
@ -402,6 +408,14 @@ xaccTransScrubCurrency (Transaction *trans)
if (!trans) return;
/* If there are any orphaned splits in a transaction, then the
* TransScrubCurrency will fail for that transaction.
xxxxxxxxxxxxxxxxa FIXME: finish fixing me!!
--linas march 2003
xaccTransScrubOrphans (xaccSplitGetParent (split),
xaccAccountGetRoot (acc));
*/
currency = xaccTransGetCurrency (trans);
if (currency) return;
@ -414,12 +428,41 @@ xaccTransScrubCurrency (Transaction *trans)
}
else
{
PWARN ("no common transaction currency found");
if (NULL == trans->splits)
{
PWARN ("Transaction \"%s\" has no splits in it!", trans->description);
}
else
{
SplitList *node;
PWARN ("no common transaction currency found for trans=\"%s\"", trans->description);
for (node=trans->splits; node; node=node->next)
{
Split *split = node->data;
if (NULL == split->acc)
{
PWARN (" split=\"%s\" is not in any account!", split->memo);
}
else
{
PWARN (" split=\"%s\" account=\"%s\" commodity=\"%s\"",
split->memo, split->acc->accountName, gnc_commodity_get_mnemonic (split->acc->commodity));
}
}
}
}
{
Split *sp;
int i;
for (i=0; (sp = xaccTransGetSplit (trans, i)); i++) {
SplitList *node;
for (node=trans->splits; node; node=node->next)
{
Split *sp = node->data;
/*
xxxxxxxxxxxxxxx FIXME: this loop should perform the more
through SplitScrub at this point, although the actual flow
of logic for fixing things needs to be tweaked, because
some of the fixes are being done in the wrong order.
--linas march 2003
*/
if (!gnc_numeric_equal(xaccSplitGetAmount (sp),
xaccSplitGetValue (sp)))
{