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

more ugly hacks

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@394 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Linas Vepstas 1998-01-09 01:53:54 +00:00
parent f2f9ea9591
commit 38c2694313
1 changed files with 26 additions and 120 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

146
src/RegWindow.c
View File

@ -23,7 +23,6 @@
* Huntington Beach, CA 92648-4632 * * Huntington Beach, CA 92648-4632 *
\********************************************************************/ \********************************************************************/
#ifdef NOT_TODAY
#include <Xm/Xm.h> #include <Xm/Xm.h>
#include <Xm/DialogS.h> #include <Xm/DialogS.h>
@ -715,36 +714,22 @@ regRefresh( RegWindow *regData )
case PORTFOLIO: { case PORTFOLIO: {
Account * acc; Account * acc;
int show_debit, show_credit; int show_debit;
/* show the price, only if the transaction records a /* show the price, only if the transaction records a
* share purchase/sale. Otherwise, its a plain dollar * share purchase/sale. Otherwise, its a plain dollar
* amount, and the price should not be shown. */ * amount, and the price should not be shown. */
show_debit = 0; show_debit = 0;
acc = (Account *) (trans->debit); acc = (Account *) (split->acc);
if (acc) { if (acc) {
if ( (MUTUAL == acc->type) || (STOCK == acc->type) ) { if ( (MUTUAL == acc->type) || (STOCK == acc->type) ) {
show_debit = xaccIsAccountInList (acc, regData->blackacc); show_debit = xaccIsAccountInList (acc, regData->blackacc);
} }
} }
show_credit = 0;
acc = (Account *) (trans->credit_split.acc);
if (acc) {
if ( (MUTUAL == acc->type) || (STOCK == acc->type) ) {
show_credit = xaccIsAccountInList (acc, regData->blackacc);
}
}
/* row location of prices depends on whether this /* row location of prices depends on whether this
* is a purchase or a sale */ * is a purchase or a sale */
sprintf( buf, "%.3f ", trans->share_price ); sprintf( buf, "%.3f ", split->share_price );
if (show_credit) {
newData[row+PRCC_CELL_R][PRCC_CELL_C] = XtNewString(buf);
} else {
newData[row+PRCC_CELL_R][PRCC_CELL_C] = XtNewString("");
}
if (show_debit) { if (show_debit) {
newData[row+PRCD_CELL_R][PRCD_CELL_C] = XtNewString(buf); newData[row+PRCD_CELL_R][PRCD_CELL_C] = XtNewString(buf);
@ -766,7 +751,7 @@ regRefresh( RegWindow *regData )
/* there are some empty rows at the end, where the user /* there are some empty rows at the end, where the user
* can create new transactions. Fill them in with emptiness * can create new transactions. Fill them in with emptiness
*/ */
row = NUM_ROWS_PER_TRANS*ntrans + NUM_HEADER_ROWS; row = NUM_ROWS_PER_TRANS*nsplits + NUM_HEADER_ROWS;
XbaeMatrixSetRowUserData ( regData->reg, row, NULL); XbaeMatrixSetRowUserData ( regData->reg, row, NULL);
sprintf( buf, "%2d/%2d", date.month, date.day ); sprintf( buf, "%2d/%2d", date.month, date.day );
@ -794,7 +779,7 @@ regRefresh( RegWindow *regData )
* then the flat transaction array was alloc'ed and * then the flat transaction array was alloc'ed and
* must be freed. */ * must be freed. */
if (1 != regData->numAcc) { if (1 != regData->numAcc) {
_free (tarray); _free (sarray);
} }
/* and free memory!!! */ /* and free memory!!! */
@ -825,7 +810,6 @@ double
regRecalculateBalance( RegWindow *regData ) regRecalculateBalance( RegWindow *regData )
{ {
int is_debit, is_credit; int is_debit, is_credit;
Account *credit_acc, *debit_acc;
int num_rows; int num_rows;
int position = NUM_HEADER_ROWS; int position = NUM_HEADER_ROWS;
double dbalance = 0.0; double dbalance = 0.0;
@ -834,7 +818,7 @@ regRecalculateBalance( RegWindow *regData )
double prt_clearedBalance = 0.0; double prt_clearedBalance = 0.0;
double tmp; double tmp;
char buf[BUFSIZE]; char buf[BUFSIZE];
Transaction *trans; Split *split;
Widget reg; Widget reg;
if( NULL == regData ) return 0.0; if( NULL == regData ) return 0.0;
@ -858,65 +842,14 @@ regRecalculateBalance( RegWindow *regData )
for (position = NUM_HEADER_ROWS; position < num_rows; for (position = NUM_HEADER_ROWS; position < num_rows;
position += NUM_ROWS_PER_TRANS) { position += NUM_ROWS_PER_TRANS) {
trans = (Transaction *) XbaeMatrixGetRowUserData (reg, position); split = (Split *) XbaeMatrixGetRowUserData (reg, position);
if (!trans) { if (!split) {
PERR ("regRecalculateBalance(): missing transaction\n"); PERR ("regRecalculateBalance(): missing transaction\n");
continue; continue;
} }
credit_acc = (Account *) (trans->credit_split.acc); dbalance = split->balance;
debit_acc = (Account *) (trans->debit); dclearedBalance = split->cleared_balance;
/* figure out if this transaction shows up as a debit
* and/or a credit for this list of accounts. Note
* that it may show up as both, and that's OK. */
is_credit = xaccIsAccountInList (credit_acc, regData -> blackacc );
is_debit = xaccIsAccountInList (debit_acc, regData -> blackacc );
/* Increment and/or decrement the running balance as appropriate.
* Naively, if there were no stock transactions (or at least,
* transactions that recorded only a price), we could simply get
* the amount, and add that to the balance. However, price
* transactions, where only a price is specified, and the share
* amount is zero, makes this a tricky proposition. A large
* number of price transactions interspersed with buy/sell makes
* this an even trickier calculation. The easiest thing to do
* is to indirectly derive transaction values from the previously
* computed balances. Thus, the running balance.
*
* Note, however, that this algorithm will provide confusing
* results unless all transactions are absolutely ordered.
* That is, date order is not enough, if several transactions
* occur on the same date: the same transactions must occur
* *IN THE SAME ORDER* in the different accounts.
*/
if (is_credit) {
tmp = xaccGetBalance (credit_acc, trans);
dbalance -= credit_acc -> running_balance;
dbalance += tmp;
credit_acc -> running_balance = tmp;
if( NREC != trans->credit_split.reconciled ) {
tmp = xaccGetClearedBalance (credit_acc, trans);
dclearedBalance -= credit_acc -> running_cleared_balance;
dclearedBalance += tmp;
credit_acc -> running_cleared_balance = tmp;
}
}
if (is_debit) {
tmp = xaccGetBalance (debit_acc, trans);
dbalance -= debit_acc -> running_balance;
dbalance += tmp;
debit_acc -> running_balance = tmp;
if( NREC != trans->credit_split.reconciled ) {
tmp = xaccGetClearedBalance (debit_acc, trans);
dclearedBalance -= debit_acc -> running_cleared_balance;
dclearedBalance += tmp;
debit_acc -> running_cleared_balance = tmp;
}
}
/* for income and expense acounts, we have to reverse /* for income and expense acounts, we have to reverse
* the meaning of balance, since, in a dual entry * the meaning of balance, since, in a dual entry
@ -958,15 +891,11 @@ regRecalculateBalance( RegWindow *regData )
case STOCK: { case STOCK: {
double value = 0.0; double value = 0.0;
double share_balance = 0.0; double share_balance = 0.0;
Account *acc;
/* mutual and stock types have just one account */
acc = regData->blackacc[0];
/* ------------------------------------ */ /* ------------------------------------ */
/* do the value of the transaction */ /* do the value of the transaction */
value = xaccGetAmount (acc, trans);
/* if the value is zero, just leave the cell blank */ /* if the value is zero, just leave the cell blank */
value = split->damount;
if (DEQ (0.0, value)) { if (DEQ (0.0, value)) {
buf[0] = 0x0; buf[0] = 0x0;
} else { } else {
@ -993,7 +922,7 @@ regRecalculateBalance( RegWindow *regData )
/* ------------------------------------ */ /* ------------------------------------ */
/* now show the share balance */ /* now show the share balance */
share_balance = xaccGetShareBalance (acc, trans); share_balance = split->share_balance;
#if USE_NO_COLOR #if USE_NO_COLOR
sprintf( buf, "%.3f ", share_balance ); sprintf( buf, "%.3f ", share_balance );
#else #else
@ -1025,7 +954,7 @@ regRecalculateBalance( RegWindow *regData )
/* ------------------------------------ */ /* ------------------------------------ */
/* show the value of the transaction, but only if the /* show the value of the transaction, but only if the
* account belongs on this ledger */ * account belongs on this ledger */
value = trans->damount * trans->share_price; value = split->damount * split->share_price;
#if !USE_NO_COLOR #if !USE_NO_COLOR
/* Set the color of the text, depending on whether the /* Set the color of the text, depending on whether the
@ -1043,34 +972,30 @@ regRecalculateBalance( RegWindow *regData )
VCRD_CELL_C, posPixel ); VCRD_CELL_C, posPixel );
} }
#endif #endif
value = trans->damount * trans->share_price; value = split->damount * split->share_price;
#if USE_NO_COLOR #if USE_NO_COLOR
value = -value; /* flip sign for debit accounts */ value = -value; /* flip sign for debit accounts */
#else #else
value = DABS(value); value = DABS(value);
#endif #endif
acc = (Account *) (trans->debit);
show = xaccIsAccountInList (acc, regData->blackacc);
/* show only if value is non-zero (it may be zero if a price /* show only if value is non-zero (it may be zero if a price
* is recorded) */ * is recorded) */
if (show && !(DEQ(0.0, value))) { if (!(DEQ(0.0, value))) {
sprintf( buf, "%.2f ", value ); sprintf( buf, "%.2f ", value );
} else { } else {
buf[0] = 0x0; buf[0] = 0x0;
} }
XbaeMatrixSetCell( reg, position+VDEB_CELL_R, VDEB_CELL_C, buf ); XbaeMatrixSetCell( reg, position+VDEB_CELL_R, VDEB_CELL_C, buf );
value = trans->damount * trans->share_price; value = split->damount * split->share_price;
#if USE_NO_COLOR #if USE_NO_COLOR
value = +value; /* DO NOT flip sign for credit accounts */ value = +value; /* DO NOT flip sign for credit accounts */
#else #else
value = DABS(value); value = DABS(value);
#endif #endif
acc = (Account *) (trans->credit_split.acc);
show = xaccIsAccountInList (acc, regData->blackacc);
/* show only if value is non-zero (it may be zero if a price /* show only if value is non-zero (it may be zero if a price
* is recorded) */ * is recorded) */
if (show && !(DEQ(0.0, value))) { if (!(DEQ(0.0, value))) {
sprintf( buf, "%.2f ", value ); sprintf( buf, "%.2f ", value );
} else { } else {
buf[0] = 0x0; buf[0] = 0x0;
@ -1082,24 +1007,7 @@ regRecalculateBalance( RegWindow *regData )
/* show the share balance *only* either the debit or credit /* show the share balance *only* either the debit or credit
* account belongs in this ledger, *and* if the transaction * account belongs in this ledger, *and* if the transaction
* type is mutual or stock. */ * type is mutual or stock. */
show = 0; share_balance = split->share_balance;
share_balance = 0.0;
acc = (Account *) (trans->debit);
if (acc) {
if ((MUTUAL == acc->type) || (STOCK == acc->type)) {
show += xaccIsAccountInList (acc, regData->blackacc);
share_balance = xaccGetShareBalance (debit_acc, trans);
}
}
acc = (Account *) (trans->credit_split.acc);
if (acc) {
if ((MUTUAL == acc->type) || (STOCK == acc->type)) {
show += xaccIsAccountInList (acc, regData->blackacc);
share_balance = xaccGetShareBalance (credit_acc, trans);
}
}
if (show) { if (show) {
#if USE_NO_COLOR #if USE_NO_COLOR
@ -1237,7 +1145,8 @@ regSaveTransaction( RegWindow *regData, int position )
* that has changed */ * that has changed */
char buf[BUFSIZE]; char buf[BUFSIZE];
int row = position * NUM_ROWS_PER_TRANS + NUM_HEADER_ROWS; int row = position * NUM_ROWS_PER_TRANS + NUM_HEADER_ROWS;
Transaction *trans; Split *split;
Transaction *trans = NULL;
Boolean dateOutOfOrder = False; Boolean dateOutOfOrder = False;
Account *old_xfrm_acct = NULL; Account *old_xfrm_acct = NULL;
Account *old_xto_acct = NULL; Account *old_xto_acct = NULL;
@ -1245,9 +1154,9 @@ regSaveTransaction( RegWindow *regData, int position )
/* If nothing has changed, we have nothing to do */ /* If nothing has changed, we have nothing to do */
if (MOD_NONE == regData->changed) return; if (MOD_NONE == regData->changed) return;
trans = (Transaction *) XbaeMatrixGetRowUserData (regData->reg, row); split = (Split *) XbaeMatrixGetRowUserData (regData->reg, row);
if( trans == NULL ) if( split == NULL )
{ {
/* This must be a new transaction */ /* This must be a new transaction */
DEBUG("New Transaction\n"); DEBUG("New Transaction\n");
@ -1268,8 +1177,6 @@ regSaveTransaction( RegWindow *regData, int position )
Account *acc; Account *acc;
acc = (Account *) trans->credit_split.acc; acc = (Account *) trans->credit_split.acc;
if (acc) acc->parent->saved = False; if (acc) acc->parent->saved = False;
acc = (Account *) trans->debit;
if (acc) acc->parent->saved = False;
} }
/* if not a ledger, then we shouldn't get here ... */ /* if not a ledger, then we shouldn't get here ... */
@ -1318,7 +1225,7 @@ regSaveTransaction( RegWindow *regData, int position )
(PORTFOLIO == regData->type) ) { (PORTFOLIO == regData->type) ) {
/* for a general ledger, the transfer-from account is obvious */ /* for a general ledger, the transfer-from account is obvious */
xfer_acct = (Account *) trans->debit; /* xfer_acct = (Account *) trans->debit; */
} else { } else {
/* if not a ledger, then there is only one account, /* if not a ledger, then there is only one account,
@ -1327,7 +1234,7 @@ regSaveTransaction( RegWindow *regData, int position )
if( regData->changed & MOD_NEW) { if( regData->changed & MOD_NEW) {
xfer_acct = NULL; xfer_acct = NULL;
} else { } else {
xfer_acct = xaccGetOtherAccount (regData->blackacc[0], trans); xfer_acct = (Account *) split->acc;
} }
} }
@ -1352,7 +1259,7 @@ regSaveTransaction( RegWindow *regData, int position )
/* for a new transaction, the default will be that the /* for a new transaction, the default will be that the
* transfer occurs from the debited account */ * transfer occurs from the debited account */
if( regData->changed & MOD_NEW) { if( regData->changed & MOD_NEW) {
trans->debit = (struct _account *)xfer_acct; /* trans->debit = (struct _account *)xfer_acct; */
} }
/* for a general ledger, the transfer *must* occur /* for a general ledger, the transfer *must* occur
@ -1360,7 +1267,7 @@ regSaveTransaction( RegWindow *regData, int position )
if ( (GEN_LEDGER == regData->type) || if ( (GEN_LEDGER == regData->type) ||
(INC_LEDGER == regData->type) || (INC_LEDGER == regData->type) ||
(PORTFOLIO == regData->type) ) { (PORTFOLIO == regData->type) ) {
trans->debit = (struct _account *)xfer_acct; /* trans->debit = (struct _account *)xfer_acct; */
} }
/* for non-new transactions, the transfer may be from the /* for non-new transactions, the transfer may be from the
@ -3403,5 +3310,4 @@ dateCellFormat( Widget mw, XbaeMatrixModifyVerifyCallbackStruct *mvcbs, int do_y
} }
} }
#endif
/************************** END OF FILE *************************/ /************************** END OF FILE *************************/