1004 lines
35 KiB
C++
1004 lines
35 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
/*
|
|
* This file is part of the LibreOffice project.
|
|
*
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
*
|
|
* This file incorporates work covered by the following license notice:
|
|
*
|
|
* Licensed to the Apache Software Foundation (ASF) under one or more
|
|
* contributor license agreements. See the NOTICE file distributed
|
|
* with this work for additional information regarding copyright
|
|
* ownership. The ASF licenses this file to you under the Apache
|
|
* License, Version 2.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy of
|
|
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
*/
|
|
|
|
#include <sal/config.h>
|
|
|
|
#include <cassert>
|
|
|
|
#include "scitems.hxx"
|
|
#include <vcl/msgbox.hxx>
|
|
#include <vcl/waitobj.hxx>
|
|
#include <sfx2/app.hxx>
|
|
#include <sfx2/bindings.hxx>
|
|
|
|
#include <com/sun/star/script/vba/XVBACompatibility.hpp>
|
|
|
|
#include "docsh.hxx"
|
|
#include "global.hxx"
|
|
#include "globstr.hrc"
|
|
#include "globalnames.hxx"
|
|
#include "undodat.hxx"
|
|
#include "undotab.hxx"
|
|
#include "undoblk.hxx"
|
|
#include "dpobject.hxx"
|
|
#include "dpshttab.hxx"
|
|
#include "dbdocfun.hxx"
|
|
#include "consoli.hxx"
|
|
#include "dbdata.hxx"
|
|
#include "progress.hxx"
|
|
#include "olinetab.hxx"
|
|
#include "patattr.hxx"
|
|
#include "attrib.hxx"
|
|
#include "docpool.hxx"
|
|
#include "uiitems.hxx"
|
|
#include "sc.hrc"
|
|
#include "waitoff.hxx"
|
|
#include "sizedev.hxx"
|
|
#include "clipparam.hxx"
|
|
#include <rowheightcontext.hxx>
|
|
#include <refupdatecontext.hxx>
|
|
|
|
using com::sun::star::script::XLibraryContainer;
|
|
using com::sun::star::script::vba::XVBACompatibility;
|
|
using com::sun::star::container::XNameContainer;
|
|
using com::sun::star::uno::Reference;
|
|
using com::sun::star::uno::UNO_QUERY;
|
|
|
|
using ::std::unique_ptr;
|
|
using ::std::vector;
|
|
|
|
// former viewfunc/dbfunc methods
|
|
|
|
void ScDocShell::ErrorMessage( sal_uInt16 nGlobStrId )
|
|
{
|
|
//! StopMarking an der (aktiven) View?
|
|
|
|
vcl::Window* pParent = GetActiveDialogParent();
|
|
ScWaitCursorOff aWaitOff( pParent );
|
|
bool bFocus = pParent && pParent->HasFocus();
|
|
|
|
if(nGlobStrId==STR_PROTECTIONERR)
|
|
{
|
|
if(IsReadOnly())
|
|
{
|
|
nGlobStrId=STR_READONLYERR;
|
|
}
|
|
}
|
|
|
|
InfoBox aBox( pParent, ScGlobal::GetRscString( nGlobStrId ) );
|
|
aBox.Execute();
|
|
if (bFocus)
|
|
pParent->GrabFocus();
|
|
}
|
|
|
|
bool ScDocShell::IsEditable() const
|
|
{
|
|
// import into read-only document is possible - must be extended if other filters use api
|
|
// #i108547# MSOOXML filter uses "IsChangeReadOnlyEnabled" property
|
|
|
|
return !IsReadOnly() || aDocument.IsImportingXML() || aDocument.IsChangeReadOnlyEnabled();
|
|
}
|
|
|
|
void ScDocShell::DBAreaDeleted( SCTAB nTab, SCCOL nX1, SCROW nY1, SCCOL nX2, SCROW /* nY2 */ )
|
|
{
|
|
ScDocShellModificator aModificator( *this );
|
|
aDocument.RemoveFlagsTab( nX1, nY1, nX2, nY1, nTab, SC_MF_AUTO );
|
|
PostPaint( nX1, nY1, nTab, nX2, nY1, nTab, PAINT_GRID );
|
|
// No SetDocumentModified, as the unnamed database range might have to be restored later.
|
|
// The UNO hint is broadcast directly instead, to keep UNO objects in valid state.
|
|
aDocument.BroadcastUno( SfxSimpleHint( SFX_HINT_DATACHANGED ) );
|
|
}
|
|
|
|
ScDBData* ScDocShell::GetDBData( const ScRange& rMarked, ScGetDBMode eMode, ScGetDBSelection eSel )
|
|
{
|
|
SCCOL nCol = rMarked.aStart.Col();
|
|
SCROW nRow = rMarked.aStart.Row();
|
|
SCTAB nTab = rMarked.aStart.Tab();
|
|
|
|
SCCOL nStartCol = nCol;
|
|
SCROW nStartRow = nRow;
|
|
SCTAB nStartTab = nTab;
|
|
SCCOL nEndCol = rMarked.aEnd.Col();
|
|
SCROW nEndRow = rMarked.aEnd.Row();
|
|
SCTAB nEndTab = rMarked.aEnd.Tab();
|
|
// Nicht einfach GetDBAtCursor: Der zusammenhaengende Datenbereich
|
|
// fuer "unbenannt" (GetDataArea) kann neben dem Cursor legen, also muss auch ein
|
|
// benannter DB-Bereich dort gesucht werden.
|
|
ScDBCollection* pColl = aDocument.GetDBCollection();
|
|
ScDBData* pData = aDocument.GetDBAtArea( nTab, nStartCol, nStartRow, nEndCol, nEndRow );
|
|
if (!pData)
|
|
pData = pColl->GetDBNearCursor(nCol, nRow, nTab );
|
|
|
|
bool bSelected = ( eSel == SC_DBSEL_FORCE_MARK ||
|
|
(rMarked.aStart != rMarked.aEnd && eSel != SC_DBSEL_ROW_DOWN) );
|
|
bool bOnlyDown = (!bSelected && eSel == SC_DBSEL_ROW_DOWN && rMarked.aStart.Row() == rMarked.aEnd.Row());
|
|
|
|
bool bUseThis = false;
|
|
if (pData)
|
|
{
|
|
// Bereich nehmen, wenn nichts anderes markiert
|
|
|
|
SCTAB nDummy;
|
|
SCCOL nOldCol1;
|
|
SCROW nOldRow1;
|
|
SCCOL nOldCol2;
|
|
SCROW nOldRow2;
|
|
pData->GetArea( nDummy, nOldCol1,nOldRow1, nOldCol2,nOldRow2 );
|
|
bool bIsNoName = ( pData->GetName() == STR_DB_LOCAL_NONAME );
|
|
|
|
if (!bSelected)
|
|
{
|
|
bUseThis = true;
|
|
if ( bIsNoName && eMode == SC_DB_MAKE )
|
|
{
|
|
// If nothing marked or only one row marked, adapt
|
|
// "unbenannt"/"unnamed" to contiguous area.
|
|
nStartCol = nCol;
|
|
nStartRow = nRow;
|
|
if (bOnlyDown)
|
|
{
|
|
nEndCol = rMarked.aEnd.Col();
|
|
nEndRow = rMarked.aEnd.Row();
|
|
}
|
|
else
|
|
{
|
|
nEndCol = nStartCol;
|
|
nEndRow = nStartRow;
|
|
}
|
|
aDocument.GetDataArea( nTab, nStartCol, nStartRow, nEndCol, nEndRow, false, bOnlyDown );
|
|
if ( nOldCol1 != nStartCol || nOldCol2 != nEndCol || nOldRow1 != nStartRow )
|
|
bUseThis = false; // passt gar nicht
|
|
else if ( nOldRow2 != nEndRow )
|
|
{
|
|
// Bereich auf neue End-Zeile erweitern
|
|
pData->SetArea( nTab, nOldCol1,nOldRow1, nOldCol2,nEndRow );
|
|
}
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if ( nOldCol1 == nStartCol && nOldRow1 == nStartRow &&
|
|
nOldCol2 == nEndCol && nOldRow2 == nEndRow ) // genau markiert?
|
|
bUseThis = true;
|
|
else
|
|
bUseThis = false; // immer Markierung nehmen (Bug 11964)
|
|
}
|
|
|
|
// fuer Import nie "unbenannt" nehmen
|
|
|
|
if ( bUseThis && eMode == SC_DB_IMPORT && bIsNoName )
|
|
bUseThis = false;
|
|
}
|
|
|
|
if ( bUseThis )
|
|
{
|
|
pData->GetArea( nStartTab, nStartCol,nStartRow, nEndCol,nEndRow );
|
|
nEndTab = nStartTab;
|
|
}
|
|
else if ( eMode == SC_DB_OLD )
|
|
{
|
|
pData = NULL; // nichts gefunden
|
|
nStartCol = nEndCol = nCol;
|
|
nStartRow = nEndRow = nRow;
|
|
nStartTab = nEndTab = nTab;
|
|
}
|
|
else
|
|
{
|
|
if ( !bSelected )
|
|
{ // zusammenhaengender Bereich
|
|
nStartCol = nCol;
|
|
nStartRow = nRow;
|
|
if (bOnlyDown)
|
|
{
|
|
nEndCol = rMarked.aEnd.Col();
|
|
nEndRow = rMarked.aEnd.Row();
|
|
}
|
|
else
|
|
{
|
|
nEndCol = nStartCol;
|
|
nEndRow = nStartRow;
|
|
}
|
|
aDocument.GetDataArea( nTab, nStartCol, nStartRow, nEndCol, nEndRow, false, bOnlyDown );
|
|
}
|
|
|
|
bool bHasHeader = aDocument.HasColHeader( nStartCol,nStartRow, nEndCol,nEndRow, nTab );
|
|
|
|
ScDBData* pNoNameData = aDocument.GetAnonymousDBData(nTab);
|
|
if ( eMode != SC_DB_IMPORT && pNoNameData)
|
|
{
|
|
|
|
if ( !pOldAutoDBRange )
|
|
{
|
|
// store the old unnamed database range with its settings for undo
|
|
// (store at the first change, get the state before all changes)
|
|
pOldAutoDBRange = new ScDBData( *pNoNameData );
|
|
}
|
|
|
|
SCCOL nOldX1; // alten Bereich sauber wegnehmen
|
|
SCROW nOldY1; //! (UNDO ???)
|
|
SCCOL nOldX2;
|
|
SCROW nOldY2;
|
|
SCTAB nOldTab;
|
|
pNoNameData->GetArea( nOldTab, nOldX1, nOldY1, nOldX2, nOldY2 );
|
|
DBAreaDeleted( nOldTab, nOldX1, nOldY1, nOldX2, nOldY2 );
|
|
|
|
pNoNameData->SetSortParam( ScSortParam() ); // Parameter zuruecksetzen
|
|
pNoNameData->SetQueryParam( ScQueryParam() );
|
|
pNoNameData->SetSubTotalParam( ScSubTotalParam() );
|
|
|
|
pNoNameData->SetArea( nTab, nStartCol,nStartRow, nEndCol,nEndRow ); // neu setzen
|
|
pNoNameData->SetByRow( true );
|
|
pNoNameData->SetHeader( bHasHeader );
|
|
pNoNameData->SetAutoFilter( false );
|
|
}
|
|
else
|
|
{
|
|
ScDBCollection* pUndoColl = NULL;
|
|
|
|
OUString aNewName;
|
|
if (eMode==SC_DB_IMPORT)
|
|
{
|
|
aDocument.PreprocessDBDataUpdate();
|
|
pUndoColl = new ScDBCollection( *pColl ); // Undo fuer Import1-Bereich
|
|
|
|
OUString aImport = ScGlobal::GetRscString( STR_DBNAME_IMPORT );
|
|
long nCount = 0;
|
|
const ScDBData* pDummy = NULL;
|
|
ScDBCollection::NamedDBs& rDBs = pColl->getNamedDBs();
|
|
do
|
|
{
|
|
++nCount;
|
|
aNewName = aImport;
|
|
aNewName += OUString::number( nCount );
|
|
pDummy = rDBs.findByUpperName(ScGlobal::pCharClass->uppercase(aNewName));
|
|
}
|
|
while (pDummy);
|
|
pNoNameData = new ScDBData( aNewName, nTab,
|
|
nStartCol,nStartRow, nEndCol,nEndRow,
|
|
true, bHasHeader );
|
|
bool ins = rDBs.insert(pNoNameData);
|
|
assert(ins); (void)ins;
|
|
}
|
|
else
|
|
{
|
|
aNewName = STR_DB_LOCAL_NONAME;
|
|
pNoNameData = new ScDBData(aNewName , nTab,
|
|
nStartCol,nStartRow, nEndCol,nEndRow,
|
|
true, bHasHeader );
|
|
aDocument.SetAnonymousDBData(nTab, pNoNameData);
|
|
}
|
|
|
|
if ( pUndoColl )
|
|
{
|
|
aDocument.CompileHybridFormula();
|
|
|
|
ScDBCollection* pRedoColl = new ScDBCollection( *pColl );
|
|
GetUndoManager()->AddUndoAction( new ScUndoDBData( this, pUndoColl, pRedoColl ) );
|
|
}
|
|
|
|
// neuen Bereich am Sba anmelden nicht mehr noetig
|
|
|
|
// "Import1" etc am Navigator bekanntmachen
|
|
if (eMode==SC_DB_IMPORT)
|
|
SfxGetpApp()->Broadcast( SfxSimpleHint( SC_HINT_DBAREAS_CHANGED ) );
|
|
}
|
|
pData = pNoNameData;
|
|
}
|
|
|
|
return pData;
|
|
}
|
|
|
|
ScDBData* ScDocShell::GetAnonymousDBData(const ScRange& rRange)
|
|
{
|
|
bool bHasHeader = aDocument.HasColHeader(
|
|
rRange.aStart.Col(), rRange.aStart.Row(), rRange.aEnd.Col(), rRange.aEnd.Row(), rRange.aStart.Tab());
|
|
|
|
ScDBCollection* pColl = aDocument.GetDBCollection();
|
|
if (!pColl)
|
|
return NULL;
|
|
|
|
ScDBData* pData = pColl->getAnonDBs().getByRange(rRange);
|
|
if (!pData)
|
|
return NULL;
|
|
|
|
pData->SetHeader(bHasHeader);
|
|
return pData;
|
|
}
|
|
|
|
ScDBData* ScDocShell::GetOldAutoDBRange()
|
|
{
|
|
ScDBData* pRet = pOldAutoDBRange;
|
|
pOldAutoDBRange = NULL;
|
|
return pRet; // has to be deleted by caller!
|
|
}
|
|
|
|
void ScDocShell::CancelAutoDBRange()
|
|
{
|
|
// called when dialog is cancelled
|
|
//moggi:TODO
|
|
if ( pOldAutoDBRange )
|
|
{
|
|
SCTAB nTab = GetCurTab();
|
|
ScDBData* pDBData = aDocument.GetAnonymousDBData(nTab);
|
|
if ( pDBData )
|
|
{
|
|
SCCOL nRangeX1;
|
|
SCROW nRangeY1;
|
|
SCCOL nRangeX2;
|
|
SCROW nRangeY2;
|
|
SCTAB nRangeTab;
|
|
pDBData->GetArea( nRangeTab, nRangeX1, nRangeY1, nRangeX2, nRangeY2 );
|
|
DBAreaDeleted( nRangeTab, nRangeX1, nRangeY1, nRangeX2, nRangeY2 );
|
|
|
|
*pDBData = *pOldAutoDBRange; // restore old settings
|
|
|
|
if ( pOldAutoDBRange->HasAutoFilter() )
|
|
{
|
|
// restore AutoFilter buttons
|
|
pOldAutoDBRange->GetArea( nRangeTab, nRangeX1, nRangeY1, nRangeX2, nRangeY2 );
|
|
aDocument.ApplyFlagsTab( nRangeX1, nRangeY1, nRangeX2, nRangeY1, nRangeTab, SC_MF_AUTO );
|
|
PostPaint( nRangeX1, nRangeY1, nRangeTab, nRangeX2, nRangeY1, nRangeTab, PAINT_GRID );
|
|
}
|
|
}
|
|
|
|
delete pOldAutoDBRange;
|
|
pOldAutoDBRange = NULL;
|
|
}
|
|
}
|
|
|
|
// Hoehen anpassen
|
|
//! mit docfunc zusammenfassen
|
|
|
|
bool ScDocShell::AdjustRowHeight( SCROW nStartRow, SCROW nEndRow, SCTAB nTab )
|
|
{
|
|
ScSizeDeviceProvider aProv(this);
|
|
Fraction aZoom(1,1);
|
|
sc::RowHeightContext aCxt(aProv.GetPPTX(), aProv.GetPPTY(), aZoom, aZoom, aProv.GetDevice());
|
|
bool bChange = aDocument.SetOptimalHeight(aCxt, nStartRow,nEndRow, nTab);
|
|
|
|
if (bChange)
|
|
PostPaint( 0,nStartRow,nTab, MAXCOL,MAXROW,nTab, PAINT_GRID|PAINT_LEFT );
|
|
|
|
return bChange;
|
|
}
|
|
|
|
void ScDocShell::UpdateAllRowHeights( const ScMarkData* pTabMark )
|
|
{
|
|
// update automatic row heights
|
|
|
|
ScSizeDeviceProvider aProv(this);
|
|
Fraction aZoom(1,1);
|
|
sc::RowHeightContext aCxt(aProv.GetPPTX(), aProv.GetPPTY(), aZoom, aZoom, aProv.GetDevice());
|
|
aDocument.UpdateAllRowHeights(aCxt, pTabMark);
|
|
}
|
|
|
|
void ScDocShell::UpdatePendingRowHeights( SCTAB nUpdateTab, bool bBefore )
|
|
{
|
|
bool bIsUndoEnabled = aDocument.IsUndoEnabled();
|
|
aDocument.EnableUndo( false );
|
|
aDocument.LockStreamValid( true ); // ignore draw page size (but not formula results)
|
|
if ( bBefore ) // check all sheets up to nUpdateTab
|
|
{
|
|
SCTAB nTabCount = aDocument.GetTableCount();
|
|
if ( nUpdateTab >= nTabCount )
|
|
nUpdateTab = nTabCount-1; // nUpdateTab is inclusive
|
|
|
|
ScMarkData aUpdateSheets;
|
|
SCTAB nTab;
|
|
for (nTab=0; nTab<=nUpdateTab; ++nTab)
|
|
if ( aDocument.IsPendingRowHeights( nTab ) )
|
|
aUpdateSheets.SelectTable( nTab, true );
|
|
|
|
if (aUpdateSheets.GetSelectCount())
|
|
UpdateAllRowHeights(&aUpdateSheets); // update with a single progress bar
|
|
|
|
for (nTab=0; nTab<=nUpdateTab; ++nTab)
|
|
if ( aUpdateSheets.GetTableSelect( nTab ) )
|
|
{
|
|
aDocument.UpdatePageBreaks( nTab );
|
|
aDocument.SetPendingRowHeights( nTab, false );
|
|
}
|
|
}
|
|
else // only nUpdateTab
|
|
{
|
|
if ( aDocument.IsPendingRowHeights( nUpdateTab ) )
|
|
{
|
|
AdjustRowHeight( 0, MAXROW, nUpdateTab );
|
|
aDocument.UpdatePageBreaks( nUpdateTab );
|
|
aDocument.SetPendingRowHeights( nUpdateTab, false );
|
|
}
|
|
}
|
|
aDocument.LockStreamValid( false );
|
|
aDocument.EnableUndo( bIsUndoEnabled );
|
|
}
|
|
|
|
void ScDocShell::RefreshPivotTables( const ScRange& rSource )
|
|
{
|
|
ScDPCollection* pColl = aDocument.GetDPCollection();
|
|
if (!pColl)
|
|
return;
|
|
|
|
ScDBDocFunc aFunc(*this);
|
|
for (size_t i = 0, n = pColl->GetCount(); i < n; ++i)
|
|
{
|
|
ScDPObject* pOld = (*pColl)[i];
|
|
if (!pOld)
|
|
continue;
|
|
|
|
const ScSheetSourceDesc* pSheetDesc = pOld->GetSheetDesc();
|
|
if (pSheetDesc && pSheetDesc->GetSourceRange().Intersects(rSource))
|
|
aFunc.UpdatePivotTable(*pOld, true, false);
|
|
}
|
|
}
|
|
|
|
static OUString lcl_GetAreaName( ScDocument* pDoc, ScArea* pArea )
|
|
{
|
|
OUString aName;
|
|
bool bOk = false;
|
|
ScDBData* pData = pDoc->GetDBAtArea( pArea->nTab, pArea->nColStart, pArea->nRowStart,
|
|
pArea->nColEnd, pArea->nRowEnd );
|
|
if (pData)
|
|
{
|
|
aName = pData->GetName();
|
|
bOk = true;
|
|
}
|
|
|
|
if (!bOk)
|
|
pDoc->GetName( pArea->nTab, aName );
|
|
|
|
return aName;
|
|
}
|
|
|
|
void ScDocShell::DoConsolidate( const ScConsolidateParam& rParam, bool bRecord )
|
|
{
|
|
ScConsData aData;
|
|
|
|
sal_uInt16 nPos;
|
|
SCCOL nColSize = 0;
|
|
SCROW nRowSize = 0;
|
|
bool bErr = false;
|
|
for (nPos=0; nPos<rParam.nDataAreaCount; nPos++)
|
|
{
|
|
ScArea* pArea = rParam.ppDataAreas[nPos];
|
|
nColSize = std::max( nColSize, SCCOL( pArea->nColEnd - pArea->nColStart + 1 ) );
|
|
nRowSize = std::max( nRowSize, SCROW( pArea->nRowEnd - pArea->nRowStart + 1 ) );
|
|
|
|
// Test, ob Quelldaten verschoben wuerden
|
|
if (rParam.bReferenceData)
|
|
if (pArea->nTab == rParam.nTab && pArea->nRowEnd >= rParam.nRow)
|
|
bErr = true;
|
|
}
|
|
|
|
if (bErr)
|
|
{
|
|
InfoBox aBox( GetActiveDialogParent(),
|
|
ScGlobal::GetRscString( STR_CONSOLIDATE_ERR1 ) );
|
|
aBox.Execute();
|
|
return;
|
|
}
|
|
|
|
// ausfuehren
|
|
|
|
WaitObject aWait( GetActiveDialogParent() );
|
|
ScDocShellModificator aModificator( *this );
|
|
|
|
ScRange aOldDest;
|
|
ScDBData* pDestData = aDocument.GetDBAtCursor( rParam.nCol, rParam.nRow, rParam.nTab, true );
|
|
if (pDestData)
|
|
pDestData->GetArea(aOldDest);
|
|
|
|
aData.SetSize( nColSize, nRowSize );
|
|
aData.SetFlags( rParam.eFunction, rParam.bByCol, rParam.bByRow, rParam.bReferenceData );
|
|
if ( rParam.bByCol || rParam.bByRow )
|
|
for (nPos=0; nPos<rParam.nDataAreaCount; nPos++)
|
|
{
|
|
ScArea* pArea = rParam.ppDataAreas[nPos];
|
|
aData.AddFields( &aDocument, pArea->nTab, pArea->nColStart, pArea->nRowStart,
|
|
pArea->nColEnd, pArea->nRowEnd );
|
|
}
|
|
aData.DoneFields();
|
|
for (nPos=0; nPos<rParam.nDataAreaCount; nPos++)
|
|
{
|
|
ScArea* pArea = rParam.ppDataAreas[nPos];
|
|
aData.AddData( &aDocument, pArea->nTab, pArea->nColStart, pArea->nRowStart,
|
|
pArea->nColEnd, pArea->nRowEnd );
|
|
aData.AddName( lcl_GetAreaName(&aDocument,pArea) );
|
|
}
|
|
|
|
aData.GetSize( nColSize, nRowSize );
|
|
if (bRecord && nColSize > 0 && nRowSize > 0)
|
|
{
|
|
ScDBData* pUndoData = pDestData ? new ScDBData(*pDestData) : NULL;
|
|
|
|
SCTAB nDestTab = rParam.nTab;
|
|
ScArea aDestArea( rParam.nTab, rParam.nCol, rParam.nRow,
|
|
rParam.nCol+nColSize-1, rParam.nRow+nRowSize-1 );
|
|
if (rParam.bByCol) ++aDestArea.nColEnd;
|
|
if (rParam.bByRow) ++aDestArea.nRowEnd;
|
|
|
|
if (rParam.bReferenceData)
|
|
{
|
|
SCTAB nTabCount = aDocument.GetTableCount();
|
|
SCROW nInsertCount = aData.GetInsertCount();
|
|
|
|
// alte Outlines
|
|
ScOutlineTable* pTable = aDocument.GetOutlineTable( nDestTab );
|
|
ScOutlineTable* pUndoTab = pTable ? new ScOutlineTable( *pTable ) : NULL;
|
|
|
|
ScDocument* pUndoDoc = new ScDocument( SCDOCMODE_UNDO );
|
|
pUndoDoc->InitUndo( &aDocument, 0, nTabCount-1, false, true );
|
|
|
|
// Zeilenstatus
|
|
aDocument.CopyToDocument( 0,0,nDestTab, MAXCOL,MAXROW,nDestTab,
|
|
IDF_NONE, false, pUndoDoc );
|
|
|
|
// alle Formeln
|
|
aDocument.CopyToDocument( 0,0,0, MAXCOL,MAXROW,nTabCount-1,
|
|
IDF_FORMULA, false, pUndoDoc );
|
|
|
|
// komplette Ausgangszeilen
|
|
aDocument.CopyToDocument( 0,aDestArea.nRowStart,nDestTab,
|
|
MAXCOL,aDestArea.nRowEnd,nDestTab,
|
|
IDF_ALL, false, pUndoDoc );
|
|
|
|
// alten Ausgabebereich
|
|
if (pDestData)
|
|
aDocument.CopyToDocument( aOldDest, IDF_ALL, false, pUndoDoc );
|
|
|
|
GetUndoManager()->AddUndoAction(
|
|
new ScUndoConsolidate( this, aDestArea, rParam, pUndoDoc,
|
|
true, nInsertCount, pUndoTab, pUndoData ) );
|
|
}
|
|
else
|
|
{
|
|
ScDocument* pUndoDoc = new ScDocument( SCDOCMODE_UNDO );
|
|
pUndoDoc->InitUndo( &aDocument, aDestArea.nTab, aDestArea.nTab );
|
|
|
|
aDocument.CopyToDocument( aDestArea.nColStart, aDestArea.nRowStart, aDestArea.nTab,
|
|
aDestArea.nColEnd, aDestArea.nRowEnd, aDestArea.nTab,
|
|
IDF_ALL, false, pUndoDoc );
|
|
|
|
// alten Ausgabebereich
|
|
if (pDestData)
|
|
aDocument.CopyToDocument( aOldDest, IDF_ALL, false, pUndoDoc );
|
|
|
|
GetUndoManager()->AddUndoAction(
|
|
new ScUndoConsolidate( this, aDestArea, rParam, pUndoDoc,
|
|
false, 0, NULL, pUndoData ) );
|
|
}
|
|
}
|
|
|
|
if (pDestData) // Zielbereich loeschen / anpassen
|
|
{
|
|
aDocument.DeleteAreaTab(aOldDest, IDF_CONTENTS);
|
|
pDestData->SetArea( rParam.nTab, rParam.nCol, rParam.nRow,
|
|
rParam.nCol + nColSize - 1, rParam.nRow + nRowSize - 1 );
|
|
pDestData->SetHeader( rParam.bByRow );
|
|
}
|
|
|
|
aData.OutputToDocument( &aDocument, rParam.nCol, rParam.nRow, rParam.nTab );
|
|
|
|
SCCOL nPaintStartCol = rParam.nCol;
|
|
SCROW nPaintStartRow = rParam.nRow;
|
|
SCCOL nPaintEndCol = nPaintStartCol + nColSize - 1;
|
|
SCROW nPaintEndRow = nPaintStartRow + nRowSize - 1;
|
|
sal_uInt16 nPaintFlags = PAINT_GRID;
|
|
if (rParam.bByCol)
|
|
++nPaintEndRow;
|
|
if (rParam.bByRow)
|
|
++nPaintEndCol;
|
|
if (rParam.bReferenceData)
|
|
{
|
|
nPaintStartCol = 0;
|
|
nPaintEndCol = MAXCOL;
|
|
nPaintEndRow = MAXROW;
|
|
nPaintFlags |= PAINT_LEFT | PAINT_SIZE;
|
|
}
|
|
if (pDestData)
|
|
{
|
|
if ( aOldDest.aEnd.Col() > nPaintEndCol )
|
|
nPaintEndCol = aOldDest.aEnd.Col();
|
|
if ( aOldDest.aEnd.Row() > nPaintEndRow )
|
|
nPaintEndRow = aOldDest.aEnd.Row();
|
|
}
|
|
PostPaint( nPaintStartCol, nPaintStartRow, rParam.nTab,
|
|
nPaintEndCol, nPaintEndRow, rParam.nTab, nPaintFlags );
|
|
aModificator.SetDocumentModified();
|
|
}
|
|
|
|
void ScDocShell::UseScenario( SCTAB nTab, const OUString& rName, bool bRecord )
|
|
{
|
|
if (!aDocument.IsScenario(nTab))
|
|
{
|
|
SCTAB nTabCount = aDocument.GetTableCount();
|
|
SCTAB nSrcTab = SCTAB_MAX;
|
|
SCTAB nEndTab = nTab;
|
|
OUString aCompare;
|
|
while ( nEndTab+1 < nTabCount && aDocument.IsScenario(nEndTab+1) )
|
|
{
|
|
++nEndTab;
|
|
if (nSrcTab > MAXTAB) // noch auf der Suche nach dem Szenario?
|
|
{
|
|
aDocument.GetName( nEndTab, aCompare );
|
|
if (aCompare.equals(rName))
|
|
nSrcTab = nEndTab; // gefunden
|
|
}
|
|
}
|
|
if (ValidTab(nSrcTab))
|
|
{
|
|
if ( aDocument.TestCopyScenario( nSrcTab, nTab ) ) // Zellschutz testen
|
|
{
|
|
ScDocShellModificator aModificator( *this );
|
|
ScMarkData aScenMark;
|
|
aDocument.MarkScenario( nSrcTab, nTab, aScenMark );
|
|
ScRange aMultiRange;
|
|
aScenMark.GetMultiMarkArea( aMultiRange );
|
|
SCCOL nStartCol = aMultiRange.aStart.Col();
|
|
SCROW nStartRow = aMultiRange.aStart.Row();
|
|
SCCOL nEndCol = aMultiRange.aEnd.Col();
|
|
SCROW nEndRow = aMultiRange.aEnd.Row();
|
|
|
|
if (bRecord)
|
|
{
|
|
ScDocument* pUndoDoc = new ScDocument( SCDOCMODE_UNDO );
|
|
pUndoDoc->InitUndo( &aDocument, nTab,nEndTab ); // auch alle Szenarien
|
|
// angezeigte Tabelle:
|
|
aDocument.CopyToDocument( nStartCol,nStartRow,nTab,
|
|
nEndCol,nEndRow,nTab, IDF_ALL,true, pUndoDoc, &aScenMark );
|
|
// Szenarien
|
|
for (SCTAB i=nTab+1; i<=nEndTab; i++)
|
|
{
|
|
pUndoDoc->SetScenario( i, true );
|
|
OUString aComment;
|
|
Color aColor;
|
|
sal_uInt16 nScenFlags;
|
|
aDocument.GetScenarioData( i, aComment, aColor, nScenFlags );
|
|
pUndoDoc->SetScenarioData( i, aComment, aColor, nScenFlags );
|
|
bool bActive = aDocument.IsActiveScenario( i );
|
|
pUndoDoc->SetActiveScenario( i, bActive );
|
|
// Bei Zurueckkopier-Szenarios auch Inhalte
|
|
if ( nScenFlags & SC_SCENARIO_TWOWAY )
|
|
aDocument.CopyToDocument( 0,0,i, MAXCOL,MAXROW,i,
|
|
IDF_ALL,false, pUndoDoc );
|
|
}
|
|
|
|
GetUndoManager()->AddUndoAction(
|
|
new ScUndoUseScenario( this, aScenMark,
|
|
ScArea( nTab,nStartCol,nStartRow,nEndCol,nEndRow ),
|
|
pUndoDoc, rName ) );
|
|
}
|
|
|
|
aDocument.CopyScenario( nSrcTab, nTab );
|
|
|
|
sc::SetFormulaDirtyContext aCxt;
|
|
aDocument.SetAllFormulasDirty(aCxt);
|
|
|
|
// alles painten, weil in anderen Bereichen das aktive Szenario
|
|
// geaendert sein kann
|
|
//! nur, wenn sichtbare Rahmen vorhanden?
|
|
PostPaint( 0,0,nTab, MAXCOL,MAXROW,nTab, PAINT_GRID );
|
|
aModificator.SetDocumentModified();
|
|
}
|
|
else
|
|
{
|
|
InfoBox aBox(GetActiveDialogParent(),
|
|
ScGlobal::GetRscString( STR_PROTECTIONERR ) );
|
|
aBox.Execute();
|
|
}
|
|
}
|
|
else
|
|
{
|
|
InfoBox aBox(GetActiveDialogParent(),
|
|
ScGlobal::GetRscString( STR_SCENARIO_NOTFOUND ) );
|
|
aBox.Execute();
|
|
}
|
|
}
|
|
else
|
|
{
|
|
OSL_FAIL( "UseScenario auf Szenario-Blatt" );
|
|
}
|
|
}
|
|
|
|
void ScDocShell::ModifyScenario( SCTAB nTab, const OUString& rName, const OUString& rComment,
|
|
const Color& rColor, sal_uInt16 nFlags )
|
|
{
|
|
// Undo
|
|
OUString aOldName;
|
|
aDocument.GetName( nTab, aOldName );
|
|
OUString aOldComment;
|
|
Color aOldColor;
|
|
sal_uInt16 nOldFlags;
|
|
aDocument.GetScenarioData( nTab, aOldComment, aOldColor, nOldFlags );
|
|
GetUndoManager()->AddUndoAction(
|
|
new ScUndoScenarioFlags( this, nTab,
|
|
aOldName, rName, aOldComment, rComment,
|
|
aOldColor, rColor, nOldFlags, nFlags ) );
|
|
|
|
// ausfuehren
|
|
ScDocShellModificator aModificator( *this );
|
|
aDocument.RenameTab( nTab, rName );
|
|
aDocument.SetScenarioData( nTab, rComment, rColor, nFlags );
|
|
PostPaintGridAll();
|
|
aModificator.SetDocumentModified();
|
|
|
|
if (!aOldName.equals(rName))
|
|
SfxGetpApp()->Broadcast( SfxSimpleHint( SC_HINT_TABLES_CHANGED ) );
|
|
|
|
SfxBindings* pBindings = GetViewBindings();
|
|
if (pBindings)
|
|
pBindings->Invalidate( SID_SELECT_SCENARIO );
|
|
}
|
|
|
|
SCTAB ScDocShell::MakeScenario( SCTAB nTab, const OUString& rName, const OUString& rComment,
|
|
const Color& rColor, sal_uInt16 nFlags,
|
|
ScMarkData& rMark, bool bRecord )
|
|
{
|
|
rMark.MarkToMulti();
|
|
if (rMark.IsMultiMarked())
|
|
{
|
|
SCTAB nNewTab = nTab + 1;
|
|
while (aDocument.IsScenario(nNewTab))
|
|
++nNewTab;
|
|
|
|
bool bCopyAll = ( (nFlags & SC_SCENARIO_COPYALL) != 0 );
|
|
const ScMarkData* pCopyMark = NULL;
|
|
if (!bCopyAll)
|
|
pCopyMark = &rMark;
|
|
|
|
ScDocShellModificator aModificator( *this );
|
|
|
|
if (bRecord)
|
|
aDocument.BeginDrawUndo(); // drawing layer must do its own undo actions
|
|
|
|
if (aDocument.CopyTab( nTab, nNewTab, pCopyMark ))
|
|
{
|
|
if (bRecord)
|
|
{
|
|
GetUndoManager()->AddUndoAction(
|
|
new ScUndoMakeScenario( this, nTab, nNewTab,
|
|
rName, rComment, rColor, nFlags, rMark ));
|
|
}
|
|
|
|
aDocument.RenameTab( nNewTab, rName, false ); // ohne Formel-Update
|
|
aDocument.SetScenario( nNewTab, true );
|
|
aDocument.SetScenarioData( nNewTab, rComment, rColor, nFlags );
|
|
|
|
ScMarkData aDestMark = rMark;
|
|
aDestMark.SelectOneTable( nNewTab );
|
|
|
|
//! auf Filter / Buttons / Merging testen !
|
|
|
|
ScPatternAttr aProtPattern( aDocument.GetPool() );
|
|
aProtPattern.GetItemSet().Put( ScProtectionAttr( true ) );
|
|
aDocument.ApplyPatternAreaTab( 0,0, MAXCOL,MAXROW, nNewTab, aProtPattern );
|
|
|
|
ScPatternAttr aPattern( aDocument.GetPool() );
|
|
aPattern.GetItemSet().Put( ScMergeFlagAttr( SC_MF_SCENARIO ) );
|
|
aPattern.GetItemSet().Put( ScProtectionAttr( true ) );
|
|
aDocument.ApplySelectionPattern( aPattern, aDestMark );
|
|
|
|
if (!bCopyAll)
|
|
aDocument.SetVisible( nNewTab, false );
|
|
|
|
// dies ist dann das aktive Szenario
|
|
aDocument.CopyScenario( nNewTab, nTab, true ); // sal_True - nicht aus Szenario kopieren
|
|
|
|
if (nFlags & SC_SCENARIO_SHOWFRAME)
|
|
PostPaint( 0,0,nTab, MAXCOL,MAXROW,nTab, PAINT_GRID ); // Rahmen painten
|
|
PostPaintExtras(); // Tabellenreiter
|
|
aModificator.SetDocumentModified();
|
|
|
|
SfxGetpApp()->Broadcast( SfxSimpleHint( SC_HINT_TABLES_CHANGED ) );
|
|
|
|
return nNewTab;
|
|
}
|
|
}
|
|
return nTab;
|
|
}
|
|
|
|
sal_uLong ScDocShell::TransferTab( ScDocShell& rSrcDocShell, SCTAB nSrcPos,
|
|
SCTAB nDestPos, bool bInsertNew,
|
|
bool bNotifyAndPaint )
|
|
{
|
|
ScDocument& rSrcDoc = rSrcDocShell.GetDocument();
|
|
|
|
// set the transferred area to the copyparam to make adjusting formulas possible
|
|
ScClipParam aParam;
|
|
ScRange aRange(0, 0, nSrcPos, MAXCOL, MAXROW, nSrcPos);
|
|
aParam.maRanges.Append(aRange);
|
|
rSrcDoc.SetClipParam(aParam);
|
|
|
|
sal_uLong nErrVal = aDocument.TransferTab( &rSrcDoc, nSrcPos, nDestPos,
|
|
bInsertNew ); // no insert
|
|
|
|
// TransferTab doesn't copy drawing objects with bInsertNew=FALSE
|
|
if ( nErrVal > 0 && !bInsertNew)
|
|
aDocument.TransferDrawPage( &rSrcDoc, nSrcPos, nDestPos );
|
|
|
|
if(nErrVal>0 && rSrcDoc.IsScenario( nSrcPos ))
|
|
{
|
|
OUString aComment;
|
|
Color aColor;
|
|
sal_uInt16 nFlags;
|
|
|
|
rSrcDoc.GetScenarioData( nSrcPos, aComment,aColor, nFlags);
|
|
aDocument.SetScenario(nDestPos,true);
|
|
aDocument.SetScenarioData(nDestPos,aComment,aColor,nFlags);
|
|
bool bActive = rSrcDoc.IsActiveScenario(nSrcPos);
|
|
aDocument.SetActiveScenario(nDestPos, bActive );
|
|
|
|
bool bVisible = rSrcDoc.IsVisible(nSrcPos);
|
|
aDocument.SetVisible(nDestPos,bVisible );
|
|
|
|
}
|
|
|
|
if ( nErrVal > 0 && rSrcDoc.IsTabProtected( nSrcPos ) )
|
|
aDocument.SetTabProtection(nDestPos, rSrcDoc.GetTabProtection(nSrcPos));
|
|
if ( bNotifyAndPaint )
|
|
{
|
|
Broadcast( ScTablesHint( SC_TAB_INSERTED, nDestPos ) );
|
|
PostPaintExtras();
|
|
PostPaintGridAll();
|
|
}
|
|
return nErrVal;
|
|
}
|
|
|
|
bool ScDocShell::MoveTable( SCTAB nSrcTab, SCTAB nDestTab, bool bCopy, bool bRecord )
|
|
{
|
|
ScDocShellModificator aModificator( *this );
|
|
|
|
// #i92477# be consistent with ScDocFunc::InsertTable: any index past the last sheet means "append"
|
|
// #i101139# nDestTab must be the target position, not APPEND (for CopyTabProtection etc.)
|
|
if ( nDestTab >= aDocument.GetTableCount() )
|
|
nDestTab = aDocument.GetTableCount();
|
|
|
|
if (bCopy)
|
|
{
|
|
if (bRecord)
|
|
aDocument.BeginDrawUndo(); // drawing layer must do its own undo actions
|
|
|
|
OUString sSrcCodeName;
|
|
aDocument.GetCodeName( nSrcTab, sSrcCodeName );
|
|
if (!aDocument.CopyTab( nSrcTab, nDestTab ))
|
|
{
|
|
//! EndDrawUndo?
|
|
return false;
|
|
}
|
|
else
|
|
{
|
|
SCTAB nAdjSource = nSrcTab;
|
|
if ( nDestTab <= nSrcTab )
|
|
++nAdjSource; // new position of source table after CopyTab
|
|
|
|
if ( aDocument.IsTabProtected( nAdjSource ) )
|
|
aDocument.CopyTabProtection(nAdjSource, nDestTab);
|
|
|
|
if (bRecord)
|
|
{
|
|
unique_ptr< vector<SCTAB> > pSrcList(new vector<SCTAB>(1, nSrcTab));
|
|
unique_ptr< vector<SCTAB> > pDestList(new vector<SCTAB>(1, nDestTab));
|
|
GetUndoManager()->AddUndoAction(
|
|
new ScUndoCopyTab(this, pSrcList.release(), pDestList.release()));
|
|
}
|
|
|
|
bool bVbaEnabled = aDocument.IsInVBAMode();
|
|
if ( bVbaEnabled )
|
|
{
|
|
OUString aLibName( "Standard" );
|
|
Reference< XLibraryContainer > xLibContainer = GetBasicContainer();
|
|
Reference< XVBACompatibility > xVBACompat( xLibContainer, UNO_QUERY );
|
|
|
|
if ( xVBACompat.is() )
|
|
{
|
|
aLibName = xVBACompat->getProjectName();
|
|
}
|
|
|
|
SCTAB nTabToUse = nDestTab;
|
|
if ( nDestTab == SC_TAB_APPEND )
|
|
nTabToUse = aDocument.GetMaxTableNumber() - 1;
|
|
OUString sCodeName;
|
|
OUString sSource;
|
|
try
|
|
{
|
|
Reference< XNameContainer > xLib;
|
|
if( xLibContainer.is() )
|
|
{
|
|
com::sun::star::uno::Any aLibAny = xLibContainer->getByName( aLibName );
|
|
aLibAny >>= xLib;
|
|
}
|
|
if( xLib.is() )
|
|
{
|
|
xLib->getByName( sSrcCodeName ) >>= sSource;
|
|
}
|
|
}
|
|
catch ( const com::sun::star::uno::Exception& )
|
|
{
|
|
}
|
|
VBA_InsertModule( aDocument, nTabToUse, sCodeName, sSource );
|
|
}
|
|
}
|
|
Broadcast( ScTablesHint( SC_TAB_COPIED, nSrcTab, nDestTab ) );
|
|
}
|
|
else
|
|
{
|
|
if ( aDocument.GetChangeTrack() )
|
|
return false;
|
|
|
|
if ( nSrcTab<nDestTab && nDestTab!=SC_TAB_APPEND )
|
|
nDestTab--;
|
|
|
|
if ( nSrcTab == nDestTab )
|
|
{
|
|
//! allow only for api calls?
|
|
return true; // nothing to do, but valid
|
|
}
|
|
|
|
ScProgress* pProgress = new ScProgress(this, ScGlobal::GetRscString(STR_UNDO_MOVE_TAB),
|
|
aDocument.GetCodeCount());
|
|
bool bDone = aDocument.MoveTab( nSrcTab, nDestTab, pProgress );
|
|
delete pProgress;
|
|
if (!bDone)
|
|
{
|
|
return false;
|
|
}
|
|
else if (bRecord)
|
|
{
|
|
unique_ptr< vector<SCTAB> > pSrcList(new vector<SCTAB>(1, nSrcTab));
|
|
unique_ptr< vector<SCTAB> > pDestList(new vector<SCTAB>(1, nDestTab));
|
|
GetUndoManager()->AddUndoAction(
|
|
new ScUndoMoveTab(this, pSrcList.release(), pDestList.release()));
|
|
}
|
|
|
|
Broadcast( ScTablesHint( SC_TAB_MOVED, nSrcTab, nDestTab ) );
|
|
}
|
|
|
|
PostPaintGridAll();
|
|
PostPaintExtras();
|
|
aModificator.SetDocumentModified();
|
|
SfxGetpApp()->Broadcast( SfxSimpleHint( SC_HINT_TABLES_CHANGED ) );
|
|
|
|
return true;
|
|
}
|
|
|
|
IMPL_LINK( ScDocShell, RefreshDBDataHdl, ScRefreshTimer*, pRefreshTimer )
|
|
{
|
|
ScDBDocFunc aFunc(*this);
|
|
|
|
bool bContinue = true;
|
|
ScDBData* pDBData = static_cast<ScDBData*>(pRefreshTimer);
|
|
ScImportParam aImportParam;
|
|
pDBData->GetImportParam( aImportParam );
|
|
if (aImportParam.bImport && !pDBData->HasImportSelection())
|
|
{
|
|
ScRange aRange;
|
|
pDBData->GetArea( aRange );
|
|
bContinue = aFunc.DoImport( aRange.aStart.Tab(), aImportParam, NULL, true, false ); //! Api-Flag as parameter
|
|
// internal operations (sort, query, subtotal) only if no error
|
|
if (bContinue)
|
|
{
|
|
aFunc.RepeatDB( pDBData->GetName(), true, true );
|
|
RefreshPivotTables(aRange);
|
|
}
|
|
}
|
|
|
|
return long(bContinue);
|
|
}
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|