/***************************************************************************
kreportsview . cpp - description
- - - - - - - - - - - - - - - - - - -
begin : Sat Mar 27 2004
copyright : ( C ) 2000 - 2004 by Michael Edwardes
email : mte @ users . sourceforge . net
Javier Campos Morales < javi_c @ users . sourceforge . net >
Felix Rodriguez < frodriguez @ users . sourceforge . net >
John C < thetacoturtle @ users . sourceforge . net >
Thomas Baumgart < ipwizard @ users . sourceforge . net >
Kevin Tambascio < ktambascio @ users . sourceforge . net >
Ace Jones < ace . j @ hotpop . com >
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/***************************************************************************
* *
* 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
# include "kdecompat.h"
// ----------------------------------------------------------------------------
// QT Includes
# include <tqlayout.h>
# include <tqdatetime.h>
# include <tqregexp.h>
# include <tqdragobject.h>
# include <tqclipboard.h>
# include <tqapplication.h>
# include <tqprinter.h>
# include <tqpainter.h>
# include <tqfile.h>
# include <tqtimer.h>
# include <tqiconset.h>
# include <tqpopupmenu.h>
# include <tqpushbutton.h>
# include <tqtooltip.h>
# include <tqcheckbox.h>
# include <tqvbox.h>
// ----------------------------------------------------------------------------
// KDE Includes
# include <kglobal.h>
# include <kglobalsettings.h>
# include <klocale.h>
# include <kstandarddirs.h>
# include <tdehtmlview.h>
# include <tdeconfig.h>
# include <kdebug.h>
# include <tdefiledialog.h>
# include <kmessagebox.h>
# include <tdelistview.h>
# include <kmessagebox.h>
// ----------------------------------------------------------------------------
// Project Includes
# include <kmymoney/mymoneyfile.h>
# include <kmymoney/mymoneyreport.h>
# include <kmymoney/kmymoneyglobalsettings.h>
# include "kreportsview.h"
# include "../reports/querytable.h"
# include "../reports/objectinfotable.h"
# include "../dialogs/kreportconfigurationfilterdlg.h"
# include "../kmymoneyutils.h"
using namespace reports ;
# define VIEW_LEDGER "ledger"
# define VIEW_SCHEDULE "schedule"
# define VIEW_WELCOME "welcome"
# define VIEW_HOME "home"
# define VIEW_REPORTS "reports"
/**
* KReportsView : : KReportTab Implementation
*/
KReportsView : : KReportTab : : KReportTab ( KTabWidget * parent , const MyMoneyReport & report ) :
TQWidget ( parent , " reporttab " ) ,
m_part ( new TDEHTMLPart ( this , " reporttabpart " ) ) ,
m_chartView ( new KReportChartView ( this , " reportchart " ) ) ,
m_control ( new kMyMoneyReportControlDecl ( this , " reportcontrol " ) ) ,
m_layout ( new TQVBoxLayout ( this , 11 , 6 , " reporttablayout " ) ) ,
m_report ( report ) ,
m_deleteMe ( false ) ,
m_showingChart ( false ) ,
m_needReload ( true ) ,
m_table ( 0 )
{
m_part - > setZoomFactor ( KMyMoneyGlobalSettings : : fontSizePercentage ( ) ) ;
if ( ! KReportChartView : : implemented ( ) | | m_report . reportType ( ) ! = MyMoneyReport : : ePivotTable )
{
m_control - > buttonChart - > hide ( ) ;
}
m_chartView - > setSizePolicy ( TQSizePolicy : : Expanding , TQSizePolicy : : Expanding ) ;
m_chartView - > hide ( ) ;
m_layout - > addWidget ( m_control ) ; //, 0, TQt::AlignTop );
m_layout - > addWidget ( m_part - > view ( ) ) ;
m_layout - > addWidget ( m_chartView ) ;
// I like this icon...
TQString icon = TDEGlobal : : dirs ( ) - > findResource ( " icon " , " default.tde/16x16/mimetypes/spreadsheet.png " ) ;
// but if it's not there, we'll use ye ol' standard icon
if ( icon = = TQString ( ) )
icon = TDEGlobal : : dirs ( ) - > findResource ( " icon " , " hicolor/16x16/apps/kmymoney2.png " ) ;
parent - > insertTab ( this , TQIconSet ( TQPixmap ( icon ) ) , report . name ( ) ) ;
parent - > setTabEnabled ( this , true ) ;
# ifdef HAVE_KDCHART
if ( m_report . isChartByDefault ( ) )
toggleChart ( ) ;
# endif
}
KReportsView : : KReportTab : : ~ KReportTab ( )
{
delete m_table ;
}
void KReportsView : : KReportTab : : print ( void )
{
if ( m_part & & m_part - > view ( ) )
m_part - > view ( ) - > print ( ) ;
}
void KReportsView : : KReportTab : : copyToClipboard ( void )
{
TQTextDrag * pdrag = new TQTextDrag ( createTable ( ) ) ;
pdrag - > setSubtype ( " html " ) ;
TQApplication : : clipboard ( ) - > setData ( pdrag ) ;
}
void KReportsView : : KReportTab : : saveAs ( const TQString & filename , bool includeCSS )
{
TQFile file ( filename ) ;
if ( file . open ( IO_WriteOnly ) )
{
if ( TQFileInfo ( filename ) . extension ( false ) . lower ( ) = = " csv " )
{
TQTextStream ( & file ) < < m_table - > renderCSV ( ) ;
}
else {
TQTextStream stream ( & file ) ;
TQRegExp exp ( TQString ( " (.*) ( < link . * css \ " href=) \" (.*) \" >(<meta.*%1 \" />)(.*) " ) . arg ( TDEGlobal : : locale ( ) - > encoding ( ) ) ) ;
TQString table = createTable ( ) ;
if ( exp . search ( table ) ! = - 1 & & includeCSS ) {
TQFile cssFile ( exp . cap ( 3 ) ) ;
if ( cssFile . open ( IO_ReadOnly ) ) {
TQTextStream cssStream ( & cssFile ) ;
stream < < exp . cap ( 1 ) ;
stream < < exp . cap ( 4 ) ;
stream < < endl < < " <style type= \" text/css \" > " < < endl < < " <!-- " < < endl ;
stream < < cssStream . read ( ) ;
stream < < " --> " < < endl < < " </style> " < < endl ;
stream < < exp . cap ( 5 ) ;
cssFile . close ( ) ;
} else {
stream < < table ;
}
} else {
stream < < table ;
}
}
file . close ( ) ;
}
}
void KReportsView : : KReportTab : : loadTab ( void )
{
m_needReload = true ;
if ( isVisible ( ) ) {
m_needReload = false ;
updateReport ( ) ;
}
}
void KReportsView : : KReportTab : : show ( void )
{
if ( m_needReload ) {
m_needReload = false ;
updateReport ( ) ;
}
TQWidget : : show ( ) ;
}
void KReportsView : : KReportTab : : updateReport ( void )
{
// reload the report from the engine. It might have
// been changed by the user
try {
// Don't try to reload default reports from the engine
if ( ! m_report . id ( ) . isEmpty ( ) )
m_report = MyMoneyFile : : instance ( ) - > report ( m_report . id ( ) ) ;
} catch ( MyMoneyException * e ) {
delete e ;
}
delete m_table ;
m_table = 0 ;
if ( m_report . reportType ( ) = = MyMoneyReport : : ePivotTable ) {
m_table = new PivotTable ( m_report ) ;
} else if ( m_report . reportType ( ) = = MyMoneyReport : : eQueryTable ) {
m_table = new QueryTable ( m_report ) ;
} else if ( m_report . reportType ( ) = = MyMoneyReport : : eInfoTable ) {
m_table = new ObjectInfoTable ( m_report ) ;
}
m_part - > begin ( ) ;
m_part - > write ( createTable ( ) ) ;
m_part - > end ( ) ;
m_table - > drawChart ( * m_chartView ) ;
m_chartView - > update ( ) ;
}
TQString KReportsView : : KReportTab : : createTable ( const TQString & links )
{
TQString filename ;
if ( ! MyMoneyFile : : instance ( ) - > value ( " reportstylesheet " ) . isEmpty ( ) )
filename = TDEGlobal : : dirs ( ) - > findResource ( " appdata " , TQString ( " html/%1 " ) . arg ( MyMoneyFile : : instance ( ) - > value ( " reportstylesheet " ) ) ) ;
if ( filename . isEmpty ( ) )
filename = TDEGlobal : : dirs ( ) - > findResource ( " appdata " , " html/kmymoney2.css " ) ;
TQString header = TQString ( " <!DOCTYPE HTML PUBLIC \" -//W3C//DTD HTML 4.0//EN \" > \n " ) +
TQString ( " <html><head><link rel= \" stylesheet \" type= \" text/css \" href= \" %1 \" > " ) . arg ( filename ) ;
header + = TQString ( " <meta http-equiv= \" Content-Type \" content= \" text/html; charset=%1 \" /> " ) . arg ( TDEGlobal : : locale ( ) - > encoding ( ) ) ;
header + = KMyMoneyUtils : : variableCSS ( ) ;
header + = " </head><body> \n " ;
TQString footer = " </body></html> \n " ;
TQString html ;
try {
html + = header ;
html + = links ;
html + = m_table - > renderHTML ( ) ;
html + = footer ;
}
catch ( MyMoneyException * e )
{
kdDebug ( 2 ) < < " KReportsView::KReportTab::createTable(): ERROR " < < e - > what ( ) < < endl ;
TQString error = TQString ( i18n ( " There was an error creating your report: \" %1 \" . \n Please report this error to the developer's list: kmymoney2-developer@lists.sourceforge.net " ) ) . arg ( e - > what ( ) ) ;
KMessageBox : : error ( this , error , i18n ( " Critical Error " ) ) ;
html + = header ;
html + = links ;
html + = " <h1> " + i18n ( " Unable to generate report " ) + " </h1><p> " + error + " </p> " ;
html + = footer ;
delete e ;
}
return html ;
}
void KReportsView : : KReportTab : : toggleChart ( void )
{
// for now it will just SHOW the chart. In the future it actually has to toggle it.
if ( m_showingChart )
{
m_part - > show ( ) ;
m_chartView - > hide ( ) ;
m_control - > buttonChart - > setText ( i18n ( " Chart " ) ) ;
TQToolTip : : add ( m_control - > buttonChart , i18n ( " Show the chart version of this report " ) ) ;
}
else
{
m_part - > hide ( ) ;
m_chartView - > show ( ) ;
m_control - > buttonChart - > setText ( i18n ( " Report " ) ) ;
TQToolTip : : add ( m_control - > buttonChart , i18n ( " Show the report version of this chart " ) ) ;
}
m_showingChart = ! m_showingChart ;
}
/**
* KReportsView Implementation
*/
class KReportsView : : Private
{
public :
Private ( ) :
includeCSS ( 0 ) { }
TQCheckBox * includeCSS ;
} ;
KReportsView : : KReportsView ( TQWidget * parent , const char * name ) :
KMyMoneyViewBase ( parent , name , i18n ( " Reports " ) ) ,
d ( new Private ) ,
m_needReload ( false )
{
m_reportTabWidget = new KTabWidget ( this , " m_reportTabWidget " ) ;
addWidget ( m_reportTabWidget ) ;
m_reportTabWidget - > setHoverCloseButton ( true ) ;
m_listTab = ( new TQWidget ( m_reportTabWidget , " indextab " ) ) ;
m_listTabLayout = ( new TQVBoxLayout ( m_listTab , 11 , 6 , " indextabLayout " ) ) ;
m_reportListView = new TDEListView ( m_listTab , " m_reportListView " ) ;
m_listTabLayout - > addWidget ( m_reportListView ) ;
m_reportTabWidget - > insertTab ( m_listTab , i18n ( " Reports " ) ) ;
m_reportListView - > addColumn ( i18n ( " Report " ) ) ;
m_reportListView - > addColumn ( i18n ( " Comment " ) ) ;
m_reportListView - > setResizeMode ( TQListView : : AllColumns ) ;
m_reportListView - > setAllColumnsShowFocus ( true ) ;
m_reportListView - > setRootIsDecorated ( true ) ;
m_reportListView - > setShadeSortColumn ( false ) ;
connect ( m_reportTabWidget , TQT_SIGNAL ( closeRequest ( TQWidget * ) ) ,
this , TQT_SLOT ( slotClose ( TQWidget * ) ) ) ;
connect ( m_reportListView , TQT_SIGNAL ( doubleClicked ( TQListViewItem * ) ) ,
this , TQT_SLOT ( slotOpenReport ( TQListViewItem * ) ) ) ;
connect ( m_reportListView , TQT_SIGNAL ( returnPressed ( TQListViewItem * ) ) ,
this , TQT_SLOT ( slotOpenReport ( TQListViewItem * ) ) ) ;
connect ( m_reportListView , TQT_SIGNAL ( contextMenu ( TDEListView * , TQListViewItem * , const TQPoint & ) ) ,
this , TQT_SLOT ( slotListContextMenu ( TDEListView * , TQListViewItem * , const TQPoint & ) ) ) ;
connect ( MyMoneyFile : : instance ( ) , TQT_SIGNAL ( dataChanged ( ) ) , this , TQT_SLOT ( slotLoadView ( ) ) ) ;
}
KReportsView : : ~ KReportsView ( )
{
delete d ;
}
void KReportsView : : show ( )
{
if ( m_needReload ) {
loadView ( ) ;
m_needReload = false ;
}
KReportTab * tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > currentPage ( ) ) ;
if ( tab )
emit reportSelected ( tab - > report ( ) ) ;
else
emit reportSelected ( MyMoneyReport ( ) ) ;
// don't forget base class implementation
KMyMoneyViewBase : : show ( ) ;
}
void KReportsView : : slotLoadView ( void )
{
m_needReload = true ;
if ( isVisible ( ) ) {
loadView ( ) ;
m_needReload = false ;
}
}
TQString KReportsView : : KReportGroupListItem : : key ( int column , bool ascending ) const
{
if ( column = = 0 )
return TQString : : number ( m_nr ) . rightJustify ( 3 , ' 0 ' ) ;
else
return TDEListViewItem : : key ( column , ascending ) ;
}
KReportsView : : KReportGroupListItem : : KReportGroupListItem ( TDEListView * parent , const int nr , TQString name ) :
TDEListViewItem ( parent ) ,
m_name ( name )
{
setNr ( nr ) ;
}
void KReportsView : : KReportGroupListItem : : setNr ( const int nr )
{
m_nr = nr ;
setText ( 0 , TQString ( " %1. %2 " ) . arg ( nr ) . arg ( m_name ) ) ;
}
void KReportsView : : loadView ( void )
{
: : timetrace ( " Start KReportsView::loadView " ) ;
// remember the id of the current selected item and the
// items that are shown 'expanded'
TQMap < TQString , bool > isOpen ;
TQListViewItem * item = m_reportListView - > selectedItem ( ) ;
TQString selectedPage = ( item ) ? item - > text ( 0 ) : TQString ( ) ;
// keep a map of all 'expanded' accounts
TQListViewItemIterator it_lvi ( m_reportListView ) ;
while ( it_lvi . current ( ) ) {
item = it_lvi . current ( ) ;
if ( item & & item - > isOpen ( ) ) {
isOpen [ item - > text ( 0 ) ] = true ;
}
+ + it_lvi ;
}
// remember the upper left corner of the viewport
TQPoint startPoint = m_reportListView - > viewportToContents ( TQPoint ( 0 , 0 ) ) ;
// turn off updates to avoid flickering during reload
m_reportListView - > setUpdatesEnabled ( false ) ;
//
// Rebuild the list page
//
m_reportListView - > clear ( ) ;
unsigned pagenumber = 1 ;
// Default Reports
KReportGroupListItem * chartnode = new KReportGroupListItem ( m_reportListView , 10 , i18n ( " Charts " ) ) ;
TQMap < TQString , KReportGroupListItem * > groupitems ;
TQValueList < ReportGroup > defaultreports ;
defaultReports ( defaultreports ) ;
TQValueList < ReportGroup > : : const_iterator it_group = defaultreports . begin ( ) ;
while ( it_group ! = defaultreports . end ( ) )
{
TQString groupname = ( * it_group ) . name ( ) ;
KReportGroupListItem * curnode = new KReportGroupListItem ( m_reportListView , pagenumber + + , ( * it_group ) . title ( ) ) ;
curnode - > setOpen ( isOpen . find ( curnode - > text ( 0 ) ) ! = isOpen . end ( ) ) ;
groupitems [ groupname ] = curnode ;
TQValueList < MyMoneyReport > : : const_iterator it_report = ( * it_group ) . begin ( ) ;
while ( it_report ! = ( * it_group ) . end ( ) )
{
MyMoneyReport report = * it_report ;
report . setGroup ( groupname ) ;
KReportListItem * r = new KReportListItem ( curnode , report ) ;
if ( report . name ( ) = = selectedPage )
m_reportListView - > setSelected ( r , true ) ;
// ALSO place it into the Charts list if it's displayed as a chart by default
if ( ( * it_report ) . isChartByDefault ( ) )
new KReportListItem ( chartnode , * it_report ) ;
+ + it_report ;
}
+ + it_group ;
}
// Rename the charts item to place it at this point in the list.
chartnode - > setNr ( pagenumber + + ) ;
chartnode - > setOpen ( isOpen . find ( chartnode - > text ( 0 ) ) ! = isOpen . end ( ) ) ;
// Custom reports
KReportGroupListItem * favoritenode = new KReportGroupListItem ( m_reportListView , pagenumber + + , i18n ( " Favorite Reports " ) ) ;
favoritenode - > setOpen ( isOpen . find ( favoritenode - > text ( 0 ) ) ! = isOpen . end ( ) ) ;
KReportGroupListItem * orphannode = NULL ;
TQValueList < MyMoneyReport > customreports = MyMoneyFile : : instance ( ) - > reportList ( ) ;
TQValueList < MyMoneyReport > : : const_iterator it_report = customreports . begin ( ) ;
while ( it_report ! = customreports . end ( ) )
{
// If this report is in a known group, place it there
KReportGroupListItem * groupnode = groupitems [ ( * it_report ) . group ( ) ] ;
if ( groupnode )
new KReportListItem ( groupnode , * it_report ) ;
else
// otherwise, place it in the orphanage
{
if ( ! orphannode )
orphannode = new KReportGroupListItem ( m_reportListView , pagenumber + + , i18n ( " Old Customized Reports " ) ) ;
new KReportListItem ( orphannode , * it_report ) ;
}
// ALSO place it into the Favorites list if it's a favorite
if ( ( * it_report ) . isFavorite ( ) )
new KReportListItem ( favoritenode , * it_report ) ;
// ALSO place it into the Charts list if it's displayed as a chart by default
if ( ( * it_report ) . isChartByDefault ( ) )
new KReportListItem ( chartnode , * it_report ) ;
+ + it_report ;
}
// reposition viewport
m_reportListView - > setContentsPos ( startPoint . x ( ) , startPoint . y ( ) ) ;
// turn updates back on
m_reportListView - > setUpdatesEnabled ( true ) ;
m_reportListView - > repaintContents ( ) ;
//
// Go through the tabs to set their update flag or delete them if needed
//
int index = 1 ;
while ( index < m_reportTabWidget - > count ( ) )
{
// TODO: Find some way of detecting the file is closed and kill these tabs!!
KReportTab * tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > page ( index ) ) ;
if ( tab - > isReadyToDelete ( ) /* || ! reports.count() */ )
{
delete tab ;
- - index ;
}
else
tab - > loadTab ( ) ;
+ + index ;
}
: : timetrace ( " Done KReportsView::loadView " ) ;
}
void KReportsView : : slotOpenURL ( const KURL & url , const KParts : : URLArgs & /* args */ )
{
TQString view = url . fileName ( false ) ;
TQString command = url . queryItem ( " command " ) ;
if ( view = = VIEW_REPORTS ) {
if ( command . isEmpty ( ) ) {
// slotRefreshView();
} else if ( command = = " print " )
slotPrintView ( ) ;
else if ( command = = " copy " )
slotCopyView ( ) ;
else if ( command = = " save " )
slotSaveView ( ) ;
else if ( command = = " configure " )
slotConfigure ( ) ;
else if ( command = = " duplicate " )
slotDuplicate ( ) ;
else if ( command = = " close " )
slotCloseCurrent ( ) ;
else if ( command = = " delete " )
slotDelete ( ) ;
else
tqDebug ( " Unknown command '%s' in KReportsView::slotOpenURL() " , static_cast < const char * > ( command ) ) ;
} else {
tqDebug ( " Unknown view '%s' in KReportsView::slotOpenURL() " , view . latin1 ( ) ) ;
}
}
void KReportsView : : slotPrintView ( void )
{
KReportTab * tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > currentPage ( ) ) ;
if ( tab )
tab - > print ( ) ;
}
void KReportsView : : slotCopyView ( void )
{
KReportTab * tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > currentPage ( ) ) ;
if ( tab )
tab - > copyToClipboard ( ) ;
}
void KReportsView : : slotSaveView ( void )
{
KReportTab * tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > currentPage ( ) ) ;
if ( tab ) {
TQVBox * vbox = new TQVBox ( ) ;
d - > includeCSS = new TQCheckBox ( i18n ( " Include Stylesheet " ) , vbox ) ;
// the following code is copied from KFileDialog::getSaveFileName,
// adjust to our local needs (filetypes etc.) and
// enhanced to show the m_saveEncrypted combo box
KFileDialog dlg ( " :kmymoney-export " ,
TQString ( " %1|%2 \n " ) . arg ( " *.csv " ) . arg ( i18n ( " CSV (Filefilter) " , " CSV files " ) ) +
TQString ( " %1|%2 \n " ) . arg ( " *.html " ) . arg ( i18n ( " HTML (Filefilter) " , " HTML files " ) ) ,
this , " filedialog " , true , vbox ) ;
connect ( & dlg , TQT_SIGNAL ( filterChanged ( const TQString & ) ) , this , TQT_SLOT ( slotSaveFilterChanged ( const TQString & ) ) ) ;
dlg . setOperationMode ( KFileDialog : : Saving ) ;
dlg . setCaption ( i18n ( " Export as " ) ) ;
slotSaveFilterChanged ( " *.csv " ) ; // init gui
if ( dlg . exec ( ) = = TQDialog : : Accepted ) {
KURL newURL = dlg . selectedURL ( ) ;
if ( ! newURL . isEmpty ( ) ) {
TQString newName = newURL . prettyURL ( 0 , KURL : : StripFileProtocol ) ;
if ( newName . findRev ( ' . ' ) = = - 1 )
newName . append ( " .html " ) ;
tab - > saveAs ( newName , d - > includeCSS - > isEnabled ( ) & & d - > includeCSS - > isChecked ( ) ) ;
}
}
}
}
void KReportsView : : slotSaveFilterChanged ( const TQString & filter )
{
d - > includeCSS - > setEnabled ( filter = = " *.html " ) ;
}
void KReportsView : : slotConfigure ( void )
{
KReportTab * tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > currentPage ( ) ) ;
if ( tab ) {
MyMoneyReport report = tab - > report ( ) ;
if ( report . comment ( ) = = i18n ( " Default Report " ) | | report . comment ( ) = = i18n ( " Generated Report " ) )
{
report . setComment ( i18n ( " Custom Report " ) ) ;
report . setName ( report . name ( ) + i18n ( " (Customized) " ) ) ;
}
KReportConfigurationFilterDlg dlg ( report ) ;
if ( dlg . exec ( ) )
{
MyMoneyReport newreport = dlg . getConfig ( ) ;
// If this report has an ID, then MODIFY it, otherwise ADD it
MyMoneyFileTransaction ft ;
if ( ! newreport . id ( ) . isEmpty ( ) )
{
MyMoneyFile : : instance ( ) - > modifyReport ( newreport ) ;
ft . commit ( ) ;
tab - > modifyReport ( newreport ) ;
m_reportTabWidget - > changeTab ( tab , newreport . name ( ) ) ;
m_reportTabWidget - > showPage ( tab ) ;
}
else
{
MyMoneyFile : : instance ( ) - > addReport ( newreport ) ;
ft . commit ( ) ;
new KReportListItem ( m_reportListView , newreport ) ;
addReportTab ( newreport ) ;
}
}
}
}
void KReportsView : : slotDuplicate ( void )
{
KReportTab * tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > currentPage ( ) ) ;
if ( tab ) {
MyMoneyReport dupe = tab - > report ( ) ;
dupe . setName ( TQString ( i18n ( " Copy of %1 " ) ) . arg ( dupe . name ( ) ) ) ;
if ( dupe . comment ( ) = = i18n ( " Default Report " ) )
dupe . setComment ( i18n ( " Custom Report " ) ) ;
dupe . clearId ( ) ;
KReportConfigurationFilterDlg dlg ( dupe ) ;
if ( dlg . exec ( ) )
{
dupe = dlg . getConfig ( ) ;
MyMoneyFileTransaction ft ;
try {
MyMoneyFile : : instance ( ) - > addReport ( dupe ) ;
ft . commit ( ) ;
new KReportListItem ( m_reportListView , dupe ) ;
addReportTab ( dupe ) ;
} catch ( MyMoneyException * e ) {
tqDebug ( " Cannot add report " ) ;
delete e ;
}
}
}
}
void KReportsView : : slotDelete ( void )
{
KReportTab * tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > currentPage ( ) ) ;
if ( tab ) {
MyMoneyReport report = tab - > report ( ) ;
if ( ! report . id ( ) . isEmpty ( ) )
{
if ( KMessageBox : : Continue = = KMessageBox : : warningContinueCancel ( this , TQString ( " <qt> " ) + i18n ( " Are you sure you want to delete report <b>%1</b>? There is no way to recover it! " ) . arg ( report . name ( ) ) + TQString ( " </qt> " ) , i18n ( " Delete Report? " ) ) )
{
// close the tab and then remove the report so that it is not
// generated again during the following loadView() call
slotClose ( tab ) ;
MyMoneyFileTransaction ft ;
MyMoneyFile : : instance ( ) - > removeReport ( report ) ;
ft . commit ( ) ;
}
}
else
KMessageBox : : information ( this , TQString ( " <qt> " ) + i18n ( " Sorry, <b>%1</b> is a default report. You may not delete it. " ) . arg ( report . name ( ) ) + TQString ( " </qt> " ) , i18n ( " Delete Report? " ) ) ;
}
}
void KReportsView : : slotOpenReport ( const TQString & id )
{
if ( ! id . isEmpty ( ) )
{
KReportTab * page = NULL ;
int index = 1 ;
while ( index < m_reportTabWidget - > count ( ) )
{
KReportTab * current = dynamic_cast < KReportTab * > ( m_reportTabWidget - > page ( index ) ) ;
if ( current - > report ( ) . id ( ) = = id )
{
page = current ;
break ;
}
+ + index ;
}
// Show the tab, or create a new one, as needed
if ( page )
m_reportTabWidget - > showPage ( page ) ;
else
addReportTab ( MyMoneyFile : : instance ( ) - > report ( id ) ) ;
}
}
void KReportsView : : slotOpenReport ( TQListViewItem * item )
{
KReportListItem * reportItem = dynamic_cast < KReportListItem * > ( item ) ;
if ( reportItem )
{
KReportTab * page = NULL ;
// Find the tab which contains the report indicated by this list item
int index = 1 ;
while ( index < m_reportTabWidget - > count ( ) )
{
KReportTab * current = dynamic_cast < KReportTab * > ( m_reportTabWidget - > page ( index ) ) ;
// If this report has an ID, we'll use the ID to match
if ( ! reportItem - > report ( ) . id ( ) . isEmpty ( ) )
{
if ( current - > report ( ) . id ( ) = = reportItem - > report ( ) . id ( ) )
{
page = current ;
break ;
}
}
// Otherwise, use the name to match. THIS ASSUMES that no 2 default reports
// have the same name...but that would be pretty a boneheaded thing to do.
else
{
if ( current - > report ( ) . name ( ) = = reportItem - > report ( ) . name ( ) )
{
page = current ;
break ;
}
}
+ + index ;
}
// Show the tab, or create a new one, as needed
if ( page )
m_reportTabWidget - > showPage ( page ) ;
else
addReportTab ( reportItem - > report ( ) ) ;
}
else if ( item )
{
// this is not a KReportListItem, so it's a regular TQListViewItem, which
// means its a header.
//
// double-click on a header means toggle the expand/collapse state
item - > setOpen ( ! item - > isOpen ( ) ) ;
}
}
void KReportsView : : slotOpenReport ( const MyMoneyReport & report )
{
kdDebug ( 2 ) < < __func__ < < " " < < report . name ( ) < < endl ;
KReportTab * page = NULL ;
// Find the tab which contains the report indicated by this list item
int index = 1 ;
while ( index < m_reportTabWidget - > count ( ) )
{
KReportTab * current = dynamic_cast < KReportTab * > ( m_reportTabWidget - > page ( index ) ) ;
if ( current - > report ( ) . name ( ) = = report . name ( ) )
{
page = current ;
break ;
}
+ + index ;
}
// Show the tab, or create a new one, as needed
if ( page )
m_reportTabWidget - > showPage ( page ) ;
else
addReportTab ( report ) ;
}
void KReportsView : : slotToggleChart ( void )
{
KReportTab * tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > currentPage ( ) ) ;
if ( tab )
tab - > toggleChart ( ) ;
}
void KReportsView : : slotCloseCurrent ( void )
{
if ( m_reportTabWidget - > currentPage ( ) )
slotClose ( m_reportTabWidget - > currentPage ( ) ) ;
}
void KReportsView : : slotClose ( TQWidget * w )
{
KReportTab * tab = dynamic_cast < KReportTab * > ( w ) ;
if ( tab ) {
m_reportTabWidget - > removePage ( tab ) ;
tab - > setReadyToDelete ( true ) ;
}
}
void KReportsView : : slotCloseAll ( void )
{
KReportTab * tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > page ( 1 ) ) ;
while ( tab )
{
m_reportTabWidget - > removePage ( tab ) ;
tab - > setReadyToDelete ( true ) ;
tab = dynamic_cast < KReportTab * > ( m_reportTabWidget - > page ( 1 ) ) ;
}
}
void KReportsView : : addReportTab ( const MyMoneyReport & report )
{
KReportTab * tab = new KReportTab ( m_reportTabWidget , report ) ;
connect ( tab - > control ( ) - > buttonChart , TQT_SIGNAL ( clicked ( ) ) ,
this , TQT_SLOT ( slotToggleChart ( void ) ) ) ;
connect ( tab - > control ( ) - > buttonConfigure , TQT_SIGNAL ( clicked ( ) ) ,
this , TQT_SLOT ( slotConfigure ( void ) ) ) ;
connect ( tab - > control ( ) - > buttonNew , TQT_SIGNAL ( clicked ( ) ) ,
this , TQT_SLOT ( slotDuplicate ( void ) ) ) ;
connect ( tab - > control ( ) - > buttonCopy , TQT_SIGNAL ( clicked ( ) ) ,
this , TQT_SLOT ( slotCopyView ( void ) ) ) ;
connect ( tab - > control ( ) - > buttonExport , TQT_SIGNAL ( clicked ( ) ) ,
this , TQT_SLOT ( slotSaveView ( void ) ) ) ;
connect ( tab - > control ( ) - > buttonDelete , TQT_SIGNAL ( clicked ( ) ) ,
this , TQT_SLOT ( slotDelete ( void ) ) ) ;
connect ( tab - > control ( ) - > buttonClose , TQT_SIGNAL ( clicked ( ) ) ,
this , TQT_SLOT ( slotCloseCurrent ( void ) ) ) ;
// if this is a default report, then you can't delete it!
if ( report . id ( ) . isEmpty ( ) )
tab - > control ( ) - > buttonDelete - > setEnabled ( false ) ;
// slotRefreshView();
m_reportTabWidget - > showPage ( tab ) ;
}
void KReportsView : : slotListContextMenu ( TDEListView * lv , TQListViewItem * item , const TQPoint & p )
{
if ( lv = = m_reportListView & & item )
{
TQPopupMenu * contextmenu = new TQPopupMenu ( this ) ;
contextmenu - > insertItem ( i18n ( " &Open " ) , this , TQT_SLOT ( slotOpenFromList ( ) ) ) ;
contextmenu - > insertItem ( i18n ( " &Configure " ) , this , TQT_SLOT ( slotConfigureFromList ( ) ) ) ;
contextmenu - > insertItem ( i18n ( " &New report " ) , this , TQT_SLOT ( slotNewFromList ( ) ) ) ;
contextmenu - > insertItem ( i18n ( " &Delete " ) , this , TQT_SLOT ( slotDeleteFromList ( ) ) ) ;
contextmenu - > popup ( p ) ;
}
}
void KReportsView : : slotOpenFromList ( void )
{
KReportListItem * reportItem = dynamic_cast < KReportListItem * > ( m_reportListView - > selectedItem ( ) ) ;
if ( reportItem )
slotOpenReport ( reportItem ) ;
}
void KReportsView : : slotConfigureFromList ( void )
{
KReportListItem * reportItem = dynamic_cast < KReportListItem * > ( m_reportListView - > selectedItem ( ) ) ;
if ( reportItem )
{
slotOpenReport ( reportItem ) ;
slotConfigure ( ) ;
}
}
void KReportsView : : slotNewFromList ( void )
{
KReportListItem * reportItem = dynamic_cast < KReportListItem * > ( m_reportListView - > selectedItem ( ) ) ;
if ( reportItem )
{
slotOpenReport ( reportItem ) ;
slotDuplicate ( ) ;
}
}
void KReportsView : : slotDeleteFromList ( void )
{
KReportListItem * reportItem = dynamic_cast < KReportListItem * > ( m_reportListView - > selectedItem ( ) ) ;
if ( reportItem )
{
slotOpenReport ( reportItem ) ;
slotDelete ( ) ;
}
}
void KReportsView : : defaultReports ( TQValueList < ReportGroup > & groups )
{
{
ReportGroup list ( " Income and Expenses " , i18n ( " Income and Expenses " ) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eExpenseIncome ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : currentMonth ,
MyMoneyReport : : eDetailAll ,
i18n ( " Income and Expenses This Month " ) ,
i18n ( " Default Report " )
) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eExpenseIncome ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Income and Expenses This Year " ) ,
i18n ( " Default Report " )
) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eExpenseIncome ,
MyMoneyReport : : eYears ,
MyMoneyTransactionFilter : : allDates ,
MyMoneyReport : : eDetailAll ,
i18n ( " Income and Expenses By Year " ) ,
i18n ( " Default Report " )
) ) ;
# ifdef HAVE_KDCHART
list . push_back ( MyMoneyReport (
MyMoneyReport : : eExpenseIncome ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailTop ,
i18n ( " Income and Expenses Graph " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setChartByDefault ( true ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartLine ) ;
list . back ( ) . setChartDataLabels ( false ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eExpenseIncome ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailGroup ,
i18n ( " Income and Expenses Pie Chart " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setChartByDefault ( true ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartPie ) ;
list . back ( ) . setShowingRowTotals ( false ) ;
# endif
groups . push_back ( list ) ;
}
{
ReportGroup list ( " Net Worth " , i18n ( " Net Worth " ) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailTop ,
i18n ( " Net Worth By Month " ) ,
i18n ( " Default Report " )
) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : today ,
MyMoneyReport : : eDetailTop ,
i18n ( " Net Worth Today " ) ,
i18n ( " Default Report " )
) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eYears ,
MyMoneyTransactionFilter : : allDates ,
MyMoneyReport : : eDetailTop ,
i18n ( " Net Worth By Year " ) ,
i18n ( " Default Report " )
) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : next7Days ,
MyMoneyReport : : eDetailTop ,
i18n ( " 7-day Cash Flow Forecast " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setIncludingSchedules ( true ) ;
list . back ( ) . setColumnsAreDays ( true ) ;
# ifdef HAVE_KDCHART
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : last12Months ,
MyMoneyReport : : eDetailTotal ,
i18n ( " Net Worth Graph " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setChartByDefault ( true ) ;
list . back ( ) . setChartGridLines ( false ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartLine ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eInstitution ,
MyMoneyReport : : eTQCnone ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailTop ,
i18n ( " Account Balances by Institution " ) ,
i18n ( " Default Report " )
) ) ;
# endif
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAccountType ,
MyMoneyReport : : eTQCnone ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailTop ,
i18n ( " Account Balances by Type " ) ,
i18n ( " Default Report " )
) ) ;
groups . push_back ( list ) ;
}
{
ReportGroup list ( " Transactions " , i18n ( " Transactions " ) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAccount ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCpayee | MyMoneyReport : : eTQCcategory | MyMoneyReport : : eTQCbalance ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Transactions by Account " ) ,
i18n ( " Default Report " )
) ) ;
//list.back().setConvertCurrency(false);
list . push_back ( MyMoneyReport (
MyMoneyReport : : eCategory ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCpayee | MyMoneyReport : : eTQCaccount ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Transactions by Category " ) ,
i18n ( " Default Report " )
) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : ePayee ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCcategory ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Transactions by Payee " ) ,
i18n ( " Default Report " )
) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eMonth ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCpayee | MyMoneyReport : : eTQCcategory ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Transactions by Month " ) ,
i18n ( " Default Report " )
) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eWeek ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCpayee | MyMoneyReport : : eTQCcategory ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Transactions by Week " ) ,
i18n ( " Default Report " )
) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAccount ,
MyMoneyReport : : eTQCloan ,
MyMoneyTransactionFilter : : allDates ,
MyMoneyReport : : eDetailAll ,
i18n ( " Loan Transactions " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setLoansOnly ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAccountReconcile ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCpayee | MyMoneyReport : : eTQCcategory | MyMoneyReport : : eTQCbalance ,
MyMoneyTransactionFilter : : last3Months ,
MyMoneyReport : : eDetailAll ,
i18n ( " Transactions by Reconciliation Status " ) ,
i18n ( " Default Report " )
) ) ;
groups . push_back ( list ) ;
}
{
ReportGroup list ( " CashFlow " , i18n ( " Cash Flow " ) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eCashFlow ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCpayee | MyMoneyReport : : eTQCaccount ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Cash Flow Transactions This Month " ) ,
i18n ( " Default Report " )
) ) ;
groups . push_back ( list ) ;
}
{
ReportGroup list ( " Investments " , i18n ( " Investments " ) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eTopAccount ,
MyMoneyReport : : eTQCaction | MyMoneyReport : : eTQCshares | MyMoneyReport : : eTQCprice ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Transactions " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAccountByTopAccount ,
MyMoneyReport : : eTQCshares | MyMoneyReport : : eTQCprice ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Holdings by Account " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eEquityType ,
MyMoneyReport : : eTQCshares | MyMoneyReport : : eTQCprice ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Holdings by Type " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAccountByTopAccount ,
MyMoneyReport : : eTQCperformance ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Performance by Account " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eEquityType ,
MyMoneyReport : : eTQCperformance ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Performance by Type " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
# ifdef HAVE_KDCHART
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : today ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Holdings Pie " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setChartByDefault ( true ) ;
list . back ( ) . setChartGridLines ( false ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartPie ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : last12Months ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Worth Graph " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setChartByDefault ( true ) ;
list . back ( ) . setChartGridLines ( false ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartLine ) ;
list . back ( ) . setColumnsAreDays ( true ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : last12Months ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Price Graph " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setChartByDefault ( true ) ;
list . back ( ) . setChartGridLines ( false ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartLine ) ;
list . back ( ) . setColumnsAreDays ( true ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
list . back ( ) . setIncludingBudgetActuals ( false ) ;
list . back ( ) . setIncludingPrice ( true ) ;
list . back ( ) . setConvertCurrency ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : last12Months ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Moving Average Price Graph " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setChartByDefault ( true ) ;
list . back ( ) . setChartGridLines ( false ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartLine ) ;
list . back ( ) . setColumnsAreDays ( true ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
list . back ( ) . setIncludingBudgetActuals ( false ) ;
list . back ( ) . setIncludingAveragePrice ( true ) ;
list . back ( ) . setMovingAverageDays ( 10 ) ;
list . back ( ) . setConvertCurrency ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : last30Days ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Moving Average " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setChartGridLines ( false ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartLine ) ;
list . back ( ) . setColumnsAreDays ( true ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
list . back ( ) . setIncludingBudgetActuals ( false ) ;
list . back ( ) . setIncludingMovingAverage ( true ) ;
list . back ( ) . setMovingAverageDays ( 10 ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : last30Days ,
MyMoneyReport : : eDetailAll ,
i18n ( " Investment Moving Average vs Actual " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setChartByDefault ( true ) ;
list . back ( ) . setChartGridLines ( false ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartLine ) ;
list . back ( ) . setColumnsAreDays ( true ) ;
list . back ( ) . setInvestmentsOnly ( true ) ;
list . back ( ) . setIncludingBudgetActuals ( true ) ;
list . back ( ) . setIncludingMovingAverage ( true ) ;
list . back ( ) . setMovingAverageDays ( 10 ) ;
# endif
groups . push_back ( list ) ;
}
{
ReportGroup list ( " Taxes " , i18n ( " Taxes " ) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eCategory ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCpayee | MyMoneyReport : : eTQCaccount ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Tax Transactions by Category " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setTax ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : ePayee ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCcategory | MyMoneyReport : : eTQCaccount ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Tax Transactions by Payee " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setTax ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eCategory ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCpayee | MyMoneyReport : : eTQCaccount ,
MyMoneyTransactionFilter : : lastFiscalYear ,
MyMoneyReport : : eDetailAll ,
i18n ( " Tax Transactions by Category Last Fiscal Year " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setTax ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : ePayee ,
MyMoneyReport : : eTQCnumber | MyMoneyReport : : eTQCcategory | MyMoneyReport : : eTQCaccount ,
MyMoneyTransactionFilter : : lastFiscalYear ,
MyMoneyReport : : eDetailAll ,
i18n ( " Tax Transactions by Payee Last Fiscal Year " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setTax ( true ) ;
groups . push_back ( list ) ;
}
{
ReportGroup list ( " Budgeting " , i18n ( " Budgeting " ) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eBudgetActual ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : yearToDate ,
MyMoneyReport : : eDetailAll ,
i18n ( " Budgeted vs. Actual This Year " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setShowingRowTotals ( true ) ;
list . back ( ) . setBudget ( " Any " , true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eBudgetActual ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : yearToMonth ,
MyMoneyReport : : eDetailAll ,
i18n ( " Budgeted vs. Actual This Year (YTM) " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setShowingRowTotals ( true ) ;
list . back ( ) . setBudget ( " Any " , true ) ;
// in case we're in January, we show the last year
if ( TQDate : : currentDate ( ) . month ( ) = = 1 ) {
list . back ( ) . setDateFilter ( MyMoneyTransactionFilter : : lastYear ) ;
}
list . push_back ( MyMoneyReport (
MyMoneyReport : : eBudgetActual ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : currentMonth ,
MyMoneyReport : : eDetailAll ,
i18n ( " Monthly Budgeted vs. Actual " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setBudget ( " Any " , true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eBudgetActual ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : currentYear ,
MyMoneyReport : : eDetailAll ,
i18n ( " Yearly Budgeted vs. Actual " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setBudget ( " Any " , true ) ;
list . back ( ) . setShowingRowTotals ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eBudget ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : currentMonth ,
MyMoneyReport : : eDetailAll ,
i18n ( " Monthly Budget " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setBudget ( " Any " , false ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eBudget ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : currentYear ,
MyMoneyReport : : eDetailAll ,
i18n ( " Yearly Budget " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setBudget ( " Any " , false ) ;
list . back ( ) . setShowingRowTotals ( true ) ;
# ifdef HAVE_KDCHART
list . push_back ( MyMoneyReport (
MyMoneyReport : : eBudgetActual ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : currentYear ,
MyMoneyReport : : eDetailGroup ,
i18n ( " Yearly Budgeted vs Actual Graph " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setChartByDefault ( true ) ;
list . back ( ) . setChartGridLines ( false ) ;
list . back ( ) . setBudget ( " Any " , true ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartLine ) ;
# endif
groups . push_back ( list ) ;
}
{
ReportGroup list ( " Forecast " , i18n ( " Forecast " ) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : next12Months ,
MyMoneyReport : : eDetailTop ,
i18n ( " Forecast By Month " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setIncludingForecast ( true ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : nextQuarter ,
MyMoneyReport : : eDetailTop ,
i18n ( " Forecast Next Quarter " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setColumnsAreDays ( true ) ;
list . back ( ) . setIncludingForecast ( true ) ;
# ifdef HAVE_KDCHART
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAssetLiability ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : next3Months ,
MyMoneyReport : : eDetailTotal ,
i18n ( " Net Worth Forecast Graph " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setColumnsAreDays ( true ) ;
list . back ( ) . setIncludingForecast ( true ) ;
list . back ( ) . setChartByDefault ( true ) ;
list . back ( ) . setChartGridLines ( false ) ;
list . back ( ) . setChartType ( MyMoneyReport : : eChartLine ) ;
# endif
groups . push_back ( list ) ;
}
{
ReportGroup list ( " Information " , i18n ( " General Information " ) ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eSchedule ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : next12Months ,
MyMoneyReport : : eDetailAll ,
i18n ( " Schedule Information " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setDetailLevel ( MyMoneyReport : : eDetailAll ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eSchedule ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : next12Months ,
MyMoneyReport : : eDetailAll ,
i18n ( " Schedule Summary Information " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setDetailLevel ( MyMoneyReport : : eDetailTop ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAccountInfo ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : today ,
MyMoneyReport : : eDetailAll ,
i18n ( " Account Information " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setConvertCurrency ( false ) ;
list . push_back ( MyMoneyReport (
MyMoneyReport : : eAccountLoanInfo ,
MyMoneyReport : : eMonths ,
MyMoneyTransactionFilter : : today ,
MyMoneyReport : : eDetailAll ,
i18n ( " Loan Information " ) ,
i18n ( " Default Report " )
) ) ;
list . back ( ) . setConvertCurrency ( false ) ;
groups . push_back ( list ) ;
}
}
// Make sure, that these definitions are only used within this file
// this does not seem to be necessary, but when building RPMs the
// build option 'final' is used and all CPP files are concatenated.
// So it could well be, that in another CPP file these definitions
// are also used.
# undef VIEW_LEDGER
# undef VIEW_SCHEDULE
# undef VIEW_WELCOME
# undef VIEW_HOME
# undef VIEW_REPORTS
# include "kreportsview.moc"
// vim:cin:si:ai:et:ts=2:sw=2: