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

688 lines
18 KiB

/* This file is part of the KDE project
Copyright (C) 2002-2003 Norbert Andres <nandres@web.de>
(C) 2002 Ariya Hidayat <ariya@kde.org>
(C) 2002 Philipp Mueller <philipp.mueller@gmx.de>
(C) 2002 John Dailey <dailey@vt.edu>
(C) 2000-2001 Werner Trobin <trobin@kde.org>
(C) 2000-2001 Laurent Montel <montel@kde.org>
(C) 1999-2002 David Faure <faure@kde.org>
(C) 1999 Stephan Kulow <coolo@kde.org>
(C) 1999 Reginald Stadlbauer <reggie@kde.org>
(C) 1998-1999 Torben Weis <weis@kde.org>
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public License
along with this library; see the file COPYING.LIB. If not, write to
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
* Boston, MA 02110-1301, USA.
*/
#include <assert.h>
#include <tqcheckbox.h>
#include <tqcombobox.h>
#include <tqlabel.h>
#include <tqlayout.h>
#include <tqpushbutton.h>
#include <kdebug.h>
#include <kdialogbase.h>
#include <kmessagebox.h>
#include "kspread_dlg_cons.h"
#include <kspread_canvas.h>
#include <kspread_doc.h>
#include <kspread_global.h>
#include <kspread_locale.h>
#include "selection.h"
#include <kspread_sheet.h>
#include <kspread_util.h>
#include <kspread_view.h>
#include <formula.h>
#include <valueconverter.h>
using namespace KSpread;
ConsolidateDialog::ConsolidateDialog( View* tqparent, const char* name )
: KDialogBase( tqparent, name, false, i18n("Consolidate"), Ok|Cancel )
{
m_pView = tqparent;
TQWidget* page = new TQWidget( this );
setMainWidget( page );
TQGridLayout *grid1 = new TQGridLayout( page, 12, 2, marginHint(), spacingHint() );
TQLabel* tmpTQLabel;
tmpTQLabel = new TQLabel( page, "Label_1" );
grid1->addWidget(tmpTQLabel,0,0);
tmpTQLabel->setText( i18n("&Function:") );
m_pFunction = new TQComboBox( page );
grid1->addWidget(m_pFunction,1,0);
tmpTQLabel->setBuddy(m_pFunction);
m_pFunction->insertItem( i18n("Sum"), Sum );
m_pFunction->insertItem( i18n("Average"), Average );
m_pFunction->insertItem( i18n("Count"), Count );
m_pFunction->insertItem( i18n("Max"), Max );
m_pFunction->insertItem( i18n("Min"), Min );
m_pFunction->insertItem( i18n("Product"), Product );
m_pFunction->insertItem( i18n("Standard Deviation"), StdDev );
m_pFunction->insertItem( i18n("Variance"), Var );
tmpTQLabel = new TQLabel( page, "Label_1" );
tmpTQLabel->setText( i18n("Re&ference:") );
grid1->addWidget(tmpTQLabel,2,0);
m_pRef = new TQLineEdit( page );
grid1->addWidget(m_pRef,3,0);
tmpTQLabel->setBuddy(m_pRef);
tmpTQLabel = new TQLabel( page, "Label_1" );
grid1->addWidget(tmpTQLabel,4,0);
tmpTQLabel->setText( i18n("&Entered references:") );
m_pRefs = new TQListBox( page );
grid1->addMultiCellWidget( m_pRefs,5,8,0,0);
tmpTQLabel->setBuddy(m_pRefs);
m_pRow = new TQCheckBox( i18n("&Description in row"), page );
grid1->addWidget( m_pRow,9,0);
m_pCol = new TQCheckBox( i18n("De&scription in column"), page );
grid1->addWidget(m_pCol,10,0);
m_pCopy = new TQCheckBox( i18n("Co&py data"), page );
grid1->addWidget(m_pCopy,11,0);
m_pAdd = new TQPushButton( i18n("&Add"), page );
grid1->addWidget(m_pAdd,2,1);
m_pRemove = new TQPushButton( i18n("&Remove"), page );
grid1->addWidget(m_pRemove,3,1);
connect( m_pAdd, TQT_SIGNAL( clicked() ), this, TQT_SLOT( slotAdd() ) );
connect( m_pRemove, TQT_SIGNAL( clicked() ), this, TQT_SLOT( slotRemove() ) );
connect( m_pRef, TQT_SIGNAL( returnPressed() ), this, TQT_SLOT( slotReturnPressed() ) );
connect(m_pView->selectionInfo(), TQT_SIGNAL(changed(const Region&)),
this, TQT_SLOT(slotSelectionChanged()));
}
ConsolidateDialog::~ConsolidateDialog()
{
kdDebug(36001)<<"Consolidate::~Consolidate()\n";
}
enum Description { D_ROW, D_COL, D_NONE, D_BOTH };
struct st_cell
{
TQString xdesc;
TQString ydesc;
Cell* cell;
TQString sheet;
int x;
int y;
};
void ConsolidateDialog::slotOk()
{
m_pView->doc()->emitBeginOperation( false );
Map *map = m_pView->doc()->map();
Sheet* sheet = m_pView->activeSheet();
int dx = m_pView->selectionInfo()->selection().left();
int dy = m_pView->selectionInfo()->selection().top();
TQString function;
switch( m_pFunction->currentItem() )
{
case Sum: function = "SUM"; break;
case Average: function = "AVERAGE"; break;
case Count: function = "COUNT"; break;
case Max: function = "MAX"; break;
case Min: function = "MIN"; break;
case Product: function = "PRODUCT"; break;
case StdDev: function = "STDDEV"; break;
case Var: function = "VARIANCE"; break;
default: break; // bad bad !
}
TQStringList r = refs();
TQValueList<Range> ranges;
TQStringList::Iterator s = r.begin();
for( ; s != r.end(); ++s )
{
Range r( *s, map );
// TODO: Check for valid
Q_ASSERT( r.isValid() );
if ( r.sheet() == 0 )
{
r.setSheet(sheet);
r.setSheetName(sheet->sheetName());
}
ranges.append( r );
}
Description desc;
if ( m_pRow->isChecked() && m_pCol->isChecked() )
desc = D_BOTH;
else if ( m_pRow->isChecked() )
desc = D_ROW;
else if ( m_pCol->isChecked() )
desc = D_COL;
else
desc = D_NONE;
// Check whether all ranges have same size
Q_ASSERT( ranges.count() > 0 );
TQValueList<Range>::Iterator it = ranges.begin();
int w = (*it).range().right() - (*it).range().left() + 1;
int h = (*it).range().bottom() - (*it).range().top() + 1;
if ( w <= ( ( desc == D_BOTH || desc == D_COL ) ? 1 : 0 ) ||
h <= ( ( desc == D_BOTH || desc == D_ROW ) ? 1 : 0 ) )
{
m_pView->slotUpdateView( m_pView->activeSheet() );
KMessageBox::error( this, i18n( "The range\n%1\nis too small" ).tqarg( *( r.begin() ) ));
return;
}
if( (*it).range().bottom()==KS_rowMax || (*it).range().right()== KS_colMax )
{
m_pView->slotUpdateView( m_pView->activeSheet() );
KMessageBox::error( this, i18n( "The range\n%1\nis too large" ).tqarg( *( r.begin() ) ));
return;
}
++it;
int i = 1;
for( ; it != ranges.end(); ++it, i++ )
{
TQRect currentRange=(*it).range();
int w2 = currentRange.right() - currentRange.left() + 1;
int h2 = currentRange.bottom() - currentRange.top() + 1;
if(currentRange.bottom()==KS_rowMax || currentRange.right()== KS_colMax)
{
m_pView->slotUpdateView( m_pView->activeSheet() );
KMessageBox::error( this, i18n( "The range\n%1\nis too large" ).tqarg( r[i]));
return;
}
if ( ( desc == D_NONE && ( w != w2 || h != h2 ) ) ||
( desc == D_ROW && h != h2 ) ||
( desc == D_COL && w != w2 ) )
{
m_pView->slotUpdateView( m_pView->activeSheet() );
TQString tmp = i18n( "The ranges\n%1\nand\n%2\nhave different size").tqarg( *( r.begin() ) ).tqarg( r[i] );
KMessageBox::error( this, tmp);
return;
}
}
// Create the consolidation sheet
if ( desc == D_NONE )
{
// Check whether the destination is part of the source ...
TQRect dest;
dest.setCoords( dx, dy, dx + w - 1, dy + h - 1 );
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
Sheet *t = (*it).sheet();
Q_ASSERT( t );
TQRect r;
TQRect currentRange=(*it).range();
r.setCoords( currentRange.left(), currentRange.top(), currentRange.right(), currentRange.bottom() );
if ( t == sheet && r.intersects( dest ) )
{
m_pView->slotUpdateView( m_pView->activeSheet() );
TQString tmp( i18n("The source tables intersect with the destination table") );
KMessageBox::error( this, tmp);
return;
}
}
for( int x = 0; x < w; x++ )
{
for( int y = 0; y < h; y++ )
{
bool novalue=true;
TQString formula = "=" + function + "(";
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
Sheet *t = (*it).sheet();
assert( t );
Cell *c = t->cellAt( x + (*it).range().left(), y + (*it).range().top() );
if(!c->isDefault())
novalue=false;
if ( it != ranges.begin() )
formula += ";";
formula += (*it).sheetName() + "!";
formula += c->name();
}
formula += ")";
if(!novalue)
sheet->setText( dy + y, dx + x,
m_pCopy->isChecked() ? evaluate( formula, sheet ) : formula );
}
}
}
else if ( desc == D_ROW )
{
// Get list of all descriptions in the rows
TQStringList lst;
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
Sheet *t = (*it).sheet();
assert( t );
// kdDebug(36001) << "FROM " << (*it).range.left() << " to " << (*it).range.right() << endl;
for( int x = (*it).range().left(); x <= (*it).range().right() ; ++x )
{
Cell *c = t->cellAt( x, (*it).range().top() );
if ( c )
{
TQString s = c->value().asString();
if ( !lst.tqcontains( s ) )
lst.append( s );
}
}
}
lst.sort();
// Check whether the destination is part of the source ...
TQRect dest;
dest.setCoords( dx, dy, dx + lst.count() - 1, dy + h - 1 );
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
Sheet *t = (*it).sheet();
assert( t );
TQRect r;
TQRect currentRange=(*it).range();
r.setCoords( currentRange.left(), currentRange.top(), currentRange.right(), currentRange.bottom() );
if ( t == sheet && r.intersects( dest ) )
{
m_pView->slotUpdateView( m_pView->activeSheet() );
TQString tmp( i18n("The source tables intersect with the destination table") );
KMessageBox::error( this, tmp);
return;
}
}
// Now create the consolidation sheet
int x = 0;
TQStringList::Iterator s = lst.begin();
for( ; s != lst.end(); ++s, ++x )
{
sheet->setText( dy, dx + x, *s );
for( int y = 1; y < h; ++y )
{
int count = 0;
TQString formula = "=" + function + "(";
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
for( int i = (*it).range().left(); i <= (*it).range().right(); ++i )
{
Sheet *t = (*it).sheet();
assert( t );
Cell *c = t->cellAt( i, (*it).range().top() );
if ( c )
{
if ( c->value().asString() == *s )
{
// Cell *c2 = t->cellAt( i, y + (*it).range.top() );
count++;
if ( it != ranges.begin() )
formula += ";";
formula += (*it).sheetName() + "!";
formula += Cell::name( i, y + (*it).range().top() );
}
}
}
}
formula += ")";
sheet->setText( dy + y, dx + x,
m_pCopy->isChecked() ? evaluate( formula, sheet ) : formula );
}
}
}
else if ( desc == D_COL )
{
// Get list of all descriptions in the columns
TQStringList lst;
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
Sheet *t = (*it).sheet();
assert( t );
for( int y = (*it).range().top(); y <= (*it).range().bottom() ; ++y )
{
Cell *c = t->cellAt( (*it).range().left(), y );
if ( c )
{
TQString s = c->value().asString();
if ( !s.isEmpty() && lst.tqfind( s ) == lst.end() )
lst.append( s );
}
}
}
lst.sort();
// Check whether the destination is part of the source ...
TQRect dest;
dest.setCoords( dx, dy, dx + w - 1, dy + lst.count() - 1 );
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
Sheet *t = (*it).sheet();
assert( t );
TQRect r;
TQRect currentRange=(*it).range();
r.setCoords( currentRange.left(), currentRange.top(), currentRange.right(), currentRange.bottom() );
if ( t == sheet && r.intersects( dest ) )
{
m_pView->slotUpdateView( m_pView->activeSheet() );
TQString tmp( i18n("The source tables intersect with the destination table") );
KMessageBox::error( this, tmp);
return;
}
}
// Now create the consolidation sheet
int y = 0;
TQStringList::Iterator s = lst.begin();
for( ; s != lst.end(); ++s, ++y )
{
sheet->setText( dy + y, dx, *s );
for( int x = 1; x < w; ++x )
{
int count = 0;
TQString formula = "=" + function + "(";
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
for( int i = (*it).range().top(); i <= (*it).range().bottom(); i++ )
{
Sheet *t = (*it).sheet();
assert( t );
Cell *c = t->cellAt( (*it).range().left(), i );
if ( c )
{
TQString v = c->value().asString();
if ( !v.isEmpty() && *s == v )
{
// Cell *c2 = t->cellAt( x + (*it).range.left(), i );
count++;
if ( it != ranges.begin() ) formula += ";";
formula += (*it).sheetName() + "!";
formula += Cell::name( i, y + (*it).range().top() );
}
}
}
}
formula += ")";
sheet->setText( dy + y, dx + x,
m_pCopy->isChecked() ? evaluate( formula, sheet ) : formula );
}
}
}
else if ( desc == D_BOTH )
{
// Get list of all descriptions in the columns
TQStringList cols;
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
Sheet *t = (*it).sheet();
assert( t );
for( int y = (*it).range().top() + 1; y <= (*it).range().bottom() ; ++y )
{
Cell *c = t->cellAt( (*it).range().left(), y );
if ( c )
{
TQString s = c->value().asString();
if ( !s.isEmpty() && cols.tqfind( s ) == cols.end() )
cols.append( s );
}
}
}
cols.sort();
// Get list of all descriptions in the rows
TQStringList rows;
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
Sheet *t = (*it).sheet();
assert( t );
for( int x = (*it).range().left() + 1; x <= (*it).range().right() ; ++x )
{
Cell *c = t->cellAt( x, (*it).range().top() );
if ( c )
{
TQString s = c->value().asString();
if ( !s.isEmpty() && rows.tqfind( s ) == rows.end() )
rows.append( s );
}
}
}
rows.sort();
// Check whether the destination is part of the source ...
TQRect dest;
dest.setCoords( dx, dy, dx + cols.count(), dy + rows.count() );
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
Sheet *t = (*it).sheet();
assert( t );
TQRect r;
TQRect currentRange=(*it).range();
r.setCoords( currentRange.left(), currentRange.top(), currentRange.right(), currentRange.bottom() );
if ( t == sheet && r.intersects( dest ) )
{
m_pView->slotUpdateView( m_pView->activeSheet() );
TQString tmp( i18n("The source tables intersect with the destination table") );
KMessageBox::error( this, tmp);
return;
}
}
// Fill the list with all interesting cells
TQValueList<st_cell> lst;
it = ranges.begin();
for( ; it != ranges.end(); ++it )
{
Sheet *t = (*it).sheet();
assert( t );
for( int x = (*it).range().left() + 1; x <= (*it).range().right() ; ++x )
{
Cell *c = t->cellAt( x, (*it).range().top() );
if ( c )
{
TQString ydesc = c->value().asString();
for( int y = (*it).range().top() + 1; y <= (*it).range().bottom() ; ++y )
{
Cell *c2 = t->cellAt( (*it).range().left(), y );
if ( c2 )
{
TQString xdesc = c2->value().asString();
Cell *c3 = t->cellAt( x, y );
if ( c3 && c3->value().isNumber() )
{
st_cell k;
k.xdesc = xdesc;
k.ydesc = ydesc;
k.cell = c3;
k.sheet = (*it).sheetName();
k.x = x;
k.y = y;
lst.append( k );
}
}
}
}
}
}
// Draw the row description
int i = 1;
TQStringList::Iterator s = rows.begin();
for( ; s != rows.end(); ++s, ++i )
sheet->setText( dy, dx + i, *s );
// Draw the column description
i = 1;
s = cols.begin();
for( ; s != cols.end(); ++s, ++i )
sheet->setText( dy + i, dx, *s );
// Draw the data
int x = 1;
TQStringList::Iterator ydesc = rows.begin();
for( ; ydesc != rows.end(); ++ydesc, x++ )
{
int y = 1;
TQStringList::Iterator xdesc = cols.begin();
for( ; xdesc != cols.end(); ++xdesc, y++ )
{
int count = 0;
TQString formula = "=" + function + "(";
TQValueList<st_cell>::Iterator lit = lst.begin();
for( ; lit != lst.end(); ++lit )
{
if ( (*lit).xdesc == *xdesc && (*lit).ydesc == *ydesc )
{
count++;
if ( it != ranges.begin() ) formula += ";";
formula += (*it).sheetName() + "!";
formula += Cell::name( i, y + (*it).range().top() );
}
}
formula += ")";
sheet->setText( dy + y, dx + x,
m_pCopy->isChecked() ? evaluate( formula, sheet ) : formula );
}
}
}
m_pView->updateEditWidget();
m_pView->slotUpdateView( m_pView->activeSheet() );
accept();
delete this;
}
void ConsolidateDialog::slotCancel()
{
reject();
delete this;
}
void ConsolidateDialog::slotAdd()
{
slotReturnPressed();
}
void ConsolidateDialog::slotRemove()
{
int i = m_pRefs->currentItem();
if ( i < 0 )
return;
m_pRefs->removeItem( i );
if ( m_pRefs->count() == 0 )
actionButton( Ok )->setEnabled( false );
}
TQStringList ConsolidateDialog::refs()
{
TQStringList list;
int c = m_pRefs->count();
for( int i = 0; i < c; i++ )
list.append( m_pRefs->text( i ) );
return list;
}
void ConsolidateDialog::slotSelectionChanged()
{
if (!m_pView->selectionInfo()->isValid())
{
m_pRef->setText( "" );
return;
}
TQString area = m_pView->selectionInfo()->name();
m_pRef->setText( area );
m_pRef->setSelection( 0, area.length() );
}
void ConsolidateDialog::slotReturnPressed()
{
TQString txt = m_pRef->text();
Range r( txt, m_pView->doc()->map() );
if ( !r.isValid() )
{
KMessageBox::error( this, i18n("The range\n%1\n is malformed").tqarg( txt ));
return;
}
if ( !txt.isEmpty() )
{
m_pRefs->insertItem( txt );
actionButton( Ok )->setEnabled( true );
}
}
void ConsolidateDialog::closeEvent ( TQCloseEvent * )
{
delete this;
}
TQString ConsolidateDialog::evaluate( const TQString& formula, Sheet* sheet )
{
TQString result = "###";
Formula *f = new Formula (sheet);
f->setExpression (formula);
if (!f->isValid()) {
delete f;
return result;
}
Value res = f->eval ();
delete f;
result = sheet->doc()->converter()->asString (res).asString ();
return result;
}
#include "kspread_dlg_cons.moc"