/***************************************************************************
kmymoney2 . cpp
- - - - - - - - - - - - - - - - - - -
copyright : ( C ) 2000 by Michael Edwardes
( C ) 2007 by 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
// ----------------------------------------------------------------------------
// Std C++ / STL Includes
# include <typeinfo>
# include <cstdio>
# include <iostream>
// ----------------------------------------------------------------------------
// QT Includes
# include <tqdir.h>
# include <tqprinter.h>
# include <tqlayout.h>
# include <tqsignalmapper.h>
# include <tqclipboard.h> // temp for problem 1105503
# include <tqdatetime.h> // only for performance tests
# include <tqtimer.h>
# include <tqsqlpropertymap.h>
# include <tqvbox.h>
# include <tqeventloop.h>
// ----------------------------------------------------------------------------
// KDE Includes
# include <tdeversion.h>
# include <kdebug.h>
# include <tdeapplication.h>
# include <tdeshortcut.h>
# include <kiconloader.h>
# include <tdemessagebox.h>
# include <tdefiledialog.h>
# include <tdemenubar.h>
# include <tdelocale.h>
# include <tdeconfig.h>
# include <kstdaction.h>
# include <tdeglobal.h>
# include <kstandarddirs.h>
# include <kstatusbar.h>
# include <ktip.h>
# include <kkeydialog.h>
# include <kprogress.h>
# include <tdeio/netaccess.h>
# include <dcopclient.h>
# include <tdestartupinfo.h>
# include <tdeparts/componentfactory.h>
# include <krun.h>
# include <tdeconfigdialog.h>
# include <kinputdialog.h>
// ----------------------------------------------------------------------------
// Project Includes
# include "kmymoney2.h"
# include "kmymoneyglobalsettings.h"
# include "kmymoney2_stub.h"
# include "dialogs/kstartdlg.h"
# include "dialogs/settings/ksettingsgeneral.h"
# include "dialogs/settings/ksettingsregister.h"
# include "dialogs/settings/ksettingsgpg.h"
# include "dialogs/settings/ksettingscolors.h"
# include "dialogs/settings/ksettingsfonts.h"
# include "dialogs/settings/ksettingsschedules.h"
# include "dialogs/settings/ksettingsonlinequotes.h"
# include "dialogs/settings/ksettingshome.h"
# include "dialogs/settings/ksettingsforecast.h"
# include "dialogs/settings/ksettingsplugins.h"
# include "dialogs/kbackupdlg.h"
# include "dialogs/kexportdlg.h"
# include "dialogs/kimportdlg.h"
# include "dialogs/mymoneyqifprofileeditor.h"
# include "dialogs/kenterscheduledlg.h"
# include "dialogs/tdeconfirmmanualenterdlg.h"
# include "dialogs/kmymoneypricedlg.h"
# include "dialogs/kcurrencyeditdlg.h"
# include "dialogs/kequitypriceupdatedlg.h"
# include "dialogs/ksecuritylisteditor.h"
# include "dialogs/kmymoneyfileinfodlg.h"
# include "dialogs/kfindtransactiondlg.h"
# include "dialogs/knewbankdlg.h"
# include "dialogs/knewinvestmentwizard.h"
# include "dialogs/knewaccountdlg.h"
# include "dialogs/knewfiledlg.h"
# include "dialogs/tdeselectdatabasedlg.h"
# include "dialogs/kcurrencycalculator.h"
# include "dialogs/keditscheduledlg.h"
# include "dialogs/knewloanwizard.h"
# include "dialogs/keditloanwizard.h"
# include "dialogs/kpayeereassigndlg.h"
# include "dialogs/kcategoryreassigndlg.h"
# include "dialogs/kmergetransactionsdlg.h"
# include "dialogs/kendingbalancedlg.h"
# include "dialogs/kbalancechartdlg.h"
# include "dialogs/kplugindlg.h"
# include "dialogs/kloadtemplatedlg.h"
# include "dialogs/kgpgkeyselectiondlg.h"
# include "dialogs/transactionmatcher.h"
# include "wizards/newuserwizard/knewuserwizard.h"
# include "wizards/newaccountwizard/knewaccountwizard.h"
# include "dialogs/kbalancewarning.h"
# include "widgets/kmymoneycombo.h"
# include "widgets/kmymoneycompletion.h"
# include "views/kmymoneyview.h"
# include "mymoney/mymoneyutils.h"
# include "mymoney/mymoneystatement.h"
# include "mymoney/storage/mymoneystoragedump.h"
# include "mymoney/mymoneyforecast.h"
# include "converter/mymoneyqifwriter.h"
# include "converter/mymoneyqifreader.h"
# include "converter/mymoneystatementreader.h"
# include "converter/mymoneytemplate.h"
# include "plugins/interfaces/kmmviewinterface.h"
# include "plugins/interfaces/kmmstatementinterface.h"
# include "plugins/interfaces/kmmimportinterface.h"
# include "plugins/pluginloader.h"
# include <libkgpgfile/kgpgfile.h>
# include <kmymoney/transactioneditor.h>
# include <kmymoney/kmymoneylistviewitem.h>
# include "kmymoneyutils.h"
# define RECOVER_KEY_ID "59B0F826D2B08440"
# define ID_STATUS_MSG 1
class KMyMoney2App : : Private
{
public :
Private ( ) :
m_ft ( 0 ) , m_moveToAccountSelector ( 0 ) , statementXMLindex ( 0 ) , m_collectingStatements ( false )
{ }
void unlinkStatementXML ( void ) ;
void moveInvestmentTransaction ( const TQString & fromId ,
const TQString & toId ,
const MyMoneyTransaction & t ) ;
MyMoneyFileTransaction * m_ft ;
kMyMoneyAccountSelector * m_moveToAccountSelector ;
int statementXMLindex ;
KBalanceWarning * m_balanceWarning ;
bool m_collectingStatements ;
TQStringList m_statementResults ;
KMyMoneyPlugin : : PluginLoader * m_pluginLoader ;
TQString m_lastPayeeEntered ;
} ;
KMyMoney2App : : KMyMoney2App ( TQWidget * /*parent*/ , const char * name ) :
TDEMainWindow ( 0 , name ) ,
DCOPObject ( " kmymoney2app " ) ,
d ( new Private ) ,
myMoneyView ( 0 ) ,
m_searchDlg ( 0 ) ,
m_autoSaveTimer ( 0 ) ,
m_inAutoSaving ( false ) ,
m_saveEncrypted ( 0 ) ,
m_transactionEditor ( 0 ) ,
m_endingBalanceDlg ( 0 )
{
: : timetrace ( " start kmymoney2app constructor " ) ;
// preset the pointer because we need it during the course of this constructor
kmymoney2 = this ;
config = kapp - > config ( ) ;
MyMoneyTransactionFilter : : setFiscalYearStart ( KMyMoneyGlobalSettings : : firstFiscalMonth ( ) , KMyMoneyGlobalSettings : : firstFiscalDay ( ) ) ;
updateCaption ( true ) ;
TQFrame * frame = new TQFrame ( this ) ;
frame - > setFrameStyle ( TQFrame : : NoFrame ) ;
// values for margin (11) and spacing(6) taken from KDialog implementation
TQBoxLayout * layout = new TQBoxLayout ( frame , TQBoxLayout : : TopToBottom , 2 , 6 ) ;
: : timetrace ( " init statusbar " ) ;
initStatusBar ( ) ;
: : timetrace ( " init actions " ) ;
initActions ( ) ;
initDynamicMenus ( ) ;
: : timetrace ( " create view " ) ;
myMoneyView = new KMyMoneyView ( frame , " KMyMoneyView " ) ;
layout - > addWidget ( myMoneyView , 10 ) ;
connect ( myMoneyView , TQ_SIGNAL ( aboutToShowPage ( TQWidget * ) ) , this , TQ_SLOT ( slotResetSelections ( ) ) ) ;
///////////////////////////////////////////////////////////////////
// call inits to invoke all other construction parts
: : timetrace ( " init options " ) ;
readOptions ( ) ;
#if 0
m_pluginSignalMapper = new TQSignalMapper ( this ) ;
connect ( m_pluginSignalMapper , TQ_SIGNAL ( mapped ( const TQString & ) ) , this , TQ_SLOT ( slotPluginImport ( const TQString & ) ) ) ;
# endif
// now initialize the plugin structure
: : timetrace ( " load plugins " ) ;
createInterfaces ( ) ;
loadPlugins ( ) ;
setCentralWidget ( frame ) ;
: : timetrace ( " done " ) ;
connect ( & proc , TQ_SIGNAL ( processExited ( TDEProcess * ) ) , this , TQ_SLOT ( slotProcessExited ( ) ) ) ;
// force to show the home page if the file is closed
connect ( action ( " view_show_transaction_detail " ) , TQ_SIGNAL ( toggled ( bool ) ) , myMoneyView , TQ_SLOT ( slotShowTransactionDetail ( bool ) ) ) ;
m_backupState = BACKUP_IDLE ;
m_qifReader = 0 ;
m_smtReader = 0 ;
m_autoSaveEnabled = KMyMoneyGlobalSettings : : autoSaveFile ( ) ;
m_autoSavePeriod = KMyMoneyGlobalSettings : : autoSavePeriod ( ) ;
m_autoSaveTimer = new TQTimer ( this ) ;
connect ( m_autoSaveTimer , TQ_SIGNAL ( timeout ( ) ) , this , TQ_SLOT ( slotAutoSave ( ) ) ) ;
// make sure, we get a note when the engine changes state
connect ( MyMoneyFile : : instance ( ) , TQ_SIGNAL ( dataChanged ( ) ) , this , TQ_SLOT ( slotDataChanged ( ) ) ) ;
// make sure we have a balance warning object
d - > m_balanceWarning = new KBalanceWarning ( this ) ;
// kickstart date change timer
slotDateChanged ( ) ;
}
KMyMoney2App : : ~ KMyMoney2App ( )
{
delete m_searchDlg ;
delete m_qifReader ;
delete m_transactionEditor ;
delete m_endingBalanceDlg ;
delete d - > m_moveToAccountSelector ;
delete d ;
delete myMoneyView ;
}
const KURL KMyMoney2App : : lastOpenedURL ( void )
{
KURL url = m_startDialog ? KURL ( ) : m_fileName ;
if ( ! url . isValid ( ) )
{
url = readLastUsedFile ( ) ;
}
ready ( ) ;
return url ;
}
void KMyMoney2App : : initDynamicMenus ( void )
{
TQWidget * w = factory ( ) - > container ( " transaction_move_menu " , this ) ;
TQPopupMenu * menu = dynamic_cast < TQPopupMenu * > ( w ) ;
if ( menu ) {
d - > m_moveToAccountSelector = new kMyMoneyAccountSelector ( menu , 0 , 0 , false ) ;
menu - > insertItem ( d - > m_moveToAccountSelector ) ;
connect ( d - > m_moveToAccountSelector , TQ_SIGNAL ( itemSelected ( const TQString & ) ) , this , TQ_SLOT ( slotMoveToAccount ( const TQString & ) ) ) ;
connect ( this , TQ_SIGNAL ( accountSelected ( const MyMoneyAccount & ) ) , this , TQ_SLOT ( slotUpdateMoveToAccountMenu ( ) ) ) ;
connect ( this , TQ_SIGNAL ( transactionsSelected ( const KMyMoneyRegister : : SelectedTransactions & ) ) , this , TQ_SLOT ( slotUpdateMoveToAccountMenu ( ) ) ) ;
connect ( MyMoneyFile : : instance ( ) , TQ_SIGNAL ( dataChanged ( ) ) , this , TQ_SLOT ( slotUpdateMoveToAccountMenu ( ) ) ) ;
}
}
void KMyMoney2App : : initActions ( void )
{
TDEAction * p ;
// *************
// The File menu
// *************
KStdAction : : openNew ( this , TQ_SLOT ( slotFileNew ( ) ) , actionCollection ( ) ) ;
KStdAction : : open ( this , TQ_SLOT ( slotFileOpen ( ) ) , actionCollection ( ) ) ;
KStdAction : : openRecent ( this , TQ_SLOT ( slotFileOpenRecent ( const KURL & ) ) , actionCollection ( ) ) ;
KStdAction : : save ( this , TQ_SLOT ( slotFileSave ( ) ) , actionCollection ( ) ) ;
KStdAction : : saveAs ( this , TQ_SLOT ( slotFileSaveAs ( ) ) , actionCollection ( ) ) ;
KStdAction : : close ( this , TQ_SLOT ( slotFileClose ( ) ) , actionCollection ( ) ) ;
KStdAction : : quit ( this , TQ_SLOT ( slotFileQuit ( ) ) , actionCollection ( ) ) ;
KStdAction : : print ( this , TQ_SLOT ( slotPrintView ( ) ) , actionCollection ( ) ) ;
new TDEAction ( i18n ( " Open database... " ) , " " , 0 , this , TQ_SLOT ( slotOpenDatabase ( ) ) , actionCollection ( ) , " open_database " ) ;
new TDEAction ( i18n ( " Save as database... " ) , " " , 0 , this , TQ_SLOT ( slotSaveAsDatabase ( ) ) , actionCollection ( ) , " saveas_database " ) ;
new TDEAction ( i18n ( " Backup... " ) , " backup " , 0 , this , TQ_SLOT ( slotFileBackup ( ) ) , actionCollection ( ) , " file_backup " ) ;
new TDEAction ( i18n ( " QIF... " ) , " " , 0 , this , TQ_SLOT ( slotQifImport ( ) ) , actionCollection ( ) , " file_import_qif " ) ;
new TDEAction ( i18n ( " Gnucash... " ) , " " , 0 , this , TQ_SLOT ( slotGncImport ( ) ) , actionCollection ( ) , " file_import_gnc " ) ;
new TDEAction ( i18n ( " Statement file... " ) , " " , 0 , this , TQ_SLOT ( slotStatementImport ( ) ) , actionCollection ( ) , " file_import_statement " ) ;
new TDEAction ( i18n ( " Account Template... " ) , " " , 0 , this , TQ_SLOT ( slotLoadAccountTemplates ( ) ) , actionCollection ( ) , " file_import_template " ) ;
new TDEAction ( i18n ( " Account Template... " ) , " " , 0 , this , TQ_SLOT ( slotSaveAccountTemplates ( ) ) , actionCollection ( ) , " file_export_template " ) ;
new TDEAction ( i18n ( " QIF... " ) , " " , 0 , this , TQ_SLOT ( slotQifExport ( ) ) , actionCollection ( ) , " file_export_qif " ) ;
new TDEAction ( i18n ( " Personal Data... " ) , " personal_data " , 0 , this , TQ_SLOT ( slotFileViewPersonal ( ) ) , actionCollection ( ) , " view_personal_data " ) ;
# if KMM_DEBUG
new TDEAction ( i18n ( " Dump Memory " ) , " " , 0 , this , TQ_SLOT ( slotFileFileInfo ( ) ) , actionCollection ( ) , " file_dump " ) ;
# endif
new TDEAction ( i18n ( " File-Information... " ) , " application-vnd.tde.info " , 0 , this , TQ_SLOT ( slotFileInfoDialog ( ) ) , actionCollection ( ) , " view_file_info " ) ;
// *************
// The Edit menu
// *************
new TDEAction ( i18n ( " Find transaction... " ) , " transaction_find " , TDEShortcut ( " Ctrl+F " ) , this , TQ_SLOT ( slotFindTransaction ( ) ) , actionCollection ( ) , " edit_find_transaction " ) ;
// *************
// The View menu
// *************
new TDEToggleAction ( i18n ( " Show Transaction Detail " ) , TDEShortcut ( " Ctrl+T " ) , actionCollection ( ) , " view_show_transaction_detail " ) ;
new TDEToggleAction ( i18n ( " Hide reconciled transactions " ) , " hide_reconciled " , TDEShortcut ( " Ctrl+R " ) , this , TQ_SLOT ( slotHideReconciledTransactions ( ) ) , actionCollection ( ) , " view_hide_reconciled_transactions " ) ;
new TDEToggleAction ( i18n ( " Hide unused categories " ) , " hide_categories " , TDEShortcut ( " Ctrl+U " ) , this , TQ_SLOT ( slotHideUnusedCategories ( ) ) , actionCollection ( ) , " view_hide_unused_categories " ) ;
new TDEToggleAction ( i18n ( " Show all accounts " ) , " " , TDEShortcut ( " Ctrl+Shift+A " ) , this , TQ_SLOT ( slotShowAllAccounts ( ) ) , actionCollection ( ) , " view_show_all_accounts " ) ;
// *********************
// The institutions menu
// *********************
new TDEAction ( i18n ( " New institution... " ) , " institution_add " , 0 , this , TQ_SLOT ( slotInstitutionNew ( ) ) , actionCollection ( ) , " institution_new " ) ;
new TDEAction ( i18n ( " Edit institution... " ) , " edit " , 0 , this , TQ_SLOT ( slotInstitutionEdit ( ) ) , actionCollection ( ) , " institution_edit " ) ;
new TDEAction ( i18n ( " Delete institution... " ) , " delete " , 0 , this , TQ_SLOT ( slotInstitutionDelete ( ) ) , actionCollection ( ) , " institution_delete " ) ;
// *****************
// The accounts menu
// *****************
new TDEAction ( i18n ( " New account... " ) , " account_add " , 0 , this , TQ_SLOT ( slotAccountNew ( ) ) , actionCollection ( ) , " account_new " ) ;
// note : action "category_new" is included in this menu but defined below
new TDEAction ( i18n ( " Open ledger " ) , " ledger " , 0 , this , TQ_SLOT ( slotAccountOpen ( ) ) , actionCollection ( ) , " account_open " ) ;
new TDEAction ( i18n ( " Reconcile... " ) , " reconcile " , TDEShortcut ( " Ctrl+Shift+R " ) , this , TQ_SLOT ( slotAccountReconcileStart ( ) ) , actionCollection ( ) , " account_reconcile " ) ;
new TDEAction ( i18n ( " Finish reconciliation " , " Finish " ) , " media-skip-forward " , 0 , this , TQ_SLOT ( slotAccountReconcileFinish ( ) ) , actionCollection ( ) , " account_reconcile_finish " ) ;
new TDEAction ( i18n ( " Postpone reconciliation " , " Postpone " ) , " media-playback-pause " , 0 , this , TQ_SLOT ( slotAccountReconcilePostpone ( ) ) , actionCollection ( ) , " account_reconcile_postpone " ) ;
new TDEAction ( i18n ( " Edit account... " ) , " edit " , 0 , this , TQ_SLOT ( slotAccountEdit ( ) ) , actionCollection ( ) , " account_edit " ) ;
new TDEAction ( i18n ( " Delete account... " ) , " delete " , 0 , this , TQ_SLOT ( slotAccountDelete ( ) ) , actionCollection ( ) , " account_delete " ) ;
new TDEAction ( i18n ( " Close account " ) , " " , 0 , this , TQ_SLOT ( slotAccountClose ( ) ) , actionCollection ( ) , " account_close " ) ;
new TDEAction ( i18n ( " Reopen account " ) , " " , 0 , this , TQ_SLOT ( slotAccountReopen ( ) ) , actionCollection ( ) , " account_reopen " ) ;
new TDEAction ( i18n ( " Transaction report " ) , " view_info " , 0 , this , TQ_SLOT ( slotAccountTransactionReport ( ) ) , actionCollection ( ) , " account_transaction_report " ) ;
# ifdef HAVE_KDCHART
new TDEAction ( i18n ( " Show balance chart... " ) , " application-x-kchart " , 0 , this , TQ_SLOT ( slotAccountChart ( ) ) , actionCollection ( ) , " account_chart " ) ;
# endif
new TDEAction ( i18n ( " Map to online account " ) , " news_subscribe " , 0 , this , TQ_SLOT ( slotAccountMapOnline ( ) ) , actionCollection ( ) , " account_online_map " ) ;
new TDEAction ( i18n ( " Unmap account " ) , " " , 0 , this , TQ_SLOT ( slotAccountUnmapOnline ( ) ) , actionCollection ( ) , " account_online_unmap " ) ;
TDEActionMenu * menu = new TDEActionMenu ( i18n ( " Update " ) , TQIconSet ( TDEGlobal : : iconLoader ( ) - > loadIcon ( " reload " , TDEIcon : : Small ,
TDEIcon : : SizeSmall ) ) , actionCollection ( ) , " account_online_update_menu " ) ;
// activating the menu button is the same as selecting the current account
connect ( menu , TQ_SIGNAL ( activated ( ) ) , this , TQ_SLOT ( slotAccountUpdateOnline ( ) ) ) ;
menu - > insert ( new TDEAction ( i18n ( " Update account... " ) , " " , 0 , this , TQ_SLOT ( slotAccountUpdateOnline ( ) ) , actionCollection ( ) , " account_online_update " ) ) ;
menu - > insert ( new TDEAction ( i18n ( " Update all accounts... " ) , " " , 0 , this , TQ_SLOT ( slotAccountUpdateOnlineAll ( ) ) , actionCollection ( ) , " account_online_update_all " ) ) ;
// *******************
// The categories menu
// *******************
new TDEAction ( i18n ( " New category... " ) , " account_add " , 0 , this , TQ_SLOT ( slotCategoryNew ( ) ) , actionCollection ( ) , " category_new " ) ;
new TDEAction ( i18n ( " Edit category... " ) , " edit " , 0 , this , TQ_SLOT ( slotAccountEdit ( ) ) , actionCollection ( ) , " category_edit " ) ;
new TDEAction ( i18n ( " Delete category... " ) , " delete " , 0 , this , TQ_SLOT ( slotAccountDelete ( ) ) , actionCollection ( ) , " category_delete " ) ;
// **************
// The tools menu
// **************
new TDEAction ( i18n ( " QIF Profile Editor... " ) , " edit " , 0 , this , TQ_SLOT ( slotQifProfileEditor ( ) ) , actionCollection ( ) , " tools_qif_editor " ) ;
new TDEAction ( i18n ( " Securities... " ) , " " , 0 , this , TQ_SLOT ( slotSecurityEditor ( ) ) , actionCollection ( ) , " tools_security_editor " ) ;
new TDEAction ( i18n ( " Currencies... " ) , " " , 0 , this , TQ_SLOT ( slotCurrencyDialog ( ) ) , actionCollection ( ) , " tools_currency_editor " ) ;
new TDEAction ( i18n ( " Prices... " ) , " " , 0 , this , TQ_SLOT ( slotPriceDialog ( ) ) , actionCollection ( ) , " tools_price_editor " ) ;
new TDEAction ( i18n ( " Update Stock and Currency Prices... " ) , " " , 0 , this , TQ_SLOT ( slotEquityPriceUpdate ( ) ) , actionCollection ( ) , " tools_update_prices " ) ;
new TDEAction ( i18n ( " Consistency Check " ) , " " , 0 , this , TQ_SLOT ( slotFileConsitencyCheck ( ) ) , actionCollection ( ) , " tools_consistency_check " ) ;
new TDEAction ( i18n ( " Performance-Test " ) , " fork " , 0 , this , TQ_SLOT ( slotPerformanceTest ( ) ) , actionCollection ( ) , " tools_performancetest " ) ;
new TDEAction ( i18n ( " KCalc... " ) , " kcalc " , 0 , this , TQ_SLOT ( slotToolsStartKCalc ( ) ) , actionCollection ( ) , " tools_kcalc " ) ;
// *****************
// The settings menu
// *****************
KStdAction : : preferences ( this , TQ_SLOT ( slotSettings ( ) ) , actionCollection ( ) ) ;
new TDEAction ( i18n ( " Enable all messages " ) , " " , 0 , this , TQ_SLOT ( slotEnableMessages ( ) ) , actionCollection ( ) , " settings_enable_messages " ) ;
new TDEAction ( i18n ( " TDE language settings... " ) , " " , 0 , this , TQ_SLOT ( slotKDELanguageSettings ( ) ) , actionCollection ( ) , " settings_language " ) ;
// *************
// The help menu
// *************
new TDEAction ( i18n ( " &Show tip of the day " ) , " idea " , 0 , this , TQ_SLOT ( slotShowTipOfTheDay ( ) ) , actionCollection ( ) , " help_show_tip " ) ;
// ***************************
// Actions w/o main menu entry
// ***************************
new TDEAction ( i18n ( " New transaction button " , " New " ) , " document-new " , TQKeySequence ( TQt : : CTRL | TQt : : Key_Insert ) , this , TQ_SLOT ( slotTransactionsNew ( ) ) , actionCollection ( ) , " transaction_new " ) ;
// we use Return as the same shortcut for Edit and Enter. Therefore, we don't allow
// to change them (The standard KDE dialog complains anyway if you want to assign
// the same shortcut to two actions)
p = new TDEAction ( i18n ( " Edit transaction button " , " Edit " ) , " edit " , 0 , this , TQ_SLOT ( slotTransactionsEdit ( ) ) , actionCollection ( ) , " transaction_edit " ) ;
p - > setShortcutConfigurable ( false ) ;
p = new TDEAction ( i18n ( " Enter transaction " , " Enter " ) , " button_ok " , 0 , this , TQ_SLOT ( slotTransactionsEnter ( ) ) , actionCollection ( ) , " transaction_enter " ) ;
p - > setShortcutConfigurable ( false ) ;
new TDEAction ( i18n ( " Edit split button " , " Edit splits " ) , " split_transaction " , 0 , this , TQ_SLOT ( slotTransactionsEditSplits ( ) ) , actionCollection ( ) , " transaction_editsplits " ) ;
new TDEAction ( i18n ( " Cancel transaction edit " , " Cancel " ) , " button_cancel " , 0 , this , TQ_SLOT ( slotTransactionsCancel ( ) ) , actionCollection ( ) , " transaction_cancel " ) ;
new TDEAction ( i18n ( " Delete transaction " , " Delete " ) , " delete " , 0 , this , TQ_SLOT ( slotTransactionsDelete ( ) ) , actionCollection ( ) , " transaction_delete " ) ;
new TDEAction ( i18n ( " Duplicate transaction " , " Duplicate " ) , " edit-copy " , 0 , this , TQ_SLOT ( slotTransactionDuplicate ( ) ) , actionCollection ( ) , " transaction_duplicate " ) ;
new TDEAction ( i18n ( " Button text for match transaction " , " Match " ) , " process-stop " , 0 , this , TQ_SLOT ( slotTransactionMatch ( ) ) , actionCollection ( ) , " transaction_match " ) ;
new TDEAction ( i18n ( " Accept 'imported' and 'matched' transaction " , " Accept " ) , " apply " , 0 , this , TQ_SLOT ( slotTransactionsAccept ( ) ) , actionCollection ( ) , " transaction_accept " ) ;
new TDEAction ( i18n ( " Toggle reconciliation flag " , " Toggle " ) , 0 , TDEShortcut ( " Ctrl+Space " ) , this , TQ_SLOT ( slotToggleReconciliationFlag ( ) ) , actionCollection ( ) , " transaction_mark_toggle " ) ;
new TDEAction ( i18n ( " Mark transaction cleared " , " Cleared " ) , 0 , TDEShortcut ( " Ctrl+Alt+Space " ) , this , TQ_SLOT ( slotMarkTransactionCleared ( ) ) , actionCollection ( ) , " transaction_mark_cleared " ) ;
new TDEAction ( i18n ( " Mark transaction reconciled " , " Reconciled " ) , " " , TDEShortcut ( " Ctrl+Shift+Space " ) , this , TQ_SLOT ( slotMarkTransactionReconciled ( ) ) , actionCollection ( ) , " transaction_mark_reconciled " ) ;
new TDEAction ( i18n ( " Mark transaction not reconciled " , " Not reconciled " ) , " " , 0 , this , TQ_SLOT ( slotMarkTransactionNotReconciled ( ) ) , actionCollection ( ) , " transaction_mark_notreconciled " ) ;
new TDEAction ( i18n ( " Select all transactions " , " Select all " ) , 0 , TDEShortcut ( " Ctrl+A " ) , this , TQ_SIGNAL ( selectAllTransactions ( ) ) , actionCollection ( ) , " transaction_select_all " ) ;
new TDEAction ( i18n ( " Goto account " ) , " goto " , 0 , this , TQ_SLOT ( slotTransactionGotoAccount ( ) ) , actionCollection ( ) , " transaction_goto_account " ) ;
new TDEAction ( i18n ( " Goto payee " ) , " goto " , 0 , this , TQ_SLOT ( slotTransactionGotoPayee ( ) ) , actionCollection ( ) , " transaction_goto_payee " ) ;
new TDEAction ( i18n ( " Create scheduled transaction... " ) , " bookmark_add " , 0 , this , TQ_SLOT ( slotTransactionCreateSchedule ( ) ) , actionCollection ( ) , " transaction_create_schedule " ) ;
new TDEAction ( i18n ( " Assign next number " ) , " " , TDEShortcut ( " Ctrl+Shift+N " ) , this , TQ_SLOT ( slotTransactionAssignNumber ( ) ) , actionCollection ( ) , " transaction_assign_number " ) ;
new TDEAction ( i18n ( " Combine transactions " , " Combine " ) , " " , 0 , this , TQ_SLOT ( slotTransactionCombine ( ) ) , actionCollection ( ) , " transaction_combine " ) ;
new TDEAction ( i18n ( " New investment " ) , " document-new " , 0 , this , TQ_SLOT ( slotInvestmentNew ( ) ) , actionCollection ( ) , " investment_new " ) ;
new TDEAction ( i18n ( " Edit investment... " ) , " edit " , 0 , this , TQ_SLOT ( slotInvestmentEdit ( ) ) , actionCollection ( ) , " investment_edit " ) ;
new TDEAction ( i18n ( " Delete investment... " ) , " delete " , 0 , this , TQ_SLOT ( slotInvestmentDelete ( ) ) , actionCollection ( ) , " investment_delete " ) ;
new TDEAction ( i18n ( " Online price update... " ) , " " , 0 , this , TQ_SLOT ( slotOnlinePriceUpdate ( ) ) , actionCollection ( ) , " investment_online_price_update " ) ;
new TDEAction ( i18n ( " Manual price update... " ) , " " , 0 , this , TQ_SLOT ( slotManualPriceUpdate ( ) ) , actionCollection ( ) , " investment_manual_price_update " ) ;
new TDEAction ( i18n ( " New scheduled transaction... " ) , " document-new " , 0 , this , TQ_SLOT ( slotScheduleNew ( ) ) , actionCollection ( ) , " schedule_new " ) ;
new TDEAction ( i18n ( " Edit scheduled transaction... " ) , " edit " , 0 , this , TQ_SLOT ( slotScheduleEdit ( ) ) , actionCollection ( ) , " schedule_edit " ) ;
new TDEAction ( i18n ( " Delete scheduled transaction... " ) , " delete " , 0 , this , TQ_SLOT ( slotScheduleDelete ( ) ) , actionCollection ( ) , " schedule_delete " ) ;
new TDEAction ( i18n ( " Duplicate scheduled transaction " ) , " edit-copy " , 0 , this , TQ_SLOT ( slotScheduleDuplicate ( ) ) , actionCollection ( ) , " schedule_duplicate " ) ;
new TDEAction ( i18n ( " Enter next transaction... " ) , " key_enter " , 0 , this , TQ_SLOT ( slotScheduleEnter ( ) ) , actionCollection ( ) , " schedule_enter " ) ;
new TDEAction ( i18n ( " Skip next transaction... " ) , " media-seek-forward " , 0 , this , TQ_SLOT ( slotScheduleSkip ( ) ) , actionCollection ( ) , " schedule_skip " ) ;
new TDEAction ( i18n ( " New payee " ) , " document-new " , 0 , this , TQ_SLOT ( slotPayeeNew ( ) ) , actionCollection ( ) , " payee_new " ) ;
new TDEAction ( i18n ( " Rename payee " ) , " edit " , 0 , this , TQ_SIGNAL ( payeeRename ( ) ) , actionCollection ( ) , " payee_rename " ) ;
new TDEAction ( i18n ( " Delete payee " ) , " delete " , 0 , this , TQ_SLOT ( slotPayeeDelete ( ) ) , actionCollection ( ) , " payee_delete " ) ;
new TDEAction ( i18n ( " New budget " ) , " document-new " , 0 , this , TQ_SLOT ( slotBudgetNew ( ) ) , actionCollection ( ) , " budget_new " ) ;
new TDEAction ( i18n ( " Rename budget " ) , " edit " , 0 , this , TQ_SIGNAL ( budgetRename ( ) ) , actionCollection ( ) , " budget_rename " ) ;
new TDEAction ( i18n ( " Delete budget " ) , " delete " , 0 , this , TQ_SLOT ( slotBudgetDelete ( ) ) , actionCollection ( ) , " budget_delete " ) ;
new TDEAction ( i18n ( " Copy budget " ) , " edit-copy " , 0 , this , TQ_SLOT ( slotBudgetCopy ( ) ) , actionCollection ( ) , " budget_copy " ) ;
new TDEAction ( i18n ( " Change budget year " ) , " " , 0 , this , TQ_SLOT ( slotBudgetChangeYear ( ) ) , actionCollection ( ) , " budget_change_year " ) ;
new TDEAction ( i18n ( " Budget based on forecast " , " Forecast " ) , " forcast " , 0 , this , TQ_SLOT ( slotBudgetForecast ( ) ) , actionCollection ( ) , " budget_forecast " ) ;
// ************************
// Currency actions
// ************************
new TDEAction ( i18n ( " New currency " ) , " document-new " , 0 , this , TQ_SLOT ( slotCurrencyNew ( ) ) , actionCollection ( ) , " currency_new " ) ;
new TDEAction ( i18n ( " Rename currency " ) , " edit " , 0 , this , TQ_SIGNAL ( currencyRename ( ) ) , actionCollection ( ) , " currency_rename " ) ;
new TDEAction ( i18n ( " Delete currency " ) , " delete " , 0 , this , TQ_SLOT ( slotCurrencyDelete ( ) ) , actionCollection ( ) , " currency_delete " ) ;
new TDEAction ( i18n ( " Select as base currency " ) , " kmymoney2 " , 0 , this , TQ_SLOT ( slotCurrencySetBase ( ) ) , actionCollection ( ) , " currency_setbase " ) ;
# ifdef KMM_DEBUG
new TDEAction ( " Test new feature " , " " , TDEShortcut ( " Ctrl+G " ) , this , TQ_SLOT ( slotNewFeature ( ) ) , actionCollection ( ) , " new_user_wizard " ) ;
new TDEToggleAction ( " Debug Traces " , " " , 0 , this , TQ_SLOT ( slotToggleTraces ( ) ) , actionCollection ( ) , " debug_traces " ) ;
new TDEToggleAction ( " Debug Timers " , " " , 0 , this , TQ_SLOT ( slotToggleTimers ( ) ) , actionCollection ( ) , " debug_timers " ) ;
# endif
// ************************
// Currently unused actions
// ************************
#if 0
new TDEToolBarPopupAction ( i18n ( " View back " ) , " back " , 0 , this , TQ_SLOT ( slotShowPreviousView ( ) ) , actionCollection ( ) , " go_back " ) ;
new TDEToolBarPopupAction ( i18n ( " View forward " ) , " forward " , 0 , this , TQ_SLOT ( slotShowNextView ( ) ) , actionCollection ( ) , " go_forward " ) ;
action ( " go_back " ) - > setEnabled ( false ) ;
action ( " go_forward " ) - > setEnabled ( false ) ;
# endif
// Setup transaction detail switch
toggleAction ( " view_show_transaction_detail " ) - > setChecked ( KMyMoneyGlobalSettings : : showRegisterDetailed ( ) ) ;
toggleAction ( " view_hide_reconciled_transactions " ) - > setChecked ( KMyMoneyGlobalSettings : : hideReconciledTransactions ( ) ) ;
toggleAction ( " view_hide_unused_categories " ) - > setChecked ( KMyMoneyGlobalSettings : : hideUnusedCategory ( ) ) ;
toggleAction ( " view_show_all_accounts " ) - > setChecked ( false ) ;
// use the absolute path to your kmymoney2ui.rc file for testing purpose in createGUI();
// createGUI(TQString(), false);
setupGUI ( ) ;
}
void KMyMoney2App : : dumpActions ( void ) const
{
TDEActionPtrList list = actionCollection ( ) - > actions ( ) ;
TDEActionPtrList : : const_iterator it ;
for ( it = list . begin ( ) ; it ! = list . end ( ) ; + + it ) {
std : : cout < < ( * it ) - > name ( ) < < " : " < < ( * it ) - > text ( ) . local8Bit ( ) < < std : : endl ;
}
}
TDEAction * KMyMoney2App : : action ( const TQString & actionName ) const
{
static TDEShortcut shortcut ( " " ) ;
static TDEAction dummyAction ( TQString ( " Dummy " ) , TQString ( ) , shortcut , this , 0 , static_cast < TDEActionCollection * > ( 0 ) , " " ) ;
TDEAction * p = actionCollection ( ) - > action ( actionName . latin1 ( ) ) ;
if ( p )
return p ;
tqWarning ( TQString ( " Action with name '%1' not found! " ) . arg ( actionName ) ) ;
return & dummyAction ;
}
TDEToggleAction * KMyMoney2App : : toggleAction ( const TQString & actionName ) const
{
static TDEShortcut shortcut ( " " ) ;
static TDEToggleAction dummyAction ( TQString ( " Dummy " ) , TQString ( ) , shortcut , this , 0 , static_cast < TDEActionCollection * > ( 0 ) , " " ) ;
TDEAction * q = actionCollection ( ) - > action ( actionName . latin1 ( ) ) ;
if ( q ) {
TDEToggleAction * p = dynamic_cast < TDEToggleAction * > ( q ) ;
if ( ! p ) {
tqWarning ( TQString ( " Action '%1' is not of type TDEToggleAction " ) . arg ( actionName ) ) ;
p = & dummyAction ;
}
return p ;
}
tqWarning ( TQString ( " Action with name '%1' not found! " ) . arg ( actionName ) ) ;
return & dummyAction ;
}
void KMyMoney2App : : initStatusBar ( void )
{
///////////////////////////////////////////////////////////////////
// STATUSBAR
statusBar ( ) - > insertItem ( " " , ID_STATUS_MSG ) ;
ready ( ) ;
// Initialization of progress bar taken from KDevelop ;-)
progressBar = new KProgress ( statusBar ( ) ) ;
progressBar - > setFrameStyle ( TQFrame : : NoFrame | TQFrame : : Plain ) ;
progressBar - > setMargin ( 0 ) ;
progressBar - > setLineWidth ( 0 ) ;
progressBar - > setBackgroundMode ( TQWidget : : PaletteBackground ) ;
statusBar ( ) - > addWidget ( progressBar ) ;
progressBar - > setFixedHeight ( progressBar - > sizeHint ( ) . height ( ) - 8 ) ;
// hide the progress bar for now
slotStatusProgressBar ( - 1 , - 1 ) ;
}
void KMyMoney2App : : saveOptions ( void )
{
config - > setGroup ( " General Options " ) ;
config - > writeEntry ( " Geometry " , size ( ) ) ;
// config->writeEntry("Show Statusbar", toggleAction("options_show_statusbar")->isChecked());
// toolBar("mainToolBar")->saveSettings(config, "mainToolBar");
dynamic_cast < TDERecentFilesAction * > ( action ( " file_open_recent " ) ) - > saveEntries ( config , " Recent Files " ) ;
}
void KMyMoney2App : : readOptions ( void )
{
config - > setGroup ( " General Options " ) ;
toggleAction ( " view_hide_reconciled_transactions " ) - > setChecked ( KMyMoneyGlobalSettings : : hideReconciledTransactions ( ) ) ;
toggleAction ( " view_hide_unused_categories " ) - > setChecked ( KMyMoneyGlobalSettings : : hideUnusedCategory ( ) ) ;
// initialize the recent file list
TDERecentFilesAction * p = dynamic_cast < TDERecentFilesAction * > ( action ( " file_open_recent " ) ) ;
if ( p )
p - > loadEntries ( config , " Recent Files " ) ;
TQSize defaultSize ( 800 , 600 ) ;
TQSize size = config - > readSizeEntry ( " Geometry " , & defaultSize ) ;
if ( ! size . isEmpty ( ) )
{
resize ( size ) ;
}
// Startdialog is written in the settings dialog
m_startDialog = config - > readBoolEntry ( " StartDialog " , true ) ;
config - > setGroup ( " Schedule Options " ) ;
m_bCheckSchedules = config - > readBoolEntry ( " CheckSchedules " , true ) ;
}
void KMyMoney2App : : resizeEvent ( TQResizeEvent * ev )
{
TDEMainWindow : : resizeEvent ( ev ) ;
updateCaption ( true ) ;
}
bool KMyMoney2App : : queryClose ( void )
{
if ( ! isReady ( ) )
return false ;
if ( myMoneyView - > dirty ( ) ) {
int ans = KMessageBox : : warningYesNoCancel ( this , i18n ( " KMyMoney file needs saving. Save ? " ) ) ;
if ( ans = = KMessageBox : : Cancel )
return false ;
else if ( ans = = KMessageBox : : Yes )
return slotFileSave ( ) ;
}
if ( myMoneyView - > isDatabase ( ) )
slotFileClose ( ) ; // close off the database
return true ;
}
bool KMyMoney2App : : queryExit ( void )
{
saveOptions ( ) ;
return true ;
}
/////////////////////////////////////////////////////////////////////
// SLOT IMPLEMENTATION
/////////////////////////////////////////////////////////////////////
void KMyMoney2App : : slotFileInfoDialog ( void )
{
KMyMoneyFileInfoDlg dlg ( 0 ) ;
dlg . exec ( ) ;
}
void KMyMoney2App : : slotPerformanceTest ( void )
{
// dump performance report to stderr
int measurement [ 2 ] ;
TQTime timer ;
MyMoneyAccount acc ;
tqDebug ( " --- Starting performance tests --- " ) ;
// AccountList
MyMoneyFile : : instance ( ) - > preloadCache ( ) ;
measurement [ 0 ] = measurement [ 1 ] = 0 ;
timer . start ( ) ;
for ( int i = 0 ; i < 1000 ; + + i ) {
TQValueList < MyMoneyAccount > list ;
MyMoneyFile : : instance ( ) - > accountList ( list ) ;
measurement [ i ! = 0 ] = timer . elapsed ( ) ;
}
std : : cerr < < " accountList() " < < std : : endl ;
std : : cerr < < " First time: " < < measurement [ 0 ] < < " msec " < < std : : endl ;
std : : cerr < < " Total time: " < < ( measurement [ 0 ] + measurement [ 1 ] ) < < " msec " < < std : : endl ;
std : : cerr < < " Average : " < < ( measurement [ 0 ] + measurement [ 1 ] ) / 1000 < < " msec " < < std : : endl ;
// Balance of asset account(s)
MyMoneyFile : : instance ( ) - > preloadCache ( ) ;
measurement [ 0 ] = measurement [ 1 ] = 0 ;
acc = MyMoneyFile : : instance ( ) - > asset ( ) ;
for ( int i = 0 ; i < 1000 ; + + i ) {
timer . start ( ) ;
MyMoneyMoney result = MyMoneyFile : : instance ( ) - > balance ( acc . id ( ) ) ;
measurement [ i ! = 0 ] + = timer . elapsed ( ) ;
}
std : : cerr < < " balance(Asset) " < < std : : endl ;
std : : cerr < < " First time: " < < measurement [ 0 ] < < " msec " < < std : : endl ;
std : : cerr < < " Average : " < < ( measurement [ 0 ] + measurement [ 1 ] ) / 1000 < < " msec " < < std : : endl ;
// total balance of asset account
MyMoneyFile : : instance ( ) - > preloadCache ( ) ;
measurement [ 0 ] = measurement [ 1 ] = 0 ;
acc = MyMoneyFile : : instance ( ) - > asset ( ) ;
for ( int i = 0 ; i < 1000 ; + + i ) {
timer . start ( ) ;
MyMoneyMoney result = MyMoneyFile : : instance ( ) - > totalBalance ( acc . id ( ) ) ;
measurement [ i ! = 0 ] + = timer . elapsed ( ) ;
}
std : : cerr < < " totalBalance(Asset) " < < std : : endl ;
std : : cerr < < " First time: " < < measurement [ 0 ] < < " msec " < < std : : endl ;
std : : cerr < < " Average : " < < ( measurement [ 0 ] + measurement [ 1 ] ) / 1000 < < " msec " < < std : : endl ;
// Balance of expense account(s)
MyMoneyFile : : instance ( ) - > preloadCache ( ) ;
measurement [ 0 ] = measurement [ 1 ] = 0 ;
acc = MyMoneyFile : : instance ( ) - > expense ( ) ;
for ( int i = 0 ; i < 1000 ; + + i ) {
timer . start ( ) ;
MyMoneyMoney result = MyMoneyFile : : instance ( ) - > balance ( acc . id ( ) ) ;
measurement [ i ! = 0 ] + = timer . elapsed ( ) ;
}
std : : cerr < < " balance(Expense) " < < std : : endl ;
std : : cerr < < " First time: " < < measurement [ 0 ] < < " msec " < < std : : endl ;
std : : cerr < < " Average : " < < ( measurement [ 0 ] + measurement [ 1 ] ) / 1000 < < " msec " < < std : : endl ;
// total balance of expense account
MyMoneyFile : : instance ( ) - > preloadCache ( ) ;
measurement [ 0 ] = measurement [ 1 ] = 0 ;
acc = MyMoneyFile : : instance ( ) - > expense ( ) ;
timer . start ( ) ;
for ( int i = 0 ; i < 1000 ; + + i ) {
MyMoneyMoney result = MyMoneyFile : : instance ( ) - > totalBalance ( acc . id ( ) ) ;
measurement [ i ! = 0 ] = timer . elapsed ( ) ;
}
std : : cerr < < " totalBalance(Expense) " < < std : : endl ;
std : : cerr < < " First time: " < < measurement [ 0 ] < < " msec " < < std : : endl ;
std : : cerr < < " Total time: " < < ( measurement [ 0 ] + measurement [ 1 ] ) < < " msec " < < std : : endl ;
std : : cerr < < " Average : " < < ( measurement [ 0 ] + measurement [ 1 ] ) / 1000 < < " msec " < < std : : endl ;
// transaction list
MyMoneyFile : : instance ( ) - > preloadCache ( ) ;
measurement [ 0 ] = measurement [ 1 ] = 0 ;
if ( MyMoneyFile : : instance ( ) - > asset ( ) . accountCount ( ) ) {
MyMoneyTransactionFilter filter ( MyMoneyFile : : instance ( ) - > asset ( ) . accountList ( ) [ 0 ] ) ;
filter . setDateFilter ( TQDate ( ) , TQDate : : currentDate ( ) ) ;
TQValueList < MyMoneyTransaction > list ;
timer . start ( ) ;
for ( int i = 0 ; i < 100 ; + + i ) {
list = MyMoneyFile : : instance ( ) - > transactionList ( filter ) ;
measurement [ i ! = 0 ] = timer . elapsed ( ) ;
}
std : : cerr < < " transactionList() " < < std : : endl ;
std : : cerr < < " First time: " < < measurement [ 0 ] < < " msec " < < std : : endl ;
std : : cerr < < " Total time: " < < ( measurement [ 0 ] + measurement [ 1 ] ) < < " msec " < < std : : endl ;
std : : cerr < < " Average : " < < ( measurement [ 0 ] + measurement [ 1 ] ) / 100 < < " msec " < < std : : endl ;
}
// transaction list
MyMoneyFile : : instance ( ) - > preloadCache ( ) ;
measurement [ 0 ] = measurement [ 1 ] = 0 ;
if ( MyMoneyFile : : instance ( ) - > asset ( ) . accountCount ( ) ) {
MyMoneyTransactionFilter filter ( MyMoneyFile : : instance ( ) - > asset ( ) . accountList ( ) [ 0 ] ) ;
filter . setDateFilter ( TQDate ( ) , TQDate : : currentDate ( ) ) ;
TQValueList < MyMoneyTransaction > list ;
timer . start ( ) ;
for ( int i = 0 ; i < 100 ; + + i ) {
MyMoneyFile : : instance ( ) - > transactionList ( list , filter ) ;
measurement [ i ! = 0 ] = timer . elapsed ( ) ;
}
std : : cerr < < " transactionList(list) " < < std : : endl ;
std : : cerr < < " First time: " < < measurement [ 0 ] < < " msec " < < std : : endl ;
std : : cerr < < " Total time: " < < ( measurement [ 0 ] + measurement [ 1 ] ) < < " msec " < < std : : endl ;
std : : cerr < < " Average : " < < ( measurement [ 0 ] + measurement [ 1 ] ) / 100 < < " msec " < < std : : endl ;
}
MyMoneyFile : : instance ( ) - > preloadCache ( ) ;
}
void KMyMoney2App : : slotFileNew ( void )
{
KMSTATUS ( i18n ( " Creating new document... " ) ) ;
slotFileClose ( ) ;
if ( ! myMoneyView - > fileOpen ( ) ) {
// next line required until we move all file handling out of KMyMoneyView
myMoneyView - > newFile ( ) ;
m_fileName = KURL ( ) ;
updateCaption ( ) ;
// before we create the wizard, we need to preload the currencies
MyMoneyFileTransaction ft ;
myMoneyView - > loadDefaultCurrencies ( ) ;
myMoneyView - > loadAncientCurrencies ( ) ;
ft . commit ( ) ;
NewUserWizard : : Wizard * wizard = new NewUserWizard : : Wizard ( ) ;
if ( wizard - > exec ( ) = = TQDialog : : Accepted ) {
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
ft . restart ( ) ;
try {
// store the user info
file - > setUser ( wizard - > user ( ) ) ;
// setup base currency
file - > setBaseCurrency ( wizard - > baseCurrency ( ) ) ;
// create a possible institution
MyMoneyInstitution inst = wizard - > institution ( ) ;
if ( inst . name ( ) . length ( ) ) {
file - > addInstitution ( inst ) ;
}
// create a possible checking account
MyMoneyAccount acc = wizard - > account ( ) ;
if ( acc . name ( ) . length ( ) ) {
acc . setInstitutionId ( inst . id ( ) ) ;
MyMoneyAccount asset = file - > asset ( ) ;
file - > addAccount ( acc , asset ) ;
// create possible opening balance transaction
if ( ! wizard - > openingBalance ( ) . isZero ( ) ) {
file - > createOpeningBalanceTransaction ( acc , wizard - > openingBalance ( ) ) ;
}
}
// import the account templates
TQValueList < MyMoneyTemplate > templates = wizard - > templates ( ) ;
TQValueList < MyMoneyTemplate > : : iterator it_t ;
for ( it_t = templates . begin ( ) ; it_t ! = templates . end ( ) ; + + it_t ) {
( * it_t ) . importTemplate ( & progressCallback ) ;
}
m_fileName = KURL ( wizard - > url ( ) ) ;
ft . commit ( ) ;
KMyMoneyGlobalSettings : : setFirstTimeRun ( false ) ;
// FIXME This is a bit clumsy. We re-read the freshly
// created file to be able to run through all the
// fixup logic and then save it to keep the modified
// flag off.
slotFileSave ( ) ;
myMoneyView - > readFile ( m_fileName ) ;
slotFileSave ( ) ;
// now keep the filename in the recent files used list
TDERecentFilesAction * p = dynamic_cast < TDERecentFilesAction * > ( action ( " file_open_recent " ) ) ;
if ( p )
p - > addURL ( m_fileName ) ;
writeLastUsedFile ( m_fileName . url ( ) ) ;
} catch ( MyMoneyException * e ) {
delete e ;
// next line required until we move all file handling out of KMyMoneyView
myMoneyView - > closeFile ( ) ;
}
} else {
// next line required until we move all file handling out of KMyMoneyView
myMoneyView - > closeFile ( ) ;
}
delete wizard ;
updateCaption ( ) ;
emit fileLoaded ( m_fileName ) ;
}
}
KURL KMyMoney2App : : selectFile ( const TQString & title , const TQString & _path , const TQString & mask , KFile : : Mode mode )
{
KURL url ;
TQString path ( _path ) ;
if ( path . isEmpty ( ) )
path = TDEGlobalSettings : : documentPath ( ) ;
KFileDialog * dialog = new KFileDialog ( path , mask , this , title . utf8 ( ) , true ) ;
dialog - > setMode ( mode ) ;
if ( dialog - > exec ( ) = = TQDialog : : Accepted ) {
url = dialog - > selectedURL ( ) ;
}
delete dialog ;
return url ;
}
// General open
void KMyMoney2App : : slotFileOpen ( void )
{
KMSTATUS ( i18n ( " Open a file. " ) ) ;
KFileDialog * dialog = new KFileDialog ( TDEGlobalSettings : : documentPath ( ) ,
i18n ( " %1|KMyMoney files \n %2|All files (*.*) " ) . arg ( " *.kmy *.xml " ) . arg ( " * " ) ,
this , i18n ( " Open File... " ) . utf8 ( ) , true ) ;
dialog - > setMode ( KFile : : File | KFile : : ExistingOnly ) ;
if ( dialog - > exec ( ) = = TQDialog : : Accepted ) {
slotFileOpenRecent ( dialog - > selectedURL ( ) ) ;
}
delete dialog ;
}
void KMyMoney2App : : slotOpenDatabase ( void )
{
KMSTATUS ( i18n ( " Open a file. " ) ) ;
TDESelectDatabaseDlg dialog ;
dialog . setMode ( IO_ReadWrite ) ;
if ( dialog . exec ( ) = = TQDialog : : Accepted ) {
slotFileOpenRecent ( dialog . selectedURL ( ) ) ;
}
}
bool KMyMoney2App : : isImportableFile ( const KURL & url )
{
bool result = false ;
// Iterate through the plugins and see if there's a loaded plugin who can handle it
TQMap < TQString , KMyMoneyPlugin : : ImporterPlugin * > : : const_iterator it_plugin = m_importerPlugins . begin ( ) ;
while ( it_plugin ! = m_importerPlugins . end ( ) )
{
if ( ( * it_plugin ) - > isMyFormat ( url . path ( ) ) )
{
result = true ;
break ;
}
+ + it_plugin ;
}
// If we did not find a match, try importing it as a KMM statement file,
// which is really just for testing. the statement file is not exposed
// to users.
if ( it_plugin = = m_importerPlugins . end ( ) )
if ( MyMoneyStatement : : isStatementFile ( url . path ( ) ) )
result = true ;
// Place code here to test for QIF and other locally-supported formats
// (i.e. not a plugin). If you add them here, be sure to add it to
// the webConnect function.
return result ;
}
void KMyMoney2App : : slotFileOpenRecent ( const KURL & url )
{
KMSTATUS ( i18n ( " Loading file... " ) ) ;
KURL lastFile = m_fileName ;
// check if there are other instances which might have this file open
TQValueList < TQCString > list = instanceList ( ) ;
TQValueList < TQCString > : : ConstIterator it ;
bool duplicate = false ;
for ( it = list . begin ( ) ; duplicate = = false & & it ! = list . end ( ) ; + + it ) {
KMyMoney2App_stub * remoteApp = new KMyMoney2App_stub ( kapp - > dcopClient ( ) , ( * it ) , " kmymoney2app " ) ;
TQString remoteFile = remoteApp - > filename ( ) ;
if ( ! remoteApp - > ok ( ) ) {
tqDebug ( " DCOP error while calling app->filename() " ) ;
} else {
if ( remoteFile = = url . url ( ) ) {
duplicate = true ;
}
}
delete remoteApp ;
}
if ( ! duplicate ) {
# if KDE_IS_VERSION(3,2,0)
if ( ( url . protocol ( ) = = " sql " ) | | ( url . isValid ( ) & & TDEIO : : NetAccess : : exists ( url , true , this ) ) ) {
# else
if ( ( url . protocol ( ) = = " sql " ) | | ( url . isValid ( ) & & TDEIO : : NetAccess : : exists ( url ) ) ) {
# endif
KURL dburl = url ;
// check if a password is needed. it may be if the URL came from the last/recent file list
if ( ( dburl . queryItem ( " secure " ) = = " yes " ) & & dburl . pass ( ) . isEmpty ( ) ) {
TDESelectDatabaseDlg dialog ( dburl ) ;
dialog . setMode ( IO_ReadWrite ) ;
if ( dialog . exec ( ) = = TQDialog : : Accepted ) dburl = dialog . selectedURL ( ) ;
}
slotFileClose ( ) ;
if ( ! myMoneyView - > fileOpen ( ) ) {
if ( myMoneyView - > readFile ( dburl ) ) {
if ( ( myMoneyView - > isNativeFile ( ) ) ) {
m_fileName = dburl ;
TDERecentFilesAction * p = dynamic_cast < TDERecentFilesAction * > ( action ( " file_open_recent " ) ) ;
if ( p )
p - > addURL ( dburl . prettyURL ( 0 , KURL : : StripFileProtocol ) ) ;
writeLastUsedFile ( dburl . prettyURL ( 0 , KURL : : StripFileProtocol ) ) ;
} else {
m_fileName = KURL ( ) ; // imported files have no filename
}
: : timetrace ( " Start checking schedules " ) ;
// Check the schedules
slotCheckSchedules ( ) ;
: : timetrace ( " Done checking schedules " ) ;
}
updateCaption ( ) ;
: : timetrace ( " Announcing new filename " ) ;
emit fileLoaded ( m_fileName ) ;
: : timetrace ( " Announcing new filename done " ) ;
}
} else {
slotFileClose ( ) ;
KMessageBox : : sorry ( this , TQString ( " <p> " ) + i18n ( " <b>%1</b> is either an invalid filename or the file does not exist. You can open another file or create a new one. " ) . arg ( url . prettyURL ( 0 , KURL : : StripFileProtocol ) ) , i18n ( " File not found " ) ) ;
}
} else {
KMessageBox : : sorry ( this , TQString ( " <p> " ) + i18n ( " File <b>%1</b> is already opened in another instance of KMyMoney " ) . arg ( url . prettyURL ( 0 , KURL : : StripFileProtocol ) ) , i18n ( " Duplicate open " ) ) ;
}
}
bool KMyMoney2App : : slotFileSave ( void )
{
// if there's nothing changed, there's no need to save anything
if ( ! myMoneyView - > dirty ( ) )
return true ;
bool rc = false ;
KMSTATUS ( i18n ( " Saving file... " ) ) ;
if ( m_fileName . isEmpty ( ) )
return slotFileSaveAs ( ) ;
/*if (myMoneyView->isDatabase()) {
rc = myMoneyView - > saveDatabase ( m_fileName ) ;
// the 'save' function is no longer relevant for a database*/
setEnabled ( false ) ;
rc = myMoneyView - > saveFile ( m_fileName , MyMoneyFile : : instance ( ) - > value ( " kmm-encryption-key " ) ) ;
setEnabled ( true ) ;
m_autoSaveTimer - > stop ( ) ;
updateCaption ( ) ;
return rc ;
}
void KMyMoney2App : : slotFileSaveAsFilterChanged ( const TQString & filter )
{
if ( m_saveEncrypted ) {
if ( filter ! = " *.kmy " ) {
m_saveEncrypted - > setCurrentItem ( 0 ) ;
m_saveEncrypted - > setEnabled ( false ) ;
} else {
m_saveEncrypted - > setEnabled ( true ) ;
}
}
}
void KMyMoney2App : : slotManageGpgKeys ( void )
{
KGpgKeySelectionDlg dlg ( this ) ;
dlg . setKeys ( m_additionalGpgKeys ) ;
if ( dlg . exec ( ) = = TQDialog : : Accepted ) {
m_additionalGpgKeys = dlg . keys ( ) ;
m_additionalKeyLabel - > setText ( i18n ( " Additional encryption key(s) to be used: %1 " ) . arg ( m_additionalGpgKeys . count ( ) ) ) ;
}
}
void KMyMoney2App : : slotKeySelected ( int idx )
{
int cnt = 0 ;
if ( idx ! = 0 ) {
cnt = m_additionalGpgKeys . count ( ) ;
}
m_additionalKeyLabel - > setEnabled ( idx ! = 0 ) ;
m_additionalKeyButton - > setEnabled ( idx ! = 0 ) ;
m_additionalKeyLabel - > setText ( i18n ( " Additional encryption key(s) to be used: %1 " ) . arg ( cnt ) ) ;
}
bool KMyMoney2App : : slotFileSaveAs ( void )
{
bool rc = false ;
// in event of it being a database, ensure that all data is read into storage for saveas
if ( myMoneyView - > isDatabase ( ) )
dynamic_cast < IMyMoneySerialize * > ( MyMoneyFile : : instance ( ) - > storage ( ) ) - > fillStorage ( ) ;
KMSTATUS ( i18n ( " Saving file with a new filename... " ) ) ;
TQString prevDir = " " ; // don't prompt file name if not a native file
if ( myMoneyView - > isNativeFile ( ) )
prevDir = readLastUsedDir ( ) ;
// fill the additional key list with the default
m_additionalGpgKeys = KMyMoneyGlobalSettings : : gpgRecipientList ( ) ;
TQVBox * vbox = new TQVBox ( ) ;
if ( KGPGFile : : GPGAvailable ( ) ) {
TQHBox * keyBox = new TQHBox ( vbox ) ;
new TQLabel ( i18n ( " Encryption key to be used " ) , keyBox ) ;
m_saveEncrypted = new KComboBox ( keyBox ) ;
TQHBox * labelBox = new TQHBox ( vbox ) ;
m_additionalKeyLabel = new TQLabel ( i18n ( " Additional encryption key(s) to be used: %1 " ) . arg ( m_additionalGpgKeys . count ( ) ) , labelBox ) ;
m_additionalKeyButton = new KPushButton ( i18n ( " Manage additional keys " ) , labelBox ) ;
connect ( m_additionalKeyButton , TQ_SIGNAL ( clicked ( ) ) , this , TQ_SLOT ( slotManageGpgKeys ( ) ) ) ;
connect ( m_saveEncrypted , TQ_SIGNAL ( activated ( int ) ) , this , TQ_SLOT ( slotKeySelected ( int ) ) ) ;
// fill the secret key list and combo box
TQStringList keyList ;
KGPGFile : : secretKeyList ( keyList ) ;
m_saveEncrypted - > insertItem ( i18n ( " No encryption " ) ) ;
for ( TQStringList : : iterator it = keyList . begin ( ) ; it ! = keyList . end ( ) ; + + it ) {
TQStringList fields = TQStringList : : split ( " : " , * it ) ;
if ( fields [ 0 ] ! = RECOVER_KEY_ID ) {
// replace parenthesis in name field with brackets
TQString name = fields [ 1 ] ;
name . replace ( ' ( ' , " [ " ) ;
name . replace ( ' ) ' , " ] " ) ;
name = TQString ( " %1 (0x%2) " ) . arg ( name ) . arg ( fields [ 0 ] ) ;
m_saveEncrypted - > insertItem ( name ) ;
if ( name . contains ( KMyMoneyGlobalSettings : : gpgRecipient ( ) ) ) {
m_saveEncrypted - > setCurrentItem ( name ) ;
}
}
}
}
// the following code is copied from KFileDialog::getSaveFileName,
// adjust to our local needs (filetypes etc.) and
// enhanced to show the m_saveEncrypted combo box
bool specialDir = prevDir . at ( 0 ) = = ' : ' ;
KFileDialog dlg ( specialDir ? prevDir : TQString ( ) ,
TQString ( " %1|%2 \n " ) . arg ( " *.kmy " ) . arg ( i18n ( " KMyMoney (Filefilter) " , " KMyMoney files " ) ) +
TQString ( " %1|%2 \n " ) . arg ( " *.xml " ) . arg ( i18n ( " XML (Filefilter) " , " XML files " ) ) +
TQString ( " %1|%2 \n " ) . arg ( " *.anon.xml " ) . arg ( i18n ( " Anonymous (Filefilter) " , " Anonymous files " ) ) +
TQString ( " %1|%2 \n " ) . arg ( " * " ) . arg ( i18n ( " All files " ) ) ,
this , " filedialog " , true , vbox ) ;
connect ( & dlg , TQ_SIGNAL ( filterChanged ( const TQString & ) ) , this , TQ_SLOT ( slotFileSaveAsFilterChanged ( const TQString & ) ) ) ;
if ( ! specialDir )
dlg . setSelection ( prevDir ) ; // may also be a filename
dlg . setOperationMode ( KFileDialog : : Saving ) ;
dlg . setCaption ( i18n ( " Save As " ) ) ;
if ( dlg . exec ( ) = = TQDialog : : Accepted ) {
KURL newURL = dlg . selectedURL ( ) ;
if ( ! newURL . isEmpty ( ) ) {
TQString newName = newURL . prettyURL ( 0 , KURL : : StripFileProtocol ) ;
// end of copy
// find last . delimiter
int nLoc = newName . findRev ( ' . ' ) ;
if ( nLoc ! = - 1 )
{
TQString strExt , strTemp ;
strTemp = newName . left ( nLoc + 1 ) ;
strExt = newName . right ( newName . length ( ) - ( nLoc + 1 ) ) ;
if ( ( strExt . find ( " kmy " , 0 , FALSE ) = = - 1 ) & & ( strExt . find ( " xml " , 0 , FALSE ) = = - 1 ) )
{
strTemp . append ( " kmy " ) ;
//append to make complete file name
newName = strTemp ;
}
}
else
{
newName . append ( " .kmy " ) ;
}
if ( okToWriteFile ( newName ) ) {
TDERecentFilesAction * p = dynamic_cast < TDERecentFilesAction * > ( action ( " file_open_recent " ) ) ;
if ( p )
p - > addURL ( newName ) ;
setEnabled ( false ) ;
// If this is the anonymous file export, just save it, don't actually take the
// name, or remember it! Don't even try to encrypt it
if ( newName . right ( 9 ) . lower ( ) = = " .anon.xml " )
{
rc = myMoneyView - > saveFile ( newName ) ;
}
else
{
m_fileName = newName ;
TQString encryptionKeys ;
if ( m_saveEncrypted & & m_saveEncrypted - > currentItem ( ) ! = 0 ) {
TQRegExp keyExp ( " .* \\ ((.*) \ \ ) " ) ;
if ( keyExp . search ( m_saveEncrypted - > currentText ( ) ) ! = - 1 ) {
encryptionKeys = keyExp . cap ( 1 ) ;
}
if ( ! m_additionalGpgKeys . isEmpty ( ) ) {
if ( ! encryptionKeys . isEmpty ( ) )
encryptionKeys + = " , " ;
encryptionKeys + = m_additionalGpgKeys . join ( " , " ) ;
}
}
rc = myMoneyView - > saveFile ( newName , encryptionKeys ) ;
//write the directory used for this file as the default one for next time.
writeLastUsedDir ( newName ) ;
writeLastUsedFile ( newName ) ;
}
m_autoSaveTimer - > stop ( ) ;
setEnabled ( true ) ;
}
}
}
updateCaption ( ) ;
return rc ;
}
bool KMyMoney2App : : slotSaveAsDatabase ( void )
{
bool rc = false ;
// in event of it being a database, ensure that all data is read into storage for saveas
if ( myMoneyView - > isDatabase ( ) )
dynamic_cast < IMyMoneySerialize * > ( MyMoneyFile : : instance ( ) - > storage ( ) ) - > fillStorage ( ) ;
KMSTATUS ( i18n ( " Saving file to database... " ) ) ;
TDESelectDatabaseDlg dialog ;
dialog . setMode ( IO_WriteOnly ) ;
KURL oldUrl = m_fileName . isEmpty ( ) ? lastOpenedURL ( ) : m_fileName ;
KURL url = oldUrl ;
while ( oldUrl = = url & & dialog . exec ( ) = = TQDialog : : Accepted ) {
url = dialog . selectedURL ( ) ;
// If the protocol is SQL for the old and new, and the hostname and database names match
// Let the user know that the current database cannot be saved on top of itself.
if ( url . protocol ( ) = = " sql " & & oldUrl . protocol ( ) = = " sql "
& & oldUrl . host ( ) = = url . host ( )
& & oldUrl . queryItem ( " driver " ) = = url . queryItem ( " driver " )
& & oldUrl . path ( ) . right ( oldUrl . path ( ) . length ( ) - 1 ) = = url . path ( ) . right ( url . path ( ) . length ( ) - 1 ) ) {
KMessageBox : : sorry ( this , i18n ( " Cannot save to current database. " ) ) ;
} else {
rc = myMoneyView - > saveAsDatabase ( url ) ;
}
}
if ( rc ) {
TDERecentFilesAction * p = dynamic_cast < TDERecentFilesAction * > ( action ( " file_open_recent " ) ) ;
if ( p )
p - > addURL ( url . prettyURL ( 0 , KURL : : StripFileProtocol ) ) ;
writeLastUsedFile ( url . prettyURL ( 0 , KURL : : StripFileProtocol ) ) ;
}
m_autoSaveTimer - > stop ( ) ;
updateCaption ( ) ;
return rc ;
}
void KMyMoney2App : : slotFileCloseWindow ( void )
{
KMSTATUS ( i18n ( " Closing window... " ) ) ;
if ( myMoneyView - > dirty ( ) ) {
int answer = KMessageBox : : warningYesNoCancel ( this , i18n ( " The file has been changed, save it ? " ) ) ;
if ( answer = = KMessageBox : : Cancel )
return ;
else if ( answer = = KMessageBox : : Yes )
slotFileSave ( ) ;
}
close ( ) ;
}
void KMyMoney2App : : slotFileClose ( void )
{
bool okToSelect = true ;
// check if transaction editor is open and ask user what he wants to do
slotTransactionsCancelOrEnter ( okToSelect ) ;
if ( ! okToSelect )
return ;
// no update status here, as we might delete the status too early.
if ( myMoneyView - > dirty ( ) ) {
int answer = KMessageBox : : warningYesNoCancel ( this , i18n ( " The file has been changed, save it ? " ) ) ;
if ( answer = = KMessageBox : : Cancel )
return ;
else if ( answer = = KMessageBox : : Yes )
slotFileSave ( ) ;
}
slotSelectAccount ( ) ;
slotSelectInstitution ( ) ;
slotSelectInvestment ( ) ;
slotSelectSchedule ( ) ;
slotSelectCurrency ( ) ;
slotSelectBudget ( TQValueList < MyMoneyBudget > ( ) ) ;
slotSelectPayees ( TQValueList < MyMoneyPayee > ( ) ) ;
slotSelectTransactions ( KMyMoneyRegister : : SelectedTransactions ( ) ) ;
m_reconciliationAccount = MyMoneyAccount ( ) ;
myMoneyView - > finishReconciliation ( m_reconciliationAccount ) ;
myMoneyView - > closeFile ( ) ;
m_fileName = KURL ( ) ;
updateCaption ( ) ;
// just create a new balance warning object
delete d - > m_balanceWarning ;
d - > m_balanceWarning = new KBalanceWarning ( this ) ;
emit fileLoaded ( m_fileName ) ;
}
void KMyMoney2App : : slotFileQuit ( void )
{
// don't modify the status message here as this will prevent quit from working!!
// See the beginning of queryClose() and isReady() why. Thomas Baumgart 2005-10-17
TDEMainWindow * w = 0 ;
if ( memberList ) {
for ( w = memberList - > first ( ) ; w ! = 0 ; w = memberList - > next ( ) ) {
// only close the window if the closeEvent is accepted. If the user presses Cancel on the saveModified() dialog,
// the window and the application stay open.
if ( ! w - > close ( ) )
break ;
}
// We will only quit if all windows were processed and not cancelled
if ( w = = 0 )
kapp - > quit ( ) ;
} else
kapp - > quit ( ) ;
}
void KMyMoney2App : : slotHideReconciledTransactions ( void )
{
KMyMoneyGlobalSettings : : setHideReconciledTransactions ( toggleAction ( " view_hide_reconciled_transactions " ) - > isChecked ( ) ) ;
myMoneyView - > slotRefreshViews ( ) ;
}
void KMyMoney2App : : slotHideUnusedCategories ( void )
{
KMyMoneyGlobalSettings : : setHideUnusedCategory ( toggleAction ( " view_hide_unused_categories " ) - > isChecked ( ) ) ;
myMoneyView - > slotRefreshViews ( ) ;
}
void KMyMoney2App : : slotShowAllAccounts ( void )
{
myMoneyView - > slotRefreshViews ( ) ;
}
void KMyMoney2App : : slotToggleTraces ( void )
{
MyMoneyTracer : : onOff ( toggleAction ( " debug_traces " ) - > isChecked ( ) ? 1 : 0 ) ;
}
void KMyMoney2App : : slotToggleTimers ( void )
{
extern bool timersOn ; // main.cpp
timersOn = toggleAction ( " debug_timers " ) - > isChecked ( ) ;
}
const TQString KMyMoney2App : : slotStatusMsg ( const TQString & text )
{
///////////////////////////////////////////////////////////////////
// change status message permanently
TQString msg = m_statusMsg ;
m_statusMsg = text ;
if ( m_statusMsg . isEmpty ( ) )
m_statusMsg = i18n ( " Ready. " ) ;
statusBar ( ) - > clear ( ) ;
statusBar ( ) - > changeItem ( text , ID_STATUS_MSG ) ;
return msg ;
}
void KMyMoney2App : : ready ( void )
{
slotStatusMsg ( TQString ( ) ) ;
}
bool KMyMoney2App : : isReady ( void )
{
return m_statusMsg = = i18n ( " Ready. " ) ;
}
void KMyMoney2App : : slotStatusProgressBar ( int current , int total )
{
if ( total = = - 1 & & current = = - 1 ) { // reset
progressBar - > reset ( ) ;
progressBar - > hide ( ) ;
m_nextUpdate = 0 ;
} else if ( total ! = 0 ) { // init
progressBar - > setTotalSteps ( total ) ;
progressBar - > show ( ) ;
// make sure, we don't waste too much time for updateing the screen.
// if we have more than 1000 steps, we update the progress bar
// every 100 steps. If we have less, we allow to update
// every 10 steps.
m_progressUpdate = 1 ;
if ( total > 100 )
m_progressUpdate = 10 ;
if ( total > 1000 )
m_progressUpdate = 100 ;
m_nextUpdate = 0 ;
} else { // update
if ( current > m_nextUpdate ) {
progressBar - > setProgress ( current ) ;
TQApplication : : eventLoop ( ) - > processEvents ( TQEventLoop : : ExcludeUserInput , 10 ) ;
m_nextUpdate + = m_progressUpdate ;
}
}
}
void KMyMoney2App : : progressCallback ( int current , int total , const TQString & msg )
{
if ( ! msg . isEmpty ( ) )
kmymoney2 - > slotStatusMsg ( msg ) ;
kmymoney2 - > slotStatusProgressBar ( current , total ) ;
}
void KMyMoney2App : : slotFileViewPersonal ( void )
{
if ( ! myMoneyView - > fileOpen ( ) ) {
KMessageBox : : information ( this , i18n ( " No KMyMoneyFile open " ) ) ;
return ;
}
KMSTATUS ( i18n ( " Viewing personal data... " ) ) ;
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
MyMoneyPayee user = file - > user ( ) ;
KNewFileDlg newFileDlg ( user . name ( ) , user . address ( ) ,
user . city ( ) , user . state ( ) , user . postcode ( ) , user . telephone ( ) ,
user . email ( ) , this , " NewFileDlg " , i18n ( " Edit Personal Data " ) ) ;
if ( newFileDlg . exec ( ) = = TQDialog : : Accepted )
{
user . setName ( newFileDlg . userNameText ) ;
user . setAddress ( newFileDlg . userStreetText ) ;
user . setCity ( newFileDlg . userTownText ) ;
user . setState ( newFileDlg . userCountyText ) ;
user . setPostcode ( newFileDlg . userPostcodeText ) ;
user . setTelephone ( newFileDlg . userTelephoneText ) ;
user . setEmail ( newFileDlg . userEmailText ) ;
MyMoneyFileTransaction ft ;
try {
file - > setUser ( user ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : information ( this , i18n ( " Unable to store user information: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : slotFileFileInfo ( void )
{
if ( ! myMoneyView - > fileOpen ( ) ) {
KMessageBox : : information ( this , i18n ( " No KMyMoneyFile open " ) ) ;
return ;
}
TQFile g ( " kmymoney2.dump " ) ;
g . open ( IO_WriteOnly ) ;
TQDataStream st ( & g ) ;
MyMoneyStorageDump dumper ;
dumper . writeStream ( st , dynamic_cast < IMyMoneySerialize * > ( MyMoneyFile : : instance ( ) - > storage ( ) ) ) ;
g . close ( ) ;
}
void KMyMoney2App : : slotLoadAccountTemplates ( void )
{
KMSTATUS ( i18n ( " Importing account templates. " ) ) ;
int rc ;
KLoadTemplateDlg * dlg = new KLoadTemplateDlg ( ) ;
if ( ( rc = dlg - > exec ( ) ) = = TQDialog : : Accepted ) {
MyMoneyFileTransaction ft ;
try {
// import the account templates
TQValueList < MyMoneyTemplate > templates = dlg - > templates ( ) ;
TQValueList < MyMoneyTemplate > : : iterator it_t ;
for ( it_t = templates . begin ( ) ; it_t ! = templates . end ( ) ; + + it_t ) {
( * it_t ) . importTemplate ( & progressCallback ) ;
}
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to import template(s): %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
delete dlg ;
}
void KMyMoney2App : : slotSaveAccountTemplates ( void )
{
KMSTATUS ( i18n ( " Exporting account templates. " ) ) ;
TQString newName = KFileDialog : : getSaveFileName ( TDEGlobalSettings : : documentPath ( ) ,
i18n ( " *.kmt|KMyMoney template files \n "
" *.*|All files " ) , this , i18n ( " Save as... " ) ) ;
//
// If there is no file extension, then append a .kmt at the end of the file name.
// If there is a file extension, make sure it is .kmt, delete any others.
//
if ( ! newName . isEmpty ( ) )
{
// find last . delimiter
int nLoc = newName . findRev ( ' . ' ) ;
if ( nLoc ! = - 1 )
{
TQString strExt , strTemp ;
strTemp = newName . left ( nLoc + 1 ) ;
strExt = newName . right ( newName . length ( ) - ( nLoc + 1 ) ) ;
if ( ( strExt . find ( " kmt " , 0 , FALSE ) = = - 1 ) )
{
strTemp . append ( " kmt " ) ;
//append to make complete file name
newName = strTemp ;
}
}
else
{
newName . append ( " .kmt " ) ;
}
if ( okToWriteFile ( newName ) ) {
MyMoneyTemplate templ ;
templ . exportTemplate ( & progressCallback ) ;
templ . saveTemplate ( newName ) ;
}
}
}
void KMyMoney2App : : slotQifImport ( void )
{
if ( m_qifReader = = 0 ) {
// FIXME: the menu entry for qif import should be disabled here
KImportDlg * dlg = new KImportDlg ( 0 ) ;
if ( dlg - > exec ( ) ) {
KMSTATUS ( i18n ( " Importing file... " ) ) ;
m_qifReader = new MyMoneyQifReader ;
// remove all kmm-statement-#.txt files
d - > unlinkStatementXML ( ) ;
connect ( m_qifReader , TQ_SIGNAL ( importFinished ( ) ) , this , TQ_SLOT ( slotQifImportFinished ( ) ) ) ;
m_qifReader - > setURL ( dlg - > filename ( ) ) ;
m_qifReader - > setProfile ( dlg - > profile ( ) ) ;
m_qifReader - > setCategoryMapping ( dlg - > m_typeComboBox - > currentItem ( ) = = 0 ) ;
m_qifReader - > setProgressCallback ( & progressCallback ) ;
// disable all standard widgets during the import
setEnabled ( false ) ;
d - > m_ft = new MyMoneyFileTransaction ( ) ;
d - > m_collectingStatements = true ;
d - > m_statementResults . clear ( ) ;
m_qifReader - > startImport ( ) ;
}
delete dlg ;
slotUpdateActions ( ) ;
}
}
void KMyMoney2App : : slotQifImportFinished ( void )
{
if ( m_qifReader ! = 0 ) {
m_qifReader - > finishImport ( ) ;
d - > m_ft - > commit ( ) ;
d - > m_collectingStatements = false ;
KMessageBox : : informationList ( this , i18n ( " The statements have been processed with the following results: " ) , d - > m_statementResults , i18n ( " Statement stats " ) ) ;
#if 0
// fixme: re-enable the QIF import menu options
if ( m_qifReader - > finishImport ( ) ) {
if ( verifyImportedData ( m_qifReader - > account ( ) ) ) {
// keep the new data set, destroy the backup copy
delete m_engineBackup ;
m_engineBackup = 0 ;
}
}
if ( m_engineBackup ! = 0 ) {
// user cancelled, destroy the updated set and keep the backup copy
IMyMoneyStorage * data = file - > storage ( ) ;
if ( data ! = 0 ) {
file - > detachStorage ( data ) ;
delete data ;
}
file - > attachStorage ( m_engineBackup ) ;
m_engineBackup = 0 ;
}
# endif
// update the views as they might still contain invalid data
// from the import session. The same applies for the window caption
myMoneyView - > slotRefreshViews ( ) ;
updateCaption ( ) ;
delete m_qifReader ;
m_qifReader = 0 ;
}
delete d - > m_ft ;
d - > m_ft = 0 ;
slotStatusProgressBar ( - 1 , - 1 ) ;
ready ( ) ;
// re-enable all standard widgets
setEnabled ( true ) ;
slotUpdateActions ( ) ;
}
void KMyMoney2App : : slotGncImport ( void )
{
if ( myMoneyView - > fileOpen ( ) ) {
switch ( KMessageBox : : questionYesNoCancel ( 0 ,
i18n ( " You cannot import GnuCash data into an existing file. Do you wish to save this file? " ) , PACKAGE ) ) {
case KMessageBox : : Yes :
slotFileSave ( ) ;
break ;
case KMessageBox : : No :
myMoneyView - > closeFile ( ) ;
m_fileName = KURL ( ) ;
break ;
default :
return ;
}
}
KMSTATUS ( i18n ( " Importing a Gnucash file. " ) ) ;
KFileDialog * dialog = new KFileDialog ( TDEGlobalSettings : : documentPath ( ) ,
i18n ( " %1|Gnucash files \n %2|All files (*.*) " ) . arg ( " * " ) . arg ( " * " ) ,
this , i18n ( " Import Gnucash file... " ) . utf8 ( ) , true ) ;
dialog - > setMode ( KFile : : File | KFile : : ExistingOnly ) ;
if ( dialog - > exec ( ) = = TQDialog : : Accepted ) {
// slotFileClose();
// if(myMoneyView->fileOpen())
// return;
// call the importer
myMoneyView - > readFile ( dialog - > selectedURL ( ) ) ;
// imported files don't have a name
m_fileName = KURL ( ) ;
updateCaption ( ) ;
emit fileLoaded ( m_fileName ) ;
}
delete dialog ;
}
void KMyMoney2App : : slotAccountChart ( void )
{
# ifdef HAVE_KDCHART
if ( ! m_selectedAccount . id ( ) . isEmpty ( ) ) {
KBalanceChartDlg dlg ( m_selectedAccount , this ) ;
dlg . exec ( ) ;
}
# endif
}
//
// KMyMoney2App::slotStatementImport() is for testing only. The MyMoneyStatement
// is not intended to be exposed to users in XML form.
//
void KMyMoney2App : : slotStatementImport ( void )
{
bool result = false ;
KMSTATUS ( i18n ( " Importing an XML Statement. " ) ) ;
KFileDialog * dialog = new KFileDialog ( TDEGlobalSettings : : documentPath ( ) ,
i18n ( " %1|XML files \n %2|All files (*.*) " ) . arg ( " *.xml " ) . arg ( " *.* " ) ,
this , i18n ( " Import XML Statement... " ) . utf8 ( ) , true ) ;
dialog - > setMode ( KFile : : File | KFile : : ExistingOnly ) ;
if ( dialog - > exec ( ) = = TQDialog : : Accepted )
{
result = slotStatementImport ( dialog - > selectedURL ( ) . path ( ) ) ;
/* TQFile f( dialog->selectedURL().path() );
f . open ( IO_ReadOnly ) ;
TQString error = " Unable to parse file " ;
TQDomDocument * doc = new TQDomDocument ;
if ( doc - > setContent ( & f , FALSE ) )
{
if ( doc - > doctype ( ) . name ( ) = = " KMYMONEY-STATEMENT " )
{
TQDomElement rootElement = doc - > documentElement ( ) ;
if ( ! rootElement . isNull ( ) )
{
TQDomNode child = rootElement . firstChild ( ) ;
if ( ! child . isNull ( ) & & child . isElement ( ) )
{
MyMoneyStatement s ;
if ( s . read ( child . toElement ( ) ) )
result = slotStatementImport ( s ) ;
else
error = " File does not contain any statements " ;
}
}
}
else
error = " File is not a KMyMoney Statement " ;
}
delete doc ;
if ( ! result )
{
TQMessageBox : : critical ( this , i18n ( " Critical Error " ) , i18n ( " Unable to read file %1: %2 " ) . arg ( dialog - > selectedURL ( ) . path ( ) ) . arg ( error ) , TQMessageBox : : Ok , 0 ) ;
} */
}
delete dialog ;
if ( ! result )
{
// re-enable all standard widgets
setEnabled ( true ) ;
}
}
bool KMyMoney2App : : slotStatementImport ( const TQString & url )
{
bool result = false ;
MyMoneyStatement s ;
if ( MyMoneyStatement : : readXMLFile ( s , url ) )
result = slotStatementImport ( s ) ;
else
KMessageBox : : error ( this , i18n ( " Error importing %1: This file is not a valid KMM statement file. " ) . arg ( url ) , i18n ( " Invalid Statement " ) ) ;
return result ;
}
bool KMyMoney2App : : slotStatementImport ( const MyMoneyStatement & s )
{
bool result = false ;
// keep a copy of the statement
MyMoneyStatement : : writeXMLFile ( s , TQString ( " /home/thb/kmm-statement-%1.txt " ) . arg ( d - > statementXMLindex + + ) ) ;
// we use an object on the heap here, so that we can check the presence
// of it during slotUpdateActions() by looking at the pointer.
m_smtReader = new MyMoneyStatementReader ;
m_smtReader - > setAutoCreatePayee ( true ) ;
m_smtReader - > setProgressCallback ( & progressCallback ) ;
// disable all standard widgets during the import
setEnabled ( false ) ;
TQStringList messages ;
result = m_smtReader - > import ( s , messages ) ;
bool transactionAdded = m_smtReader - > anyTransactionAdded ( ) ;
// get rid of the statement reader and tell everyone else
// about the destruction by setting the pointer to zero
delete m_smtReader ;
m_smtReader = 0 ;
slotStatusProgressBar ( - 1 , - 1 ) ;
ready ( ) ;
// re-enable all standard widgets
setEnabled ( true ) ;
if ( ! d - > m_collectingStatements )
KMessageBox : : informationList ( this , i18n ( " The statement has been processed with the following results: " ) , messages , i18n ( " Statement stats " ) ) ;
else if ( transactionAdded )
d - > m_statementResults + = messages ;
return result ;
}
void KMyMoney2App : : slotQifExport ( void )
{
KMSTATUS ( i18n ( " Exporting file... " ) ) ;
KExportDlg * dlg = new KExportDlg ( 0 ) ;
if ( dlg - > exec ( ) ) {
if ( okToWriteFile ( dlg - > filename ( ) ) ) {
MyMoneyQifWriter writer ;
connect ( & writer , TQ_SIGNAL ( signalProgress ( int , int ) ) , this , TQ_SLOT ( slotStatusProgressBar ( int , int ) ) ) ;
writer . write ( dlg - > filename ( ) , dlg - > profile ( ) , dlg - > accountId ( ) ,
dlg - > accountSelected ( ) , dlg - > categorySelected ( ) ,
dlg - > startDate ( ) , dlg - > endDate ( ) ) ;
}
}
delete dlg ;
}
bool KMyMoney2App : : okToWriteFile ( const KURL & url )
{
// check if the file exists and warn the user
bool reallySaveFile = true ;
if ( TDEIO : : NetAccess : : exists ( url , true , this ) ) {
if ( KMessageBox : : warningYesNo ( this , TQString ( " <qt> " ) + i18n ( " The file <b>%1</b> already exists. Do you really want to override it? " ) . arg ( url . prettyURL ( 0 , KURL : : StripFileProtocol ) ) + TQString ( " </qt> " ) , i18n ( " File already exists " ) ) ! = KMessageBox : : Yes )
reallySaveFile = false ;
}
return reallySaveFile ;
}
void KMyMoney2App : : slotSettings ( void )
{
// if we already have an instance of the settings dialog, then use it
if ( TDEConfigDialog : : showDialog ( " KMyMoney-Settings " ) )
return ;
// otherwise, we have to create it
TDEConfigDialog * dlg = new TDEConfigDialog ( this , " KMyMoney-Settings " , KMyMoneyGlobalSettings : : self ( ) ,
KDialogBase : : IconList , KDialogBase : : Default | KDialogBase : : Ok | KDialogBase : : Cancel | KDialogBase : : Help , KDialogBase : : Ok , true ) ;
// create the pages ...
KSettingsGeneral * generalPage = new KSettingsGeneral ( ) ;
KSettingsRegister * registerPage = new KSettingsRegister ( ) ;
KSettingsHome * homePage = new KSettingsHome ( ) ;
KSettingsSchedules * schedulesPage = new KSettingsSchedules ( ) ;
KSettingsGpg * encryptionPage = new KSettingsGpg ( ) ;
KSettingsColors * colorsPage = new KSettingsColors ( ) ;
KSettingsFonts * fontsPage = new KSettingsFonts ( ) ;
KSettingsOnlineQuotes * onlineQuotesPage = new KSettingsOnlineQuotes ( ) ;
KSettingsForecast * forecastPage = new KSettingsForecast ( ) ;
KSettingsPlugins * pluginsPage = new KSettingsPlugins ( ) ;
// ... and add them to the dialog
dlg - > addPage ( generalPage , i18n ( " General " ) , " misc " ) ;
dlg - > addPage ( registerPage , i18n ( " Register " ) , " ledger " ) ;
dlg - > addPage ( homePage , i18n ( " Home " ) , " home " ) ;
dlg - > addPage ( schedulesPage , i18n ( " Scheduled \n transactions " ) , " schedule " ) ;
dlg - > addPage ( encryptionPage , i18n ( " Encryption " ) , " kgpg " ) ;
dlg - > addPage ( colorsPage , i18n ( " Colors " ) , " application-x-kcsrc " ) ;
dlg - > addPage ( fontsPage , i18n ( " Fonts " ) , " font-x-generic " ) ;
dlg - > addPage ( onlineQuotesPage , i18n ( " Online Quotes " ) , " network_local " ) ;
dlg - > addPage ( forecastPage , i18n ( " Forecast " ) , " forcast " ) ;
dlg - > addPage ( pluginsPage , i18n ( " Plugins " ) , " connect_no " ) ;
connect ( dlg , TQ_SIGNAL ( settingsChanged ( ) ) , this , TQ_SLOT ( slotUpdateConfiguration ( ) ) ) ;
connect ( dlg , TQ_SIGNAL ( okClicked ( ) ) , pluginsPage , TQ_SLOT ( slotSavePlugins ( ) ) ) ;
connect ( dlg , TQ_SIGNAL ( defaultClicked ( ) ) , pluginsPage , TQ_SLOT ( slotDefaultsPlugins ( ) ) ) ;
dlg - > show ( ) ;
}
void KMyMoney2App : : slotUpdateConfiguration ( void )
{
MyMoneyTransactionFilter : : setFiscalYearStart ( KMyMoneyGlobalSettings : : firstFiscalMonth ( ) , KMyMoneyGlobalSettings : : firstFiscalDay ( ) ) ;
myMoneyView - > slotRefreshViews ( ) ;
// re-read autosave configuration
m_autoSaveEnabled = KMyMoneyGlobalSettings : : autoSaveFile ( ) ;
m_autoSavePeriod = KMyMoneyGlobalSettings : : autoSavePeriod ( ) ;
// stop timer if turned off but running
if ( m_autoSaveTimer - > isActive ( ) & & ! m_autoSaveEnabled ) {
m_autoSaveTimer - > stop ( ) ;
}
// start timer if turned on and needed but not running
if ( ! m_autoSaveTimer - > isActive ( ) & & m_autoSaveEnabled & & myMoneyView - > dirty ( ) ) {
m_autoSaveTimer - > start ( m_autoSavePeriod * 60 * 1000 , true ) ;
}
}
/** Init wizard dialog */
bool KMyMoney2App : : initWizard ( void )
{
KStartDlg start ;
if ( start . exec ( ) ) {
slotFileClose ( ) ;
if ( start . isNewFile ( ) ) {
slotFileNew ( ) ;
} else if ( start . isOpenFile ( ) ) {
KURL url ;
url = start . getURL ( ) ;
m_fileName = url . url ( ) ;
slotFileOpenRecent ( url ) ;
} else { // Wizard / Template
m_fileName = start . getURL ( ) ;
}
//save off directory as the last one used.
if ( m_fileName . isLocalFile ( ) & & m_fileName . hasPath ( ) )
{
writeLastUsedDir ( m_fileName . path ( 0 ) ) ;
writeLastUsedFile ( m_fileName . path ( 0 ) ) ;
}
return true ;
} else {
// cancel clicked so post an exit call
return false ;
}
}
/** No descriptions */
void KMyMoney2App : : slotFileBackup ( void )
{
// Save the file first so isLocalFile() works
if ( myMoneyView & & myMoneyView - > dirty ( ) )
{
if ( KMessageBox : : questionYesNo ( this , i18n ( " The file must be saved first "
" before it can be backed up. Do you want to continue? " ) ) = = KMessageBox : : No )
{
return ;
}
slotFileSave ( ) ;
}
if ( m_fileName . isEmpty ( ) )
return ;
if ( ! m_fileName . isLocalFile ( ) ) {
KMessageBox : : sorry ( this ,
i18n ( " The current implementation of the backup functionality only supports local files as source files! Your current source file is '%1'. " )
. arg ( m_fileName . url ( ) ) ,
i18n ( " Local files only " ) ) ;
return ;
}
KBackupDlg * backupDlg = new KBackupDlg ( this , 0 /*,true*/ ) ;
int returncode = backupDlg - > exec ( ) ;
if ( returncode )
{
m_backupMount = backupDlg - > mountCheckBox - > isChecked ( ) ;
proc . clearArguments ( ) ;
m_backupState = BACKUP_MOUNTING ;
m_mountpoint = backupDlg - > txtMountPoint - > text ( ) ;
if ( m_backupMount ) {
progressCallback ( 0 , 300 , i18n ( " Mounting %1 " ) . arg ( m_mountpoint ) ) ;
proc < < " mount " ;
proc < < m_mountpoint ;
proc . start ( ) ;
} else {
// If we don't have to mount a device, we just issue
// a dummy command to start the copy operation
progressCallback ( 0 , 300 , " " ) ;
proc < < " echo " ;
proc . start ( ) ;
}
}
delete backupDlg ;
}
/** No descriptions */
void KMyMoney2App : : slotProcessExited ( void )
{
switch ( m_backupState ) {
case BACKUP_MOUNTING :
if ( proc . normalExit ( ) & & proc . exitStatus ( ) = = 0 ) {
proc . clearArguments ( ) ;
TQString today ;
today . sprintf ( " -%04d-%02d-%02d.kmy " ,
TQDate : : currentDate ( ) . year ( ) ,
TQDate : : currentDate ( ) . month ( ) ,
TQDate : : currentDate ( ) . day ( ) ) ;
TQString backupfile = m_mountpoint + " / " + m_fileName . fileName ( false ) ;
KMyMoneyUtils : : appendCorrectFileExt ( backupfile , today ) ;
// check if file already exists and ask what to do
m_backupResult = 0 ;
TQFile f ( backupfile ) ;
if ( f . exists ( ) ) {
int answer = KMessageBox : : warningContinueCancel ( this , i18n ( " Backup file for today exists on that device. Replace ? " ) , i18n ( " Backup " ) , i18n ( " &Replace " ) ) ;
if ( answer = = KMessageBox : : Cancel ) {
m_backupResult = 1 ;
if ( m_backupMount ) {
progressCallback ( 250 , 0 , i18n ( " Unmounting %1 " ) . arg ( m_mountpoint ) ) ;
proc . clearArguments ( ) ;
proc < < " umount " ;
proc < < m_mountpoint ;
m_backupState = BACKUP_UNMOUNTING ;
proc . start ( ) ;
} else {
m_backupState = BACKUP_IDLE ;
progressCallback ( - 1 , - 1 , TQString ( ) ) ;
ready ( ) ;
}
}
}
if ( m_backupResult = = 0 ) {
progressCallback ( 50 , 0 , i18n ( " Writing %1 " ) . arg ( backupfile ) ) ;
proc < < " cp " < < " -f " < < m_fileName . path ( 0 ) < < backupfile ;
m_backupState = BACKUP_COPYING ;
proc . start ( ) ;
}
} else {
KMessageBox : : information ( this , i18n ( " Error mounting device " ) , i18n ( " Backup " ) ) ;
m_backupResult = 1 ;
if ( m_backupMount ) {
progressCallback ( 250 , 0 , i18n ( " Unmounting %1 " ) . arg ( m_mountpoint ) ) ;
proc . clearArguments ( ) ;
proc < < " umount " ;
proc < < m_mountpoint ;
m_backupState = BACKUP_UNMOUNTING ;
proc . start ( ) ;
} else {
m_backupState = BACKUP_IDLE ;
progressCallback ( - 1 , - 1 , TQString ( ) ) ;
ready ( ) ;
}
}
break ;
case BACKUP_COPYING :
if ( proc . normalExit ( ) & & proc . exitStatus ( ) = = 0 ) {
if ( m_backupMount ) {
progressCallback ( 250 , 0 , i18n ( " Unmounting %1 " ) . arg ( m_mountpoint ) ) ;
proc . clearArguments ( ) ;
proc < < " umount " ;
proc < < m_mountpoint ;
m_backupState = BACKUP_UNMOUNTING ;
proc . start ( ) ;
} else {
progressCallback ( 300 , 0 , i18n ( " Done " ) ) ;
KMessageBox : : information ( this , i18n ( " File successfully backed up " ) , i18n ( " Backup " ) ) ;
m_backupState = BACKUP_IDLE ;
progressCallback ( - 1 , - 1 , TQString ( ) ) ;
ready ( ) ;
}
} else {
tqDebug ( " cp exit status is %d " , proc . exitStatus ( ) ) ;
m_backupResult = 1 ;
KMessageBox : : information ( this , i18n ( " Error copying file to device " ) , i18n ( " Backup " ) ) ;
if ( m_backupMount ) {
progressCallback ( 250 , 0 , i18n ( " Unmounting %1 " ) . arg ( m_mountpoint ) ) ;
proc . clearArguments ( ) ;
proc < < " umount " ;
proc < < m_mountpoint ;
m_backupState = BACKUP_UNMOUNTING ;
proc . start ( ) ;
} else {
m_backupState = BACKUP_IDLE ;
progressCallback ( - 1 , - 1 , TQString ( ) ) ;
ready ( ) ;
}
}
break ;
case BACKUP_UNMOUNTING :
if ( proc . normalExit ( ) & & proc . exitStatus ( ) = = 0 ) {
progressCallback ( 300 , 0 , i18n ( " Done " ) ) ;
if ( m_backupResult = = 0 )
KMessageBox : : information ( this , i18n ( " File successfully backed up " ) , i18n ( " Backup " ) ) ;
} else {
KMessageBox : : information ( this , i18n ( " Error unmounting device " ) , i18n ( " Backup " ) ) ;
}
m_backupState = BACKUP_IDLE ;
progressCallback ( - 1 , - 1 , TQString ( ) ) ;
ready ( ) ;
break ;
default :
tqWarning ( " Unknown state for backup operation! " ) ;
progressCallback ( - 1 , - 1 , TQString ( ) ) ;
ready ( ) ;
break ;
}
}
void KMyMoney2App : : slotFileNewWindow ( void )
{
KMyMoney2App * newWin = new KMyMoney2App ;
newWin - > show ( ) ;
}
void KMyMoney2App : : slotShowTipOfTheDay ( void )
{
KTipDialog : : showTip ( myMoneyView , " " , true ) ;
}
void KMyMoney2App : : slotShowPreviousView ( void )
{
}
void KMyMoney2App : : slotShowNextView ( void )
{
}
void KMyMoney2App : : slotQifProfileEditor ( void )
{
MyMoneyQifProfileEditor * editor = new MyMoneyQifProfileEditor ( true , this , " QIF Profile Editor " ) ;
editor - > exec ( ) ;
delete editor ;
}
void KMyMoney2App : : slotToolsStartKCalc ( void )
{
TQString cmd = KMyMoneyGlobalSettings : : externalCalculator ( ) ;
// if none is present, we fall back to the default
if ( cmd . isEmpty ( ) )
cmd = " kcalc " ;
KRun : : runCommand ( cmd ) ;
}
void KMyMoney2App : : slotFindTransaction ( void )
{
if ( m_searchDlg = = 0 ) {
m_searchDlg = new KFindTransactionDlg ( ) ;
connect ( m_searchDlg , TQ_SIGNAL ( destroyed ( ) ) , this , TQ_SLOT ( slotCloseSearchDialog ( ) ) ) ;
connect ( m_searchDlg , TQ_SIGNAL ( transactionSelected ( const TQString & , const TQString & ) ) ,
myMoneyView , TQ_SLOT ( slotLedgerSelected ( const TQString & , const TQString & ) ) ) ;
}
m_searchDlg - > show ( ) ;
m_searchDlg - > raise ( ) ;
m_searchDlg - > setActiveWindow ( ) ;
}
void KMyMoney2App : : slotCloseSearchDialog ( void )
{
if ( m_searchDlg )
m_searchDlg - > deleteLater ( ) ;
m_searchDlg = 0 ;
}
void KMyMoney2App : : createInstitution ( MyMoneyInstitution & institution )
{
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
MyMoneyFileTransaction ft ;
try {
file - > addInstitution ( institution ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : information ( this , i18n ( " Cannot add institution: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotInstitutionNew ( void )
{
MyMoneyInstitution institution ;
slotInstitutionNew ( institution ) ;
}
void KMyMoney2App : : slotInstitutionNew ( MyMoneyInstitution & institution )
{
institution . clearId ( ) ;
KNewBankDlg dlg ( institution ) ;
if ( dlg . exec ( ) ) {
institution = dlg . institution ( ) ;
createInstitution ( institution ) ;
}
}
void KMyMoney2App : : slotInstitutionEdit ( const MyMoneyObject & obj )
{
if ( typeid ( obj ) ! = typeid ( MyMoneyInstitution ) )
return ;
try {
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
//grab a pointer to the view, regardless of it being a account or institution view.
MyMoneyInstitution institution = file - > institution ( m_selectedInstitution . id ( ) ) ;
// bankSuccess is not checked anymore because m_file->institution will throw anyway
KNewBankDlg dlg ( institution ) ;
if ( dlg . exec ( ) ) {
MyMoneyFileTransaction ft ;
try {
file - > modifyInstitution ( dlg . institution ( ) ) ;
ft . commit ( ) ;
slotSelectInstitution ( file - > institution ( dlg . institution ( ) . id ( ) ) ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : information ( this , i18n ( " Unable to store institution: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
} catch ( MyMoneyException * e ) {
if ( ! obj . id ( ) . isEmpty ( ) )
KMessageBox : : information ( this , i18n ( " Unable to edit institution: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotInstitutionDelete ( void )
{
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
try {
MyMoneyInstitution institution = file - > institution ( m_selectedInstitution . id ( ) ) ;
if ( ( KMessageBox : : questionYesNo ( this , TQString ( " <p> " ) + i18n ( " Do you really want to delete institution <b>%1</b> ? " ) . arg ( institution . name ( ) ) ) ) = = KMessageBox : : No )
return ;
MyMoneyFileTransaction ft ;
try {
file - > removeInstitution ( institution ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : information ( this , i18n ( " Unable to delete institution: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
} catch ( MyMoneyException * e ) {
KMessageBox : : information ( this , i18n ( " Unable to delete institution: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
const MyMoneyAccount & KMyMoney2App : : findAccount ( const MyMoneyAccount & acc , const MyMoneyAccount & parent ) const
{
static MyMoneyAccount nullAccount ;
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
TQValueList < MyMoneyAccount > parents ;
try {
// search by id
if ( ! acc . id ( ) . isEmpty ( ) ) {
return file - > account ( acc . id ( ) ) ;
}
// collect the parents. in case parent does not have an id, we scan the all top-level accounts
if ( parent . id ( ) . isEmpty ( ) ) {
parents < < file - > asset ( ) ;
parents < < file - > liability ( ) ;
parents < < file - > income ( ) ;
parents < < file - > expense ( ) ;
parents < < file - > equity ( ) ;
} else {
parents < < parent ;
}
TQValueList < MyMoneyAccount > : : const_iterator it_p ;
for ( it_p = parents . begin ( ) ; it_p ! = parents . end ( ) ; + + it_p ) {
MyMoneyAccount parentAccount = * it_p ;
// search by name (allow hierarchy)
int pos ;
// check for ':' in the name and use it as separator for a hierarchy
TQString name = acc . name ( ) ;
while ( ( pos = name . find ( MyMoneyFile : : AccountSeperator ) ) ! = - 1 ) {
TQString part = name . left ( pos ) ;
TQString remainder = name . mid ( pos + 1 ) ;
const MyMoneyAccount & existingAccount = file - > subAccountByName ( parentAccount , part ) ;
if ( existingAccount . id ( ) . isEmpty ( ) ) {
return existingAccount ;
}
parentAccount = existingAccount ;
name = remainder ;
}
const MyMoneyAccount & existingAccount = file - > subAccountByName ( parentAccount , name ) ;
if ( ! existingAccount . id ( ) . isEmpty ( ) ) {
if ( acc . accountType ( ) ! = MyMoneyAccount : : UnknownAccountType ) {
if ( acc . accountType ( ) ! = existingAccount . accountType ( ) )
continue ;
}
return existingAccount ;
}
}
} catch ( MyMoneyException * e ) {
KMessageBox : : error ( 0 , i18n ( " Unable to find account: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
return nullAccount ;
}
void KMyMoney2App : : createAccount ( MyMoneyAccount & newAccount , MyMoneyAccount & parentAccount , MyMoneyAccount & brokerageAccount , MyMoneyMoney openingBal )
{
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
// make sure we have a currency. If none is assigned, we assume base currency
if ( newAccount . currencyId ( ) . isEmpty ( ) )
newAccount . setCurrencyId ( file - > baseCurrency ( ) . id ( ) ) ;
MyMoneyFileTransaction ft ;
try
{
int pos ;
// check for ':' in the name and use it as separator for a hierarchy
while ( ( pos = newAccount . name ( ) . find ( MyMoneyFile : : AccountSeperator ) ) ! = - 1 ) {
TQString part = newAccount . name ( ) . left ( pos ) ;
TQString remainder = newAccount . name ( ) . mid ( pos + 1 ) ;
const MyMoneyAccount & existingAccount = file - > subAccountByName ( parentAccount , part ) ;
if ( existingAccount . id ( ) . isEmpty ( ) ) {
newAccount . setName ( part ) ;
file - > addAccount ( newAccount , parentAccount ) ;
parentAccount = newAccount ;
} else {
parentAccount = existingAccount ;
}
newAccount . setParentAccountId ( TQString ( ) ) ; // make sure, there's no parent
newAccount . clearId ( ) ; // and no id set for adding
newAccount . removeAccountIds ( ) ; // and no sub-account ids
newAccount . setName ( remainder ) ;
}
const MyMoneySecurity & sec = file - > security ( newAccount . currencyId ( ) ) ;
// Check the opening balance
if ( openingBal . isPositive ( ) & & newAccount . accountGroup ( ) = = MyMoneyAccount : : Liability )
{
TQString message = i18n ( " This account is a liability and if the "
" opening balance represents money owed, then it should be negative. "
" Negate the amount? \n \n "
" Please click Yes to change the opening balance to %1, \n "
" Please click No to leave the amount as %2, \n "
" Please click Cancel to abort the account creation. " )
. arg ( ( - openingBal ) . formatMoney ( newAccount , sec ) )
. arg ( openingBal . formatMoney ( newAccount , sec ) ) ;
int ans = KMessageBox : : questionYesNoCancel ( this , message ) ;
if ( ans = = KMessageBox : : Yes ) {
openingBal = - openingBal ;
} else if ( ans = = KMessageBox : : Cancel )
return ;
}
file - > addAccount ( newAccount , parentAccount ) ;
// in case of a loan account, we add the initial payment
if ( ( newAccount . accountType ( ) = = MyMoneyAccount : : Loan
| | newAccount . accountType ( ) = = MyMoneyAccount : : AssetLoan )
& & ! newAccount . value ( " kmm-loan-payment-acc " ) . isEmpty ( )
& & ! newAccount . value ( " kmm-loan-payment-date " ) . isEmpty ( ) ) {
MyMoneyAccountLoan acc ( newAccount ) ;
MyMoneyTransaction t ;
MyMoneySplit a , b ;
a . setAccountId ( acc . id ( ) ) ;
b . setAccountId ( acc . value ( " kmm-loan-payment-acc " ) . latin1 ( ) ) ;
a . setValue ( acc . loanAmount ( ) ) ;
if ( acc . accountType ( ) = = MyMoneyAccount : : Loan )
a . setValue ( - a . value ( ) ) ;
a . setShares ( a . value ( ) ) ;
b . setValue ( - a . value ( ) ) ;
b . setShares ( b . value ( ) ) ;
a . setMemo ( i18n ( " Loan payout " ) ) ;
b . setMemo ( i18n ( " Loan payout " ) ) ;
t . setPostDate ( TQDate : : fromString ( acc . value ( " kmm-loan-payment-date " ) , TQt : : ISODate ) ) ;
newAccount . deletePair ( " kmm-loan-payment-acc " ) ;
newAccount . deletePair ( " kmm-loan-payment-date " ) ;
MyMoneyFile : : instance ( ) - > modifyAccount ( newAccount ) ;
t . addSplit ( a ) ;
t . addSplit ( b ) ;
file - > addTransaction ( t ) ;
file - > createOpeningBalanceTransaction ( newAccount , openingBal ) ;
// in case of an investment account we check if we should create
// a brokerage account
} else if ( newAccount . accountType ( ) = = MyMoneyAccount : : Investment
& & ! brokerageAccount . name ( ) . isEmpty ( ) ) {
file - > addAccount ( brokerageAccount , parentAccount ) ;
// set a link from the investment account to the brokerage account
file - > modifyAccount ( newAccount ) ;
file - > createOpeningBalanceTransaction ( brokerageAccount , openingBal ) ;
} else
file - > createOpeningBalanceTransaction ( newAccount , openingBal ) ;
ft . commit ( ) ;
}
catch ( MyMoneyException * e )
{
KMessageBox : : information ( this , i18n ( " Unable to add account: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotCategoryNew ( const TQString & name , TQString & id )
{
MyMoneyAccount account ;
account . setName ( name ) ;
slotCategoryNew ( account , MyMoneyFile : : instance ( ) - > expense ( ) ) ;
id = account . id ( ) ;
}
void KMyMoney2App : : slotCategoryNew ( MyMoneyAccount & account , const MyMoneyAccount & parent )
{
if ( KMessageBox : : questionYesNo ( this ,
TQString ( " <qt>%1</qt> " ) . arg ( i18n ( " The category <b>%1</b> currently does not exist. Do you want to create it?<p><i>The parent account will default to <b>%2</b> but can be changed in the following dialog</i>. " ) . arg ( account . name ( ) ) . arg ( parent . name ( ) ) ) , i18n ( " Create category " ) ,
KStdGuiItem : : yes ( ) , KStdGuiItem : : no ( ) , " CreateNewCategories " ) = = KMessageBox : : Yes ) {
createCategory ( account , parent ) ;
} else {
// we should not keep the 'no' setting because that can confuse people like
// I have seen in some usability tests. So we just delete it right away.
TDEConfig * tdeconfig = TDEGlobal : : config ( ) ;
if ( tdeconfig ) {
tdeconfig - > setGroup ( TQString : : fromLatin1 ( " Notification Messages " ) ) ;
tdeconfig - > deleteEntry ( TQString : : fromLatin1 ( " CreateNewCategories " ) ) ;
}
}
}
void KMyMoney2App : : slotCategoryNew ( void )
{
MyMoneyAccount parent ;
MyMoneyAccount account ;
// Preselect the parent account by looking at the current selected account/category
if ( ! m_selectedAccount . id ( ) . isEmpty ( ) & & m_selectedAccount . isIncomeExpense ( ) ) {
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
try {
parent = file - > account ( m_selectedAccount . id ( ) ) ;
} catch ( MyMoneyException * e ) {
delete e ;
}
}
createCategory ( account , parent ) ;
}
void KMyMoney2App : : createCategory ( MyMoneyAccount & account , const MyMoneyAccount & parent )
{
if ( ! parent . id ( ) . isEmpty ( ) ) {
try {
// make sure parent account exists
MyMoneyFile : : instance ( ) - > account ( parent . id ( ) ) ;
account . setParentAccountId ( parent . id ( ) ) ;
account . setAccountType ( parent . accountType ( ) ) ;
} catch ( MyMoneyException * e ) {
delete e ;
}
}
KNewAccountDlg dialog ( account , false , true , 0 , 0 , i18n ( " Create a new Category " ) ) ;
if ( dialog . exec ( ) = = TQDialog : : Accepted ) {
MyMoneyAccount parentAccount , brokerageAccount ;
account = dialog . account ( ) ;
parentAccount = dialog . parentAccount ( ) ;
createAccount ( account , parentAccount , brokerageAccount , MyMoneyMoney ( 0 , 1 ) ) ;
}
}
void KMyMoney2App : : slotAccountNew ( void )
{
MyMoneyAccount acc ;
acc . setOpeningDate ( TQDate : : currentDate ( ) ) ;
slotAccountNew ( acc ) ;
}
void KMyMoney2App : : slotAccountNew ( MyMoneyAccount & account )
{
NewAccountWizard : : Wizard * wizard = new NewAccountWizard : : Wizard ( ) ;
connect ( wizard , TQ_SIGNAL ( createInstitution ( MyMoneyInstitution & ) ) , this , TQ_SLOT ( slotInstitutionNew ( MyMoneyInstitution & ) ) ) ;
connect ( wizard , TQ_SIGNAL ( createAccount ( MyMoneyAccount & ) ) , this , TQ_SLOT ( slotAccountNew ( MyMoneyAccount & ) ) ) ;
connect ( wizard , TQ_SIGNAL ( createPayee ( const TQString & , TQString & ) ) , this , TQ_SLOT ( slotPayeeNew ( const TQString & , TQString & ) ) ) ;
connect ( wizard , TQ_SIGNAL ( createCategory ( MyMoneyAccount & , const MyMoneyAccount & ) ) , this , TQ_SLOT ( slotCategoryNew ( MyMoneyAccount & , const MyMoneyAccount & ) ) ) ;
wizard - > setAccount ( account ) ;
if ( wizard - > exec ( ) = = TQDialog : : Accepted ) {
MyMoneyAccount acc = wizard - > account ( ) ;
if ( ! ( acc = = MyMoneyAccount ( ) ) ) {
MyMoneyFileTransaction ft ;
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
try {
// create the account
MyMoneyAccount parent = wizard - > parentAccount ( ) ;
file - > addAccount ( acc , parent ) ;
// tell the wizard about the account id which it
// needs to create a possible schedule and transactions
wizard - > setAccount ( acc ) ;
// store a possible conversion rate for the currency
if ( acc . currencyId ( ) ! = file - > baseCurrency ( ) . id ( ) ) {
file - > addPrice ( wizard - > conversionRate ( ) ) ;
}
// create the opening balance transaction if any
file - > createOpeningBalanceTransaction ( acc , wizard - > openingBalance ( ) ) ;
// create the payout transaction for loans if any
MyMoneyTransaction payoutTransaction = wizard - > payoutTransaction ( ) ;
if ( payoutTransaction . splits ( ) . count ( ) > 0 ) {
file - > addTransaction ( payoutTransaction ) ;
}
// create a brokerage account if selected
MyMoneyAccount brokerageAccount = wizard - > brokerageAccount ( ) ;
if ( ! ( brokerageAccount = = MyMoneyAccount ( ) ) ) {
file - > addAccount ( brokerageAccount , parent ) ;
}
// create a possible schedule
MyMoneySchedule sch = wizard - > schedule ( ) ;
if ( ! ( sch = = MyMoneySchedule ( ) ) ) {
MyMoneyFile : : instance ( ) - > addSchedule ( sch ) ;
if ( acc . isLoan ( ) ) {
MyMoneyAccountLoan accLoan = MyMoneyFile : : instance ( ) - > account ( acc . id ( ) ) ;
accLoan . setSchedule ( sch . id ( ) ) ;
acc = accLoan ;
MyMoneyFile : : instance ( ) - > modifyAccount ( acc ) ;
}
}
ft . commit ( ) ;
account = acc ;
} catch ( MyMoneyException * e ) {
KMessageBox : : error ( this , i18n ( " Unable to create account: %1 " ) . arg ( e - > what ( ) ) ) ;
}
}
}
delete wizard ;
}
void KMyMoney2App : : slotInvestmentNew ( MyMoneyAccount & account , const MyMoneyAccount & parent )
{
TQString dontShowAgain = " CreateNewInvestments " ;
if ( KMessageBox : : questionYesNo ( this ,
TQString ( " <qt> " ) + i18n ( " The security <b>%1</b> currently does not exist as sub-account of <b>%2</b>. "
" Do you want to create it? " ) . arg ( account . name ( ) ) . arg ( parent . name ( ) ) + TQString ( " </qt> " ) , i18n ( " Create security " ) ,
KStdGuiItem : : yes ( ) , KStdGuiItem : : no ( ) , dontShowAgain ) = = KMessageBox : : Yes ) {
KNewInvestmentWizard dlg ;
dlg . setName ( account . name ( ) ) ;
if ( dlg . exec ( ) = = TQDialog : : Accepted ) {
dlg . createObjects ( parent . id ( ) ) ;
account = dlg . account ( ) ;
}
} else {
// in case the user said no but turned on the don't show again selection, we will enable
// the message no matter what. Otherwise, the user is not able to use this feature
// in the future anymore.
KMessageBox : : enableMessage ( dontShowAgain ) ;
}
}
void KMyMoney2App : : slotInvestmentNew ( void )
{
KNewInvestmentWizard dlg ;
if ( dlg . exec ( ) = = TQDialog : : Accepted ) {
dlg . createObjects ( m_selectedAccount . id ( ) ) ;
}
}
void KMyMoney2App : : slotInvestmentEdit ( void )
{
KNewInvestmentWizard dlg ( m_selectedInvestment ) ;
if ( dlg . exec ( ) = = TQDialog : : Accepted ) {
dlg . createObjects ( m_selectedAccount . id ( ) ) ;
}
}
void KMyMoney2App : : slotInvestmentDelete ( void )
{
if ( KMessageBox : : questionYesNo ( this , TQString ( " <p> " ) + i18n ( " Do you really want to delete the investment <b>%1</b>? " ) . arg ( m_selectedInvestment . name ( ) ) , i18n ( " Delete investment " ) , KStdGuiItem : : yes ( ) , KStdGuiItem : : no ( ) , " DeleteInvestment " ) = = KMessageBox : : Yes ) {
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
MyMoneyFileTransaction ft ;
try {
file - > removeAccount ( m_selectedInvestment ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : information ( this , i18n ( " Unable to delete investment: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
} else {
// we should not keep the 'no' setting because that can confuse people like
// I have seen in some usability tests. So we just delete it right away.
TDEConfig * tdeconfig = TDEGlobal : : config ( ) ;
if ( tdeconfig ) {
tdeconfig - > setGroup ( TQString : : fromLatin1 ( " Notification Messages " ) ) ;
tdeconfig - > deleteEntry ( TQString : : fromLatin1 ( " DeleteInvestment " ) ) ;
}
}
}
void KMyMoney2App : : slotOnlinePriceUpdate ( void )
{
if ( ! m_selectedInvestment . id ( ) . isEmpty ( ) ) {
KEquityPriceUpdateDlg dlg ( 0 , m_selectedInvestment . currencyId ( ) ) ;
if ( dlg . exec ( ) = = TQDialog : : Accepted )
dlg . storePrices ( ) ;
}
}
void KMyMoney2App : : slotManualPriceUpdate ( void )
{
if ( ! m_selectedInvestment . id ( ) . isEmpty ( ) ) {
try {
MyMoneySecurity security = MyMoneyFile : : instance ( ) - > security ( m_selectedInvestment . currencyId ( ) ) ;
MyMoneySecurity currency = MyMoneyFile : : instance ( ) - > security ( security . tradingCurrency ( ) ) ;
MyMoneyPrice price = MyMoneyFile : : instance ( ) - > price ( security . id ( ) , currency . id ( ) ) ;
signed64 fract = MyMoneyMoney : : precToDenom ( KMyMoneyGlobalSettings : : pricePrecision ( ) ) ;
KCurrencyCalculator calc ( security , currency , MyMoneyMoney ( 1 , 1 ) , price . rate ( currency . id ( ) ) , price . date ( ) , fract ) ;
calc . setupPriceEditor ( ) ;
// The dialog takes care of adding the price if necessary
calc . exec ( ) ;
} catch ( MyMoneyException * e ) {
tqDebug ( TQString ( " Error in price update: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : createSchedule ( MyMoneySchedule newSchedule , MyMoneyAccount & newAccount )
{
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
// Add the schedule only if one exists
//
// Remember to modify the first split to reference the newly created account
if ( ! newSchedule . name ( ) . isEmpty ( ) )
{
try
{
// We assume at least 2 splits in the transaction
MyMoneyTransaction t = newSchedule . transaction ( ) ;
if ( t . splitCount ( ) < 2 ) {
throw new MYMONEYEXCEPTION ( " Transaction for schedule has less than 2 splits! " ) ;
}
#if 0
// now search the split that does not have an account reference
// and set it up to be the one of the account we just added
// to the account pool. Note: the schedule code used to leave
// this always the first split, but the loan code leaves it as
// the second one. So I thought, searching is a good alternative ....
TQValueList < MyMoneySplit > : : ConstIterator it_s ;
for ( it_s = t . splits ( ) . begin ( ) ; it_s ! = t . splits ( ) . end ( ) ; + + it_s ) {
if ( ( * it_s ) . accountId ( ) . isEmpty ( ) ) {
MyMoneySplit s = ( * it_s ) ;
s . setAccountId ( newAccount . id ( ) ) ;
t . modifySplit ( s ) ;
break ;
}
}
newSchedule . setTransaction ( t ) ;
# endif
MyMoneyFileTransaction ft ;
try {
file - > addSchedule ( newSchedule ) ;
// in case of a loan account, we keep a reference to this
// schedule in the account
if ( newAccount . accountType ( ) = = MyMoneyAccount : : Loan
| | newAccount . accountType ( ) = = MyMoneyAccount : : AssetLoan ) {
newAccount . setValue ( " schedule " , newSchedule . id ( ) ) ;
file - > modifyAccount ( newAccount ) ;
}
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : information ( this , i18n ( " Unable to add scheduled transaction: " ) , e - > what ( ) ) ;
delete e ;
}
}
catch ( MyMoneyException * e )
{
KMessageBox : : information ( this , i18n ( " Unable to add scheduled transaction: " ) , e - > what ( ) ) ;
delete e ;
}
}
}
bool KMyMoney2App : : exchangeAccountInTransaction ( MyMoneyTransaction & _t , const TQString & fromId , const TQString & toId )
{
bool rc = false ;
MyMoneyTransaction t ( _t ) ;
TQValueList < MyMoneySplit > : : iterator it_s ;
for ( it_s = t . splits ( ) . begin ( ) ; it_s ! = t . splits ( ) . end ( ) ; + + it_s ) {
if ( ( * it_s ) . accountId ( ) = = fromId ) {
( * it_s ) . setAccountId ( toId ) ;
_t . modifySplit ( * it_s ) ;
rc = true ;
}
}
return rc ;
}
void KMyMoney2App : : slotAccountDelete ( void )
{
if ( m_selectedAccount . id ( ) . isEmpty ( ) )
return ; // need an account ID
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
// can't delete standard accounts or account which still have transactions assigned
if ( file - > isStandardAccount ( m_selectedAccount . id ( ) ) )
return ;
// check if the account is referenced by a transaction or schedule
MyMoneyFileBitArray skip ( IMyMoneyStorage : : MaxRefCheckBits ) ;
skip . fill ( false ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckAccount ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckInstitution ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckPayee ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckSecurity ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckCurrency ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckPrice ) ;
bool hasReference = file - > isReferenced ( m_selectedAccount , skip ) ;
// make sure we only allow transactions in a 'category' (income/expense account)
switch ( m_selectedAccount . accountType ( ) ) {
case MyMoneyAccount : : Income :
case MyMoneyAccount : : Expense :
break ;
default :
// if the account is still referenced
if ( hasReference ) {
return ;
}
break ;
}
// if we get here and still have transactions referencing the account, we
// need to check with the user to possibly re-assign them to a different account
bool needAskUser = true ;
bool exit = false ;
MyMoneyFileTransaction ft ;
if ( hasReference ) {
// show transaction reassignment dialog
needAskUser = false ;
KCategoryReassignDlg * dlg = new KCategoryReassignDlg ( this ) ;
TQString categoryId = dlg - > show ( m_selectedAccount ) ;
delete dlg ; // and kill the dialog
if ( categoryId . isEmpty ( ) )
return ; // the user aborted the dialog, so let's abort as well
MyMoneyAccount newCategory = file - > account ( categoryId ) ;
try {
{
KMSTATUS ( i18n ( " Adjusting transactions... " ) ) ;
/*
m_selectedAccount . id ( ) is the old id , categoryId the new one
Now search all transactions and schedules that reference m_selectedAccount . id ( )
and replace that with categoryId .
*/
// get the list of all transactions that reference the old account
MyMoneyTransactionFilter filter ( m_selectedAccount . id ( ) ) ;
filter . setReportAllSplits ( false ) ;
TQValueList < MyMoneyTransaction > tlist ;
TQValueList < MyMoneyTransaction > : : iterator it_t ;
file - > transactionList ( tlist , filter ) ;
slotStatusProgressBar ( 0 , tlist . count ( ) ) ;
int cnt = 0 ;
for ( it_t = tlist . begin ( ) ; it_t ! = tlist . end ( ) ; + + it_t ) {
slotStatusProgressBar ( + + cnt , 0 ) ;
MyMoneyTransaction t = ( * it_t ) ;
if ( exchangeAccountInTransaction ( t , m_selectedAccount . id ( ) , categoryId ) )
file - > modifyTransaction ( t ) ;
}
slotStatusProgressBar ( tlist . count ( ) , 0 ) ;
}
// now fix all schedules
{
KMSTATUS ( i18n ( " Adjusting scheduled transactions... " ) ) ;
TQValueList < MyMoneySchedule > slist = file - > scheduleList ( m_selectedAccount . id ( ) ) ;
TQValueList < MyMoneySchedule > : : iterator it_s ;
int cnt = 0 ;
slotStatusProgressBar ( 0 , slist . count ( ) ) ;
for ( it_s = slist . begin ( ) ; it_s ! = slist . end ( ) ; + + it_s ) {
slotStatusProgressBar ( + + cnt , 0 ) ;
MyMoneyTransaction t = ( * it_s ) . transaction ( ) ;
if ( exchangeAccountInTransaction ( t , m_selectedAccount . id ( ) , categoryId ) ) {
( * it_s ) . setTransaction ( t ) ;
file - > modifySchedule ( * it_s ) ;
}
}
slotStatusProgressBar ( slist . count ( ) , 0 ) ;
}
// now fix all budgets
{
KMSTATUS ( i18n ( " Adjusting budgets... " ) ) ;
TQValueList < MyMoneyBudget > blist = file - > budgetList ( ) ;
TQValueList < MyMoneyBudget > : : const_iterator it_b ;
for ( it_b = blist . begin ( ) ; it_b ! = blist . end ( ) ; + + it_b ) {
if ( ( * it_b ) . hasReferenceTo ( m_selectedAccount . id ( ) ) ) {
MyMoneyBudget b = ( * it_b ) ;
MyMoneyBudget : : AccountGroup fromBudget = b . account ( m_selectedAccount . id ( ) ) ;
MyMoneyBudget : : AccountGroup toBudget = b . account ( categoryId ) ;
toBudget + = fromBudget ;
b . setAccount ( toBudget , toBudget . id ( ) ) ;
b . removeReference ( m_selectedAccount . id ( ) ) ;
file - > modifyBudget ( b ) ;
}
}
slotStatusProgressBar ( blist . count ( ) , 0 ) ;
}
} catch ( MyMoneyException * e ) {
KMessageBox : : error ( this , i18n ( " Unable to exchange category <b>%1</b> with category <b>%2</b>. Reason: %3 " ) . arg ( m_selectedAccount . name ( ) ) . arg ( newCategory . name ( ) ) . arg ( e - > what ( ) ) ) ;
delete e ;
exit = true ;
}
slotStatusProgressBar ( - 1 , - 1 ) ;
}
if ( exit )
return ;
// at this point, we must not have a reference to the account
// to be deleted anymore
switch ( m_selectedAccount . accountGroup ( ) ) {
// special handling for categories to allow deleting of empty subcategories
case MyMoneyAccount : : Income :
case MyMoneyAccount : : Expense :
{ // open a compound statement here to be able to declare variables
// which would otherwise not work within a case label.
// case A - only a single, unused category without subcats selected
if ( m_selectedAccount . accountList ( ) . isEmpty ( ) ) {
if ( ! needAskUser | | ( KMessageBox : : questionYesNo ( this , TQString ( " <qt> " ) + i18n ( " Do you really want to delete category <b>%1</b>? " ) . arg ( m_selectedAccount . name ( ) ) + TQString ( " </qt> " ) ) = = KMessageBox : : Yes ) ) {
try {
file - > removeAccount ( m_selectedAccount ) ;
m_selectedAccount . clearId ( ) ;
slotUpdateActions ( ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : error ( this , TQString ( " <qt> " ) + i18n ( " Unable to delete category <b>%1</b>. Cause: %2 " ) . arg ( m_selectedAccount . name ( ) ) . arg ( e - > what ( ) ) + TQString ( " </qt> " ) ) ;
delete e ;
}
}
return ;
}
// case B - we have some subcategories, maybe the user does not want to
// delete them all, but just the category itself?
MyMoneyAccount parentAccount = file - > account ( m_selectedAccount . parentAccountId ( ) ) ;
TQStringList accountsToReparent ;
int result = KMessageBox : : questionYesNoCancel ( this , TQString ( " <qt> " ) +
i18n ( " Do you want to delete category <b>%1</b> with all its sub-categories or only "
" the category itself? If you only delete the category itself, all its sub-categories "
" will be made sub-categories of <b>%2</b>. " ) . arg ( m_selectedAccount . name ( ) ) . arg ( parentAccount . name ( ) ) + TQString ( " </qt> " ) ,
TQString ( ) ,
KGuiItem ( i18n ( " Delete all " ) ) ,
KGuiItem ( i18n ( " Just the category " ) ) ) ;
if ( result = = KMessageBox : : Cancel )
return ; // cancel pressed? ok, no delete then...
// "No" means "Just the category" and that means we need to reparent all subaccounts
bool need_confirmation = false ;
// case C - User only wants to delete the category itself
if ( result = = KMessageBox : : No )
accountsToReparent = m_selectedAccount . accountList ( ) ;
else {
// case D - User wants to delete all subcategories, now check all subcats of
// m_selectedAccount and remember all that cannot be deleted and
// must be "reparented"
for ( TQStringList : : const_iterator it = m_selectedAccount . accountList ( ) . begin ( ) ;
it ! = m_selectedAccount . accountList ( ) . end ( ) ; + + it )
{
// reparent account if a transaction is assigned
if ( file - > transactionCount ( * it ) ! = 0 )
accountsToReparent . push_back ( * it ) ;
else if ( ! file - > account ( * it ) . accountList ( ) . isEmpty ( ) ) {
// or if we have at least one sub-account that is used for transactions
if ( ! file - > hasOnlyUnusedAccounts ( file - > account ( * it ) . accountList ( ) ) ) {
accountsToReparent . push_back ( * it ) ;
//kdDebug() << "subaccount not empty" << endl;
}
}
}
if ( ! accountsToReparent . isEmpty ( ) )
need_confirmation = true ;
}
if ( ! accountsToReparent . isEmpty ( ) & & need_confirmation ) {
if ( KMessageBox : : questionYesNo ( this , TQString ( " <p> " ) + i18n ( " Some sub-categories of category <b>%1</b> cannot "
" be deleted, because they are still used. They will be made sub-categories of <b>%2</b>. Proceed? " ) . arg ( m_selectedAccount . name ( ) ) . arg ( parentAccount . name ( ) ) ) ! = KMessageBox : : Yes ) {
return ; // user gets wet feet...
}
}
// all good, now first reparent selected sub-categories
try {
MyMoneyAccount parent = file - > account ( m_selectedAccount . parentAccountId ( ) ) ;
for ( TQStringList : : const_iterator it = accountsToReparent . begin ( ) ; it ! = accountsToReparent . end ( ) ; + + it ) {
MyMoneyAccount child = file - > account ( * it ) ;
file - > reparentAccount ( child , parent ) ;
}
// reload the account because the sub-account list might have changed
m_selectedAccount = file - > account ( m_selectedAccount . id ( ) ) ;
// now recursively delete remaining sub-categories
file - > removeAccountList ( m_selectedAccount . accountList ( ) ) ;
// don't forget to update m_selectedAccount, because we still have a copy of
// the old account list, which is no longer valid
m_selectedAccount = file - > account ( m_selectedAccount . id ( ) ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : error ( this , TQString ( " <qt> " ) + i18n ( " Unable to delete a sub-category of category <b>%1</b>. Reason: %2 " ) . arg ( m_selectedAccount . name ( ) ) . arg ( e - > what ( ) ) + TQString ( " </qt> " ) ) ;
delete e ;
return ;
}
}
break ; // the category/account is deleted after the switch
default :
if ( ! m_selectedAccount . accountList ( ) . isEmpty ( ) )
return ; // can't delete accounts which still have subaccounts
if ( KMessageBox : : questionYesNo ( this , TQString ( " <p> " ) + i18n ( " Do you really want to "
" delete account <b>%1</b>? " ) . arg ( m_selectedAccount . name ( ) ) ) ! = KMessageBox : : Yes ) {
return ; // ok, you don't want to? why did you click then, hmm?
}
} // switch;
try {
file - > removeAccount ( m_selectedAccount ) ;
m_selectedAccount . clearId ( ) ;
slotUpdateActions ( ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : error ( this , i18n ( " Unable to delete account '%1'. Cause: %2 " ) . arg ( m_selectedAccount . name ( ) ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotAccountEdit ( void )
{
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
if ( ! m_selectedAccount . id ( ) . isEmpty ( ) ) {
if ( ! file - > isStandardAccount ( m_selectedAccount . id ( ) ) ) {
if ( m_selectedAccount . accountType ( ) ! = MyMoneyAccount : : Loan
& & m_selectedAccount . accountType ( ) ! = MyMoneyAccount : : AssetLoan ) {
TQString caption ;
bool category = false ;
switch ( MyMoneyAccount : : accountGroup ( m_selectedAccount . accountType ( ) ) ) {
default :
caption = i18n ( " Edit account '%1' " ) . arg ( m_selectedAccount . name ( ) ) ;
break ;
case MyMoneyAccount : : Expense :
case MyMoneyAccount : : Income :
caption = i18n ( " Edit category '%1' " ) . arg ( m_selectedAccount . name ( ) ) ;
category = true ;
break ;
}
TQString tid = file - > openingBalanceTransaction ( m_selectedAccount ) ;
MyMoneyTransaction t ;
MyMoneySplit s0 , s1 ;
KNewAccountDlg dlg ( m_selectedAccount , true , category , 0 , 0 , caption ) ;
if ( category | | m_selectedAccount . accountType ( ) = = MyMoneyAccount : : Investment ) {
dlg . setOpeningBalanceShown ( false ) ;
} else {
if ( ! tid . isEmpty ( ) ) {
try {
t = file - > transaction ( tid ) ;
s0 = t . splitByAccount ( m_selectedAccount . id ( ) ) ;
s1 = t . splitByAccount ( m_selectedAccount . id ( ) , false ) ;
dlg . setOpeningBalance ( s0 . shares ( ) ) ;
if ( m_selectedAccount . accountGroup ( ) = = MyMoneyAccount : : Liability ) {
dlg . setOpeningBalance ( - s0 . shares ( ) ) ;
}
} catch ( MyMoneyException * e ) {
kdDebug ( 2 ) < < " Error retrieving opening balance transaction " < < tid < < " : " < < e - > what ( ) < < " \n " ;
tid = TQString ( ) ;
delete e ;
}
}
}
// check for online modules
TQMap < TQString , KMyMoneyPlugin : : OnlinePlugin * > : : const_iterator it_plugin = m_onlinePlugins . end ( ) ;
const MyMoneyKeyValueContainer & kvp = m_selectedAccount . onlineBankingSettings ( ) ;
if ( ! kvp [ " provider " ] . isEmpty ( ) ) {
// if we have an online provider for this account, we need to check
// that we have the corresponding plugin. If that exists, we ask it
// to provide an additional tab for the account editor.
it_plugin = m_onlinePlugins . find ( kvp [ " provider " ] ) ;
if ( it_plugin ! = m_onlinePlugins . end ( ) ) {
TQString name ;
TQWidget * w = 0 ;
w = ( * it_plugin ) - > accountConfigTab ( m_selectedAccount , name ) ;
dlg . addTab ( w , name ) ;
}
}
if ( dlg . exec ( ) = = TQDialog : : Accepted ) {
try {
MyMoneyFileTransaction ft ;
MyMoneyAccount account = dlg . account ( ) ;
MyMoneyAccount parent = dlg . parentAccount ( ) ;
if ( it_plugin ! = m_onlinePlugins . end ( ) ) {
account . setOnlineBankingSettings ( ( * it_plugin ) - > onlineBankingSettings ( account . onlineBankingSettings ( ) ) ) ;
}
MyMoneyMoney bal = dlg . openingBalance ( ) ;
if ( m_selectedAccount . accountGroup ( ) = = MyMoneyAccount : : Liability ) {
bal = - bal ;
}
// we need to modify first, as reparent would override all other changes
file - > modifyAccount ( account ) ;
if ( account . parentAccountId ( ) ! = parent . id ( ) ) {
file - > reparentAccount ( account , parent ) ;
}
if ( ! tid . isEmpty ( ) & & dlg . openingBalance ( ) . isZero ( ) ) {
file - > removeTransaction ( t ) ;
} else if ( ! tid . isEmpty ( ) & & ! dlg . openingBalance ( ) . isZero ( ) ) {
s0 . setShares ( bal ) ;
s0 . setValue ( bal ) ;
t . modifySplit ( s0 ) ;
s1 . setShares ( - bal ) ;
s1 . setValue ( - bal ) ;
t . modifySplit ( s1 ) ;
file - > modifyTransaction ( t ) ;
} else if ( tid . isEmpty ( ) & & ! dlg . openingBalance ( ) . isZero ( ) ) {
file - > createOpeningBalanceTransaction ( m_selectedAccount , bal ) ;
}
ft . commit ( ) ;
// reload the account object as it might have changed in the meantime
slotSelectAccount ( file - > account ( account . id ( ) ) ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : error ( this , i18n ( " Unable to modify account '%1'. Cause: %2 " ) . arg ( m_selectedAccount . name ( ) ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
} else {
KEditLoanWizard * wizard = new KEditLoanWizard ( m_selectedAccount ) ;
connect ( wizard , TQ_SIGNAL ( newCategory ( MyMoneyAccount & ) ) , this , TQ_SLOT ( slotCategoryNew ( MyMoneyAccount & ) ) ) ;
connect ( wizard , TQ_SIGNAL ( createPayee ( const TQString & , TQString & ) ) , this , TQ_SLOT ( slotPayeeNew ( const TQString & , TQString & ) ) ) ;
if ( wizard - > exec ( ) = = TQDialog : : Accepted ) {
MyMoneySchedule sch = file - > schedule ( m_selectedAccount . value ( " schedule " ) . latin1 ( ) ) ;
if ( ! ( m_selectedAccount = = wizard - > account ( ) )
| | ! ( sch = = wizard - > schedule ( ) ) ) {
MyMoneyFileTransaction ft ;
try {
file - > modifyAccount ( wizard - > account ( ) ) ;
sch = wizard - > schedule ( ) ;
try {
file - > schedule ( sch . id ( ) ) ;
file - > modifySchedule ( sch ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
try {
file - > addSchedule ( sch ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * f ) {
tqDebug ( TQString ( " Cannot add schedule: '%1' " ) . arg ( f - > what ( ) ) ) ;
delete f ;
}
delete e ;
}
} catch ( MyMoneyException * e ) {
tqDebug ( TQString ( " Unable to modify account %1: '%2' " ) .
arg ( m_selectedAccount . name ( ) ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
}
delete wizard ;
}
}
}
}
void KMyMoney2App : : slotAccountReconcileStart ( void )
{
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
MyMoneyAccount account ;
// we cannot reconcile standard accounts
if ( ! file - > isStandardAccount ( m_selectedAccount . id ( ) ) ) {
// check if we can reconcile this account
// it make's sense for asset and liability accounts
try {
#if 0
// check if we have overdue schedules for this account
TQValueList < MyMoneySchedule > schedules = file - > scheduleList ( m_selectedAccount . id ( ) , MyMoneySchedule : : TYPE_ANY , MyMoneySchedule : : OCCUR_ANY , MyMoneySchedule : : STYPE_ANY , TQDate ( ) , TQDate ( ) , true ) ;
if ( schedules . count ( ) > 0 ) {
if ( KMessageBox : : questionYesNo ( this , i18n ( " KMyMoney has detected some overdue scheduled transactions for this account. Do you want to enter those scheduled transactions now? " ) , i18n ( " Scheduled transactions found " ) ) = = KMessageBox : : Yes ) {
TQMap < TQString , bool > skipMap ;
bool processedOne ;
KMyMoneyUtils : : EnterScheduleResultCodeE rc = KMyMoneyUtils : : Enter ;
do {
processedOne = false ;
TQValueList < MyMoneySchedule > : : const_iterator it_sch ;
for ( it_sch = schedules . begin ( ) ; ( rc ! = KMyMoneyUtils : : Cancel ) & & ( it_sch ! = schedules . end ( ) ) ; + + it_sch ) {
MyMoneySchedule sch ( * ( it_sch ) ) ;
// and enter it if it is not on the skip list
if ( skipMap . find ( ( * it_sch ) . id ( ) ) = = skipMap . end ( ) ) {
rc = enterSchedule ( sch , false , true ) ;
if ( rc = = KMyMoneyUtils : : Ignore ) {
skipMap [ ( * it_sch ) . id ( ) ] = true ;
}
}
}
// reload list (maybe this schedule needs to be added again)
schedules = file - > scheduleList ( m_selectedAccount . id ( ) , MyMoneySchedule : : TYPE_ANY , MyMoneySchedule : : OCCUR_ANY , MyMoneySchedule : : STYPE_ANY , TQDate ( ) , TQDate ( ) , true ) ;
} while ( processedOne ) ;
}
}
# endif
account = file - > account ( m_selectedAccount . id ( ) ) ;
// get rid of previous run.
if ( m_endingBalanceDlg )
delete m_endingBalanceDlg ;
m_endingBalanceDlg = new KEndingBalanceDlg ( account , this ) ;
if ( account . isAssetLiability ( ) ) {
connect ( m_endingBalanceDlg , TQ_SIGNAL ( createPayee ( const TQString & , TQString & ) ) , this , TQ_SLOT ( slotPayeeNew ( const TQString & , TQString & ) ) ) ;
connect ( m_endingBalanceDlg , TQ_SIGNAL ( createCategory ( MyMoneyAccount & , const MyMoneyAccount & ) ) , this , TQ_SLOT ( slotCategoryNew ( MyMoneyAccount & , const MyMoneyAccount & ) ) ) ;
if ( m_endingBalanceDlg - > exec ( ) = = TQDialog : : Accepted ) {
if ( myMoneyView - > startReconciliation ( account , m_endingBalanceDlg - > statementDate ( ) , m_endingBalanceDlg - > endingBalance ( ) ) ) {
// check if the user requests us to create interest
// or charge transactions.
MyMoneyTransaction ti = m_endingBalanceDlg - > interestTransaction ( ) ;
MyMoneyTransaction tc = m_endingBalanceDlg - > chargeTransaction ( ) ;
MyMoneyFileTransaction ft ;
try {
if ( ti ! = MyMoneyTransaction ( ) ) {
MyMoneyFile : : instance ( ) - > addTransaction ( ti ) ;
}
if ( tc ! = MyMoneyTransaction ( ) ) {
MyMoneyFile : : instance ( ) - > addTransaction ( tc ) ;
}
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
tqWarning ( TQString ( " interest transaction not stored: '%s' " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
// reload the account object as it might have changed in the meantime
m_reconciliationAccount = file - > account ( account . id ( ) ) ;
slotUpdateActions ( ) ;
}
}
}
} catch ( MyMoneyException * e ) {
delete e ;
}
}
}
void KMyMoney2App : : slotAccountReconcileFinish ( void )
{
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
if ( ! m_reconciliationAccount . id ( ) . isEmpty ( ) ) {
// retrieve list of all transactions that are not reconciled or cleared
TQValueList < TQPair < MyMoneyTransaction , MyMoneySplit > > transactionList ;
MyMoneyTransactionFilter filter ( m_reconciliationAccount . id ( ) ) ;
filter . addState ( MyMoneyTransactionFilter : : cleared ) ;
filter . addState ( MyMoneyTransactionFilter : : notReconciled ) ;
filter . setDateFilter ( TQDate ( ) , m_endingBalanceDlg - > statementDate ( ) ) ;
filter . setConsiderCategory ( false ) ;
filter . setReportAllSplits ( true ) ;
file - > transactionList ( transactionList , filter ) ;
MyMoneyMoney balance = MyMoneyFile : : instance ( ) - > balance ( m_reconciliationAccount . id ( ) , m_endingBalanceDlg - > statementDate ( ) ) ;
MyMoneyMoney actBalance , clearedBalance ;
actBalance = clearedBalance = balance ;
// walk the list of transactions to figure out the balance(s)
TQValueList < TQPair < MyMoneyTransaction , MyMoneySplit > > : : const_iterator it ;
for ( it = transactionList . begin ( ) ; it ! = transactionList . end ( ) ; + + it ) {
if ( ( * it ) . second . reconcileFlag ( ) = = MyMoneySplit : : NotReconciled ) {
clearedBalance - = ( * it ) . second . shares ( ) ;
}
}
if ( m_endingBalanceDlg - > endingBalance ( ) ! = clearedBalance ) {
TQString message = i18n ( " You are about to finish the reconciliation of this account with a difference between your bank statement and the transactions marked as cleared. \n "
" Are you sure you want to finish the reconciliation ? " ) ;
if ( KMessageBox : : questionYesNo ( this , message , i18n ( " Confirm end of reconciliation " ) , KStdGuiItem : : yes ( ) , KStdGuiItem : : no ( ) ) = = KMessageBox : : No )
return ;
}
MyMoneyFileTransaction ft ;
// refresh object
m_reconciliationAccount = file - > account ( m_reconciliationAccount . id ( ) ) ;
// Turn off reconciliation mode
myMoneyView - > finishReconciliation ( m_reconciliationAccount ) ;
m_reconciliationAccount . setValue ( " lastStatementBalance " , m_endingBalanceDlg - > endingBalance ( ) . toString ( ) ) ;
m_reconciliationAccount . setLastReconciliationDate ( m_endingBalanceDlg - > statementDate ( ) ) ;
m_reconciliationAccount . deletePair ( " lastReconciledBalance " ) ;
m_reconciliationAccount . deletePair ( " statementBalance " ) ;
m_reconciliationAccount . deletePair ( " statementDate " ) ;
try {
// update the account data
file - > modifyAccount ( m_reconciliationAccount ) ;
/*
// collect the list of cleared splits for this account
filter . clear ( ) ;
filter . addAccount ( m_reconciliationAccount . id ( ) ) ;
filter . addState ( MyMoneyTransactionFilter : : cleared ) ;
filter . setConsiderCategory ( false ) ;
filter . setReportAllSplits ( true ) ;
file - > transactionList ( transactionList , filter ) ;
*/
// walk the list of transactions/splits and mark the cleared ones as reconciled
TQValueList < TQPair < MyMoneyTransaction , MyMoneySplit > > : : iterator it ;
for ( it = transactionList . begin ( ) ; it ! = transactionList . end ( ) ; + + it ) {
MyMoneySplit sp = ( * it ) . second ;
// skip the ones that are not marked cleared
if ( sp . reconcileFlag ( ) ! = MyMoneySplit : : Cleared )
continue ;
// always retrieve a fresh copy of the transaction because we
// might have changed it already with another split
MyMoneyTransaction t = file - > transaction ( ( * it ) . first . id ( ) ) ;
sp . setReconcileFlag ( MyMoneySplit : : Reconciled ) ;
sp . setReconcileDate ( m_endingBalanceDlg - > statementDate ( ) ) ;
t . modifySplit ( sp ) ;
// update the engine ...
file - > modifyTransaction ( t ) ;
// ... and the list
( * it ) = qMakePair ( t , sp ) ;
}
ft . commit ( ) ;
// reload account data from engine as the data might have changed in the meantime
m_reconciliationAccount = file - > account ( m_reconciliationAccount . id ( ) ) ;
emit accountReconciled ( m_reconciliationAccount ,
m_endingBalanceDlg - > statementDate ( ) ,
m_endingBalanceDlg - > previousBalance ( ) ,
m_endingBalanceDlg - > endingBalance ( ) ,
transactionList ) ;
} catch ( MyMoneyException * e ) {
tqDebug ( " Unexpected exception when setting cleared to reconcile " ) ;
delete e ;
}
}
// Turn off reconciliation mode
m_reconciliationAccount = MyMoneyAccount ( ) ;
slotUpdateActions ( ) ;
}
void KMyMoney2App : : slotAccountReconcilePostpone ( void )
{
MyMoneyFileTransaction ft ;
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
if ( ! m_reconciliationAccount . id ( ) . isEmpty ( ) ) {
// refresh object
m_reconciliationAccount = file - > account ( m_reconciliationAccount . id ( ) ) ;
// Turn off reconciliation mode
myMoneyView - > finishReconciliation ( m_reconciliationAccount ) ;
m_reconciliationAccount . setValue ( " lastReconciledBalance " , m_endingBalanceDlg - > previousBalance ( ) . toString ( ) ) ;
m_reconciliationAccount . setValue ( " statementBalance " , m_endingBalanceDlg - > endingBalance ( ) . toString ( ) ) ;
m_reconciliationAccount . setValue ( " statementDate " , m_endingBalanceDlg - > statementDate ( ) . toString ( TQt : : ISODate ) ) ;
try {
file - > modifyAccount ( m_reconciliationAccount ) ;
ft . commit ( ) ;
m_reconciliationAccount = MyMoneyAccount ( ) ;
slotUpdateActions ( ) ;
} catch ( MyMoneyException * e ) {
tqDebug ( " Unexpected exception when setting last reconcile info into account " ) ;
delete e ;
ft . rollback ( ) ;
m_reconciliationAccount = file - > account ( m_reconciliationAccount . id ( ) ) ;
}
}
}
void KMyMoney2App : : slotAccountOpen ( const MyMoneyObject & obj )
{
if ( typeid ( obj ) ! = typeid ( MyMoneyAccount ) )
return ;
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
TQString id = m_selectedAccount . id ( ) ;
// if the caller passed a non-empty object, we need to select that
if ( ! obj . id ( ) . isEmpty ( ) ) {
id = obj . id ( ) ;
}
// we cannot reconcile standard accounts
if ( ! file - > isStandardAccount ( id ) ) {
// check if we can open this account
// currently it make's sense for asset and liability accounts
try {
MyMoneyAccount account = file - > account ( id ) ;
myMoneyView - > slotLedgerSelected ( account . id ( ) ) ;
} catch ( MyMoneyException * e ) {
delete e ;
}
}
}
bool KMyMoney2App : : canCloseAccount ( const MyMoneyAccount & acc ) const
{
// balance must be zero
if ( ! acc . balance ( ) . isZero ( ) )
return false ;
// all children must be already closed
TQStringList : : const_iterator it_a ;
for ( it_a = acc . accountList ( ) . begin ( ) ; it_a ! = acc . accountList ( ) . end ( ) ; + + it_a ) {
MyMoneyAccount a = MyMoneyFile : : instance ( ) - > account ( * it_a ) ;
if ( ! a . isClosed ( ) ) {
return false ;
}
}
// there must be no unfinished schedule referencing the account
TQValueList < MyMoneySchedule > list = MyMoneyFile : : instance ( ) - > scheduleList ( ) ;
TQValueList < MyMoneySchedule > : : const_iterator it_l ;
for ( it_l = list . begin ( ) ; it_l ! = list . end ( ) ; + + it_l ) {
if ( ( * it_l ) . isFinished ( ) )
continue ;
if ( ( * it_l ) . hasReferenceTo ( acc . id ( ) ) )
return false ;
}
return true ;
}
void KMyMoney2App : : slotAccountClose ( void )
{
MyMoneyAccount a ;
if ( ! m_selectedInvestment . id ( ) . isEmpty ( ) )
a = m_selectedInvestment ;
else if ( ! m_selectedAccount . id ( ) . isEmpty ( ) )
a = m_selectedAccount ;
if ( a . id ( ) . isEmpty ( ) )
return ; // need an account ID
MyMoneyFileTransaction ft ;
try {
a . setClosed ( true ) ;
MyMoneyFile : : instance ( ) - > modifyAccount ( a ) ;
ft . commit ( ) ;
if ( KMyMoneyGlobalSettings : : hideClosedAccounts ( ) ) {
KMessageBox : : information ( this , TQString ( " <qt> " ) + i18n ( " You have closed this account. It remains in the system because you have transactions which still refer to it, but is not shown in the views. You can make it visible again by going to the View menu and selecting <b>Show all accounts</b> or by unselecting the <b>Don't show closed accounts</b> setting. " ) + TQString ( " </qt> " ) , i18n ( " Information " ) , " CloseAccountInfo " ) ;
}
} catch ( MyMoneyException * e ) {
delete e ;
}
}
void KMyMoney2App : : slotAccountReopen ( void )
{
MyMoneyAccount a ;
if ( ! m_selectedInvestment . id ( ) . isEmpty ( ) )
a = m_selectedInvestment ;
else if ( ! m_selectedAccount . id ( ) . isEmpty ( ) )
a = m_selectedAccount ;
if ( a . id ( ) . isEmpty ( ) )
return ; // need an account ID
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
MyMoneyFileTransaction ft ;
try {
while ( a . isClosed ( ) ) {
a . setClosed ( false ) ;
file - > modifyAccount ( a ) ;
a = file - > account ( a . parentAccountId ( ) ) ;
}
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
delete e ;
}
}
void KMyMoney2App : : slotReparentAccount ( const MyMoneyAccount & _src , const MyMoneyInstitution & _dst )
{
MyMoneyAccount src ( _src ) ;
src . setInstitutionId ( _dst . id ( ) ) ;
MyMoneyFileTransaction ft ;
try {
MyMoneyFile : : instance ( ) - > modifyAccount ( src ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : sorry ( this , TQString ( " <p> " ) + i18n ( " <b>%1</b> cannot be moved to institution <b>%2</b>. Reason: %3 " ) . arg ( src . name ( ) ) . arg ( _dst . name ( ) ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotReparentAccount ( const MyMoneyAccount & _src , const MyMoneyAccount & _dst )
{
MyMoneyAccount src ( _src ) ;
MyMoneyAccount dst ( _dst ) ;
MyMoneyFileTransaction ft ;
try {
MyMoneyFile : : instance ( ) - > reparentAccount ( src , dst ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : sorry ( this , TQString ( " <p> " ) + i18n ( " <b>%1</b> cannot be moved to <b>%2</b>. Reason: %3 " ) . arg ( src . name ( ) ) . arg ( dst . name ( ) ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotAccountTransactionReport ( void )
{
// Generate a transaction report that contains transactions for only the
// currently selected account.
if ( ! m_selectedAccount . id ( ) . isEmpty ( ) ) {
MyMoneyReport report (
MyMoneyReport : : eAccount ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCpayee | MyMoneyReport : : eTQCcategory ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " %1 YTD Account Transactions " ) . arg ( m_selectedAccount . name ( ) ) ,
i18n ( " Generated Report " )
) ;
report . setGroup ( i18n ( " Transactions " ) ) ;
report . addAccount ( m_selectedAccount . id ( ) ) ;
myMoneyView - > slotShowReport ( report ) ;
}
}
void KMyMoney2App : : slotScheduleNew ( void )
{
slotScheduleNew ( MyMoneyTransaction ( ) ) ;
}
void KMyMoney2App : : slotScheduleNew ( const MyMoneyTransaction & _t , MyMoneySchedule : : occurenceE occurence )
{
MyMoneySchedule schedule ;
schedule . setOccurence ( occurence ) ;
// if the schedule is based on an existing transaction,
// we take the post date and project it to the next
// schedule in a month.
if ( _t ! = MyMoneyTransaction ( ) ) {
MyMoneyTransaction t ( _t ) ;
if ( occurence ! = MyMoneySchedule : : OCCUR_ONCE )
t . setPostDate ( schedule . nextPayment ( t . postDate ( ) ) ) ;
schedule . setTransaction ( t ) ;
}
KEditScheduleDlg dlg ( schedule , this ) ;
TransactionEditor * transactionEditor = dlg . startEdit ( ) ;
if ( transactionEditor ) {
if ( dlg . exec ( ) = = TQDialog : : Accepted ) {
MyMoneyFileTransaction ft ;
try {
schedule = dlg . schedule ( ) ;
MyMoneyFile : : instance ( ) - > addSchedule ( schedule ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : error ( this , i18n ( " Unable to add scheduled transaction: %1 " ) . arg ( e - > what ( ) ) , i18n ( " Add scheduled transaction " ) ) ;
delete e ;
}
}
}
delete transactionEditor ;
}
void KMyMoney2App : : slotScheduleEdit ( void )
{
if ( ! m_selectedSchedule . id ( ) . isEmpty ( ) ) {
try {
MyMoneySchedule schedule = MyMoneyFile : : instance ( ) - > schedule ( m_selectedSchedule . id ( ) ) ;
KEditScheduleDlg * sched_dlg = 0 ;
KEditLoanWizard * loan_wiz = 0 ;
switch ( schedule . type ( ) ) {
case MyMoneySchedule : : TYPE_BILL :
case MyMoneySchedule : : TYPE_DEPOSIT :
case MyMoneySchedule : : TYPE_TRANSFER :
sched_dlg = new KEditScheduleDlg ( schedule , this ) ;
m_transactionEditor = sched_dlg - > startEdit ( ) ;
if ( m_transactionEditor ) {
if ( sched_dlg - > exec ( ) = = TQDialog : : Accepted ) {
MyMoneyFileTransaction ft ;
try {
MyMoneySchedule sched = sched_dlg - > schedule ( ) ;
// Check whether the new Schedule Date
// is at or before the lastPaymentDate
// If it is, ask the user whether to clear the
// lastPaymentDate
const TQDate & next = sched . nextDueDate ( ) ;
const TQDate & last = sched . lastPayment ( ) ;
if ( next . isValid ( ) & & last . isValid ( ) & & next < = last ) {
// Entered a date effectively no later
// than previous payment. Date would be
// updated automatically so we probably
// want to clear it. Let's ask the user.
if ( KMessageBox : : questionYesNo ( this , TQString ( " <qt> " ) + i18n ( " You have entered a scheduled transaction date of <b>%1</b>. Because the scheduled transaction was last paid on <b>%2</b>, KMyMoney will automatically adjust the scheduled transaction date to the next date unless the last payment date is reset. Do you want to reset the last payment date? " ) . arg ( TDEGlobal : : locale ( ) - > formatDate ( next , true ) ) . arg ( TDEGlobal : : locale ( ) - > formatDate ( last , true ) ) + TQString ( " </qt> " ) , i18n ( " Reset Last Payment Date " ) , KStdGuiItem : : yes ( ) , KStdGuiItem : : no ( ) ) = = KMessageBox : : Yes ) {
sched . setLastPayment ( TQDate ( ) ) ;
}
}
MyMoneyFile : : instance ( ) - > modifySchedule ( sched ) ;
// delete the editor before we emit the dataChanged() signal from the
// engine. Calling this twice in a row does not hurt.
deleteTransactionEditor ( ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( this , i18n ( " Unable to modify scheduled transaction '%1' " ) . arg ( m_selectedSchedule . name ( ) ) , e - > what ( ) ) ;
delete e ;
}
}
deleteTransactionEditor ( ) ;
}
delete sched_dlg ;
break ;
case MyMoneySchedule : : TYPE_LOANPAYMENT :
loan_wiz = new KEditLoanWizard ( schedule . account ( 2 ) ) ;
connect ( loan_wiz , TQ_SIGNAL ( newCategory ( MyMoneyAccount & ) ) , this , TQ_SLOT ( slotCategoryNew ( MyMoneyAccount & ) ) ) ;
connect ( loan_wiz , TQ_SIGNAL ( createPayee ( const TQString & , TQString & ) ) , this , TQ_SLOT ( slotPayeeNew ( const TQString & , TQString & ) ) ) ;
if ( loan_wiz - > exec ( ) = = TQDialog : : Accepted ) {
MyMoneyFileTransaction ft ;
try {
MyMoneyFile : : instance ( ) - > modifySchedule ( loan_wiz - > schedule ( ) ) ;
MyMoneyFile : : instance ( ) - > modifyAccount ( loan_wiz - > account ( ) ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( this , i18n ( " Unable to modify scheduled transaction '%1' " ) . arg ( m_selectedSchedule . name ( ) ) , e - > what ( ) ) ;
delete e ;
}
}
delete loan_wiz ;
break ;
case MyMoneySchedule : : TYPE_ANY :
break ;
}
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( this , i18n ( " Unable to modify scheduled transaction '%1' " ) . arg ( m_selectedSchedule . name ( ) ) , e - > what ( ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : slotScheduleDelete ( void )
{
if ( ! m_selectedSchedule . id ( ) . isEmpty ( ) ) {
MyMoneyFileTransaction ft ;
try {
MyMoneySchedule sched = MyMoneyFile : : instance ( ) - > schedule ( m_selectedSchedule . id ( ) ) ;
TQString msg = TQString ( " <p> " ) + i18n ( " Are you sure you want to delete the scheduled transaction <b>%1</b>? " ) . arg ( m_selectedSchedule . name ( ) ) ;
if ( sched . type ( ) = = MyMoneySchedule : : TYPE_LOANPAYMENT ) {
msg + = TQString ( " " ) ;
msg + = i18n ( " In case of loan payments it is currently not possible to recreate the scheduled transaction. " ) ;
}
if ( KMessageBox : : questionYesNo ( this , msg ) = = KMessageBox : : No )
return ;
MyMoneyFile : : instance ( ) - > removeSchedule ( sched ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( this , i18n ( " Unable to remove scheduled transaction '%1' " ) . arg ( m_selectedSchedule . name ( ) ) , e - > what ( ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : slotScheduleDuplicate ( void )
{
// since we may jump here via code, we have to make sure to react only
// if the action is enabled
if ( kmymoney2 - > action ( " schedule_duplicate " ) - > isEnabled ( ) ) {
MyMoneySchedule sch = m_selectedSchedule ;
sch . clearId ( ) ;
sch . setLastPayment ( TQDate ( ) ) ;
sch . setName ( i18n ( " Copy of scheduled transaction name " , " Copy of %1 " ) . arg ( sch . name ( ) ) ) ;
MyMoneyFileTransaction ft ;
try {
MyMoneyFile : : instance ( ) - > addSchedule ( sch ) ;
ft . commit ( ) ;
// select the new schedule in the view
if ( ! m_selectedSchedule . id ( ) . isEmpty ( ) )
myMoneyView - > slotScheduleSelected ( sch . id ( ) ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to duplicate transaction(s): %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : slotScheduleSkip ( void )
{
if ( ! m_selectedSchedule . id ( ) . isEmpty ( ) ) {
try {
MyMoneySchedule schedule = MyMoneyFile : : instance ( ) - > schedule ( m_selectedSchedule . id ( ) ) ;
if ( ! schedule . isFinished ( ) ) {
if ( schedule . occurence ( ) ! = MyMoneySchedule : : OCCUR_ONCE ) {
TQDate next = schedule . nextDueDate ( ) ;
if ( ! schedule . isFinished ( ) & & ( KMessageBox : : questionYesNo ( this , TQString ( " <qt> " ) + i18n ( " Do you really want to skip the <b>%1</b> transaction scheduled for <b>%2</b>? " ) . arg ( schedule . name ( ) , TDEGlobal : : locale ( ) - > formatDate ( next , true ) ) + TQString ( " </qt> " ) ) ) = = KMessageBox : : Yes ) {
MyMoneyFileTransaction ft ;
schedule . setLastPayment ( next ) ;
schedule . setNextDueDate ( schedule . nextPayment ( next ) ) ;
MyMoneyFile : : instance ( ) - > modifySchedule ( schedule ) ;
ft . commit ( ) ;
}
}
}
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( this , TQString ( " <qt> " ) + i18n ( " Unable to skip scheduled transaction <b>%1</b>. " ) . arg ( m_selectedSchedule . name ( ) ) + TQString ( " </qt> " ) , e - > what ( ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : slotScheduleEnter ( void )
{
if ( ! m_selectedSchedule . id ( ) . isEmpty ( ) ) {
try {
MyMoneySchedule schedule = MyMoneyFile : : instance ( ) - > schedule ( m_selectedSchedule . id ( ) ) ;
enterSchedule ( schedule ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( this , i18n ( " Unknown scheduled transaction '%1' " ) . arg ( m_selectedSchedule . name ( ) ) , e - > what ( ) ) ;
delete e ;
}
}
}
KMyMoneyUtils : : EnterScheduleResultCodeE KMyMoney2App : : enterSchedule ( MyMoneySchedule & schedule , bool autoEnter , bool extendedKeys )
{
KMyMoneyUtils : : EnterScheduleResultCodeE rc = KMyMoneyUtils : : Cancel ;
if ( ! schedule . id ( ) . isEmpty ( ) ) {
try {
schedule = MyMoneyFile : : instance ( ) - > schedule ( schedule . id ( ) ) ;
TQDate origDueDate = schedule . nextDueDate ( ) ;
KEnterScheduleDlg dlg ( this , schedule ) ;
dlg . showExtendedKeys ( extendedKeys ) ;
m_transactionEditor = dlg . startEdit ( ) ;
if ( m_transactionEditor ) {
MyMoneyTransaction torig , taccepted ;
m_transactionEditor - > createTransaction ( torig , dlg . transaction ( ) , schedule . transaction ( ) . splits ( ) [ 0 ] , true ) ;
// force actions to be available no matter what (will be updated according to the state during
// slotTransactionsEnter or slotTransactionsCancel)
kmymoney2 - > action ( " transaction_cancel " ) - > setEnabled ( true ) ;
kmymoney2 - > action ( " transaction_enter " ) - > setEnabled ( true ) ;
KConfirmManualEnterDlg : : Action action = KConfirmManualEnterDlg : : ModifyOnce ;
if ( ! autoEnter | | ! schedule . isFixed ( ) ) {
for ( ; ; ) {
rc = KMyMoneyUtils : : Cancel ;
if ( dlg . exec ( ) = = TQDialog : : Accepted ) {
rc = dlg . resultCode ( ) ;
if ( rc = = KMyMoneyUtils : : Enter ) {
m_transactionEditor - > createTransaction ( taccepted , torig , torig . splits ( ) [ 0 ] , true ) ;
// make sure to suppress comparison of some data: postDate
torig . setPostDate ( taccepted . postDate ( ) ) ;
if ( torig ! = taccepted ) {
KConfirmManualEnterDlg cdlg ( schedule , this ) ;
cdlg . loadTransactions ( torig , taccepted ) ;
if ( cdlg . exec ( ) = = TQDialog : : Accepted ) {
action = cdlg . action ( ) ;
break ;
}
// the user has choosen 'cancel' during confirmation,
// we go back to the editor
continue ;
}
} else if ( rc = = KMyMoneyUtils : : Skip ) {
slotTransactionsCancel ( ) ;
slotScheduleSkip ( ) ;
} else {
slotTransactionsCancel ( ) ;
}
} else {
if ( autoEnter ) {
if ( KMessageBox : : warningYesNo ( this , i18n ( " Are you sure you wish to stop this scheduled transaction from being entered into the register? \n \n KMyMoney will prompt you again next time it starts unless you manually enter it later. " ) ) = = KMessageBox : : No ) {
// the user has choosen 'No' for the above question,
// we go back to the editor
continue ;
}
}
slotTransactionsCancel ( ) ;
}
break ;
}
}
// if we still have the editor around here, the user did not cancel
if ( m_transactionEditor ) {
MyMoneyFileTransaction ft ;
try {
MyMoneyTransaction t ;
// add the new transaction
switch ( action ) {
case KConfirmManualEnterDlg : : UseOriginal :
// setup widgets with original transaction data
m_transactionEditor - > setTransaction ( dlg . transaction ( ) , dlg . transaction ( ) . splits ( ) [ 0 ] ) ;
// and create a transaction based on that data
taccepted = MyMoneyTransaction ( ) ;
m_transactionEditor - > createTransaction ( taccepted , dlg . transaction ( ) , dlg . transaction ( ) . splits ( ) [ 0 ] , true ) ;
break ;
case KConfirmManualEnterDlg : : ModifyAlways :
schedule . setTransaction ( taccepted ) ;
break ;
case KConfirmManualEnterDlg : : ModifyOnce :
break ;
}
TQString newId ;
connect ( m_transactionEditor , TQ_SIGNAL ( balanceWarning ( TQWidget * , const MyMoneyAccount & , const TQString & ) ) , d - > m_balanceWarning , TQ_SLOT ( slotShowMessage ( TQWidget * , const MyMoneyAccount & , const TQString & ) ) ) ;
if ( m_transactionEditor - > enterTransactions ( newId , false ) ) {
if ( ! newId . isEmpty ( ) ) {
MyMoneyTransaction t = MyMoneyFile : : instance ( ) - > transaction ( newId ) ;
schedule . setLastPayment ( t . postDate ( ) ) ;
}
schedule . setNextDueDate ( schedule . nextPayment ( origDueDate ) ) ;
MyMoneyFile : : instance ( ) - > modifySchedule ( schedule ) ;
rc = KMyMoneyUtils : : Enter ;
// delete the editor before we emit the dataChanged() signal from the
// engine. Calling this twice in a row does not hurt.
deleteTransactionEditor ( ) ;
ft . commit ( ) ;
}
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( this , i18n ( " Unable to enter scheduled transaction '%1' " ) . arg ( m_selectedSchedule . name ( ) ) , e - > what ( ) ) ;
delete e ;
}
deleteTransactionEditor ( ) ;
}
}
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( this , i18n ( " Unable to enter scheduled transaction '%1' " ) . arg ( m_selectedSchedule . name ( ) ) , e - > what ( ) ) ;
delete e ;
}
}
return rc ;
}
void KMyMoney2App : : slotPayeeNew ( const TQString & newnameBase , TQString & id )
{
bool doit = true ;
if ( newnameBase ! = i18n ( " New Payee " ) ) {
// Ask the user if that is what he intended to do?
TQString msg = TQString ( " <qt> " ) + i18n ( " Do you want to add <b>%1</b> as payer/receiver ? " ) . arg ( newnameBase ) + TQString ( " </qt> " ) ;
const TQString dontAskAgain = TQString : : fromLatin1 ( " NewPayee " ) ;
if ( KMessageBox : : questionYesNo ( this , msg , i18n ( " New payee/receiver " ) , KStdGuiItem : : yes ( ) , KStdGuiItem : : no ( ) , dontAskAgain ) = = KMessageBox : : No ) {
doit = false ;
// we should not keep the 'no' setting because that can confuse people like
// I have seen in some usability tests. So we just delete it right away.
TDEConfig * tdeconfig = TDEGlobal : : config ( ) ;
if ( tdeconfig ) {
tdeconfig - > setGroup ( TQString : : fromLatin1 ( " Notification Messages " ) ) ;
tdeconfig - > deleteEntry ( dontAskAgain ) ;
}
}
}
if ( doit ) {
MyMoneyFileTransaction ft ;
try {
TQString newname ( newnameBase ) ;
// adjust name until a unique name has been created
int count = 0 ;
for ( ; ; ) {
try {
MyMoneyFile : : instance ( ) - > payeeByName ( newname ) ;
newname = TQString ( " %1 [%2] " ) . arg ( newnameBase ) . arg ( + + count ) ;
} catch ( MyMoneyException * e ) {
delete e ;
break ;
}
}
MyMoneyPayee p ;
p . setName ( newname ) ;
MyMoneyFile : : instance ( ) - > addPayee ( p ) ;
id = p . id ( ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( this , i18n ( " Unable to add payee " ) ,
TQString ( " %1 thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : slotPayeeNew ( void )
{
TQString id ;
slotPayeeNew ( i18n ( " New Payee " ) , id ) ;
// the callbacks should have made sure, that the payees view has been
// updated already. So we search for the id in the list of items
// and select it.
emit payeeCreated ( id ) ;
}
bool KMyMoney2App : : payeeInList ( const TQValueList < MyMoneyPayee > & list , const TQString & id ) const
{
bool rc = false ;
TQValueList < MyMoneyPayee > : : const_iterator it_p = list . begin ( ) ;
while ( it_p ! = list . end ( ) ) {
if ( ( * it_p ) . id ( ) = = id ) {
rc = true ;
break ;
}
+ + it_p ;
}
return rc ;
}
void KMyMoney2App : : slotPayeeDelete ( void )
{
if ( m_selectedPayees . isEmpty ( ) )
return ; // shouldn't happen
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
// first create list with all non-selected payees
TQValueList < MyMoneyPayee > remainingPayees = file - > payeeList ( ) ;
TQValueList < MyMoneyPayee > : : iterator it_p ;
for ( it_p = remainingPayees . begin ( ) ; it_p ! = remainingPayees . end ( ) ; ) {
if ( m_selectedPayees . find ( * it_p ) ! = m_selectedPayees . end ( ) ) {
it_p = remainingPayees . erase ( it_p ) ;
} else {
+ + it_p ;
}
}
// get confirmation from user
TQString prompt ;
if ( m_selectedPayees . size ( ) = = 1 )
prompt = TQString ( " <p> " ) + i18n ( " Do you really want to remove the payee <b>%1</b>? " ) . arg ( m_selectedPayees . front ( ) . name ( ) ) ;
else
prompt = i18n ( " Do you really want to remove all selected payees? " ) ;
if ( KMessageBox : : questionYesNo ( this , prompt , i18n ( " Remove Payee " ) ) = = KMessageBox : : No )
return ;
MyMoneyFileTransaction ft ;
try {
// create a transaction filter that contains all payees selected for removal
MyMoneyTransactionFilter f = MyMoneyTransactionFilter ( ) ;
for ( TQValueList < MyMoneyPayee > : : const_iterator it = m_selectedPayees . begin ( ) ;
it ! = m_selectedPayees . end ( ) ; + + it ) {
f . addPayee ( ( * it ) . id ( ) ) ;
}
// request a list of all transactions that still use the payees in question
TQValueList < MyMoneyTransaction > translist = file - > transactionList ( f ) ;
// kdDebug() << "[KPayeesView::slotDeletePayee] " << translist.count() << " transaction still assigned to payees" << endl;
// now get a list of all schedules that make use of one of the payees
TQValueList < MyMoneySchedule > all_schedules = file - > scheduleList ( ) ;
TQValueList < MyMoneySchedule > used_schedules ;
for ( TQValueList < MyMoneySchedule > : : ConstIterator it = all_schedules . begin ( ) ;
it ! = all_schedules . end ( ) ; + + it )
{
// loop over all splits in the transaction of the schedule
for ( TQValueList < MyMoneySplit > : : ConstIterator s_it = ( * it ) . transaction ( ) . splits ( ) . begin ( ) ;
s_it ! = ( * it ) . transaction ( ) . splits ( ) . end ( ) ; + + s_it )
{
// is the payee in the split to be deleted?
if ( payeeInList ( m_selectedPayees , ( * s_it ) . payeeId ( ) ) ) {
used_schedules . push_back ( * it ) ; // remember this schedule
break ;
}
}
}
// kdDebug() << "[KPayeesView::slotDeletePayee] " << used_schedules.count() << " schedules use one of the selected payees" << endl;
MyMoneyPayee newPayee ;
bool addToMatchList = false ;
// if at least one payee is still referenced, we need to reassign its transactions first
if ( ! translist . isEmpty ( ) | | ! used_schedules . isEmpty ( ) ) {
// show error message if no payees remain
if ( remainingPayees . isEmpty ( ) ) {
KMessageBox : : sorry ( this , i18n ( " At least one transaction/scheduled transaction is still referenced by a payee. "
" Currently you have all payees selected. However, at least one payee must remain so "
" that the transaction/scheduled transaction can be reassigned. " ) ) ;
return ;
}
// show transaction reassignment dialog
KPayeeReassignDlg * dlg = new KPayeeReassignDlg ( this ) ;
TQString payee_id = dlg - > show ( remainingPayees ) ;
addToMatchList = dlg - > addToMatchList ( ) ;
delete dlg ; // and kill the dialog
if ( payee_id . isEmpty ( ) )
return ; // the user aborted the dialog, so let's abort as well
newPayee = file - > payee ( payee_id ) ;
// TODO : check if we have a report that explicitely uses one of our payees
// and issue an appropriate warning
try {
TQValueList < MyMoneySplit > : : iterator s_it ;
// now loop over all transactions and reassign payee
for ( TQValueList < MyMoneyTransaction > : : iterator it = translist . begin ( ) ; it ! = translist . end ( ) ; + + it ) {
// create a copy of the splits list in the transaction
TQValueList < MyMoneySplit > splits = ( * it ) . splits ( ) ;
// loop over all splits
for ( s_it = splits . begin ( ) ; s_it ! = splits . end ( ) ; + + s_it ) {
// if the split is assigned to one of the selected payees, we need to modify it
if ( payeeInList ( m_selectedPayees , ( * s_it ) . payeeId ( ) ) ) {
( * s_it ) . setPayeeId ( payee_id ) ; // first modify payee in current split
// then modify the split in our local copy of the transaction list
( * it ) . modifySplit ( * s_it ) ; // this does not modify the list object 'splits'!
}
} // for - Splits
file - > modifyTransaction ( * it ) ; // modify the transaction in the MyMoney object
} // for - Transactions
// now loop over all schedules and reassign payees
for ( TQValueList < MyMoneySchedule > : : iterator it = used_schedules . begin ( ) ;
it ! = used_schedules . end ( ) ; + + it )
{
// create copy of transaction in current schedule
MyMoneyTransaction trans = ( * it ) . transaction ( ) ;
// create copy of lists of splits
TQValueList < MyMoneySplit > splits = trans . splits ( ) ;
for ( s_it = splits . begin ( ) ; s_it ! = splits . end ( ) ; + + s_it ) {
if ( payeeInList ( m_selectedPayees , ( * s_it ) . payeeId ( ) ) ) {
( * s_it ) . setPayeeId ( payee_id ) ;
trans . modifySplit ( * s_it ) ; // does not modify the list object 'splits'!
}
} // for - Splits
// store transaction in current schedule
( * it ) . setTransaction ( trans ) ;
file - > modifySchedule ( * it ) ; // modify the schedule in the MyMoney engine
} // for - Schedules
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Unable to reassign payee of transaction/split " ) ,
( e - > what ( ) + " " + i18n ( " thrown in " ) + " " + e - > file ( ) + " :%1 " ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
} // if !translist.isEmpty()
bool ignorecase ;
TQStringList payeeNames ;
MyMoneyPayee : : payeeMatchType matchType = newPayee . matchData ( ignorecase , payeeNames ) ;
TQStringList deletedPayeeNames ;
// now loop over all selected payees and remove them
for ( TQValueList < MyMoneyPayee > : : iterator it = m_selectedPayees . begin ( ) ;
it ! = m_selectedPayees . end ( ) ; + + it ) {
if ( addToMatchList ) {
deletedPayeeNames < < ( * it ) . name ( ) ;
}
file - > removePayee ( * it ) ;
}
// if we initially have no matching turned on, we just ignore the case (default)
if ( matchType = = MyMoneyPayee : : matchDisabled )
ignorecase = true ;
// update the destination payee if this was requested by the user
if ( addToMatchList & & deletedPayeeNames . count ( ) > 0 ) {
// add new names to the list
// TODO: it would be cool to somehow shrink the list to make better use
// of regular expressions at this point. For now, we leave this task
// to the user himeself.
TQStringList : : const_iterator it_n ;
for ( it_n = deletedPayeeNames . begin ( ) ; it_n ! = deletedPayeeNames . end ( ) ; + + it_n ) {
if ( matchType = = MyMoneyPayee : : matchKey ) {
// make sure we really need it and it is not caught by an existing regexp
TQStringList : : const_iterator it_k ;
for ( it_k = payeeNames . begin ( ) ; it_k ! = payeeNames . end ( ) ; + + it_k ) {
TQRegExp exp ( * it_k , ignorecase ) ;
if ( exp . search ( * it_n ) ! = - 1 )
break ;
}
if ( it_k = = payeeNames . end ( ) )
payeeNames < < TQRegExp : : escape ( * it_n ) ;
} else if ( payeeNames . contains ( * it_n ) = = 0 )
payeeNames < < TQRegExp : : escape ( * it_n ) ;
}
// and update the payee in the engine context
// make sure to turn on matching for this payee in the right mode
newPayee . setMatchData ( MyMoneyPayee : : matchKey , ignorecase , payeeNames ) ;
file - > modifyPayee ( newPayee ) ;
}
ft . commit ( ) ;
// If we just deleted the payees, they sure don't exist anymore
slotSelectPayees ( TQValueList < MyMoneyPayee > ( ) ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Unable to remove payee(s) " ) ,
( e - > what ( ) + " " + i18n ( " thrown in " ) + " " + e - > file ( ) + " :%1 " ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotCurrencyNew ( void )
{
TQString sid = KInputDialog : : getText ( i18n ( " New currency " ) , i18n ( " Enter ISO 4217 code for the new currency " ) , TQString ( ) , 0 , 0 , 0 , 0 , " >AAA " ) ;
if ( ! sid . isEmpty ( ) ) {
TQString id ( sid ) ;
MyMoneySecurity currency ( id , i18n ( " New currency " ) ) ;
MyMoneyFileTransaction ft ;
try {
MyMoneyFile : : instance ( ) - > addCurrency ( currency ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : sorry ( this , i18n ( " Cannot create new currency. %1 " ) . arg ( e - > what ( ) ) , i18n ( " New currency " ) ) ;
delete e ;
}
emit currencyCreated ( id ) ;
}
}
void KMyMoney2App : : slotCurrencyRename ( TQListViewItem * item , int , const TQString & txt )
{
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
KMyMoneyListViewItem * p = static_cast < KMyMoneyListViewItem * > ( item ) ;
try {
if ( txt ! = m_selectedCurrency . name ( ) ) {
MyMoneySecurity currency = file - > currency ( p - > id ( ) ) ;
currency . setName ( txt ) ;
MyMoneyFileTransaction ft ;
try {
file - > modifyCurrency ( currency ) ;
m_selectedCurrency = currency ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : sorry ( this , i18n ( " Cannot rename currency. %1 " ) . arg ( e - > what ( ) ) , i18n ( " Rename currency " ) ) ;
delete e ;
}
}
} catch ( MyMoneyException * e ) {
KMessageBox : : sorry ( this , i18n ( " Cannot rename currency. %1 " ) . arg ( e - > what ( ) ) , i18n ( " Rename currency " ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotCurrencyDelete ( void )
{
if ( ! m_selectedCurrency . id ( ) . isEmpty ( ) ) {
MyMoneyFileTransaction ft ;
try {
MyMoneyFile : : instance ( ) - > removeCurrency ( m_selectedCurrency ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : sorry ( this , i18n ( " Cannot delete currency %1. %2 " ) . arg ( m_selectedCurrency . name ( ) ) . arg ( e - > what ( ) ) , i18n ( " Delete currency " ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : slotCurrencySetBase ( void )
{
if ( ! m_selectedCurrency . id ( ) . isEmpty ( ) ) {
if ( m_selectedCurrency . id ( ) ! = MyMoneyFile : : instance ( ) - > baseCurrency ( ) . id ( ) ) {
MyMoneyFileTransaction ft ;
try {
MyMoneyFile : : instance ( ) - > setBaseCurrency ( m_selectedCurrency ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : sorry ( this , i18n ( " Cannot set %1 as base currency: %2 " ) . arg ( m_selectedCurrency . name ( ) ) . arg ( e - > what ( ) ) , i18n ( " Set base currency " ) ) ;
delete e ;
}
}
}
}
void KMyMoney2App : : slotBudgetNew ( void )
{
TQDate date = TQDate : : currentDate ( TQt : : LocalTime ) ;
date . setYMD ( date . year ( ) , 1 , 1 ) ;
TQString newname = i18n ( " Budget %1 " ) . arg ( TQString : : number ( date . year ( ) ) ) ;
MyMoneyBudget budget ;
// make sure we have a unique name
try {
int i = 1 ;
// Exception thrown when the name is not found
while ( 1 ) {
MyMoneyFile : : instance ( ) - > budgetByName ( newname ) ;
newname = i18n ( " Budget %1 (%2) " ) . arg ( TQString : : number ( date . year ( ) ) , TQString : : number ( i + + ) ) ;
}
} catch ( MyMoneyException * e ) {
// all ok, the name is unique
delete e ;
}
MyMoneyFileTransaction ft ;
try {
budget . setName ( newname ) ;
budget . setBudgetStart ( date ) ;
MyMoneyFile : : instance ( ) - > addBudget ( budget ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to add budget: %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotBudgetDelete ( void )
{
if ( m_selectedBudgets . isEmpty ( ) )
return ; // shouldn't happen
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
// get confirmation from user
TQString prompt ;
if ( m_selectedBudgets . size ( ) = = 1 )
prompt = TQString ( " <p> " ) + i18n ( " Do you really want to remove the budget <b>%1</b>? " ) . arg ( m_selectedBudgets . front ( ) . name ( ) ) ;
else
prompt = i18n ( " Do you really want to remove all selected budgets? " ) ;
if ( KMessageBox : : questionYesNo ( this , prompt , i18n ( " Remove Budget " ) ) = = KMessageBox : : No )
return ;
MyMoneyFileTransaction ft ;
try {
// now loop over all selected budgets and remove them
for ( TQValueList < MyMoneyBudget > : : iterator it = m_selectedBudgets . begin ( ) ;
it ! = m_selectedBudgets . end ( ) ; + + it ) {
file - > removeBudget ( * it ) ;
}
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to remove budget: %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotBudgetCopy ( void )
{
if ( m_selectedBudgets . size ( ) = = 1 ) {
MyMoneyFileTransaction ft ;
try {
MyMoneyBudget budget = m_selectedBudgets [ 0 ] ;
budget . clearId ( ) ;
budget . setName ( i18n ( " Copy of %1 " ) . arg ( budget . name ( ) ) ) ;
MyMoneyFile : : instance ( ) - > addBudget ( budget ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to add budget: %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : slotBudgetChangeYear ( void )
{
if ( m_selectedBudgets . size ( ) = = 1 ) {
TQStringList years ;
int current = 0 ;
bool haveCurrent = false ;
MyMoneyBudget budget = * ( m_selectedBudgets . begin ( ) ) ;
for ( int i = ( TQDate : : currentDate ( ) . year ( ) - 3 ) ; i < ( TQDate : : currentDate ( ) . year ( ) + 5 ) ; + + i ) {
years < < TQString ( " %1 " ) . arg ( i ) ;
if ( i = = budget . budgetStart ( ) . year ( ) ) {
haveCurrent = true ;
}
if ( ! haveCurrent )
+ + current ;
}
if ( ! haveCurrent )
current = 0 ;
bool ok = false ;
TQString yearString = KInputDialog : : getItem ( i18n ( " Select year " ) , i18n ( " Budget year " ) , years , current , false , & ok , this ) ;
if ( ok ) {
int year = yearString . toInt ( 0 , 0 ) ;
TQDate newYear = TQDate ( year , 1 , 1 ) ;
if ( newYear ! = budget . budgetStart ( ) ) {
MyMoneyFileTransaction ft ;
try {
budget . setBudgetStart ( newYear ) ;
MyMoneyFile : : instance ( ) - > modifyBudget ( budget ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to modify budget: %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
}
}
}
void KMyMoney2App : : slotBudgetForecast ( void )
{
if ( m_selectedBudgets . size ( ) = = 1 ) {
MyMoneyFileTransaction ft ;
try {
MyMoneyBudget budget = m_selectedBudgets [ 0 ] ;
bool calcBudget = budget . getaccounts ( ) . count ( ) = = 0 ;
if ( ! calcBudget ) {
if ( KMessageBox : : warningContinueCancel ( 0 , i18n ( " The current budget already contains data. Continuing will replace all current values of this budget. " ) , i18n ( " Warning " ) ) = = KMessageBox : : Continue )
calcBudget = true ;
}
if ( calcBudget ) {
TQDate historyStart ;
TQDate historyEnd ;
TQDate budgetStart ;
TQDate budgetEnd ;
budgetStart = budget . budgetStart ( ) ;
budgetEnd = budgetStart . addYears ( 1 ) . addDays ( - 1 ) ;
historyStart = budgetStart . addYears ( - 1 ) ;
historyEnd = budgetEnd . addYears ( - 1 ) ;
MyMoneyForecast forecast ;
forecast . createBudget ( budget , historyStart , historyEnd , budgetStart , budgetEnd , true ) ;
MyMoneyFile : : instance ( ) - > modifyBudget ( budget ) ;
ft . commit ( ) ;
}
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to modify budget: %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : slotKDELanguageSettings ( void )
{
KMessageBox : : information ( this , i18n ( " Please be aware that changes made in the following dialog affect all TDE applications not only KMyMoney. " ) , i18n ( " Warning " ) , " LanguageSettingsWarning " ) ;
TQStringList args ;
args < < " language " ;
TQString error ;
int pid ;
TDEApplication : : tdeinitExec ( " tdecmshell " , args , & error , & pid ) ;
}
void KMyMoney2App : : slotNewFeature ( void )
{
// accounts
// transactions
// budgets
// currency
// institutions
// payees
// schedules
// slotStatementImport();
#if 0
if ( m_selectedBudgets . size ( ) = = 1 ) {
MyMoneyFileTransaction ft ;
try {
MyMoneyBudget budget = m_selectedBudgets [ 0 ] ;
bool calcBudget = budget . getaccounts ( ) . count ( ) = = 0 ;
if ( ! calcBudget ) {
if ( KMessageBox : : warningContinueCancel ( 0 , i18n ( " The current budget already contains data. Continuing will replace all current values of this budget. " ) , i18n ( " Warning " ) ) = = KMessageBox : : Continue )
calcBudget = true ;
}
if ( calcBudget ) {
TQDate historyStart ;
TQDate historyEnd ;
TQDate budgetStart ;
TQDate budgetEnd ;
budgetStart = budget . budgetStart ( ) ;
budgetEnd = budgetStart . addYears ( 1 ) . addDays ( - 1 ) ;
historyStart = budgetStart . addYears ( - 1 ) ;
historyEnd = budgetEnd . addYears ( - 1 ) ;
MyMoneyForecast forecast ;
budget = forecast . createBudget ( historyStart , historyEnd , budgetStart , budgetEnd , true ) ;
budget . setName ( m_selectedBudgets [ 0 ] . name ( ) ) ;
MyMoneyFile : : instance ( ) - > removeBudget ( m_selectedBudgets [ 0 ] ) ;
MyMoneyFile : : instance ( ) - > addBudget ( budget ) ;
ft . commit ( ) ;
}
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to modify budget: %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
# endif
}
void KMyMoney2App : : slotTransactionsDelete ( void )
{
// since we may jump here via code, we have to make sure to react only
// if the action is enabled
if ( ! kmymoney2 - > action ( " transaction_delete " ) - > isEnabled ( ) )
return ;
if ( m_selectedTransactions . count ( ) = = 0 )
return ;
if ( m_selectedTransactions . warnLevel ( ) = = 1 ) {
if ( KMessageBox : : warningContinueCancel ( 0 ,
i18n (
" At least one split of the selected transactions has been reconciled. "
" Do you wish to delete the transactions anyway? "
) ,
i18n ( " Transaction already reconciled " ) , KStdGuiItem : : cont ( ) ,
" DeleteReconciledTransaction " ) = = KMessageBox : : Cancel )
return ;
}
TQString msg ;
if ( m_selectedTransactions . count ( ) = = 1 ) {
msg = i18n ( " Do you really want to delete the selected transaction? " ) ;
} else {
msg = i18n ( " Do you really want to delete all %1 selected transactions? " ) . arg ( m_selectedTransactions . count ( ) ) ;
}
if ( KMessageBox : : questionYesNo ( this , msg , i18n ( " Delete transaction " ) ) = = KMessageBox : : Yes ) {
KMSTATUS ( i18n ( " Deleting transactions " ) ) ;
doDeleteTransactions ( ) ;
}
}
void KMyMoney2App : : slotTransactionDuplicate ( void )
{
// since we may jump here via code, we have to make sure to react only
// if the action is enabled
if ( kmymoney2 - > action ( " transaction_duplicate " ) - > isEnabled ( ) ) {
KMyMoneyRegister : : SelectedTransactions list = m_selectedTransactions ;
KMyMoneyRegister : : SelectedTransactions : : iterator it_t ;
int i = 0 ;
int cnt = m_selectedTransactions . count ( ) ;
KMSTATUS ( i18n ( " Duplicating transactions " ) ) ;
slotStatusProgressBar ( 0 , cnt ) ;
MyMoneyFileTransaction ft ;
MyMoneyTransaction lt ;
try {
for ( it_t = list . begin ( ) ; it_t ! = list . end ( ) ; + + it_t ) {
MyMoneyTransaction t = ( * it_t ) . transaction ( ) ;
TQValueList < MyMoneySplit > : : iterator it_s ;
// wipe out any reconciliation information
for ( it_s = t . splits ( ) . begin ( ) ; it_s ! = t . splits ( ) . end ( ) ; + + it_s ) {
( * it_s ) . setReconcileFlag ( MyMoneySplit : : NotReconciled ) ;
( * it_s ) . setReconcileDate ( TQDate ( ) ) ;
( * it_s ) . setBankID ( TQString ( ) ) ;
}
// clear invalid data
t . setEntryDate ( TQDate ( ) ) ;
t . clearId ( ) ;
// and set the post date to today
t . setPostDate ( TQDate : : currentDate ( ) ) ;
MyMoneyFile : : instance ( ) - > addTransaction ( t ) ;
lt = t ;
slotStatusProgressBar ( i + + , 0 ) ;
}
ft . commit ( ) ;
// select the new transaction in the ledger
if ( ! m_selectedAccount . id ( ) . isEmpty ( ) )
myMoneyView - > slotLedgerSelected ( m_selectedAccount . id ( ) , lt . id ( ) ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to duplicate transaction(s): %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
// switch off the progress bar
slotStatusProgressBar ( - 1 , - 1 ) ;
}
}
void KMyMoney2App : : doDeleteTransactions ( void )
{
KMyMoneyRegister : : SelectedTransactions list = m_selectedTransactions ;
KMyMoneyRegister : : SelectedTransactions : : const_iterator it_t ;
int cnt = list . count ( ) ;
int i = 0 ;
slotStatusProgressBar ( 0 , cnt ) ;
MyMoneyFileTransaction ft ;
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
try {
for ( it_t = list . begin ( ) ; it_t ! = list . end ( ) ; + + it_t ) {
// only remove those transactions that do not reference a closed account
if ( ! file - > referencesClosedAccount ( ( * it_t ) . transaction ( ) ) )
file - > removeTransaction ( ( * it_t ) . transaction ( ) ) ;
slotStatusProgressBar ( i + + , 0 ) ;
}
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to delete transaction(s): %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
slotStatusProgressBar ( - 1 , - 1 ) ;
}
void KMyMoney2App : : slotTransactionsNew ( void )
{
// since we jump here via code, we have to make sure to react only
// if the action is enabled
if ( kmymoney2 - > action ( " transaction_new " ) - > isEnabled ( ) ) {
if ( myMoneyView - > createNewTransaction ( ) ) {
m_transactionEditor = myMoneyView - > startEdit ( m_selectedTransactions ) ;
KMyMoneyPayeeCombo * payeeEdit = dynamic_cast < KMyMoneyPayeeCombo * > ( m_transactionEditor - > haveWidget ( " payee " ) ) ;
if ( payeeEdit
& & ! d - > m_lastPayeeEntered . isEmpty ( )
& & KMyMoneyGlobalSettings : : autoReusePayee ( ) ) {
// in case we entered a new transaction before and used a payee,
// we reuse it here. Save the text to the edit widget, select it
// so that hitting any character will start entering another payee.
// close the completion list
payeeEdit - > setCurrentText ( d - > m_lastPayeeEntered ) ;
payeeEdit - > completion ( ) - > slotMakeCompletion ( d - > m_lastPayeeEntered ) ;
TQStringList payeeId ;
payeeEdit - > selector ( ) - > selectedItems ( payeeId ) ;
if ( payeeId . count ( ) = = 1 ) {
payeeEdit - > setSelectedItem ( payeeId [ 0 ] ) ;
}
payeeEdit - > lineEdit ( ) - > selectAll ( ) ;
payeeEdit - > completion ( ) - > hide ( ) ;
}
if ( m_transactionEditor ) {
connect ( m_transactionEditor , TQ_SIGNAL ( statusProgress ( int , int ) ) , this , TQ_SLOT ( slotStatusProgressBar ( int , int ) ) ) ;
connect ( m_transactionEditor , TQ_SIGNAL ( statusMsg ( const TQString & ) ) , this , TQ_SLOT ( slotStatusMsg ( const TQString & ) ) ) ;
connect ( m_transactionEditor , TQ_SIGNAL ( scheduleTransaction ( const MyMoneyTransaction & , MyMoneySchedule : : occurenceE ) ) , this , TQ_SLOT ( slotScheduleNew ( const MyMoneyTransaction & , MyMoneySchedule : : occurenceE ) ) ) ;
connect ( m_transactionEditor , TQ_SIGNAL ( transactionDataSufficient ( bool ) ) , this , TQ_SLOT ( slotUpdateActions ( ) ) ) ;
}
slotUpdateActions ( ) ;
}
}
}
void KMyMoney2App : : slotTransactionsEdit ( void )
{
// tqDebug("KMyMoney2App::slotTransactionsEdit()");
// since we jump here via code, we have to make sure to react only
// if the action is enabled
if ( kmymoney2 - > action ( " transaction_edit " ) - > isEnabled ( ) ) {
// as soon as we edit a transaction, we don't remember the last payee entered
d - > m_lastPayeeEntered = TQString ( ) ;
m_transactionEditor = myMoneyView - > startEdit ( m_selectedTransactions ) ;
connect ( m_transactionEditor , TQ_SIGNAL ( transactionDataSufficient ( bool ) ) , this , TQ_SLOT ( slotUpdateActions ( ) ) ) ;
slotUpdateActions ( ) ;
}
}
void KMyMoney2App : : deleteTransactionEditor ( void )
{
// make sure, we don't use the transaction editor pointer
// anymore from now on
TransactionEditor * p = m_transactionEditor ;
m_transactionEditor = 0 ;
delete p ;
}
void KMyMoney2App : : slotTransactionsEditSplits ( void )
{
// since we jump here via code, we have to make sure to react only
// if the action is enabled
if ( kmymoney2 - > action ( " transaction_editsplits " ) - > isEnabled ( ) ) {
// as soon as we edit a transaction, we don't remember the last payee entered
d - > m_lastPayeeEntered = TQString ( ) ;
m_transactionEditor = myMoneyView - > startEdit ( m_selectedTransactions ) ;
slotUpdateActions ( ) ;
if ( m_transactionEditor ) {
if ( m_transactionEditor - > slotEditSplits ( ) = = TQDialog : : Accepted ) {
MyMoneyFileTransaction ft ;
try {
TQString id ;
connect ( m_transactionEditor , TQ_SIGNAL ( balanceWarning ( TQWidget * , const MyMoneyAccount & , const TQString & ) ) , d - > m_balanceWarning , TQ_SLOT ( slotShowMessage ( TQWidget * , const MyMoneyAccount & , const TQString & ) ) ) ;
m_transactionEditor - > enterTransactions ( id ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to modify transaction: %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
}
deleteTransactionEditor ( ) ;
slotUpdateActions ( ) ;
}
}
void KMyMoney2App : : slotTransactionsCancel ( void )
{
// since we jump here via code, we have to make sure to react only
// if the action is enabled
if ( kmymoney2 - > action ( " transaction_cancel " ) - > isEnabled ( ) ) {
// make sure, we block the enter function
action ( " transaction_enter " ) - > setEnabled ( false ) ;
// tqDebug("KMyMoney2App::slotTransactionsCancel");
deleteTransactionEditor ( ) ;
slotUpdateActions ( ) ;
}
}
void KMyMoney2App : : slotTransactionsEnter ( void )
{
// since we jump here via code, we have to make sure to react only
// if the action is enabled
if ( kmymoney2 - > action ( " transaction_enter " ) - > isEnabled ( ) ) {
// tqDebug("KMyMoney2App::slotTransactionsEnter");
if ( m_transactionEditor ) {
TQString accountId = m_selectedAccount . id ( ) ;
TQString newId ;
connect ( m_transactionEditor , TQ_SIGNAL ( balanceWarning ( TQWidget * , const MyMoneyAccount & , const TQString & ) ) , d - > m_balanceWarning , TQ_SLOT ( slotShowMessage ( TQWidget * , const MyMoneyAccount & , const TQString & ) ) ) ;
if ( m_transactionEditor - > enterTransactions ( newId ) ) {
KMyMoneyPayeeCombo * payeeEdit = dynamic_cast < KMyMoneyPayeeCombo * > ( m_transactionEditor - > haveWidget ( " payee " ) ) ;
if ( payeeEdit & & ! newId . isEmpty ( ) ) {
d - > m_lastPayeeEntered = payeeEdit - > currentText ( ) ;
}
deleteTransactionEditor ( ) ;
}
if ( ! newId . isEmpty ( ) ) {
myMoneyView - > slotLedgerSelected ( accountId , newId ) ;
}
}
slotUpdateActions ( ) ;
}
}
void KMyMoney2App : : slotTransactionsCancelOrEnter ( bool & okToSelect )
{
static bool oneTime = false ;
if ( ! oneTime ) {
oneTime = true ;
TQString dontShowAgain = " CancelOrEditTransaction " ;
// tqDebug("KMyMoney2App::slotCancelOrEndEdit");
if ( m_transactionEditor ) {
if ( KMyMoneyGlobalSettings : : focusChangeIsEnter ( ) & & kmymoney2 - > action ( " transaction_enter " ) - > isEnabled ( ) ) {
slotTransactionsEnter ( ) ;
} else {
// okToSelect is preset to true if a cancel of the dialog is useful and false if it is not
int rc ;
if ( okToSelect = = true ) {
rc = KMessageBox : : warningYesNoCancel ( 0 , TQString ( " <p> " ) + i18n ( " Do you really want to cancel editing this transaction without saving it?<p>- <b>Yes</b> cancels editing the transaction<br>- <b>No</b> saves the transaction prior to cancelling and<br>- <b>Cancel</b> returns to the transaction editor.<p>You can also select an option to save the transaction automatically when e.g. selecting another transaction. " ) , i18n ( " Cancel transaction edit " ) , KStdGuiItem : : yes ( ) , KStdGuiItem : : no ( ) , dontShowAgain ) ;
} else {
rc = KMessageBox : : warningYesNo ( 0 , TQString ( " <p> " ) + i18n ( " Do you really want to cancel editing this transaction without saving it?<p>- <b>Yes</b> cancels editing the transaction<br>- <b>No</b> saves the transaction prior to cancelling.<p>You can also select an option to save the transaction automatically when e.g. selecting another transaction. " ) , i18n ( " Cancel transaction edit " ) , KStdGuiItem : : yes ( ) , KStdGuiItem : : no ( ) , dontShowAgain ) ;
}
switch ( rc ) {
case KMessageBox : : Yes :
slotTransactionsCancel ( ) ;
break ;
case KMessageBox : : No :
slotTransactionsEnter ( ) ;
// make sure that we'll see this message the next time no matter
// if the user has chosen the 'Don't show again' checkbox
KMessageBox : : enableMessage ( dontShowAgain ) ;
break ;
case KMessageBox : : Cancel :
// make sure that we'll see this message the next time no matter
// if the user has chosen the 'Don't show again' checkbox
KMessageBox : : enableMessage ( dontShowAgain ) ;
okToSelect = false ;
break ;
}
}
}
oneTime = false ;
}
}
void KMyMoney2App : : slotToggleReconciliationFlag ( void )
{
markTransaction ( MyMoneySplit : : Unknown ) ;
}
void KMyMoney2App : : slotMarkTransactionCleared ( void )
{
markTransaction ( MyMoneySplit : : Cleared ) ;
}
void KMyMoney2App : : slotMarkTransactionReconciled ( void )
{
markTransaction ( MyMoneySplit : : Reconciled ) ;
}
void KMyMoney2App : : slotMarkTransactionNotReconciled ( void )
{
markTransaction ( MyMoneySplit : : NotReconciled ) ;
}
void KMyMoney2App : : markTransaction ( MyMoneySplit : : reconcileFlagE flag )
{
KMyMoneyRegister : : SelectedTransactions list = m_selectedTransactions ;
KMyMoneyRegister : : SelectedTransactions : : const_iterator it_t ;
int cnt = list . count ( ) ;
int i = 0 ;
slotStatusProgressBar ( 0 , cnt ) ;
MyMoneyFileTransaction ft ;
try {
for ( it_t = list . begin ( ) ; it_t ! = list . end ( ) ; + + it_t ) {
// turn on signals before we modify the last entry in the list
cnt - - ;
MyMoneyFile : : instance ( ) - > blockSignals ( cnt ! = 0 ) ;
// get a fresh copy
MyMoneyTransaction t = MyMoneyFile : : instance ( ) - > transaction ( ( * it_t ) . transaction ( ) . id ( ) ) ;
MyMoneySplit sp = t . splitById ( ( * it_t ) . split ( ) . id ( ) ) ;
if ( sp . reconcileFlag ( ) ! = flag ) {
if ( flag = = MyMoneySplit : : Unknown ) {
if ( m_reconciliationAccount . id ( ) . isEmpty ( ) ) {
// in normal mode we cycle through all states
switch ( sp . reconcileFlag ( ) ) {
case MyMoneySplit : : NotReconciled :
sp . setReconcileFlag ( MyMoneySplit : : Cleared ) ;
break ;
case MyMoneySplit : : Cleared :
sp . setReconcileFlag ( MyMoneySplit : : Reconciled ) ;
break ;
case MyMoneySplit : : Reconciled :
sp . setReconcileFlag ( MyMoneySplit : : NotReconciled ) ;
break ;
default :
break ;
}
} else {
// in reconciliation mode we skip the reconciled state
switch ( sp . reconcileFlag ( ) ) {
case MyMoneySplit : : NotReconciled :
sp . setReconcileFlag ( MyMoneySplit : : Cleared ) ;
break ;
case MyMoneySplit : : Cleared :
sp . setReconcileFlag ( MyMoneySplit : : NotReconciled ) ;
break ;
default :
break ;
}
}
} else {
sp . setReconcileFlag ( flag ) ;
}
t . modifySplit ( sp ) ;
MyMoneyFile : : instance ( ) - > modifyTransaction ( t ) ;
}
slotStatusProgressBar ( i + + , 0 ) ;
}
slotStatusProgressBar ( - 1 , - 1 ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to modify transaction: %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotTransactionsAccept ( void )
{
KMyMoneyRegister : : SelectedTransactions list = m_selectedTransactions ;
KMyMoneyRegister : : SelectedTransactions : : const_iterator it_t ;
int cnt = list . count ( ) ;
int i = 0 ;
slotStatusProgressBar ( 0 , cnt ) ;
MyMoneyFileTransaction ft ;
try {
for ( it_t = list . begin ( ) ; it_t ! = list . end ( ) ; + + it_t ) {
// reload transaction in case it got changed during the course of this loop
MyMoneyTransaction t = MyMoneyFile : : instance ( ) - > transaction ( ( * it_t ) . transaction ( ) . id ( ) ) ;
if ( t . isImported ( ) ) {
t . setImported ( false ) ;
if ( ! m_selectedAccount . id ( ) . isEmpty ( ) ) {
TQValueList < MyMoneySplit > list = t . splits ( ) ;
TQValueList < MyMoneySplit > : : const_iterator it_s ;
for ( it_s = list . begin ( ) ; it_s ! = list . end ( ) ; + + it_s ) {
if ( ( * it_s ) . accountId ( ) = = m_selectedAccount . id ( ) ) {
if ( ( * it_s ) . reconcileFlag ( ) = = MyMoneySplit : : NotReconciled ) {
MyMoneySplit s = ( * it_s ) ;
s . setReconcileFlag ( MyMoneySplit : : Cleared ) ;
t . modifySplit ( s ) ;
}
}
}
}
MyMoneyFile : : instance ( ) - > modifyTransaction ( t ) ;
}
if ( ( * it_t ) . split ( ) . isMatched ( ) ) {
// reload split in case it got changed during the course of this loop
MyMoneySplit s = t . splitById ( ( * it_t ) . split ( ) . id ( ) ) ;
TransactionMatcher matcher ( m_selectedAccount ) ;
matcher . accept ( t , s ) ;
}
slotStatusProgressBar ( i + + , 0 ) ;
}
slotStatusProgressBar ( - 1 , - 1 ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Error " ) , i18n ( " Unable to accept transaction: %1, thrown in %2:%3 " ) . arg ( e - > what ( ) ) . arg ( e - > file ( ) ) . arg ( e - > line ( ) ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotTransactionGotoAccount ( void )
{
if ( ! m_accountGoto . isEmpty ( ) ) {
try {
TQString transactionId ;
if ( m_selectedTransactions . count ( ) = = 1 ) {
transactionId = m_selectedTransactions [ 0 ] . transaction ( ) . id ( ) ;
}
// make sure to pass a copy, as myMoneyView->slotLedgerSelected() overrides
// m_accountGoto while calling slotUpdateActions()
TQString accountId = m_accountGoto ;
myMoneyView - > slotLedgerSelected ( accountId , transactionId ) ;
} catch ( MyMoneyException * e ) {
delete e ;
}
}
}
void KMyMoney2App : : slotTransactionGotoPayee ( void )
{
if ( ! m_payeeGoto . isEmpty ( ) ) {
try {
TQString transactionId ;
if ( m_selectedTransactions . count ( ) = = 1 ) {
transactionId = m_selectedTransactions [ 0 ] . transaction ( ) . id ( ) ;
}
// make sure to pass copies, as myMoneyView->slotPayeeSelected() overrides
// m_payeeGoto and m_selectedAccount while calling slotUpdateActions()
TQString payeeId = m_payeeGoto ;
TQString accountId = m_selectedAccount . id ( ) ;
myMoneyView - > slotPayeeSelected ( payeeId , accountId , transactionId ) ;
} catch ( MyMoneyException * e ) {
delete e ;
}
}
}
void KMyMoney2App : : slotTransactionCreateSchedule ( void )
{
if ( m_selectedTransactions . count ( ) = = 1 ) {
// make sure to have the current selected split as first split in the schedule
MyMoneyTransaction t = m_selectedTransactions [ 0 ] . transaction ( ) ;
MyMoneySplit s = m_selectedTransactions [ 0 ] . split ( ) ;
TQString splitId = s . id ( ) ;
s . clearId ( ) ;
s . setReconcileFlag ( MyMoneySplit : : NotReconciled ) ;
s . setReconcileDate ( TQDate ( ) ) ;
t . removeSplits ( ) ;
t . addSplit ( s ) ;
const TQValueList < MyMoneySplit > & splits = m_selectedTransactions [ 0 ] . transaction ( ) . splits ( ) ;
TQValueList < MyMoneySplit > : : const_iterator it_s ;
for ( it_s = splits . begin ( ) ; it_s ! = splits . end ( ) ; + + it_s ) {
if ( ( * it_s ) . id ( ) ! = splitId ) {
MyMoneySplit s0 = ( * it_s ) ;
s0 . clearId ( ) ;
s0 . setReconcileFlag ( MyMoneySplit : : NotReconciled ) ;
s0 . setReconcileDate ( TQDate ( ) ) ;
t . addSplit ( s0 ) ;
}
}
slotScheduleNew ( t ) ;
}
}
void KMyMoney2App : : slotTransactionAssignNumber ( void )
{
if ( m_transactionEditor )
m_transactionEditor - > assignNextNumber ( ) ;
}
void KMyMoney2App : : slotTransactionCombine ( void )
{
tqDebug ( " slotTransactionCombine() not implemented yet " ) ;
}
void KMyMoney2App : : slotMoveToAccount ( const TQString & id )
{
// close the menu, if it is still open
TQWidget * w = factory ( ) - > container ( " transaction_move_menu " , this ) ;
if ( w ) {
if ( w - > isVisible ( ) ) {
w - > close ( ) ;
}
}
if ( m_selectedTransactions . count ( ) > 0 ) {
MyMoneyFileTransaction ft ;
try {
KMyMoneyRegister : : SelectedTransactions : : const_iterator it_t ;
for ( it_t = m_selectedTransactions . begin ( ) ; it_t ! = m_selectedTransactions . end ( ) ; + + it_t ) {
if ( m_selectedAccount . accountType ( ) = = MyMoneyAccount : : Investment ) {
d - > moveInvestmentTransaction ( m_selectedAccount . id ( ) , id ,
( * it_t ) . transaction ( ) ) ;
} else {
TQValueList < MyMoneySplit > : : const_iterator it_s ;
bool changed = false ;
MyMoneyTransaction t = ( * it_t ) . transaction ( ) ;
for ( it_s = ( * it_t ) . transaction ( ) . splits ( ) . begin ( ) ; it_s ! = ( * it_t ) . transaction ( ) . splits ( ) . end ( ) ; + + it_s ) {
if ( ( * it_s ) . accountId ( ) = = m_selectedAccount . id ( ) ) {
MyMoneySplit s = ( * it_s ) ;
s . setAccountId ( id ) ;
t . modifySplit ( s ) ;
changed = true ;
}
}
if ( changed ) {
MyMoneyFile : : instance ( ) - > modifyTransaction ( t ) ;
}
}
}
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
delete e ;
}
}
}
// move a stock transaction from one investment account to another
void KMyMoney2App : : Private : : moveInvestmentTransaction ( const TQString & fromId ,
const TQString & toId ,
const MyMoneyTransaction & tx )
{
MyMoneyAccount toInvAcc = MyMoneyFile : : instance ( ) - > account ( toId ) ;
MyMoneyTransaction t ( tx ) ;
// first determine which stock we are dealing with.
// fortunately, investment transactions have only one stock involved
TQString stockAccountId ;
TQString stockSecurityId ;
TQValueList < MyMoneySplit > : : const_iterator it_s ;
for ( it_s = t . splits ( ) . begin ( ) ; it_s ! = t . splits ( ) . end ( ) ; + + it_s ) {
stockAccountId = ( * it_s ) . accountId ( ) ;
stockSecurityId =
MyMoneyFile : : instance ( ) - > account ( stockAccountId ) . currencyId ( ) ;
if ( ! MyMoneyFile : : instance ( ) - > security ( stockSecurityId ) . isCurrency ( ) )
break ;
}
// Now check the target investment account to see if it
// contains a stock with this id
TQString newStockAccountId = TQString ( ) ;
TQStringList accountList = toInvAcc . accountList ( ) ;
TQStringList : : const_iterator it_a ;
for ( it_a = accountList . begin ( ) ; it_a ! = accountList . end ( ) ; + + it_a ) {
if ( MyMoneyFile : : instance ( ) - > account ( ( * it_a ) ) . currencyId ( ) = =
stockSecurityId ) {
newStockAccountId = ( * it_a ) ;
break ;
}
}
// if it doesn't exist, we need to add it as a copy of the old one
// no 'copyAccount()' function??
if ( newStockAccountId . isEmpty ( ) ) {
MyMoneyAccount stockAccount =
MyMoneyFile : : instance ( ) - > account ( stockAccountId ) ;
MyMoneyAccount newStock ;
newStock . setName ( stockAccount . name ( ) ) ;
newStock . setNumber ( stockAccount . number ( ) ) ;
newStock . setDescription ( stockAccount . description ( ) ) ;
newStock . setInstitutionId ( stockAccount . institutionId ( ) ) ;
newStock . setOpeningDate ( stockAccount . openingDate ( ) ) ;
newStock . setAccountType ( stockAccount . accountType ( ) ) ;
newStock . setCurrencyId ( stockAccount . currencyId ( ) ) ;
newStock . setClosed ( stockAccount . isClosed ( ) ) ;
MyMoneyFile : : instance ( ) - > addAccount ( newStock , toInvAcc ) ;
newStockAccountId = newStock . id ( ) ;
}
// now update the split and the transaction
MyMoneySplit s = ( * it_s ) ;
s . setAccountId ( newStockAccountId ) ;
t . modifySplit ( s ) ;
MyMoneyFile : : instance ( ) - > modifyTransaction ( t ) ;
}
void KMyMoney2App : : slotUpdateMoveToAccountMenu ( void )
{
if ( ! m_selectedAccount . id ( ) . isEmpty ( ) ) {
AccountSet accountSet ;
if ( m_selectedAccount . accountType ( ) = = MyMoneyAccount : : Investment ) {
accountSet . addAccountType ( MyMoneyAccount : : Investment ) ;
} else if ( m_selectedAccount . isAssetLiability ( ) ) {
accountSet . addAccountType ( MyMoneyAccount : : Checkings ) ;
accountSet . addAccountType ( MyMoneyAccount : : Savings ) ;
accountSet . addAccountType ( MyMoneyAccount : : Cash ) ;
accountSet . addAccountType ( MyMoneyAccount : : AssetLoan ) ;
accountSet . addAccountType ( MyMoneyAccount : : CertificateDep ) ;
accountSet . addAccountType ( MyMoneyAccount : : MoneyMarket ) ;
accountSet . addAccountType ( MyMoneyAccount : : Asset ) ;
accountSet . addAccountType ( MyMoneyAccount : : Currency ) ;
accountSet . addAccountType ( MyMoneyAccount : : CreditCard ) ;
accountSet . addAccountType ( MyMoneyAccount : : Loan ) ;
accountSet . addAccountType ( MyMoneyAccount : : Liability ) ;
} else if ( m_selectedAccount . isIncomeExpense ( ) ) {
accountSet . addAccountType ( MyMoneyAccount : : Income ) ;
accountSet . addAccountType ( MyMoneyAccount : : Expense ) ;
}
accountSet . load ( d - > m_moveToAccountSelector ) ;
// remove those accounts that we currently reference
KMyMoneyRegister : : SelectedTransactions : : const_iterator it_t ;
for ( it_t = m_selectedTransactions . begin ( ) ; it_t ! = m_selectedTransactions . end ( ) ; + + it_t ) {
TQValueList < MyMoneySplit > : : const_iterator it_s ;
for ( it_s = ( * it_t ) . transaction ( ) . splits ( ) . begin ( ) ; it_s ! = ( * it_t ) . transaction ( ) . splits ( ) . end ( ) ; + + it_s ) {
d - > m_moveToAccountSelector - > removeItem ( ( * it_s ) . accountId ( ) ) ;
}
}
// remove those accounts from the list that are denominated
// in a different currency
// also remove the selected account itself
//(for investments, which will not have been removed above)
TQStringList list = d - > m_moveToAccountSelector - > accountList ( ) ;
TQValueList < TQString > : : const_iterator it_a ;
for ( it_a = list . begin ( ) ; it_a ! = list . end ( ) ; + + it_a ) {
MyMoneyAccount acc = MyMoneyFile : : instance ( ) - > account ( * it_a ) ;
if ( acc . currencyId ( ) ! = m_selectedAccount . currencyId ( ) )
d - > m_moveToAccountSelector - > removeItem ( ( * it_a ) ) ;
if ( acc . id ( ) = = m_selectedAccount . id ( ) )
d - > m_moveToAccountSelector - > removeItem ( ( * it_a ) ) ;
}
// Now update the width of the list
d - > m_moveToAccountSelector - > setOptimizedWidth ( ) ;
}
}
void KMyMoney2App : : slotTransactionMatch ( void )
{
if ( action ( " transaction_match " ) - > text ( ) = = i18n ( " Button text for match transaction " , " Match " ) )
transactionMatch ( ) ;
else
transactionUnmatch ( ) ;
}
void KMyMoney2App : : transactionUnmatch ( void )
{
KMyMoneyRegister : : SelectedTransactions : : const_iterator it ;
MyMoneyFileTransaction ft ;
try {
for ( it = m_selectedTransactions . begin ( ) ; it ! = m_selectedTransactions . end ( ) ; + + it ) {
if ( ( * it ) . split ( ) . isMatched ( ) ) {
TransactionMatcher matcher ( m_selectedAccount ) ;
matcher . unmatch ( ( * it ) . transaction ( ) , ( * it ) . split ( ) ) ;
}
}
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Unable to unmatch the selected transactions " ) , e - > what ( ) ) ;
delete e ;
}
}
void KMyMoney2App : : transactionMatch ( void )
{
if ( m_selectedTransactions . count ( ) ! = 2 )
return ;
MyMoneyTransaction startMatchTransaction ;
MyMoneyTransaction endMatchTransaction ;
MyMoneySplit startSplit ;
MyMoneySplit endSplit ;
KMyMoneyRegister : : SelectedTransactions : : const_iterator it ;
KMyMoneyRegister : : SelectedTransactions toBeDeleted ;
for ( it = m_selectedTransactions . begin ( ) ; it ! = m_selectedTransactions . end ( ) ; + + it ) {
if ( ( * it ) . transaction ( ) . isImported ( ) ) {
endMatchTransaction = ( * it ) . transaction ( ) ;
endSplit = ( * it ) . split ( ) ;
toBeDeleted < < * it ;
} else if ( ! ( * it ) . split ( ) . isMatched ( ) ) {
startMatchTransaction = ( * it ) . transaction ( ) ;
startSplit = ( * it ) . split ( ) ;
}
}
#if 0
KMergeTransactionsDlg dlg ( m_selectedAccount ) ;
dlg . addTransaction ( startMatchTransaction ) ;
dlg . addTransaction ( endMatchTransaction ) ;
if ( dlg . exec ( ) = = TQDialog : : Accepted )
# endif
{
MyMoneyFileTransaction ft ;
try
{
if ( startMatchTransaction . id ( ) . isEmpty ( ) )
throw new MYMONEYEXCEPTION ( i18n ( " No manually entered transaction selected for matching " ) ) ;
if ( endMatchTransaction . id ( ) . isEmpty ( ) )
throw new MYMONEYEXCEPTION ( i18n ( " No imported transaction selected for matching " ) ) ;
TransactionMatcher matcher ( m_selectedAccount ) ;
matcher . match ( startMatchTransaction , startSplit , endMatchTransaction , endSplit ) ;
ft . commit ( ) ;
}
catch ( MyMoneyException * e )
{
KMessageBox : : detailedSorry ( 0 , i18n ( " Unable to match the selected transactions " ) , e - > what ( ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : showContextMenu ( const TQString & containerName )
{
TQWidget * w = factory ( ) - > container ( containerName , this ) ;
TQPopupMenu * menu = dynamic_cast < TQPopupMenu * > ( w ) ;
if ( menu )
menu - > exec ( TQCursor : : pos ( ) ) ;
}
void KMyMoney2App : : slotShowTransactionContextMenu ( void )
{
if ( m_selectedTransactions . count ( ) = = 0 & & m_selectedSchedule ! = MyMoneySchedule ( ) ) {
showContextMenu ( " schedule_context_menu " ) ;
} else {
showContextMenu ( " transaction_context_menu " ) ;
}
}
void KMyMoney2App : : slotShowInvestmentContextMenu ( void )
{
showContextMenu ( " investment_context_menu " ) ;
}
void KMyMoney2App : : slotShowScheduleContextMenu ( void )
{
showContextMenu ( " schedule_context_menu " ) ;
}
void KMyMoney2App : : slotShowAccountContextMenu ( const MyMoneyObject & obj )
{
// tqDebug("KMyMoney2App::slotShowAccountContextMenu");
if ( typeid ( obj ) ! = typeid ( MyMoneyAccount ) )
return ;
const MyMoneyAccount & acc = dynamic_cast < const MyMoneyAccount & > ( obj ) ;
// if the selected account is actually a stock account, we
// call the right slot instead
if ( acc . isInvest ( ) ) {
showContextMenu ( " investment_context_menu " ) ;
} else if ( acc . isIncomeExpense ( ) ) {
showContextMenu ( " category_context_menu " ) ;
} else {
showContextMenu ( " account_context_menu " ) ;
}
}
void KMyMoney2App : : slotShowInstitutionContextMenu ( const MyMoneyObject & obj )
{
if ( typeid ( obj ) ! = typeid ( MyMoneyInstitution ) )
return ;
showContextMenu ( " institution_context_menu " ) ;
}
void KMyMoney2App : : slotShowPayeeContextMenu ( void )
{
showContextMenu ( " payee_context_menu " ) ;
}
void KMyMoney2App : : slotShowBudgetContextMenu ( void )
{
showContextMenu ( " budget_context_menu " ) ;
}
void KMyMoney2App : : slotShowCurrencyContextMenu ( void )
{
showContextMenu ( " currency_context_menu " ) ;
}
void KMyMoney2App : : slotPrintView ( void )
{
myMoneyView - > slotPrintView ( ) ;
}
void KMyMoney2App : : updateCaption ( bool skipActions )
{
TQString caption ;
caption = m_fileName . filename ( false ) ;
if ( caption . isEmpty ( ) & & myMoneyView & & myMoneyView - > fileOpen ( ) )
caption = i18n ( " Untitled " ) ;
// MyMoneyFile::instance()->dirty() throws an exception, if
// there's no storage object available. In this case, we
// assume that the storage object is not changed. Actually,
// this can only happen if we are newly created early on.
bool modified ;
try {
modified = MyMoneyFile : : instance ( ) - > dirty ( ) ;
} catch ( MyMoneyException * e ) {
delete e ;
modified = false ;
skipActions = true ;
}
# if KMM_DEBUG
caption + = TQString ( " (%1 x %2) " ) . arg ( width ( ) ) . arg ( height ( ) ) ;
# endif
caption = kapp - > makeStdCaption ( caption , false , modified ) ;
if ( caption . length ( ) > 0 )
caption + = " - " ;
caption + = " KMyMoney " ;
setPlainCaption ( caption ) ;
if ( ! skipActions ) {
myMoneyView - > enableViews ( ) ;
slotUpdateActions ( ) ;
}
}
void KMyMoney2App : : slotUpdateActions ( void )
{
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
bool fileOpen = myMoneyView - > fileOpen ( ) ;
bool modified = file - > dirty ( ) ;
TQWidget * w ;
action ( " open_database " ) - > setEnabled ( true ) ;
action ( " saveas_database " ) - > setEnabled ( fileOpen ) ;
action ( " file_save " ) - > setEnabled ( modified & & ! myMoneyView - > isDatabase ( ) ) ;
action ( " file_save_as " ) - > setEnabled ( fileOpen ) ;
action ( " file_close " ) - > setEnabled ( fileOpen ) ;
action ( " view_personal_data " ) - > setEnabled ( fileOpen ) ;
action ( " file_backup " ) - > setEnabled ( fileOpen & & ! myMoneyView - > isDatabase ( ) ) ;
action ( " file_print " ) - > setEnabled ( fileOpen & & myMoneyView - > canPrint ( ) ) ;
# if KMM_DEBUG
action ( " view_file_info " ) - > setEnabled ( fileOpen ) ;
action ( " file_dump " ) - > setEnabled ( fileOpen ) ;
# endif
action ( " edit_find_transaction " ) - > setEnabled ( fileOpen ) ;
bool importRunning = ( m_qifReader ! = 0 ) | | ( m_smtReader ! = 0 ) ;
action ( " file_export_qif " ) - > setEnabled ( fileOpen & & ! importRunning ) ;
action ( " file_import_qif " ) - > setEnabled ( fileOpen & & ! importRunning ) ;
action ( " file_import_gnc " ) - > setEnabled ( ! importRunning ) ;
action ( " file_import_template " ) - > setEnabled ( fileOpen & & ! importRunning ) ;
action ( " file_export_template " ) - > setEnabled ( fileOpen & & ! importRunning ) ;
action ( " tools_security_editor " ) - > setEnabled ( fileOpen ) ;
action ( " tools_currency_editor " ) - > setEnabled ( fileOpen ) ;
action ( " tools_price_editor " ) - > setEnabled ( fileOpen ) ;
action ( " tools_update_prices " ) - > setEnabled ( fileOpen ) ;
action ( " tools_consistency_check " ) - > setEnabled ( fileOpen ) ;
action ( " account_new " ) - > setEnabled ( fileOpen ) ;
action ( " account_reconcile " ) - > setEnabled ( false ) ;
action ( " account_reconcile_finish " ) - > setEnabled ( false ) ;
action ( " account_reconcile_postpone " ) - > setEnabled ( false ) ;
action ( " account_edit " ) - > setEnabled ( false ) ;
action ( " account_delete " ) - > setEnabled ( false ) ;
action ( " account_open " ) - > setEnabled ( false ) ;
action ( " account_close " ) - > setEnabled ( false ) ;
action ( " account_reopen " ) - > setEnabled ( false ) ;
action ( " account_transaction_report " ) - > setEnabled ( false ) ;
action ( " account_online_map " ) - > setEnabled ( false ) ;
action ( " account_online_update " ) - > setEnabled ( false ) ;
action ( " account_online_update_all " ) - > setEnabled ( false ) ;
action ( " account_online_update_menu " ) - > setEnabled ( false ) ;
action ( " account_online_unmap " ) - > setEnabled ( false ) ;
# ifdef HAVE_KDCHART
action ( " account_chart " ) - > setEnabled ( false ) ;
# endif
action ( " category_new " ) - > setEnabled ( fileOpen ) ;
action ( " category_edit " ) - > setEnabled ( false ) ;
action ( " category_delete " ) - > setEnabled ( false ) ;
action ( " institution_new " ) - > setEnabled ( fileOpen ) ;
action ( " institution_edit " ) - > setEnabled ( false ) ;
action ( " institution_delete " ) - > setEnabled ( false ) ;
action ( " investment_new " ) - > setEnabled ( false ) ;
action ( " investment_edit " ) - > setEnabled ( false ) ;
action ( " investment_delete " ) - > setEnabled ( false ) ;
action ( " investment_online_price_update " ) - > setEnabled ( false ) ;
action ( " investment_manual_price_update " ) - > setEnabled ( false ) ;
action ( " schedule_edit " ) - > setEnabled ( false ) ;
action ( " schedule_delete " ) - > setEnabled ( false ) ;
action ( " schedule_enter " ) - > setEnabled ( false ) ;
action ( " schedule_skip " ) - > setEnabled ( false ) ;
action ( " payee_delete " ) - > setEnabled ( false ) ;
action ( " payee_rename " ) - > setEnabled ( false ) ;
action ( " budget_delete " ) - > setEnabled ( false ) ;
action ( " budget_rename " ) - > setEnabled ( false ) ;
action ( " budget_change_year " ) - > setEnabled ( false ) ;
action ( " budget_new " ) - > setEnabled ( true ) ;
action ( " budget_copy " ) - > setEnabled ( false ) ;
action ( " budget_forecast " ) - > setEnabled ( false ) ;
TQString tooltip = i18n ( " Create a new transaction " ) ;
action ( " transaction_new " ) - > setEnabled ( fileOpen & & myMoneyView - > canCreateTransactions ( KMyMoneyRegister : : SelectedTransactions ( ) , tooltip ) ) ;
action ( " transaction_new " ) - > setToolTip ( tooltip ) ;
action ( " transaction_edit " ) - > setEnabled ( false ) ;
action ( " transaction_editsplits " ) - > setEnabled ( false ) ;
action ( " transaction_enter " ) - > setEnabled ( false ) ;
action ( " transaction_cancel " ) - > setEnabled ( false ) ;
action ( " transaction_delete " ) - > setEnabled ( false ) ;
action ( " transaction_match " ) - > setEnabled ( false ) ;
action ( " transaction_match " ) - > setText ( i18n ( " Button text for match transaction " , " Match " ) ) ;
action ( " transaction_match " ) - > setIcon ( " connect_creating " ) ;
action ( " transaction_accept " ) - > setEnabled ( false ) ;
action ( " transaction_duplicate " ) - > setEnabled ( false ) ;
action ( " transaction_mark_toggle " ) - > setEnabled ( false ) ;
action ( " transaction_mark_cleared " ) - > setEnabled ( false ) ;
action ( " transaction_mark_reconciled " ) - > setEnabled ( false ) ;
action ( " transaction_mark_notreconciled " ) - > setEnabled ( false ) ;
action ( " transaction_goto_account " ) - > setEnabled ( false ) ;
action ( " transaction_goto_payee " ) - > setEnabled ( false ) ;
action ( " transaction_assign_number " ) - > setEnabled ( false ) ;
action ( " transaction_create_schedule " ) - > setEnabled ( false ) ;
action ( " transaction_combine " ) - > setEnabled ( false ) ;
action ( " transaction_select_all " ) - > setEnabled ( false ) ;
action ( " schedule_new " ) - > setEnabled ( fileOpen ) ;
action ( " schedule_edit " ) - > setEnabled ( false ) ;
action ( " schedule_delete " ) - > setEnabled ( false ) ;
action ( " schedule_duplicate " ) - > setEnabled ( false ) ;
action ( " schedule_enter " ) - > setEnabled ( false ) ;
action ( " schedule_skip " ) - > setEnabled ( false ) ;
action ( " currency_new " ) - > setEnabled ( fileOpen ) ;
action ( " currency_rename " ) - > setEnabled ( false ) ;
action ( " currency_delete " ) - > setEnabled ( false ) ;
action ( " currency_setbase " ) - > setEnabled ( false ) ;
w = factory ( ) - > container ( " transaction_move_menu " , this ) ;
if ( w )
w - > setEnabled ( false ) ;
w = factory ( ) - > container ( " transaction_mark_menu " , this ) ;
if ( w )
w - > setEnabled ( false ) ;
w = factory ( ) - > container ( " transaction_context_mark_menu " , this ) ;
if ( w )
w - > setEnabled ( false ) ;
// FIXME for now it's always on, but we should only allow it, if we
// can select at least a single transaction
action ( " transaction_select_all " ) - > setEnabled ( true ) ;
if ( ! m_selectedTransactions . isEmpty ( ) ) {
if ( m_selectedTransactions . count ( ) ! = 0 ) {
// enable 'delete transaction' only if at least one of the
// selected transactions does not reference a closed account
bool enable = false ;
KMyMoneyRegister : : SelectedTransactions : : const_iterator it_t ;
for ( it_t = m_selectedTransactions . begin ( ) ; ( enable = = false ) & & ( it_t ! = m_selectedTransactions . end ( ) ) ; + + it_t ) {
enable = ! file - > referencesClosedAccount ( ( * it_t ) . transaction ( ) ) ;
}
action ( " transaction_delete " ) - > setEnabled ( enable ) ;
}
if ( ! m_transactionEditor ) {
tooltip = i18n ( " Duplicate the current selected transactions " ) ;
action ( " transaction_duplicate " ) - > setEnabled ( myMoneyView - > canDuplicateTransactions ( m_selectedTransactions , tooltip ) & & ! m_selectedTransactions [ 0 ] . transaction ( ) . id ( ) . isEmpty ( ) ) ;
action ( " transaction_duplicate " ) - > setToolTip ( tooltip ) ;
if ( myMoneyView - > canEditTransactions ( m_selectedTransactions , tooltip ) ) {
action ( " transaction_edit " ) - > setEnabled ( true ) ;
// editing splits is allowed only if we have one transaction selected
if ( m_selectedTransactions . count ( ) = = 1 ) {
action ( " transaction_editsplits " ) - > setEnabled ( true ) ;
}
if ( m_selectedAccount . isAssetLiability ( ) & & m_selectedAccount . accountType ( ) ! = MyMoneyAccount : : Investment ) {
action ( " transaction_create_schedule " ) - > setEnabled ( m_selectedTransactions . count ( ) = = 1 ) ;
}
}
action ( " transaction_edit " ) - > setToolTip ( tooltip ) ;
if ( ! m_selectedAccount . isClosed ( ) ) {
w = factory ( ) - > container ( " transaction_move_menu " , this ) ;
if ( w )
w - > setEnabled ( true ) ;
}
w = factory ( ) - > container ( " transaction_mark_menu " , this ) ;
if ( w )
w - > setEnabled ( true ) ;
w = factory ( ) - > container ( " transaction_context_mark_menu " , this ) ;
if ( w )
w - > setEnabled ( true ) ;
// Allow marking the transaction if at least one is selected
action ( " transaction_mark_cleared " ) - > setEnabled ( true ) ;
action ( " transaction_mark_reconciled " ) - > setEnabled ( true ) ;
action ( " transaction_mark_notreconciled " ) - > setEnabled ( true ) ;
action ( " transaction_mark_toggle " ) - > setEnabled ( true ) ;
if ( ! m_accountGoto . isEmpty ( ) )
action ( " transaction_goto_account " ) - > setEnabled ( true ) ;
if ( ! m_payeeGoto . isEmpty ( ) )
action ( " transaction_goto_payee " ) - > setEnabled ( true ) ;
// Matching is enabled as soon as one regular and one imported transaction is selected
int matchedCount = 0 ;
int importedCount = 0 ;
KMyMoneyRegister : : SelectedTransactions : : const_iterator it ;
for ( it = m_selectedTransactions . begin ( ) ; it ! = m_selectedTransactions . end ( ) ; + + it ) {
if ( ( * it ) . transaction ( ) . isImported ( ) )
+ + importedCount ;
if ( ( * it ) . split ( ) . isMatched ( ) )
+ + matchedCount ;
}
if ( m_selectedTransactions . count ( ) = = 2 /* && action("transaction_edit")->isEnabled() */ ) {
if ( importedCount = = 1 & & matchedCount = = 0 ) {
action ( " transaction_match " ) - > setEnabled ( true ) ;
}
}
if ( importedCount ! = 0 | | matchedCount ! = 0 )
action ( " transaction_accept " ) - > setEnabled ( true ) ;
if ( matchedCount ! = 0 ) {
action ( " transaction_match " ) - > setEnabled ( true ) ;
action ( " transaction_match " ) - > setText ( i18n ( " Button text for unmatch transaction " , " Unmatch " ) ) ;
action ( " transaction_match " ) - > setIcon ( " process-stop " ) ;
}
if ( m_selectedTransactions . count ( ) > 1 ) {
action ( " transaction_combine " ) - > setEnabled ( true ) ;
}
} else {
action ( " transaction_assign_number " ) - > setEnabled ( m_transactionEditor - > canAssignNumber ( ) ) ;
action ( " transaction_new " ) - > setEnabled ( false ) ;
action ( " transaction_delete " ) - > setEnabled ( false ) ;
TQString reason ;
action ( " transaction_enter " ) - > setEnabled ( m_transactionEditor - > isComplete ( reason ) ) ;
action ( " transaction_enter " ) - > setToolTip ( reason ) ;
action ( " transaction_cancel " ) - > setEnabled ( true ) ;
}
}
TQValueList < MyMoneyAccount > accList ;
file - > accountList ( accList ) ;
TQValueList < MyMoneyAccount > : : const_iterator it_a ;
TQMap < TQString , KMyMoneyPlugin : : OnlinePlugin * > : : const_iterator it_p = m_onlinePlugins . end ( ) ;
for ( it_a = accList . begin ( ) ; ( it_p = = m_onlinePlugins . end ( ) ) & & ( it_a ! = accList . end ( ) ) ; + + it_a ) {
if ( ! ( * it_a ) . onlineBankingSettings ( ) . value ( " provider " ) . isEmpty ( ) ) {
// check if provider is available
it_p = m_onlinePlugins . find ( ( * it_a ) . onlineBankingSettings ( ) . value ( " provider " ) ) ;
if ( it_p ! = m_onlinePlugins . end ( ) ) {
TQStringList protocols ;
( * it_p ) - > protocols ( protocols ) ;
if ( protocols . count ( ) > 0 ) {
action ( " account_online_update_all " ) - > setEnabled ( true ) ;
action ( " account_online_update_menu " ) - > setEnabled ( true ) ;
}
}
}
}
MyMoneyFileBitArray skip ( IMyMoneyStorage : : MaxRefCheckBits ) ;
if ( ! m_selectedAccount . id ( ) . isEmpty ( ) ) {
if ( ! file - > isStandardAccount ( m_selectedAccount . id ( ) ) ) {
switch ( m_selectedAccount . accountGroup ( ) ) {
case MyMoneyAccount : : Asset :
case MyMoneyAccount : : Liability :
case MyMoneyAccount : : Equity :
action ( " account_transaction_report " ) - > setEnabled ( true ) ;
action ( " account_edit " ) - > setEnabled ( true ) ;
action ( " account_delete " ) - > setEnabled ( ! file - > isReferenced ( m_selectedAccount ) ) ;
action ( " account_open " ) - > setEnabled ( true ) ;
if ( m_selectedAccount . accountGroup ( ) ! = MyMoneyAccount : : Equity ) {
if ( m_reconciliationAccount . id ( ) . isEmpty ( ) ) {
action ( " account_reconcile " ) - > setEnabled ( true ) ;
} else {
if ( ! m_transactionEditor ) {
action ( " account_reconcile_finish " ) - > setEnabled ( m_selectedAccount . id ( ) = = m_reconciliationAccount . id ( ) ) ;
action ( " account_reconcile_postpone " ) - > setEnabled ( m_selectedAccount . id ( ) = = m_reconciliationAccount . id ( ) ) ;
}
}
}
if ( m_selectedAccount . accountType ( ) = = MyMoneyAccount : : Investment )
action ( " investment_new " ) - > setEnabled ( true ) ;
if ( m_selectedAccount . isClosed ( ) )
action ( " account_reopen " ) - > setEnabled ( true ) ;
else if ( canCloseAccount ( m_selectedAccount ) )
action ( " account_close " ) - > setEnabled ( true ) ;
if ( ! m_selectedAccount . onlineBankingSettings ( ) . value ( " provider " ) . isEmpty ( ) ) {
action ( " account_online_unmap " ) - > setEnabled ( true ) ;
// check if provider is available
TQMap < TQString , KMyMoneyPlugin : : OnlinePlugin * > : : const_iterator it_p ;
it_p = m_onlinePlugins . find ( m_selectedAccount . onlineBankingSettings ( ) . value ( " provider " ) ) ;
if ( it_p ! = m_onlinePlugins . end ( ) ) {
TQStringList protocols ;
( * it_p ) - > protocols ( protocols ) ;
if ( protocols . count ( ) > 0 ) {
action ( " account_online_update " ) - > setEnabled ( true ) ;
action ( " account_online_update_menu " ) - > setEnabled ( true ) ;
}
}
} else
action ( " account_online_map " ) - > setEnabled ( m_onlinePlugins . count ( ) > 0 ) ;
# ifdef HAVE_KDCHART
action ( " account_chart " ) - > setEnabled ( true ) ;
# endif
break ;
case MyMoneyAccount : : Income :
case MyMoneyAccount : : Expense :
action ( " category_edit " ) - > setEnabled ( true ) ;
// enable delete action, if category/account itself is not referenced
// by any object except accounts, because we want to allow
// deleting of sub-categories. Also, we allow transactions, schedules and budgets
// to be present because we can re-assign them during the delete process
skip . fill ( false ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckTransaction ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckAccount ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckSchedule ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckBudget ) ;
action ( " category_delete " ) - > setEnabled ( ! file - > isReferenced ( m_selectedAccount , skip ) ) ;
action ( " account_open " ) - > setEnabled ( true ) ;
break ;
default :
break ;
}
}
}
if ( ! m_selectedInstitution . id ( ) . isEmpty ( ) ) {
action ( " institution_edit " ) - > setEnabled ( true ) ;
action ( " institution_delete " ) - > setEnabled ( ! file - > isReferenced ( m_selectedInstitution ) ) ;
}
if ( ! m_selectedInvestment . id ( ) . isEmpty ( ) ) {
action ( " investment_edit " ) - > setEnabled ( true ) ;
action ( " investment_delete " ) - > setEnabled ( ! file - > isReferenced ( m_selectedInvestment ) ) ;
action ( " investment_manual_price_update " ) - > setEnabled ( true ) ;
try {
MyMoneySecurity security = MyMoneyFile : : instance ( ) - > security ( m_selectedInvestment . currencyId ( ) ) ;
if ( ! security . value ( " kmm-online-source " ) . isEmpty ( ) )
action ( " investment_online_price_update " ) - > setEnabled ( true ) ;
} catch ( MyMoneyException * e ) {
tqDebug ( TQString ( " Error retrieving security for investment %1: %2 " ) . arg ( m_selectedInvestment . name ( ) ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
if ( m_selectedInvestment . isClosed ( ) )
action ( " account_reopen " ) - > setEnabled ( true ) ;
else if ( canCloseAccount ( m_selectedInvestment ) )
action ( " account_close " ) - > setEnabled ( true ) ;
}
if ( ! m_selectedSchedule . id ( ) . isEmpty ( ) ) {
action ( " schedule_edit " ) - > setEnabled ( true ) ;
action ( " schedule_duplicate " ) - > setEnabled ( true ) ;
action ( " schedule_delete " ) - > setEnabled ( ! file - > isReferenced ( m_selectedSchedule ) ) ;
if ( ! m_selectedSchedule . isFinished ( ) ) {
action ( " schedule_enter " ) - > setEnabled ( true ) ;
// a schedule with a single occurence cannot be skipped
if ( m_selectedSchedule . occurence ( ) ! = MyMoneySchedule : : OCCUR_ONCE ) {
action ( " schedule_skip " ) - > setEnabled ( true ) ;
}
}
}
if ( m_selectedPayees . count ( ) > = 1 ) {
action ( " payee_rename " ) - > setEnabled ( m_selectedPayees . count ( ) = = 1 ) ;
action ( " payee_delete " ) - > setEnabled ( true ) ;
}
if ( m_selectedBudgets . count ( ) > = 1 ) {
action ( " budget_delete " ) - > setEnabled ( true ) ;
if ( m_selectedBudgets . count ( ) = = 1 ) {
action ( " budget_change_year " ) - > setEnabled ( true ) ;
action ( " budget_copy " ) - > setEnabled ( true ) ;
action ( " budget_rename " ) - > setEnabled ( true ) ;
action ( " budget_forecast " ) - > setEnabled ( true ) ;
}
}
if ( ! m_selectedCurrency . id ( ) . isEmpty ( ) ) {
action ( " currency_rename " ) - > setEnabled ( true ) ;
// no need to check each transaction. accounts are enough in this case
skip . fill ( false ) ;
skip . setBit ( IMyMoneyStorage : : RefCheckTransaction ) ;
action ( " currency_delete " ) - > setEnabled ( ! file - > isReferenced ( m_selectedCurrency , skip ) ) ;
if ( m_selectedCurrency . id ( ) ! = file - > baseCurrency ( ) . id ( ) )
action ( " currency_setbase " ) - > setEnabled ( true ) ;
}
}
void KMyMoney2App : : slotResetSelections ( void )
{
slotSelectAccount ( ) ;
slotSelectInstitution ( ) ;
slotSelectInvestment ( ) ;
slotSelectSchedule ( ) ;
slotSelectCurrency ( ) ;
slotSelectPayees ( TQValueList < MyMoneyPayee > ( ) ) ;
slotSelectBudget ( TQValueList < MyMoneyBudget > ( ) ) ;
slotSelectTransactions ( KMyMoneyRegister : : SelectedTransactions ( ) ) ;
slotUpdateActions ( ) ;
}
void KMyMoney2App : : slotSelectCurrency ( const MyMoneySecurity & currency )
{
m_selectedCurrency = currency ;
slotUpdateActions ( ) ;
emit currencySelected ( m_selectedCurrency ) ;
}
void KMyMoney2App : : slotSelectBudget ( const TQValueList < MyMoneyBudget > & list )
{
m_selectedBudgets = list ;
slotUpdateActions ( ) ;
emit budgetSelected ( m_selectedBudgets ) ;
}
void KMyMoney2App : : slotSelectPayees ( const TQValueList < MyMoneyPayee > & list )
{
m_selectedPayees = list ;
slotUpdateActions ( ) ;
emit payeesSelected ( m_selectedPayees ) ;
}
void KMyMoney2App : : slotSelectTransactions ( const KMyMoneyRegister : : SelectedTransactions & list )
{
// list can either contain a list of transactions or a single selected scheduled transaction
// in the latter case, the transaction id is actually the one of the schedule. In order
// to differentiate between the two, we just ask for the schedule. If we don't find one - because
// we passed the id of a real transaction - then we know that fact. We use the schedule here,
// because the list of schedules is kept in a cache by MyMoneyFile. This way, we save some trips
// to the backend which we would have to do if we check for the transaction.
m_selectedTransactions . clear ( ) ;
m_selectedSchedule = MyMoneySchedule ( ) ;
m_accountGoto = TQString ( ) ;
m_payeeGoto = TQString ( ) ;
if ( list . count ( ) > 0 & & ! list . first ( ) . isScheduled ( ) ) {
m_selectedTransactions = list ;
if ( list . count ( ) = = 1 ) {
const MyMoneySplit & sp = m_selectedTransactions [ 0 ] . split ( ) ;
if ( ! sp . payeeId ( ) . isEmpty ( ) ) {
try {
MyMoneyPayee payee = MyMoneyFile : : instance ( ) - > payee ( sp . payeeId ( ) ) ;
if ( ! payee . name ( ) . isEmpty ( ) ) {
m_payeeGoto = payee . id ( ) ;
TQString name = payee . name ( ) ;
name . replace ( TQRegExp ( " &(?!&) " ) , " && " ) ;
action ( " transaction_goto_payee " ) - > setText ( i18n ( " Goto '%1' " ) . arg ( name ) ) ;
}
} catch ( MyMoneyException * e ) {
delete e ;
}
}
try {
TQValueList < MyMoneySplit > : : const_iterator it_s ;
const MyMoneyTransaction & t = m_selectedTransactions [ 0 ] . transaction ( ) ;
// search the first non-income/non-expense accunt and use it for the 'goto account'
const MyMoneySplit & sp = m_selectedTransactions [ 0 ] . split ( ) ;
for ( it_s = t . splits ( ) . begin ( ) ; it_s ! = t . splits ( ) . end ( ) ; + + it_s ) {
if ( ( * it_s ) . id ( ) ! = sp . id ( ) ) {
MyMoneyAccount acc = MyMoneyFile : : instance ( ) - > account ( ( * it_s ) . accountId ( ) ) ;
if ( ! acc . isIncomeExpense ( ) ) {
// for stock accounts we show the portfolio account
if ( acc . isInvest ( ) ) {
acc = MyMoneyFile : : instance ( ) - > account ( acc . parentAccountId ( ) ) ;
}
m_accountGoto = acc . id ( ) ;
TQString name = acc . name ( ) ;
name . replace ( TQRegExp ( " &(?!&) " ) , " && " ) ;
action ( " transaction_goto_account " ) - > setText ( i18n ( " Goto '%1' " ) . arg ( name ) ) ;
break ;
}
}
}
} catch ( MyMoneyException * e ) {
delete e ;
}
}
slotUpdateActions ( ) ;
emit transactionsSelected ( m_selectedTransactions ) ;
} else if ( list . count ( ) > 0 ) {
slotSelectSchedule ( MyMoneyFile : : instance ( ) - > schedule ( list . first ( ) . scheduleId ( ) ) ) ;
} else {
slotUpdateActions ( ) ;
}
// make sure, we show some neutral menu entry if we don't have an object
if ( m_payeeGoto . isEmpty ( ) )
action ( " transaction_goto_payee " ) - > setText ( i18n ( " Goto payee " ) ) ;
if ( m_accountGoto . isEmpty ( ) )
action ( " transaction_goto_account " ) - > setText ( i18n ( " Goto account " ) ) ;
}
void KMyMoney2App : : slotSelectInstitution ( const MyMoneyObject & institution )
{
if ( typeid ( institution ) ! = typeid ( MyMoneyInstitution ) )
return ;
m_selectedInstitution = dynamic_cast < const MyMoneyInstitution & > ( institution ) ;
// tqDebug(TQString("slotSelectInstitution('%1')").arg(m_selectedInstitution.name()));
slotUpdateActions ( ) ;
emit institutionSelected ( m_selectedInstitution ) ;
}
void KMyMoney2App : : slotSelectAccount ( const MyMoneyObject & obj )
{
if ( typeid ( obj ) ! = typeid ( MyMoneyAccount ) )
return ;
m_selectedAccount = MyMoneyAccount ( ) ;
const MyMoneyAccount & acc = dynamic_cast < const MyMoneyAccount & > ( obj ) ;
if ( ! acc . isInvest ( ) )
m_selectedAccount = acc ;
// tqDebug(TQString("slotSelectAccount('%1')").arg(m_selectedAccount.name()));
slotUpdateActions ( ) ;
emit accountSelected ( m_selectedAccount ) ;
}
void KMyMoney2App : : slotSelectInvestment ( const MyMoneyObject & obj )
{
if ( typeid ( obj ) ! = typeid ( MyMoneyAccount ) )
return ;
// tqDebug(TQString("slotSelectInvestment('%1')".arg(account.name()));
m_selectedInvestment = MyMoneyAccount ( ) ;
const MyMoneyAccount & acc = dynamic_cast < const MyMoneyAccount & > ( obj ) ;
if ( acc . isInvest ( ) )
m_selectedInvestment = acc ;
slotUpdateActions ( ) ;
emit investmentSelected ( m_selectedInvestment ) ;
}
void KMyMoney2App : : slotSelectSchedule ( const MyMoneySchedule & schedule )
{
// tqDebug(TQString("slotSelectSchedule('%1')").arg(schedule.name()));
m_selectedSchedule = schedule ;
slotUpdateActions ( ) ;
emit scheduleSelected ( m_selectedSchedule ) ;
}
void KMyMoney2App : : slotDataChanged ( void )
{
// As this method is called everytime the MyMoneyFile instance
// notifies a modification, it's the perfect place to start the timer if needed
if ( m_autoSaveEnabled & & ! m_autoSaveTimer - > isActive ( ) ) {
m_autoSaveTimer - > start ( m_autoSavePeriod * 60 * 1000 , true ) ; //miliseconds
}
updateCaption ( ) ;
}
void KMyMoney2App : : slotCurrencyDialog ( void )
{
KCurrencyEditDlg dlg ( this , " Currency Editor " ) ;
connect ( & dlg , TQ_SIGNAL ( selectObject ( const MyMoneySecurity & ) ) , this , TQ_SLOT ( slotSelectCurrency ( const MyMoneySecurity & ) ) ) ;
connect ( & dlg , TQ_SIGNAL ( openContextMenu ( const MyMoneySecurity & ) ) , this , TQ_SLOT ( slotShowCurrencyContextMenu ( ) ) ) ;
connect ( this , TQ_SIGNAL ( currencyRename ( ) ) , & dlg , TQ_SLOT ( slotStartRename ( ) ) ) ;
connect ( & dlg , TQ_SIGNAL ( renameCurrency ( TQListViewItem * , int , const TQString & ) ) , this , TQ_SLOT ( slotCurrencyRename ( TQListViewItem * , int , const TQString & ) ) ) ;
connect ( this , TQ_SIGNAL ( currencyCreated ( const TQString & ) ) , & dlg , TQ_SLOT ( slotSelectCurrency ( const TQString & ) ) ) ;
connect ( & dlg , TQ_SIGNAL ( selectBaseCurrency ( const MyMoneySecurity & ) ) , this , TQ_SLOT ( slotCurrencySetBase ( ) ) ) ;
dlg . exec ( ) ;
slotSelectCurrency ( MyMoneySecurity ( ) ) ;
}
void KMyMoney2App : : slotPriceDialog ( void )
{
KMyMoneyPriceDlg dlg ( this , " Price Editor " ) ;
dlg . exec ( ) ;
}
void KMyMoney2App : : slotFileConsitencyCheck ( void )
{
KMSTATUS ( i18n ( " Running consistency check... " ) ) ;
TQStringList msg ;
MyMoneyFileTransaction ft ;
try {
msg = MyMoneyFile : : instance ( ) - > consistencyCheck ( ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
msg = i18n ( " Consistency check failed: %1 " ) . arg ( e - > what ( ) ) ;
delete e ;
}
KMessageBox : : warningContinueCancelList ( 0 , " Result " , msg , i18n ( " Consistency check result " ) ) ;
updateCaption ( ) ;
}
void KMyMoney2App : : slotCheckSchedules ( void )
{
if ( KMyMoneyGlobalSettings : : checkSchedule ( ) = = true ) {
KMSTATUS ( i18n ( " Checking for overdue scheduled transactions... " ) ) ;
MyMoneyFile * file = MyMoneyFile : : instance ( ) ;
TQDate checkDate = TQDate : : currentDate ( ) . addDays ( KMyMoneyGlobalSettings : : checkSchedulePreview ( ) ) ;
TQValueList < MyMoneySchedule > scheduleList = file - > scheduleList ( ) ;
TQValueList < MyMoneySchedule > : : Iterator it ;
KMyMoneyUtils : : EnterScheduleResultCodeE rc = KMyMoneyUtils : : Enter ;
for ( it = scheduleList . begin ( ) ; ( it ! = scheduleList . end ( ) ) & & ( rc ! = KMyMoneyUtils : : Cancel ) ; + + it ) {
// Get the copy in the file because it might be modified by commitTransaction
MyMoneySchedule schedule = file - > schedule ( ( * it ) . id ( ) ) ;
if ( schedule . autoEnter ( ) ) {
try {
while ( ! schedule . isFinished ( ) & & ( schedule . nextDueDate ( ) < = checkDate )
& & rc ! = KMyMoneyUtils : : Ignore
& & rc ! = KMyMoneyUtils : : Cancel ) {
rc = enterSchedule ( schedule , true , true ) ;
schedule = file - > schedule ( ( * it ) . id ( ) ) ; // get a copy of the modified schedule
}
} catch ( MyMoneyException * e ) {
delete e ;
}
}
}
updateCaption ( ) ;
}
}
void KMyMoney2App : : writeLastUsedDir ( const TQString & directory )
{
//get global config object for our app.
TDEConfig * tdeconfig = TDEGlobal : : config ( ) ;
if ( tdeconfig )
{
tdeconfig - > setGroup ( " General Options " ) ;
//write path entry, no error handling since its void.
tdeconfig - > writePathEntry ( " LastUsedDirectory " , directory ) ;
}
}
void KMyMoney2App : : writeLastUsedFile ( const TQString & fileName )
{
//get global config object for our app.
TDEConfig * tdeconfig = TDEGlobal : : config ( ) ;
if ( tdeconfig )
{
tdeconfig - > setGroup ( " General Options " ) ;
// write path entry, no error handling since its void.
// use a standard string, as fileName could contain a protocol
// e.g. file:/home/thb/....
tdeconfig - > writeEntry ( " LastUsedFile " , fileName ) ;
}
}
TQString KMyMoney2App : : readLastUsedDir ( void ) const
{
TQString str ;
//get global config object for our app.
TDEConfig * tdeconfig = TDEGlobal : : config ( ) ;
if ( tdeconfig )
{
tdeconfig - > setGroup ( " General Options " ) ;
//read path entry. Second parameter is the default if the setting is not found, which will be the default document path.
str = tdeconfig - > readPathEntry ( " LastUsedDirectory " , TDEGlobalSettings : : documentPath ( ) ) ;
// if the path stored is empty, we use the default nevertheless
if ( str . isEmpty ( ) )
str = TDEGlobalSettings : : documentPath ( ) ;
}
return str ;
}
TQString KMyMoney2App : : readLastUsedFile ( void ) const
{
TQString str ;
// get global config object for our app.
TDEConfig * tdeconfig = TDEGlobal : : config ( ) ;
if ( tdeconfig )
{
tdeconfig - > setGroup ( " General Options " ) ;
// read filename entry.
str = tdeconfig - > readEntry ( " LastUsedFile " , " " ) ;
}
return str ;
}
const TQString KMyMoney2App : : filename ( void ) const
{
return m_fileName . url ( ) ;
}
const TQValueList < TQCString > KMyMoney2App : : instanceList ( void ) const
{
TQValueList < TQCString > list ;
TQValueList < TQCString > apps = kapp - > dcopClient ( ) - > registeredApplications ( ) ;
TQValueList < TQCString > : : ConstIterator it ;
for ( it = apps . begin ( ) ; it ! = apps . end ( ) ; + + it ) {
// skip over myself
if ( ( * it ) = = kapp - > dcopClient ( ) - > appId ( ) )
continue ;
if ( ( * it ) . find ( " kmymoney- " ) = = 0 ) {
list + = ( * it ) ;
}
}
return list ;
}
void KMyMoney2App : : slotEquityPriceUpdate ( void )
{
KEquityPriceUpdateDlg dlg ( this ) ;
if ( dlg . exec ( ) = = TQDialog : : Accepted )
dlg . storePrices ( ) ;
}
void KMyMoney2App : : webConnect ( const TQString & url , const TQCString & asn_id )
{
//
// Web connect attempts to go through the known importers and see if the file
// can be importing using that method. If so, it will import it using that
// plugin
//
// Bring this window to the forefront. This method was suggested by
// Lubos Lunak <l.lunak@suse.cz> of the KDE core development team.
TDEStartupInfo : : setNewStartupId ( this , asn_id ) ;
// Make sure we have an open file
if ( ! myMoneyView - > fileOpen ( ) & &
KMessageBox : : warningContinueCancel ( kmymoney2 , i18n ( " You must first select a KMyMoney file before you can import a statement. " ) ) = = KMessageBox : : Continue )
kmymoney2 - > slotFileOpen ( ) ;
// only continue if the user really did open a file.
if ( myMoneyView - > fileOpen ( ) )
{
KMSTATUS ( i18n ( " Importing a statement via Web Connect " ) ) ;
// remove the statement files
d - > unlinkStatementXML ( ) ;
TQMap < TQString , KMyMoneyPlugin : : ImporterPlugin * > : : const_iterator it_plugin = m_importerPlugins . begin ( ) ;
while ( it_plugin ! = m_importerPlugins . end ( ) )
{
if ( ( * it_plugin ) - > isMyFormat ( url ) )
{
TQValueList < MyMoneyStatement > statements ;
if ( ! ( * it_plugin ) - > import ( url ) )
{
KMessageBox : : error ( this , i18n ( " Unable to import %1 using %2 plugin. The plugin returned the following error: %3 " ) . arg ( url , ( * it_plugin ) - > formatName ( ) , ( * it_plugin ) - > lastError ( ) ) , i18n ( " Importing error " ) ) ;
}
break ;
}
+ + it_plugin ;
}
// If we did not find a match, try importing it as a KMM statement file,
// which is really just for testing. the statement file is not exposed
// to users.
if ( it_plugin = = m_importerPlugins . end ( ) )
if ( MyMoneyStatement : : isStatementFile ( url ) )
slotStatementImport ( url ) ;
}
}
void KMyMoney2App : : slotEnableMessages ( void )
{
KMessageBox : : enableAllMessages ( ) ;
KMessageBox : : information ( this , i18n ( " All messages have been enabled. " ) , i18n ( " All messages " ) ) ;
}
void KMyMoney2App : : slotSecurityEditor ( void )
{
KSecurityListEditor dlg ( this , " KSecurityListEditor " ) ;
dlg . exec ( ) ;
}
void KMyMoney2App : : createInterfaces ( void )
{
// Sets up the plugin interface, and load the plugins
m_pluginInterface = new TQObject ( this , " _pluginInterface " ) ;
new KMyMoneyPlugin : : KMMViewInterface ( this , myMoneyView , m_pluginInterface , " view interface " ) ;
new KMyMoneyPlugin : : KMMStatementInterface ( this , m_pluginInterface , " statement interface " ) ;
new KMyMoneyPlugin : : KMMImportInterface ( this , m_pluginInterface , " import interface " ) ;
}
void KMyMoney2App : : loadPlugins ( void )
{
d - > m_pluginLoader = new KMyMoneyPlugin : : PluginLoader ( this ) ;
connect ( d - > m_pluginLoader , TQ_SIGNAL ( plug ( KPluginInfo * ) ) , this , TQ_SLOT ( slotPluginPlug ( KPluginInfo * ) ) ) ;
connect ( d - > m_pluginLoader , TQ_SIGNAL ( unplug ( KPluginInfo * ) ) , this , TQ_SLOT ( slotPluginUnplug ( KPluginInfo * ) ) ) ;
d - > m_pluginLoader - > loadPlugins ( ) ;
}
void KMyMoney2App : : slotPluginPlug ( KPluginInfo * info )
{
KMyMoneyPlugin : : Plugin * plugin = d - > m_pluginLoader - > getPluginFromInfo ( info ) ;
// check for online plugin
KMyMoneyPlugin : : OnlinePlugin * op = dynamic_cast < KMyMoneyPlugin : : OnlinePlugin * > ( plugin ) ;
// check for importer plugin
KMyMoneyPlugin : : ImporterPlugin * ip = dynamic_cast < KMyMoneyPlugin : : ImporterPlugin * > ( plugin ) ;
// plug the plugin
guiFactory ( ) - > addClient ( plugin ) ;
if ( op )
m_onlinePlugins [ plugin - > name ( ) ] = op ;
if ( ip )
m_importerPlugins [ plugin - > name ( ) ] = ip ;
slotUpdateActions ( ) ;
}
void KMyMoney2App : : slotPluginUnplug ( KPluginInfo * info )
{
KMyMoneyPlugin : : Plugin * plugin = d - > m_pluginLoader - > getPluginFromInfo ( info ) ;
// check for online plugin
KMyMoneyPlugin : : OnlinePlugin * op = dynamic_cast < KMyMoneyPlugin : : OnlinePlugin * > ( plugin ) ;
// check for importer plugin
KMyMoneyPlugin : : ImporterPlugin * ip = dynamic_cast < KMyMoneyPlugin : : ImporterPlugin * > ( plugin ) ;
// unplug the plugin
guiFactory ( ) - > removeClient ( plugin ) ;
if ( op )
m_onlinePlugins . erase ( plugin - > name ( ) ) ;
if ( ip )
m_importerPlugins . erase ( plugin - > name ( ) ) ;
slotUpdateActions ( ) ;
}
void KMyMoney2App : : slotAutoSave ( void )
{
if ( ! m_inAutoSaving ) {
m_inAutoSaving = true ;
KMSTATUS ( i18n ( " Auto saving... " ) ) ;
//calls slotFileSave if needed, and restart the timer
//it the file is not saved, reinitializes the countdown.
if ( myMoneyView - > dirty ( ) & & m_autoSaveEnabled ) {
if ( ! slotFileSave ( ) & & m_autoSavePeriod > 0 ) {
m_autoSaveTimer - > start ( m_autoSavePeriod * 60 * 1000 , true ) ;
}
}
m_inAutoSaving = false ;
}
}
void KMyMoney2App : : slotDateChanged ( void )
{
TQDateTime dt = TQDateTime : : currentDateTime ( ) ;
TQDateTime nextDay ( TQDate ( dt . date ( ) . addDays ( 1 ) ) , TQTime ( 0 , 0 , 0 ) ) ;
TQTimer : : singleShot ( dt . secsTo ( nextDay ) * 1000 , this , TQ_SLOT ( slotDateChanged ( ) ) ) ;
myMoneyView - > slotRefreshViews ( ) ;
}
const MyMoneyAccount & KMyMoney2App : : account ( const TQString & key , const TQString & value ) const
{
TQValueList < MyMoneyAccount > list ;
TQValueList < MyMoneyAccount > : : const_iterator it_a ;
MyMoneyFile : : instance ( ) - > accountList ( list ) ;
TQValueList < MyMoneyAccount > accList ;
for ( it_a = list . begin ( ) ; it_a ! = list . end ( ) ; + + it_a ) {
const TQString & id = ( * it_a ) . onlineBankingSettings ( ) . value ( key ) ;
if ( id . contains ( value ) ) {
accList < < MyMoneyFile : : instance ( ) - > account ( ( * it_a ) . id ( ) ) ;
}
if ( id = = value ) {
return MyMoneyFile : : instance ( ) - > account ( ( * it_a ) . id ( ) ) ;
}
}
// if we did not find an exact match of the value, we take the one that partially
// matched, but only if not more than one matched partially.
if ( accList . count ( ) = = 1 ) {
return accList [ 0 ] ;
}
// return reference to empty element
return MyMoneyFile : : instance ( ) - > account ( TQString ( ) ) ;
}
void KMyMoney2App : : setAccountOnlineParameters ( const MyMoneyAccount & _acc , const MyMoneyKeyValueContainer & kvps )
{
MyMoneyFileTransaction ft ;
try {
MyMoneyAccount acc = MyMoneyFile : : instance ( ) - > account ( _acc . id ( ) ) ;
acc . setOnlineBankingSettings ( kvps ) ;
MyMoneyFile : : instance ( ) - > modifyAccount ( acc ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : detailedSorry ( 0 , i18n ( " Unable to setup online parameters for account ''%1' " ) . arg ( _acc . name ( ) ) , e - > what ( ) ) ;
delete e ;
}
}
void KMyMoney2App : : slotAccountUnmapOnline ( void )
{
// no account selected
if ( m_selectedAccount . id ( ) . isEmpty ( ) )
return ;
// not a mapped account
if ( m_selectedAccount . onlineBankingSettings ( ) . value ( " provider " ) . isEmpty ( ) )
return ;
if ( KMessageBox : : warningYesNo ( this , TQString ( " <qt>%1</qt> " ) . arg ( i18n ( " Do you really want to remove the mapping of account <b>%1</b> to an online account? Depending on the details of the online banking method used, this action cannot be reverted. " ) . arg ( m_selectedAccount . name ( ) ) ) , i18n ( " Remove mapping to online account " ) ) = = KMessageBox : : Yes ) {
MyMoneyFileTransaction ft ;
try {
m_selectedAccount . setOnlineBankingSettings ( MyMoneyKeyValueContainer ( ) ) ;
// delete the kvp that is used in MyMoneyStatementReader too
// we should really get rid of it, but since I don't know what it
// is good for, I'll keep it around. (ipwizard)
m_selectedAccount . deletePair ( " StatementKey " ) ;
MyMoneyFile : : instance ( ) - > modifyAccount ( m_selectedAccount ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : error ( this , i18n ( " Unable to unmap account from online account: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
}
void KMyMoney2App : : slotAccountMapOnline ( void )
{
// no account selected
if ( m_selectedAccount . id ( ) . isEmpty ( ) )
return ;
// already an account mapped
if ( ! m_selectedAccount . onlineBankingSettings ( ) . value ( " provider " ) . isEmpty ( ) )
return ;
// check if user tries to map a brokerageAccount
if ( m_selectedAccount . name ( ) . contains ( i18n ( " (Brokerage) " ) ) ) {
if ( KMessageBox : : warningContinueCancel ( this , i18n ( " You try to map a brokerage account to an online account. This is usually not advisable. In general, the investment account should be mapped to the online account. Please cancel if you intended to map the investment account, continue otherwise " ) , i18n ( " Mapping brokerage account " ) ) = = KMessageBox : : Cancel ) {
return ;
}
}
// if we have more than one provider display a dialog to select the current providers
KPluginDlg dlg ( this ) ;
dlg . setCaption ( i18n ( " Select online banking plugin " ) ) ;
dlg . closeButton - > hide ( ) ;
TQString provider ;
TQMap < TQString , KMyMoneyPlugin : : OnlinePlugin * > : : const_iterator it_p ;
switch ( m_onlinePlugins . count ( ) ) {
case 0 :
break ;
case 1 :
provider = m_onlinePlugins . begin ( ) . key ( ) ;
break ;
default :
for ( it_p = m_onlinePlugins . begin ( ) ; it_p ! = m_onlinePlugins . end ( ) ; + + it_p ) {
TQStringList protocolList ;
( * it_p ) - > protocols ( protocolList ) ;
new TDEListViewItem ( dlg . m_listView , it_p . key ( ) , " Loaded " , protocolList . join ( " , " ) ) ;
}
if ( dlg . exec ( ) = = TQDialog : : Accepted ) {
if ( dlg . m_listView - > selectedItem ( ) ) {
provider = dlg . m_listView - > selectedItem ( ) - > text ( 0 ) ;
}
}
break ;
}
if ( provider . isEmpty ( ) )
return ;
// find the provider
it_p = m_onlinePlugins . find ( provider ) ;
if ( it_p ! = m_onlinePlugins . end ( ) ) {
// plugin found, call it
MyMoneyKeyValueContainer settings ;
if ( ( * it_p ) - > mapAccount ( m_selectedAccount , settings ) ) {
settings [ " provider " ] = provider ;
MyMoneyAccount acc ( m_selectedAccount ) ;
acc . setOnlineBankingSettings ( settings ) ;
MyMoneyFileTransaction ft ;
try {
MyMoneyFile : : instance ( ) - > modifyAccount ( acc ) ;
ft . commit ( ) ;
} catch ( MyMoneyException * e ) {
KMessageBox : : error ( this , i18n ( " Unable to map account to online account: %1 " ) . arg ( e - > what ( ) ) ) ;
delete e ;
}
}
}
}
void KMyMoney2App : : slotAccountUpdateOnlineAll ( void )
{
TQValueList < MyMoneyAccount > accList ;
MyMoneyFile : : instance ( ) - > accountList ( accList ) ;
TQValueList < MyMoneyAccount > : : iterator it_a ;
TQMap < TQString , KMyMoneyPlugin : : OnlinePlugin * > : : const_iterator it_p ;
d - > m_statementResults . clear ( ) ;
d - > m_collectingStatements = true ;
// remove all those from the list, that don't have a 'provider' or the
// provider is not currently present
for ( it_a = accList . begin ( ) ; it_a ! = accList . end ( ) ; ) {
if ( ( * it_a ) . onlineBankingSettings ( ) . value ( " provider " ) . isEmpty ( )
| | m_onlinePlugins . find ( ( * it_a ) . onlineBankingSettings ( ) . value ( " provider " ) ) = = m_onlinePlugins . end ( ) ) {
it_a = accList . remove ( it_a ) ;
} else
+ + it_a ;
}
// now work on the remaining list of accounts
int cnt = accList . count ( ) - 1 ;
for ( it_a = accList . begin ( ) ; it_a ! = accList . end ( ) ; + + it_a ) {
it_p = m_onlinePlugins . find ( ( * it_a ) . onlineBankingSettings ( ) . value ( " provider " ) ) ;
( * it_p ) - > updateAccount ( * it_a , cnt ! = 0 ) ;
- - cnt ;
}
d - > m_collectingStatements = false ;
if ( ! d - > m_statementResults . isEmpty ( ) )
KMessageBox : : informationList ( this , i18n ( " The statements have been processed with the following results: " ) , d - > m_statementResults , i18n ( " Statement stats " ) ) ;
}
void KMyMoney2App : : slotAccountUpdateOnline ( void )
{
// no account selected
if ( m_selectedAccount . id ( ) . isEmpty ( ) )
return ;
// no online account mapped
if ( m_selectedAccount . onlineBankingSettings ( ) . value ( " provider " ) . isEmpty ( ) )
return ;
// find the provider
TQMap < TQString , KMyMoneyPlugin : : OnlinePlugin * > : : const_iterator it_p ;
it_p = m_onlinePlugins . find ( m_selectedAccount . onlineBankingSettings ( ) . value ( " provider " ) ) ;
if ( it_p ! = m_onlinePlugins . end ( ) ) {
// plugin found, call it
d - > m_collectingStatements = true ;
d - > m_statementResults . clear ( ) ;
( * it_p ) - > updateAccount ( m_selectedAccount ) ;
d - > m_collectingStatements = false ;
if ( ! d - > m_statementResults . isEmpty ( ) )
KMessageBox : : informationList ( this , i18n ( " The statements have been processed with the following results: " ) , d - > m_statementResults , i18n ( " Statement stats " ) ) ;
}
}
KMStatus : : KMStatus ( const TQString & text )
{
m_prevText = kmymoney2 - > slotStatusMsg ( text ) ;
}
KMStatus : : ~ KMStatus ( )
{
kmymoney2 - > slotStatusMsg ( m_prevText ) ;
}
void KMyMoney2App : : Private : : unlinkStatementXML ( void )
{
TQDir d ( " /home/thb " , " kmm-statement* " ) ;
for ( int i = 0 ; i < d . count ( ) ; + + i ) {
tqDebug ( TQString ( " Remove %1 " ) . arg ( d [ i ] ) ) ;
d . remove ( TQString ( " /home/thb/%1 " ) . arg ( d [ i ] ) ) ;
}
statementXMLindex = 0 ;
}
# include "kmymoney2.moc"