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

handle transfer types

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@475 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 1998-02-01 04:36:05 +00:00
parent a7897cbffe
commit cbad81edeb
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/Ledger.c
View File

@ -63,10 +63,29 @@ xaccSaveRegEntry (BasicRegister *reg)
/* ======================================================== */
static Account *
GetPeerAcc (Split *split)
{
Account *acc;
Transaction *trans;
trans = (Transaction *) (split->parent);
/* hack alert -- this is incorrect for splits in general */
if (split != &(trans->credit_split)) {
acc = (Account *) trans->credit_split.acc;
} else {
acc = (Account *) trans->debit_splits[0]->acc;
}
return acc;
}
/* ======================================================== */
void
xaccLoadRegEntry (BasicRegister *reg, Split *split)
{
Transaction *trans;
Account *acc;
char buff[2];
if (!split) return;
@ -85,6 +104,10 @@ xaccLoadRegEntry (BasicRegister *reg, Split *split)
buff[1] = 0x0;
xaccSetBasicCellValue (reg->recnCell, buff);
/* the transfer account */
acc = GetPeerAcc (split);
xaccSetBasicCellValue (&(reg->xfrmCell->cell), acc->accountName);
xaccSetDebCredCellValue (reg->debitCell,
reg->creditCell, split->damount);