mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
remove dead code
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1021 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas
parent
a9c8ca5cdd
commit
133918f416
427
src/Ledger.c
427
src/Ledger.c
@ -1,427 +0,0 @@
|
|||||||
#ifdef OBSOLETE
|
|
||||||
/*
|
|
||||||
* FILE:
|
|
||||||
* Ledger.c
|
|
||||||
*
|
|
||||||
* FUNCTION:
|
|
||||||
* copy transaction data from engine into ledger object
|
|
||||||
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
||||||
|
|
||||||
HACK ALERT -- THIS CODE IS MORE OR LESS OBSOLESCENT, AND HAS BEEN
|
|
||||||
REPLACED BY SPLITLEDGER.C IT SHOULD BE DELETED BEFORE TOO LONG.
|
|
||||||
|
|
||||||
*
|
|
||||||
* HISTORY:
|
|
||||||
* Copyright (c) 1998 Linas Vepstas
|
|
||||||
*/
|
|
||||||
|
|
||||||
/********************************************************************\
|
|
||||||
* 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, write to the Free Software *
|
|
||||||
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. *
|
|
||||||
\********************************************************************/
|
|
||||||
|
|
||||||
#include <stdio.h>
|
|
||||||
|
|
||||||
#include "Ledger.h"
|
|
||||||
#include "messages.h"
|
|
||||||
#include "MultiLedger.h"
|
|
||||||
#include "register.h"
|
|
||||||
#include "table-allgui.h"
|
|
||||||
#include "Transaction.h"
|
|
||||||
|
|
||||||
#define BUFSIZE 1024
|
|
||||||
|
|
||||||
/* ======================================================== */
|
|
||||||
/* this callback gets called when the user clicks on the gui
|
|
||||||
* in such a way as to leave the current transaction, and to
|
|
||||||
* go to a new one. So, save the current transaction.
|
|
||||||
*/
|
|
||||||
|
|
||||||
static void
|
|
||||||
LedgerMoveCursor (Table *table, void * client_data)
|
|
||||||
{
|
|
||||||
BasicRegister *reg = (BasicRegister *) client_data;
|
|
||||||
xaccBRSaveRegEntry (reg);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* ======================================================== */
|
|
||||||
|
|
||||||
static void
|
|
||||||
LedgerDestroy (BasicRegister *reg)
|
|
||||||
{
|
|
||||||
/* be sure to destroy the "blank split" */
|
|
||||||
if (reg->user_hook) {
|
|
||||||
Split *split;
|
|
||||||
|
|
||||||
split = (Split *) (reg->user_hook);
|
|
||||||
|
|
||||||
/* split destroy will automatically remove it
|
|
||||||
* from its parent account */
|
|
||||||
xaccSplitDestroy (split);
|
|
||||||
reg->user_hook = NULL;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/* ======================================================== */
|
|
||||||
|
|
||||||
Split *
|
|
||||||
xaccBRGetCurrentSplit (BasicRegister *reg)
|
|
||||||
{
|
|
||||||
CellBlock *cursor;
|
|
||||||
Split *split;
|
|
||||||
|
|
||||||
/* get the handle to the current split and transaction */
|
|
||||||
cursor = reg->table->current_cursor;
|
|
||||||
split = (Split *) cursor->user_data;
|
|
||||||
|
|
||||||
return split;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* ======================================================== */
|
|
||||||
/* a split always has a partner */
|
|
||||||
|
|
||||||
static char *
|
|
||||||
GetOtherAccName (Split *split)
|
|
||||||
{
|
|
||||||
Account *acc = NULL;
|
|
||||||
Transaction *trans;
|
|
||||||
Split *s, *other_split;
|
|
||||||
int numsplits;
|
|
||||||
|
|
||||||
trans = xaccSplitGetParent (split);
|
|
||||||
|
|
||||||
numsplits = xaccTransCountSplits (trans);
|
|
||||||
if (2 < numsplits) return SPLIT_STR;
|
|
||||||
|
|
||||||
s = xaccTransGetSplit (trans, 0);
|
|
||||||
if (s == split) {
|
|
||||||
other_split = xaccTransGetSplit (trans, 1);
|
|
||||||
} else {
|
|
||||||
other_split = s;
|
|
||||||
}
|
|
||||||
|
|
||||||
acc = xaccSplitGetAccount (other_split);
|
|
||||||
if (acc) return xaccAccountGetName (acc);
|
|
||||||
|
|
||||||
return "";
|
|
||||||
}
|
|
||||||
|
|
||||||
/* ======================================================== */
|
|
||||||
|
|
||||||
void
|
|
||||||
xaccBRSaveRegEntry (BasicRegister *reg)
|
|
||||||
{
|
|
||||||
Split *split;
|
|
||||||
Transaction *trans;
|
|
||||||
Account * acc;
|
|
||||||
unsigned int changed;
|
|
||||||
|
|
||||||
/* use the changed flag to avoid heavy-weight updates
|
|
||||||
* of the split & transaction fields. This will help
|
|
||||||
* cut down on uneccessary register redraws. */
|
|
||||||
changed = xaccBasicRegisterGetChangeFlag (reg);
|
|
||||||
if (!changed) return;
|
|
||||||
|
|
||||||
/* get the handle to the current split and transaction */
|
|
||||||
split = xaccBRGetCurrentSplit (reg);
|
|
||||||
if (!split) return;
|
|
||||||
trans = xaccSplitGetParent (split);
|
|
||||||
|
|
||||||
/* copy the contents from the cursor to the split */
|
|
||||||
|
|
||||||
xaccTransBeginEdit (trans);
|
|
||||||
|
|
||||||
if (MOD_DATE & changed)
|
|
||||||
xaccTransSetDate (trans, reg->dateCell->date.tm_mday,
|
|
||||||
reg->dateCell->date.tm_mon+1,
|
|
||||||
reg->dateCell->date.tm_year+1900);
|
|
||||||
|
|
||||||
if (MOD_NUM & changed)
|
|
||||||
xaccTransSetNum (trans, reg->numCell->value);
|
|
||||||
|
|
||||||
if (MOD_DESC & changed)
|
|
||||||
xaccTransSetDescription (trans, reg->descCell->cell.value);
|
|
||||||
|
|
||||||
if (MOD_RECN & changed)
|
|
||||||
xaccSplitSetReconcile (split, reg->recnCell->value[0]);
|
|
||||||
|
|
||||||
if (MOD_AMNT & changed) {
|
|
||||||
double new_amount;
|
|
||||||
new_amount = (reg->creditCell->amount) - (reg->debitCell->amount);
|
|
||||||
xaccSplitSetValue (split, new_amount);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (MOD_SHRS & changed) {
|
|
||||||
xaccSplitSetShareAmount (split, reg->shrsCell->amount);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (MOD_PRIC & changed) {
|
|
||||||
xaccSplitSetSharePrice (split, reg->priceCell->amount);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (MOD_MEMO & changed)
|
|
||||||
xaccSplitSetMemo (split, reg->memoCell->value);
|
|
||||||
|
|
||||||
if (MOD_ACTN & changed)
|
|
||||||
xaccSplitSetAction (split, reg->actionCell->cell.value);
|
|
||||||
|
|
||||||
if (MOD_XFRM & changed) {
|
|
||||||
xaccMoveFarEndByName (split, reg->xfrmCell->cell.value);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (MOD_XTO & changed) {
|
|
||||||
/* hack alert -- implement this */
|
|
||||||
}
|
|
||||||
xaccTransCommitEdit (trans);
|
|
||||||
|
|
||||||
printf ("finished saving %s \n", xaccTransGetDescription(trans));
|
|
||||||
|
|
||||||
/* if the modified split is the "blank split",
|
|
||||||
* then it is now an official part of the account.
|
|
||||||
* Set user_hook to null, so that we can be sure of
|
|
||||||
* getting a new split.
|
|
||||||
*/
|
|
||||||
if (split == ((Split *) (reg->user_hook))) {
|
|
||||||
reg->user_hook = NULL;
|
|
||||||
}
|
|
||||||
|
|
||||||
/* refresh the register windows *only* if something changed */
|
|
||||||
acc = xaccSplitGetAccount (split);
|
|
||||||
xaccAccountDisplayRefresh (acc);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* ======================================================== */
|
|
||||||
|
|
||||||
void
|
|
||||||
xaccBRLoadRegEntry (BasicRegister *reg, Split *split)
|
|
||||||
{
|
|
||||||
Transaction *trans;
|
|
||||||
char *accname;
|
|
||||||
char buff[2];
|
|
||||||
time_t secs;
|
|
||||||
double baln;
|
|
||||||
|
|
||||||
if (!split) return;
|
|
||||||
trans = xaccSplitGetParent (split);
|
|
||||||
|
|
||||||
secs = xaccTransGetDate (trans);
|
|
||||||
xaccSetDateCellValueSecs (reg->dateCell, secs);
|
|
||||||
|
|
||||||
xaccSetBasicCellValue (reg->numCell, xaccTransGetNum (trans));
|
|
||||||
xaccSetComboCellValue (reg->actionCell, xaccSplitGetAction (split));
|
|
||||||
xaccSetQuickFillCellValue (reg->descCell, xaccTransGetDescription (trans));
|
|
||||||
xaccSetBasicCellValue (reg->memoCell, xaccSplitGetMemo (split));
|
|
||||||
|
|
||||||
buff[0] = xaccSplitGetReconcile (split);
|
|
||||||
buff[1] = 0x0;
|
|
||||||
xaccSetBasicCellValue (reg->recnCell, buff);
|
|
||||||
|
|
||||||
/* the transfer account */
|
|
||||||
accname = GetOtherAccName (split);
|
|
||||||
xaccSetComboCellValue (reg->xfrmCell, accname);
|
|
||||||
|
|
||||||
xaccSetDebCredCellValue (reg->debitCell,
|
|
||||||
reg->creditCell, xaccSplitGetValue (split));
|
|
||||||
|
|
||||||
/* For income and expense acounts, we have to reverse
|
|
||||||
* the meaning of balance, since, in a dual entry
|
|
||||||
* system, income will show up as a credit to a
|
|
||||||
* bank account, and a debit to the income account.
|
|
||||||
* Thus, positive and negative are interchanged */
|
|
||||||
baln = xaccSplitGetBalance (split);
|
|
||||||
if ((INCOME_REGISTER == reg->type) ||
|
|
||||||
(EXPENSE_REGISTER == reg->type)) {
|
|
||||||
baln = -baln;
|
|
||||||
}
|
|
||||||
xaccSetPriceCellValue (reg->balanceCell, baln);
|
|
||||||
|
|
||||||
xaccSetPriceCellValue (reg->priceCell, xaccSplitGetSharePrice (split));
|
|
||||||
xaccSetPriceCellValue (reg->shrsCell, xaccSplitGetShareBalance (split));
|
|
||||||
xaccSetPriceCellValue (reg->valueCell, xaccSplitGetValue (split));
|
|
||||||
|
|
||||||
reg->table->current_cursor->user_data = (void *) split;
|
|
||||||
|
|
||||||
/* copy cursor contents into the table */
|
|
||||||
xaccCommitCursor (reg->table);
|
|
||||||
}
|
|
||||||
|
|
||||||
/* ======================================================== */
|
|
||||||
/* Some notes about the "blank split":
|
|
||||||
* Q: What is the "blank split"?
|
|
||||||
* A: A new, empty split appended to the bottom of the ledger
|
|
||||||
* window. The blank split provides an area where the user
|
|
||||||
* can type in new split/transaction info.
|
|
||||||
* The "blank split" is treated in a special way for a number
|
|
||||||
* of reasons:
|
|
||||||
* (1) it must always appear as the bottom-most split
|
|
||||||
* in the Ledger window,
|
|
||||||
* (2) it must be committed if the user edits it, and
|
|
||||||
* a new blank split must be created.
|
|
||||||
* (3) it must be deleted when the ledger window is closed.
|
|
||||||
* To implement the above, the register "user_hook" is used
|
|
||||||
* to store the blank split with the register window structures.
|
|
||||||
*/
|
|
||||||
|
|
||||||
void
|
|
||||||
xaccBRLoadRegister (BasicRegister *reg, Split **slist,
|
|
||||||
Account *default_source_acc)
|
|
||||||
{
|
|
||||||
int i;
|
|
||||||
Split *split;
|
|
||||||
Transaction *trans;
|
|
||||||
Table *table;
|
|
||||||
int save_cursor_phys_row;
|
|
||||||
int num_phys_rows;
|
|
||||||
int num_phys_cols;
|
|
||||||
int num_virt_rows;
|
|
||||||
int phys_row;
|
|
||||||
int vrow;
|
|
||||||
|
|
||||||
table = reg->table;
|
|
||||||
|
|
||||||
/* disable move callback -- we con't want the cascade of
|
|
||||||
* callbacks while we are fiddling with loading the register */
|
|
||||||
table->move_cursor = NULL;
|
|
||||||
|
|
||||||
/* save the current cursor location; we want to restore
|
|
||||||
* it after the reload. */
|
|
||||||
save_cursor_phys_row = table->current_cursor_phys_row;
|
|
||||||
xaccMoveCursorGUI (table, -1, -1);
|
|
||||||
|
|
||||||
/* set table size to number of items in list */
|
|
||||||
i=0;
|
|
||||||
while (slist[i]) i++;
|
|
||||||
|
|
||||||
/* compute the corresponding number of physical & virtual rows. */
|
|
||||||
/* number of virtual rows is number of splits,
|
|
||||||
* plus one for the header */
|
|
||||||
num_virt_rows = i+1;
|
|
||||||
|
|
||||||
/* plus one for the blank new entry split. */
|
|
||||||
if (!(reg->user_hook)) num_virt_rows ++;
|
|
||||||
|
|
||||||
/* num_phys_cols is easy ... just the total number os cells */
|
|
||||||
num_phys_cols = reg->header->numCols;
|
|
||||||
|
|
||||||
/* num_phys_rows is the number of rows in all the cursors */
|
|
||||||
num_phys_rows = reg->header->numRows;
|
|
||||||
num_phys_rows += (num_virt_rows-1) * (reg->cursor->numRows);
|
|
||||||
|
|
||||||
/* num_virt_cols is always one. */
|
|
||||||
xaccSetTableSize (table, num_phys_rows, num_phys_cols, num_virt_rows, 1);
|
|
||||||
|
|
||||||
/* make sure that the header is loaded */
|
|
||||||
xaccSetCursor (table, reg->header, 0, 0, 0, 0);
|
|
||||||
|
|
||||||
printf ("load reg of %d entries --------------------------- \n",i);
|
|
||||||
/* populate the table */
|
|
||||||
i=0;
|
|
||||||
vrow = 0;
|
|
||||||
split = slist[0];
|
|
||||||
while (split) {
|
|
||||||
|
|
||||||
/* don't load the "blank split" inline; instead, we put
|
|
||||||
* it at the end. */
|
|
||||||
if (split != ((Split *) (reg->user_hook))) {
|
|
||||||
phys_row = reg->header->numRows;
|
|
||||||
phys_row += vrow * (reg->cursor->numRows);
|
|
||||||
|
|
||||||
/* vrow+1 because header is virt row zero */
|
|
||||||
vrow ++;
|
|
||||||
xaccSetCursor (table, reg->cursor, phys_row, 0, vrow, 0);
|
|
||||||
xaccMoveCursor (table, phys_row, 0);
|
|
||||||
xaccBRLoadRegEntry (reg, split);
|
|
||||||
}
|
|
||||||
|
|
||||||
i++;
|
|
||||||
split = slist[i];
|
|
||||||
}
|
|
||||||
|
|
||||||
/* add the "blank split" at the end */
|
|
||||||
if (reg->user_hook) {
|
|
||||||
split = (Split *) reg->user_hook;
|
|
||||||
} else {
|
|
||||||
trans = xaccMallocTransaction ();
|
|
||||||
xaccTransBeginEdit (trans);
|
|
||||||
xaccTransSetDateToday (trans);
|
|
||||||
xaccTransCommitEdit (trans);
|
|
||||||
split = xaccTransGetSplit (trans, 0);
|
|
||||||
xaccAccountInsertSplit (default_source_acc, split);
|
|
||||||
reg->user_hook = (void *) split;
|
|
||||||
reg->destroy = LedgerDestroy;
|
|
||||||
}
|
|
||||||
|
|
||||||
phys_row = reg->header->numRows;
|
|
||||||
phys_row += vrow * (reg->cursor->numRows);
|
|
||||||
vrow ++;
|
|
||||||
xaccSetCursor (table, reg->cursor, phys_row, 0, vrow, 0);
|
|
||||||
xaccMoveCursor (table, phys_row, 0);
|
|
||||||
|
|
||||||
xaccBRLoadRegEntry (reg, split);
|
|
||||||
|
|
||||||
/* restore the cursor to its original location */
|
|
||||||
phys_row = reg->header->numRows;
|
|
||||||
phys_row += vrow * (reg->cursor->numRows);
|
|
||||||
|
|
||||||
if (phys_row <= save_cursor_phys_row) {
|
|
||||||
save_cursor_phys_row = phys_row - reg->cursor->numRows;
|
|
||||||
}
|
|
||||||
if (save_cursor_phys_row < (reg->header->numRows)) {
|
|
||||||
save_cursor_phys_row = reg->header->numRows;
|
|
||||||
}
|
|
||||||
xaccMoveCursorGUI (table, save_cursor_phys_row, 0);
|
|
||||||
xaccRefreshTableGUI (table);
|
|
||||||
|
|
||||||
/* enable callback for cursor user-driven moves */
|
|
||||||
table->move_cursor = LedgerMoveCursor;
|
|
||||||
table->client_data = (void *) reg;
|
|
||||||
}
|
|
||||||
|
|
||||||
#ifdef THIS_HAS_BEEN_MOVED_TO_SPLITREG_C
|
|
||||||
|
|
||||||
/* ======================================================== */
|
|
||||||
/* walk account tree recursively, pulling out all the names */
|
|
||||||
|
|
||||||
static void
|
|
||||||
LoadXferCell (ComboCell *cell, AccountGroup *grp)
|
|
||||||
{
|
|
||||||
Account * acc;
|
|
||||||
int n;
|
|
||||||
|
|
||||||
if (!grp) return;
|
|
||||||
|
|
||||||
/* build the xfer menu out of account names */
|
|
||||||
/* traverse sub-accounts recursively */
|
|
||||||
n = 0;
|
|
||||||
acc = xaccGroupGetAccount (grp, n);
|
|
||||||
while (acc) {
|
|
||||||
xaccAddComboCellMenuItem (cell, xaccAccountGetName (acc));
|
|
||||||
LoadXferCell (cell, xaccAccountGetChildren (acc));
|
|
||||||
n++;
|
|
||||||
acc = xaccGroupGetAccount (grp, n);
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/* ======================================================== */
|
|
||||||
|
|
||||||
void xaccLoadXferCell (ComboCell *cell, AccountGroup *grp)
|
|
||||||
{
|
|
||||||
xaccAddComboCellMenuItem (cell, "");
|
|
||||||
xaccAddComboCellMenuItem (cell, SPLIT_STR);
|
|
||||||
LoadXferCell (cell, grp);
|
|
||||||
}
|
|
||||||
|
|
||||||
#endif /* THIS_HAS_BEEN_MOVED_TO_SPLITREG_C */
|
|
||||||
/* ======================= end of file =================== */
|
|
||||||
#endif
|
|
||||||
Loading…
Reference in New Issue
Block a user