You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
kmymoney/kmymoney2/dialogs/kendingbalancedlg.cpp

616 lines
22 KiB

/***************************************************************************
kendingbalancedlg.cpp
-------------------
copyright : (C) 2000,2003 by Michael Edwardes, Thomas Baumgart
email : mte@users.sourceforge.net
ipwizard@users.sourceforge.net
***************************************************************************/
/***************************************************************************
* *
* 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. *
* *
***************************************************************************/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
// ----------------------------------------------------------------------------
// TQt Includes
#include <tqpixmap.h>
// ----------------------------------------------------------------------------
// TDE Includes
#include <tdeglobal.h>
#include <kstandarddirs.h>
#include <tdeapplication.h>
#include <kactivelabel.h>
// ----------------------------------------------------------------------------
// Project Includes
#include "kendingbalancedlg.h"
#include <kmymoney/kmymoneyedit.h>
#include <kmymoney/mymoneysplit.h>
#include <kmymoney/mymoneyfile.h>
#include <kmymoney/kmymoneycategory.h>
#include <kmymoney/kmymoneyaccountselector.h>
#include "../dialogs/kcurrencycalculator.h"
class KEndingBalanceDlg::Private
{
public:
MyMoneyTransaction m_tInterest;
MyMoneyTransaction m_tCharges;
MyMoneyAccount m_account;
TQMap<TQWidget*, TQString> m_helpAnchor;
};
class KEndingBalanceLoanDlg::Private
{
public:
MyMoneyTransaction m_tInterest;
MyMoneyTransaction m_tCharges;
MyMoneyAccountLoan m_account;
TQMap<TQWidget*, TQString> m_helpAnchor;
};
KEndingBalanceDlg::KEndingBalanceDlg(const MyMoneyAccount& account, TQWidget *parent, const char *name) :
KEndingBalanceDlgDecl(parent, name, true),
d(new Private)
{
TQString value;
MyMoneyMoney endBalance, startBalance;
d->m_account = account;
MyMoneySecurity currency = MyMoneyFile::instance()->security(account.currencyId());
m_enterInformationLabel->setText(TQString("<qt>")+i18n("Please enter the following fields with the information as you find them on your statement. Make sure to enter all values in <b>%1</b>.").arg(currency.name())+TQString("</qt>"));
m_statementDate->setDate(TQDate::currentDate());
// If the previous reconciliation was postponed,
// we show a different first page
value = account.value("lastReconciledBalance");
if(value.isEmpty()) {
// if the last statement has been entered long enough ago (more than one month),
// then take the last statement date and add one month and use that as statement
// date.
TQDate lastStatementDate = account.lastReconciliationDate();
if(lastStatementDate.addMonths(1) < TQDate::currentDate()) {
m_statementDate->setDate(lastStatementDate.addMonths(1));
}
slotUpdateBalances();
setAppropriate(m_startPageCheckings, true);
setAppropriate(m_pagePreviousPostpone, false);
setAppropriate(m_interestChargeCheckings, true);
setFinishEnabled(m_interestChargeCheckings, true);
} else {
setAppropriate(m_startPageCheckings, false);
setAppropriate(m_pagePreviousPostpone, true);
removePage(m_interestChargeCheckings);
setFinishEnabled(m_statementInfoPageCheckings, true);
// make sure, we show the correct start page
showPage(m_pagePreviousPostpone);
MyMoneyMoney factor(1,1);
if(d->m_account.accountGroup() == MyMoneyAccount::Liability)
factor = -factor;
startBalance = MyMoneyMoney(value)*factor;
value = account.value("statementBalance");
endBalance = MyMoneyMoney(value)*factor;
m_previousBalance->setValue(startBalance);
m_endingBalance->setValue(endBalance);
}
// We don't need to add the default into the list (see ::help() why)
// m_helpAnchor[m_startPageCheckings] = TQString("");
d->m_helpAnchor[m_interestChargeCheckings] = TQString("details.reconcile.wizard.interest");
d->m_helpAnchor[m_statementInfoPageCheckings] = TQString("details.reconcile.wizard.statement");
value = account.value("statementDate");
if(!value.isEmpty())
m_statementDate->setDate(TQDate::fromString(value, TQt::ISODate));
m_lastStatementDate->setText(TQString());
if(account.lastReconciliationDate().isValid()) {
m_lastStatementDate->setText(i18n("Last reconciled statement: %1")
.arg(TDEGlobal::locale()->formatDate(account.lastReconciliationDate(), true)));
}
// remove all unwanted pages
removePage(m_startPageLoan);
removePage(m_checkPaymentsPage);
removePage(m_adjustmentTransactionPage);
// connect the signals with the slots
connect(MyMoneyFile::instance(), TQ_SIGNAL(dataChanged()), this, TQ_SLOT(slotReloadEditWidgets()));
connect(m_payeeEdit, TQ_SIGNAL(createItem(const TQString&, TQString&)), this, TQ_SIGNAL(createPayee(const TQString&, TQString&)));
connect(m_interestCategoryEdit, TQ_SIGNAL(createItem(const TQString&, TQString&)), this, TQ_SLOT(slotCreateInterestCategory(const TQString&, TQString&)));
connect(m_chargesCategoryEdit, TQ_SIGNAL(createItem(const TQString&, TQString&)), this, TQ_SLOT(slotCreateChargesCategory(const TQString&, TQString&)));
connect(m_interestEdit, TQ_SIGNAL(textChanged(const TQString&)), this, TQ_SLOT(slotCheckPageFinished(void)));
connect(m_interestCategoryEdit, TQ_SIGNAL(textChanged(const TQString&)), this, TQ_SLOT(slotCheckPageFinished(void)));
connect(m_chargesEdit, TQ_SIGNAL(textChanged(const TQString&)), this, TQ_SLOT(slotCheckPageFinished(void)));
connect(m_chargesCategoryEdit, TQ_SIGNAL(textChanged(const TQString&)), this, TQ_SLOT(slotCheckPageFinished(void)));
connect(m_statementDate, TQ_SIGNAL(dateChanged(const TQDate&)), this, TQ_SLOT(slotUpdateBalances()));
slotReloadEditWidgets();
// preset payee if possible
try {
// if we find a payee with the same name as the institution,
// than this is what we use as payee.
if(!d->m_account.institutionId().isEmpty()) {
MyMoneyInstitution inst = MyMoneyFile::instance()->institution(d->m_account.institutionId());
MyMoneyPayee payee = MyMoneyFile::instance()->payeeByName(inst.name());
m_payeeEdit->setSelectedItem(payee.id());
}
} catch(MyMoneyException *e) {
delete e;
}
}
KEndingBalanceDlg::~KEndingBalanceDlg()
{
delete d;
}
void KEndingBalanceDlg::slotUpdateBalances(void)
{
MYMONEYTRACER(tracer);
// determine the beginning balance and ending balance based on the following
// forumulas:
//
// end balance = current balance - sum(all non cleared transactions)
// - sum(all cleared transactions posted
// after statement date)
// start balance = end balance - sum(all cleared transactions
// up to statement date)
MyMoneyTransactionFilter filter(d->m_account.id());
filter.addState(MyMoneyTransactionFilter::notReconciled);
filter.addState(MyMoneyTransactionFilter::cleared);
filter.setReportAllSplits(true);
TQValueList<TQPair<MyMoneyTransaction, MyMoneySplit> > transactionList;
TQValueList<TQPair<MyMoneyTransaction, MyMoneySplit> >::const_iterator it;
// retrieve the list from the engine
MyMoneyFile::instance()->transactionList(transactionList, filter);
MyMoneyMoney balance = MyMoneyFile::instance()->balance(d->m_account.id());
MyMoneyMoney factor(1,1);
if(d->m_account.accountGroup() == MyMoneyAccount::Liability)
factor = -factor;
MyMoneyMoney endBalance, startBalance;
balance = balance * factor;
endBalance = startBalance = balance;
tracer.printf("total balance = %s", endBalance.formatMoney("", 2).local8Bit().data());
for(it = transactionList.begin(); it != transactionList.end(); ++it) {
const MyMoneySplit& split = (*it).second;
balance -= split.shares() * factor;
if((*it).first.postDate() > m_statementDate->date()) {
tracer.printf("Reducing balances by %s because postdate of %s/%s(%s) is past statement date", (split.shares() * factor).formatMoney("", 2).local8Bit().data(), (*it).first.id().local8Bit().data(),split.id().local8Bit().data(), (*it).first.postDate().toString(TQt::ISODate).local8Bit().data());
endBalance -= split.shares() * factor;
startBalance -= split.shares() * factor;
} else {
switch(split.reconcileFlag()) {
case MyMoneySplit::NotReconciled:
tracer.printf("Reducing balances by %s because %s/%s(%s) is not reconciled", (split.shares() * factor).formatMoney("", 2).local8Bit().data(), (*it).first.id().local8Bit().data(), split.id().local8Bit().data(), (*it).first.postDate().toString(TQt::ISODate).local8Bit().data());
endBalance -= split.shares() * factor;
startBalance -= split.shares() * factor;
break;
case MyMoneySplit::Cleared:
tracer.printf("Reducing start balance by %s because %s/%s(%s) is cleared", (split.shares() * factor).formatMoney("", 2).local8Bit().data(), (*it).first.id().local8Bit().data(), split.id().local8Bit().data(), (*it).first.postDate().toString(TQt::ISODate).local8Bit().data());
startBalance -= split.shares() * factor;
break;
default:
break;
}
}
}
m_previousBalance->setValue(startBalance);
m_endingBalance->setValue(endBalance);
tracer.printf("total balance = %s", endBalance.formatMoney("", 2).local8Bit().data());
tracer.printf("start balance = %s", startBalance.formatMoney("", 2).local8Bit().data());
m_interestDateEdit->setDate(m_statementDate->date());
m_chargesDateEdit->setDate(m_statementDate->date());
}
void KEndingBalanceDlg::accept(void)
{
if(createTransaction(d->m_tInterest, -1, m_interestEdit, m_interestCategoryEdit, m_interestDateEdit)
&& createTransaction(d->m_tCharges, 1, m_chargesEdit, m_chargesCategoryEdit, m_chargesDateEdit))
KEndingBalanceDlgDecl::accept();
}
void KEndingBalanceDlg::slotCreateInterestCategory(const TQString& txt, TQString& id)
{
createCategory(txt, id, MyMoneyFile::instance()->income());
}
void KEndingBalanceDlg::slotCreateChargesCategory(const TQString& txt, TQString& id)
{
createCategory(txt, id, MyMoneyFile::instance()->expense());
}
void KEndingBalanceDlg::createCategory(const TQString& txt, TQString& id, const MyMoneyAccount& parent)
{
MyMoneyAccount acc;
acc.setName(txt);
emit createCategory(acc, parent);
id = acc.id();
}
const MyMoneyMoney KEndingBalanceDlg::endingBalance(void) const
{
return adjustedReturnValue(m_endingBalance->value());
}
const MyMoneyMoney KEndingBalanceDlg::previousBalance(void) const
{
return adjustedReturnValue(m_previousBalance->value());
}
const MyMoneyMoney KEndingBalanceDlg::adjustedReturnValue(const MyMoneyMoney& v) const
{
return d->m_account.accountGroup() == MyMoneyAccount::Liability ? -v : v;
}
void KEndingBalanceDlg::slotReloadEditWidgets(void)
{
TQString payeeId, interestId, chargesId;
// keep current selected items
payeeId = m_payeeEdit->selectedItem();
interestId = m_interestCategoryEdit->selectedItem();
chargesId = m_chargesCategoryEdit->selectedItem();
// load the payee and category widgets with data from the engine
m_payeeEdit->loadPayees(MyMoneyFile::instance()->payeeList());
// a user request to show all categories in both selectors due to a valid use case.
AccountSet aSet;
aSet.addAccountGroup(MyMoneyAccount::Expense);
aSet.addAccountGroup(MyMoneyAccount::Income);
aSet.load(m_interestCategoryEdit->selector());
aSet.load(m_chargesCategoryEdit->selector());
// reselect currently selected items
if(!payeeId.isEmpty())
m_payeeEdit->setSelectedItem(payeeId);
if(!interestId.isEmpty())
m_interestCategoryEdit->setSelectedItem(interestId);
if(!chargesId.isEmpty())
m_chargesCategoryEdit->setSelectedItem(chargesId);
}
void KEndingBalanceDlg::slotCheckPageFinished(void)
{
nextButton()->setEnabled(true);
finishButton()->setEnabled(true);
if(currentPage() == m_interestChargeCheckings) {
int cnt1, cnt2;
cnt1 = !m_interestEdit->value().isZero() + !m_interestCategoryEdit->selectedItem().isEmpty();
cnt2 = !m_chargesEdit->value().isZero() + !m_chargesCategoryEdit->selectedItem().isEmpty();
if(cnt1 == 1 || cnt2 == 1) {
finishButton()->setEnabled(false);
nextButton()->setEnabled(false);
}
}
}
const MyMoneyTransaction KEndingBalanceDlg::interestTransaction(void)
{
return d->m_tInterest;
}
const MyMoneyTransaction KEndingBalanceDlg::chargeTransaction(void)
{
return d->m_tCharges;
}
bool KEndingBalanceDlg::createTransaction(MyMoneyTransaction &t, const int sign, kMyMoneyEdit *amountEdit, KMyMoneyCategory *categoryEdit, kMyMoneyDateInput* dateEdit)
{
t = MyMoneyTransaction();
if(!amountEdit->isValid() || categoryEdit->selectedItem().isEmpty() || !dateEdit->date().isValid())
return true;
MyMoneySplit s1, s2;
MyMoneyMoney val = amountEdit->value() * MyMoneyMoney(sign, 1);
try {
t.setPostDate(dateEdit->date());
t.setCommodity(d->m_account.currencyId());
s1.setPayeeId(m_payeeEdit->selectedItem());
s1.setReconcileFlag(MyMoneySplit::Cleared);
s1.setAccountId(d->m_account.id());
s1.setValue(-val);
s1.setShares(-val);
s2 = s1;
s2.setAccountId(categoryEdit->selectedItem());
s2.setValue(val);
t.addSplit(s1);
t.addSplit(s2);
TQMap<TQString, MyMoneyMoney> priceInfo; // just empty
MyMoneyMoney shares;
if(!KCurrencyCalculator::setupSplitPrice(shares, t, s2, priceInfo, this)) {
t = MyMoneyTransaction();
return false;
}
s2.setShares(shares);
t.modifySplit(s2);
} catch(MyMoneyException *e) {
tqDebug(e->what());
delete e;
t = MyMoneyTransaction();
return false;
}
return true;
}
void KEndingBalanceDlg::help(void)
{
TQString anchor = d->m_helpAnchor[currentPage()];
if(anchor.isEmpty())
anchor = TQString("details.reconcile.whatis");
kapp->invokeHelp(anchor);
}
KEndingBalanceLoanDlg::KEndingBalanceLoanDlg(const MyMoneyAccount& account, TQWidget *parent, const char *name) :
KEndingBalanceDlgDecl(parent, name, true),
d(new Private)
{
d->m_account = account;
TQDate value = account.lastReconciliationDate();
if(value.isValid())
m_startDateEdit->setDate(value.addDays(1));
else
m_startDateEdit->setDate(d->m_account.openingDate());
// make sure, we show the correct start page
showPage(m_startPageLoan);
// enable the finish button on the last page
setAppropriate(m_checkPaymentsPage, true);
// remove all unwanted pages
removePage(m_startPageCheckings);
removePage(m_statementInfoPageCheckings);
removePage(m_pagePreviousPostpone);
removePage(m_interestChargeCheckings);
// connect the signals with the slots
connect(m_amortizationTotalEdit, TQ_SIGNAL(textChanged(const TQString&)), this, TQ_SLOT(slotCheckPageFinished(void)));
connect(m_interestTotalEdit, TQ_SIGNAL(textChanged(const TQString&)), this, TQ_SLOT(slotCheckPageFinished(void)));
connect(m_accountEdit, TQ_SIGNAL(stateChanged(void)), this, TQ_SLOT(slotCheckPageFinished(void)));
connect(m_categoryEdit, TQ_SIGNAL(stateChanged(void)), this, TQ_SLOT(slotCheckPageFinished(void)));
}
KEndingBalanceLoanDlg::~KEndingBalanceLoanDlg()
{
}
void KEndingBalanceLoanDlg::slotCheckPageFinished(void)
{
nextButton()->setEnabled(true);
finishButton()->setEnabled(true);
if(currentPage() == m_checkPaymentsPage) {
MyMoneyMoney interest = totalInterest(m_startDateEdit->date(), m_endDateEdit->date());
MyMoneyMoney amortization = totalAmortization(m_startDateEdit->date(), m_endDateEdit->date());
if(interest == m_interestTotalEdit->value()
&& amortization == m_amortizationTotalEdit->value()) {
if(indexOf(m_adjustmentTransactionPage) != -1) {
removePage(m_adjustmentTransactionPage);
// the following line forces to update the buttons
showPage(m_checkPaymentsPage);
nextButton()->setEnabled(true);
finishButton()->setEnabled(true);
}
} else {
if(indexOf(m_adjustmentTransactionPage) == -1) {
addPage(m_adjustmentTransactionPage, i18n("Adjustment transaction"));
// the following line forces to update the buttons
showPage(m_checkPaymentsPage);
}
}
} else if(currentPage() == m_adjustmentTransactionPage) {
if(m_accountEdit->selectedItems().count() == 0) {
nextButton()->setEnabled(false);
finishButton()->setEnabled(false);
} else if(m_categoryEdit->isEnabled()
&& m_categoryEdit->selectedItems().count() == 0) {
nextButton()->setEnabled(false);
finishButton()->setEnabled(false);
}
}
}
const MyMoneyMoney KEndingBalanceLoanDlg::totalInterest(const TQDate& start, const TQDate& end) const
{
MyMoneyMoney interest;
MyMoneyTransactionFilter filter(d->m_account.id());
filter.setDateFilter(start, end);
TQValueList<MyMoneyTransaction> list = MyMoneyFile::instance()->transactionList(filter);
TQValueList<MyMoneyTransaction>::ConstIterator it_t;
for(it_t = list.begin(); it_t != list.end(); ++it_t) {
TQValueList<MyMoneySplit>::ConstIterator it_s;
for(it_s = (*it_t).splits().begin(); it_s != (*it_t).splits().end(); ++it_s) {
if((*it_s).action() == MyMoneySplit::ActionInterest) {
interest += (*it_s).value();
}
}
}
return interest;
}
const MyMoneyMoney KEndingBalanceLoanDlg::totalAmortization(const TQDate& start, const TQDate& end) const
{
MyMoneyMoney amortization;
MyMoneyMoney adjust(1,1);
MyMoneyTransactionFilter filter(d->m_account.id());
filter.setDateFilter(start, end);
if(d->m_account.accountType() == MyMoneyAccount::AssetLoan)
adjust = -adjust;
TQValueList<MyMoneyTransaction> list = MyMoneyFile::instance()->transactionList(filter);
TQValueList<MyMoneyTransaction>::ConstIterator it_t;
for(it_t = list.begin(); it_t != list.end(); ++it_t) {
TQValueList<MyMoneySplit>::ConstIterator it_s;
for(it_s = (*it_t).splits().begin(); it_s != (*it_t).splits().end(); ++it_s) {
if((*it_s).accountId() == d->m_account.id()
&& (*it_s).action() == MyMoneySplit::ActionAmortization
&& ((*it_s).value() * MyMoneyMoney(adjust, 1)).isPositive()) {
amortization += (*it_s).value();
}
}
}
// make sure to return a positive number
return amortization * adjust;
}
void KEndingBalanceLoanDlg::next(void)
{
bool dontLeavePage = false;
if(currentPage() == m_startPageLoan) {
MyMoneyMoney interest = totalInterest(m_startDateEdit->date(), m_endDateEdit->date());
MyMoneyMoney amortization = totalAmortization(m_startDateEdit->date(), m_endDateEdit->date());
m_loanOverview->setText(i18n("KMyMoney has calculated the following amounts for "
"interest and amortization according to recorded payments "
"between %1 and %2.")
.arg(TDEGlobal::locale()->formatDate(m_startDateEdit->date(), true))
.arg(TDEGlobal::locale()->formatDate(m_endDateEdit->date(), true)));
// preload widgets with calculated values if they are empty
if(m_amortizationTotalEdit->value().isZero() && !amortization.isZero())
m_amortizationTotalEdit->setValue(amortization);
if(m_interestTotalEdit->value().isZero() && !interest.isZero())
m_interestTotalEdit->setValue(interest);
} else if(currentPage() == m_checkPaymentsPage) {
AccountSet assetSet, incomeSet;
assetSet.addAccountGroup(MyMoneyAccount::Asset);
incomeSet.addAccountGroup(MyMoneyAccount::Income);
assetSet.load(m_accountEdit);
incomeSet.load(m_categoryEdit);
#if 0
m_accountEdit->loadList(static_cast<KMyMoneyUtils::categoryTypeE>(KMyMoneyUtils::asset | KMyMoneyUtils::liability));
m_categoryEdit->loadList(static_cast<KMyMoneyUtils::categoryTypeE>(KMyMoneyUtils::income | KMyMoneyUtils::expense));
#endif
m_categoryEdit->setEnabled(false);
MyMoneyMoney interest = totalInterest(m_startDateEdit->date(), m_endDateEdit->date());
if(interest != m_interestTotalEdit->value()) {
m_categoryEdit->setEnabled(true);
}
}
if(!dontLeavePage)
KEndingBalanceDlgDecl::next();
slotCheckPageFinished();
}
const MyMoneyTransaction KEndingBalanceLoanDlg::adjustmentTransaction(void) const
{
MyMoneyTransaction t;
MyMoneyMoney interest = totalInterest(m_startDateEdit->date(), m_endDateEdit->date());
MyMoneyMoney amortization = totalAmortization(m_startDateEdit->date(), m_endDateEdit->date());
if(interest != m_interestTotalEdit->value()
|| amortization != m_amortizationTotalEdit->value()) {
MyMoneySplit sAccount, sAmortization, sInterest;
int adjust = 1;
if(d->m_account.accountType() == MyMoneyAccount::AssetLoan)
adjust = -1;
// fix sign if asset
interest = interest * MyMoneyMoney(adjust,1);
amortization = amortization * MyMoneyMoney(adjust,1);
sAmortization.setValue((m_amortizationTotalEdit->value() - amortization) * MyMoneyMoney(adjust,1));
sInterest.setValue((m_interestTotalEdit->value() - interest) * MyMoneyMoney(adjust,1));
sAccount.setValue( -(sAmortization.value() + sInterest.value()));
try {
sAmortization.setAccountId(d->m_account.id());
sAmortization.setPayeeId(d->m_account.payee());
sAccount.setAccountId(m_accountEdit->selectedItems()[0]);
sAccount.setPayeeId(d->m_account.payee());
if(m_categoryEdit->isEnabled())
sInterest.setAccountId(m_categoryEdit->selectedItems()[0]);
sAccount.setMemo(i18n("Adjustment transaction"));
sAmortization.setMemo(sAccount.memo());
sInterest.setMemo(sAccount.memo());
sAccount.setAction(MyMoneySplit::ActionAmortization);
sAmortization.setAction(MyMoneySplit::ActionAmortization);
sInterest.setAction(MyMoneySplit::ActionInterest);
t.addSplit(sAccount);
t.addSplit(sAmortization);
if(!sInterest.value().isZero())
t.addSplit(sInterest);
t.setPostDate(m_endDateEdit->date());
} catch(MyMoneyException *e) {
tqDebug(TQString("Unable to create adjustment transaction for loan reconciliation: %1").arg(e->what()));
delete e;
return MyMoneyTransaction();
}
}
return t;
}
void KEndingBalanceLoanDlg::help(void)
{
TQString anchor = d->m_helpAnchor[currentPage()];
if(anchor.isEmpty())
anchor = TQString("details.reconcile.whatis");
kapp->invokeHelp(anchor);
}
#include "kendingbalancedlg.moc"