/* -*- 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 <memory>

#include <sal/config.h>

#include <cassert>

#include <osl/diagnose.h>

#include <vcl/svapp.hxx>

#include <vcl/vclenum.hxx>

#include <vcl/weld/MessageDialog.hxx>

#include <vcl/weld/WaitObject.hxx>

#include <sfx2/app.hxx>

#include <sfx2/bindings.hxx>

#include <unotools/charclass.hxx>

#include <com/sun/star/script/vba/XVBACompatibility.hpp>

#include <dociter.hxx>

#include <docsh.hxx>

#include <global.hxx>

#include <globstr.hrc>

#include <scresid.hxx>

#include <globalnames.hxx>

#include <undodat.hxx>

#include <undotab.hxx>

#include <undoblk.hxx>

#include <undo/UndoSpillPivotTable.hxx>

#include <formulacell.hxx>

#include <scmatrix.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 <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;

//  former viewfunc/dbfunc methods

void ScDocShell::ErrorMessage(TranslateId pGlobStrId)

{

    //! StopMarking at the (active) view?

    weld::Window* pParent = GetActiveDialogParent();

    weld::WaitObject aWaitOff( pParent );

    bool bFocus = pParent && pParent->has_focus();

    if (pGlobStrId && pGlobStrId == STR_PROTECTIONERR)

    {

        if (IsReadOnly())

        {

            pGlobStrId = STR_READONLYERR;

        }

    }

    std::unique_ptr<weld::MessageDialog> xInfoBox(Application::CreateMessageDialog(pParent,

                                                  VclMessageType::Info, VclButtonsType::Ok,

                                                  ScResId(pGlobStrId)));

    xInfoBox->run();

    if (bFocus)

        pParent->grab_focus();

}

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() || m_pDocument->IsImportingXML() || m_pDocument->IsChangeReadOnlyEnabled();

}

void ScDocShell::DBAreaDeleted( SCTAB nTab, SCCOL nX1, SCROW nY1, SCCOL nX2 )

{

    ScDocShellModificator aModificator( *this );

    // the auto-filter is in the first row of the area

    m_pDocument->RemoveFlagsTab( nX1, nY1, nX2, nY1, nTab, ScMF::Auto );

    PostPaint( nX1, nY1, nTab, nX2, nY1, nTab, PaintPartFlags::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.

    m_pDocument->BroadcastUno( SfxHint( SfxHintId::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();

    //  Not simply GetDBAtCursor: The continuous data range for "unnamed" (GetDataArea) may be

    //  located next to the cursor; so a named DB range needs to be searched for there as well.

    ScDBCollection* pColl = m_pDocument->GetDBCollection();

    ScDBData* pData = m_pDocument->GetDBAtArea( nTab, nStartCol, nStartRow, nEndCol, nEndRow );

    if (!pData)

        pData = pColl->GetDBNearCursor(nCol, nRow, nTab );

    bool bSelected = ( eSel == ScGetDBSelection::ForceMark ||

            (rMarked.aStart != rMarked.aEnd && eSel != ScGetDBSelection::RowDown) );

    bool bOnlyDown = (!bSelected && eSel == ScGetDBSelection::RowDown && rMarked.aStart.Row() == rMarked.aEnd.Row());

    bool bUseThis = false;

    if (pData)

    {

        //      take range, if nothing else is marked

        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 || eMode == SC_DB_AUTOFILTER) )

            {

                // If nothing marked or only one row marked, adapt

                // "unnamed" to contiguous area.

                nStartCol = nCol;

                nStartRow = nRow;

                if (bOnlyDown)

                {

                    nEndCol = rMarked.aEnd.Col();

                    nEndRow = rMarked.aEnd.Row();

                }

                else

                {

                    nEndCol = nStartCol;

                    nEndRow = nStartRow;

                }

                m_pDocument->GetDataArea( nTab, nStartCol, nStartRow, nEndCol, nEndRow, false, bOnlyDown );

                if ( nOldCol1 != nStartCol || nOldCol2 != nEndCol || nOldRow1 != nStartRow )

                    bUseThis = false;               // doesn't fit at all

                else if ( nOldRow2 != nEndRow )

                {

                    //  extend range to new end row

                    pData->SetArea( nTab, nOldCol1,nOldRow1, nOldCol2,nEndRow );

                }

            }

        }

        else

        {

            if ( nOldCol1 == nStartCol && nOldRow1 == nStartRow &&

                 nOldCol2 == nEndCol && nOldRow2 == nEndRow )               // marked precisely?

                bUseThis = true;

            else

                bUseThis = false;           // always take marking (Bug 11964)

        }

        //      never take "unnamed" for import

        if ( bUseThis && eMode == SC_DB_IMPORT && bIsNoName )

            bUseThis = false;

    }

    if ( bUseThis )

    {

        pData->GetArea( nStartTab, nStartCol,nStartRow, nEndCol,nEndRow );

    }

    // tdf#168478 - use the previously found range rather than returning an empty one

    else if ( eMode != SC_DB_OLD )

    {

        if ( !bSelected )

        {                                       // continuous range

            nStartCol = nCol;

            nStartRow = nRow;

            if (bOnlyDown)

            {

                nEndCol = rMarked.aEnd.Col();

                nEndRow = rMarked.aEnd.Row();

            }

            else

            {

                nEndCol = nStartCol;

                nEndRow = nStartRow;

            }

            m_pDocument->GetDataArea( nTab, nStartCol, nStartRow, nEndCol, nEndRow, false, bOnlyDown );

        }

        bool bHasHeader = m_pDocument->HasColHeader( nStartCol,nStartRow, nEndCol,nEndRow, nTab );

        ScDBData* pNoNameData = m_pDocument->GetAnonymousDBData(nTab);

        if ( eMode != SC_DB_IMPORT && pNoNameData)

        {

            // Do not reset AutoFilter range during temporary operations on

            // other ranges, use the document global temporary anonymous range

            // instead. But, if AutoFilter is to be toggled then do use the

            // sheet-local DB range.

            bool bSheetLocal = true;

            if (eMode != SC_DB_AUTOFILTER && pNoNameData->HasAutoFilter())

            {

                bSheetLocal = false;

                pNoNameData = m_pDocument->GetAnonymousDBData();

                if (!pNoNameData)

                {

                    m_pDocument->SetAnonymousDBData( std::unique_ptr<ScDBData>(new ScDBData( STR_DB_LOCAL_NONAME,

                            nTab, nStartCol, nStartRow, nEndCol, nEndRow, true, bHasHeader) ) );

                    pNoNameData = m_pDocument->GetAnonymousDBData();

                }

                // ScDocShell::CancelAutoDBRange() would restore the

                // sheet-local anonymous DBData from pOldAutoDBRange, unset so

                // that won't happen with data of a previous sheet-local

                // DBData.

                m_pOldAutoDBRange.reset();

            }

            else if (!m_pOldAutoDBRange)

            {

                // store the old unnamed database range with its settings for undo

                // (store at the first change, get the state before all changes)

                m_pOldAutoDBRange.reset( new ScDBData( *pNoNameData ) );

            }

            else if (m_pOldAutoDBRange->GetTab() != pNoNameData->GetTab())

            {

                // Different sheet-local unnamed DB range than the previous one.

                *m_pOldAutoDBRange = *pNoNameData;

            }

            SCCOL nOldX1;                                   // take old range away cleanly

            SCROW nOldY1;                                   //! (UNDO ???)

            SCCOL nOldX2;

            SCROW nOldY2;

            SCTAB nOldTab;

            pNoNameData->GetArea( nOldTab, nOldX1, nOldY1, nOldX2, nOldY2 );

            // If previously bHasHeader was set and the new range starts on the

            // same row and intersects the old column range, then don't reset

            // bHasHeader but assume that the new range still has headers, just

            // some are empty or numeric.

            if (!bHasHeader && pNoNameData->HasHeader() && nTab == nOldTab && nStartRow == nOldY1 &&

                    nStartCol <= nOldY2 && nOldY1 <= nEndCol)

                bHasHeader = true;

            // Remove AutoFilter button flags only for sheet-local DB range,

            // not if a temporary is used.

            if (bSheetLocal)

                DBAreaDeleted( nOldTab, nOldX1, nOldY1, nOldX2 );

            pNoNameData->SetSortParam( ScSortParam() );             // reset parameter

            pNoNameData->SetQueryParam( ScQueryParam() );

            pNoNameData->SetSubTotalParam( ScSubTotalParam() );

            pNoNameData->SetArea( nTab, nStartCol,nStartRow, nEndCol,nEndRow );     // set anew

            pNoNameData->SetByRow( true );

            pNoNameData->SetHeader( bHasHeader );

            pNoNameData->SetAutoFilter( false );

        }

        else

        {

            std::unique_ptr<ScDBCollection> pUndoColl;

            if (eMode==SC_DB_IMPORT)

            {

                m_pDocument->PreprocessDBDataUpdate();

                pUndoColl.reset( new ScDBCollection( *pColl ) );   // Undo for import range

                OUString aImport = ScResId( STR_DBNAME_IMPORT );

                tools::Long nCount = 0;

                const ScDBData* pDummy = nullptr;

                ScDBCollection::NamedDBs& rDBs = pColl->getNamedDBs();

                OUString aNewName;

                do

                {

                    ++nCount;

                    aNewName = aImport + OUString::number( nCount );

                    pDummy = rDBs.findByUpperName(ScGlobal::getCharClass().uppercase(aNewName));

                }

                while (pDummy);

                pNoNameData = new ScDBData( aNewName, nTab,

                                nStartCol,nStartRow, nEndCol,nEndRow,

                                true, bHasHeader );

                bool ins = rDBs.insert(std::unique_ptr<ScDBData>(pNoNameData));

                assert(ins); (void)ins;

            }

            else

            {

                pNoNameData = new ScDBData(STR_DB_LOCAL_NONAME, nTab,

                                nStartCol,nStartRow, nEndCol,nEndRow,

                                true, bHasHeader );

                m_pDocument->SetAnonymousDBData(nTab, std::unique_ptr<ScDBData>(pNoNameData));

            }

            if ( pUndoColl )

            {

                m_pDocument->CompileHybridFormula();

                GetUndoManager()->AddUndoAction( std::make_unique<ScUndoDBData>( *this, u""_ustr,

                        std::move(pUndoColl), pNoNameData ? pNoNameData->GetName() : u""_ustr,

                        std::make_unique<ScDBCollection>( *pColl ) ) );

            }

            //  no longer needed to register new range at the Sba

            //  announce "Import1", etc., at the Navigator

            if (eMode==SC_DB_IMPORT)

                SfxGetpApp()->Broadcast( SfxHint( SfxHintId::ScDbAreasChanged ) );

        }

        pData = pNoNameData;

    }

    return pData;

}

ScDBData* ScDocShell::GetAnonymousDBData(const ScRange& rRange)

{

    ScDBCollection* pColl = m_pDocument->GetDBCollection();

    if (!pColl)

        return nullptr;

    ScDBData* pData = pColl->getAnonDBs().getByRange(rRange);

    if (!pData)

        return nullptr;

    if (!pData->HasHeader())

    {

        bool bHasHeader = m_pDocument->HasColHeader(

                rRange.aStart.Col(), rRange.aStart.Row(), rRange.aEnd.Col(), rRange.aEnd.Row(), rRange.aStart.Tab());

        pData->SetHeader(bHasHeader);

    }

    return pData;

}

std::unique_ptr<ScDBData> ScDocShell::GetOldAutoDBRange()

{

    return std::move(m_pOldAutoDBRange);

}

void ScDocShell::CancelAutoDBRange()

{

    // called when dialog is cancelled

//moggi:TODO

    if ( !m_pOldAutoDBRange )

        return;

    SCTAB nTab = GetCurTab();

    ScDBData* pDBData = m_pDocument->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 );

        *pDBData = *m_pOldAutoDBRange;    // restore old settings

        if ( m_pOldAutoDBRange->HasAutoFilter() )

        {

            // restore AutoFilter buttons

            m_pOldAutoDBRange->GetArea( nRangeTab, nRangeX1, nRangeY1, nRangeX2, nRangeY2 );

            m_pDocument->ApplyFlagsTab( nRangeX1, nRangeY1, nRangeX2, nRangeY1, nRangeTab, ScMF::Auto );

            PostPaint( nRangeX1, nRangeY1, nRangeTab, nRangeX2, nRangeY1, nRangeTab, PaintPartFlags::Grid );

        }

    }

    m_pOldAutoDBRange.reset();

}

        //  adjust height

        //! merge with docfunc

bool ScDocShell::AdjustRowHeight( SCROW nStartRow, SCROW nEndRow, SCTAB nTab )

{

    ScSizeDeviceProvider aProv(*this);

    double fZoom(1.0);

    sc::RowHeightContext aCxt(m_pDocument->MaxRow(), aProv.GetPPTX(), aProv.GetPPTY(), fZoom, fZoom, aProv.GetDevice());

    bool bChange = m_pDocument->SetOptimalHeight(aCxt, nStartRow,nEndRow, nTab, true);

    if (bChange)

    {

        // tdf#76183: recalculate objects' positions

        m_pDocument->SetDrawPageSize(nTab);

        PostPaint( 0,nStartRow,nTab, m_pDocument->MaxCol(),m_pDocument->MaxRow(),nTab, PaintPartFlags::Grid|PaintPartFlags::Left );

    }

    return bChange;

}

void ScDocShell::UpdateAllRowHeights( const ScMarkData* pTabMark )

{

    // update automatic row heights

    ScSizeDeviceProvider aProv(*this);

    double fZoom(1.0);

    sc::RowHeightContext aCxt(m_pDocument->MaxRow(), aProv.GetPPTX(), aProv.GetPPTY(), fZoom, fZoom, aProv.GetDevice());

    m_pDocument->UpdateAllRowHeights(aCxt, pTabMark);

}

void ScDocShell::UpdateAllRowHeights(const bool bOnlyUsedRows)

{

    // update automatic row heights on all sheets using the newer ScDocRowHeightUpdater

    ScSizeDeviceProvider aProv(*this);

    ScDocRowHeightUpdater aUpdater(*m_pDocument, aProv.GetDevice(), aProv.GetPPTX(),

                                   aProv.GetPPTY(), nullptr);

    aUpdater.update(bOnlyUsedRows);

}

void ScDocShell::UpdatePendingRowHeights( SCTAB nUpdateTab, bool bBefore )

{

    bool bIsUndoEnabled = m_pDocument->IsUndoEnabled();

    m_pDocument->EnableUndo( false );

    m_pDocument->LockStreamValid( true );      // ignore draw page size (but not formula results)

    if ( bBefore )          // check all sheets up to nUpdateTab

    {

        SCTAB nTabCount = m_pDocument->GetTableCount();

        if ( nUpdateTab >= nTabCount )

            nUpdateTab = nTabCount-1;     // nUpdateTab is inclusive

        ScMarkData aUpdateSheets(m_pDocument->GetSheetLimits());

        SCTAB nTab;

        for (nTab=0; nTab<=nUpdateTab; ++nTab)

            if ( m_pDocument->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 ) )

            {

                m_pDocument->UpdatePageBreaks( nTab );

                m_pDocument->SetPendingRowHeights( nTab, false );

            }

    }

    else                    // only nUpdateTab

    {

        if ( m_pDocument->IsPendingRowHeights( nUpdateTab ) )

        {

            AdjustRowHeight( 0, m_pDocument->MaxRow(), nUpdateTab );

            m_pDocument->UpdatePageBreaks( nUpdateTab );

            m_pDocument->SetPendingRowHeights( nUpdateTab, false );

        }

    }

    m_pDocument->LockStreamValid( false );

    m_pDocument->EnableUndo( bIsUndoEnabled );

}

void ScDocShell::RefreshPivotTables( const ScRange& rSource )

{

    ScDPCollection* pColl = m_pDocument->GetDPCollection();

    if (!pColl)

        return;

    ScDBDocFunc aFunc(*this);

    for (size_t i = 0, n = pColl->GetCount(); i < n; ++i)

    {

        ScDPObject& rOld = (*pColl)[i];

        const ScSheetSourceDesc* pSheetDesc = rOld.GetSheetDesc();

        if (pSheetDesc && pSheetDesc->GetSourceRange().Intersects(rSource))

            aFunc.UpdatePivotTable(rOld, true, false);

    }

}

// Re-check outputs that were previously blocked by #SPILL! (array formula

// cells and pivot tables). Called after cell-change operations that might

// have freed blocking cells.

void ScDocShell::ResolveSpilledOutputs()

{

    bool bAnyResolved = false;

    // Array formula cells currently in #SPILL! state: re-interpretation will

    // clear the error if the blocker is gone and then expand to result dimensions.

    const std::unordered_set<ScAddress> aSpilledCells = m_pDocument->GetSpilledFormulaCells();

    for (const ScAddress& rPosition : aSpilledCells)

    {

        ScFormulaCell* pFormulaCell = m_pDocument->GetFormulaCell(rPosition);

        if (pFormulaCell && pFormulaCell->GetErrCode() == FormulaError::Spill)

        {

            pFormulaCell->SetDirty();

            pFormulaCell->Interpret();

            if (pFormulaCell->GetErrCode() != FormulaError::Spill)

            {

                bAnyResolved = true;

                // Expand the matrix to the result dimensions.

                const ScMatrix* pMatrix = pFormulaCell->GetMatrix();

                if (pMatrix)

                {

                    SCSIZE nResCols = 0;

                    SCSIZE nResRows = 0;

                    pMatrix->GetDimensions(nResCols, nResRows);

                    m_pDocument->ResizeMatrixFormula(rPosition,

                                                     SCCOL(nResCols),

                                                     SCROW(nResRows));

                }

            }

        }

    }

    // Inverse direction: previously expanded dynamic array masters whose

    // declared range now contains a foreign cell. The matrix master doesn't

    // listen to its declared range, so we explicitly check. When a blocker

    // is found, collapse the matrix back to 1x1 (preserving the blocker) and

    // re-interpret.

    const std::unordered_set<ScAddress> aExpandedMatrices = m_pDocument->GetExpandedDynamicArrays();

    for (const ScAddress& rPosition : aExpandedMatrices)

    {

        ScFormulaCell* pFormulaCell = m_pDocument->GetFormulaCell(rPosition);

        if (!pFormulaCell || pFormulaCell->GetMatrixFlag() != ScMatrixMode::Formula)

        {

            m_pDocument->UnmarkExpandedDynamicArray(rPosition);

            continue;

        }

        SCCOL nDeclCols = 0;

        SCROW nDeclRows = 0;

        pFormulaCell->GetMatColsRows(nDeclCols, nDeclRows);

        if (nDeclCols <= 1 && nDeclRows <= 1)

        {

            m_pDocument->UnmarkExpandedDynamicArray(rPosition);

            continue;

        }

        ScRange aRange(rPosition.Col(), rPosition.Row(), rPosition.Tab(),

                       rPosition.Col() + nDeclCols - 1, rPosition.Row() + nDeclRows - 1,

                       rPosition.Tab());

        if (!m_pDocument->HasMatrixBlocker(aRange))

            continue;

        // Collapse: drop our own reference cells from the declared range.

        // Then SetMatColsRows on the master and re-interpret - the runtime

        // spill check now sees res > declared and sets #SPILL!.

        for (SCCOL nCol = aRange.aStart.Col(); nCol <= aRange.aEnd.Col(); ++nCol)

        {

            for (SCROW nRow = aRange.aStart.Row(); nRow <= aRange.aEnd.Row(); ++nRow)

            {

                if (nCol == rPosition.Col() && nRow == rPosition.Row())

                    continue;

                ScRefCellValue aCell(*m_pDocument, ScAddress(nCol, nRow, rPosition.Tab()));

                if (aCell.getType() == CELLTYPE_FORMULA

                    && aCell.getFormula()->GetMatrixFlag() == ScMatrixMode::Reference)

                {

                    m_pDocument->DeleteAreaTab(nCol, nRow, nCol, nRow, rPosition.Tab(),

                                               InsertDeleteFlags::ALL);

                }

            }

        }

        pFormulaCell->SetMatColsRows(1, 1);

        m_pDocument->UnmarkExpandedDynamicArray(rPosition);

        // Conventional matrix formulas don't normally opt into the runtime

        // spill check. Pre-marking the cell flips that bit so the next

        // interpret recognises this as a spill-blocked master.

        m_pDocument->MarkFormulaSpilled(rPosition);

        pFormulaCell->SetDirty();

        pFormulaCell->Interpret();

        bAnyResolved = true;

    }

    // Re-check spilled pivot tables.

    ScDPCollection* pCollection = m_pDocument->GetDPCollection();

    if (pCollection)

    {

        bool bUndoEnabled = m_pDocument->IsUndoEnabled();

        bool bEnteredList = false;

        size_t nCount = pCollection->GetCount();

        for (size_t i = 0; i < nCount; ++i)

        {

            ScDPObject& rDPObject = (*pCollection)[i];

            if (!rDPObject.HasSpillError())

                continue;

            // Try to re-output with spill check. If the blocking cells have been

            // cleared, Output() will succeed and the pivot table will be rendered.

            ScAddress aPosition = rDPObject.GetOutRange().aStart;

            rDPObject.InvalidateData();

            if (rDPObject.Output(aPosition, true))

            {

                bAnyResolved = true;

                if (bUndoEnabled)

                {

                    if (!bEnteredList)

                    {

                        GetUndoManager()->EnterListAction(u""_ustr, u""_ustr, 0, ViewShellId(-1));

                        bEnteredList = true;

                    }

                    GetUndoManager()->AddUndoAction(

                        std::make_unique<sc::UndoSpillPivotTable>(

                            *this, rDPObject.GetName(), rDPObject.GetOutRange()));

                }

            }

        }

        if (bEnteredList)

            GetUndoManager()->LeaveAndMergeListAction();

    }

    if (bAnyResolved)

        PostPaintGridAll();

}

static OUString lcl_GetAreaName( ScDocument* pDoc, const ScArea* pArea )

{

    ScDBData* pData = pDoc->GetDBAtArea( pArea->nTab, pArea->nColStart, pArea->nRowStart,

                                                        pArea->nColEnd, pArea->nRowEnd );

    if (pData)

        return pData->GetName();

    OUString aName;

    pDoc->GetName( pArea->nTab, aName );

    return aName;

}

static ScDBData* getUndoData(const ScDBData* pDestData)

{

    if (!pDestData)

        return nullptr;

    return new ScDBData(*pDestData);

}

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 const & rArea = rParam.pDataAreas[nPos];

        nColSize = std::max( nColSize, SCCOL( rArea.nColEnd - rArea.nColStart + 1 ) );

        nRowSize = std::max( nRowSize, SCROW( rArea.nRowEnd - rArea.nRowStart + 1 ) );

                                        // test if source data were moved

        if (rParam.bReferenceData)

            if (rArea.nTab == rParam.nTab && rArea.nRowEnd >= rParam.nRow)

                bErr = true;

    }

    if (bErr)

    {

        std::unique_ptr<weld::MessageDialog> xInfoBox(Application::CreateMessageDialog(GetActiveDialogParent(),

                                                      VclMessageType::Info, VclButtonsType::Ok,

                                                      ScResId(STR_CONSOLIDATE_ERR1)));

        xInfoBox->run();

        return;

    }

    //      execute

    weld::WaitObject aWait( GetActiveDialogParent() );

    ScDocShellModificator aModificator( *this );

    ScRange aOldDest;

    ScDBData* pDestData = m_pDocument->GetDBAtCursor( rParam.nCol, rParam.nRow, rParam.nTab, ScDBDataPortion::TOP_LEFT );

    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 const & rArea = rParam.pDataAreas[nPos];

            aData.AddFields( m_pDocument.get(), rArea.nTab, rArea.nColStart, rArea.nRowStart,

                                                       rArea.nColEnd, rArea.nRowEnd );

        }

    aData.DoneFields();

    for (nPos=0; nPos<rParam.nDataAreaCount; nPos++)

    {

        ScArea const & rArea = rParam.pDataAreas[nPos];

        aData.AddData( m_pDocument.get(), rArea.nTab, rArea.nColStart, rArea.nRowStart,

                                                 rArea.nColEnd, rArea.nRowEnd );

        aData.AddName( lcl_GetAreaName(m_pDocument.get(), &rArea) );

    }

    aData.GetSize( nColSize, nRowSize );

    if (bRecord && nColSize > 0 && nRowSize > 0)

    {

        std::unique_ptr<ScDBData> pUndoData(getUndoData(pDestData));

        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 = m_pDocument->GetTableCount();

            SCROW nInsertCount = aData.GetInsertCount();

            // old outlines

            ScOutlineTable* pTable = m_pDocument->GetOutlineTable( nDestTab );

            std::unique_ptr<ScOutlineTable> pUndoTab(pTable ? new ScOutlineTable( *pTable ) : nullptr);

            ScDocumentUniquePtr pUndoDoc(new ScDocument( SCDOCMODE_UNDO ));

            pUndoDoc->InitUndo( *m_pDocument, 0, nTabCount-1, false, true );

            // row state

            m_pDocument->CopyToDocument(0, 0, nDestTab, m_pDocument->MaxCol(), m_pDocument->MaxRow(), nDestTab,

                                     InsertDeleteFlags::NONE, false, *pUndoDoc);

            // all formulas

            m_pDocument->CopyToDocument(0, 0, 0, m_pDocument->MaxCol(), m_pDocument->MaxRow(), nTabCount-1,

                                     InsertDeleteFlags::FORMULA, false, *pUndoDoc);

            // complete output rows

            m_pDocument->CopyToDocument(0, aDestArea.nRowStart, nDestTab,

                                     m_pDocument->MaxCol(),aDestArea.nRowEnd, nDestTab,

                                     InsertDeleteFlags::ALL, false, *pUndoDoc);

            // old output range

            if (pDestData)

                m_pDocument->CopyToDocument(aOldDest, InsertDeleteFlags::ALL, false, *pUndoDoc);

            GetUndoManager()->AddUndoAction(

                    std::make_unique<ScUndoConsolidate>( *this, aDestArea, rParam, std::move(pUndoDoc),

                                            true, nInsertCount, std::move(pUndoTab), std::move(pUndoData) ) );

        }

        else

        {

            ScDocumentUniquePtr pUndoDoc(new ScDocument( SCDOCMODE_UNDO ));

            pUndoDoc->InitUndo( *m_pDocument, aDestArea.nTab, aDestArea.nTab );

            m_pDocument->CopyToDocument(aDestArea.nColStart, aDestArea.nRowStart, aDestArea.nTab,

                                     aDestArea.nColEnd, aDestArea.nRowEnd, aDestArea.nTab,

                                     InsertDeleteFlags::ALL, false, *pUndoDoc);

            // old output range

            if (pDestData)

                m_pDocument->CopyToDocument(aOldDest, InsertDeleteFlags::ALL, false, *pUndoDoc);

            GetUndoManager()->AddUndoAction(

                    std::make_unique<ScUndoConsolidate>( *this, aDestArea, rParam, std::move(pUndoDoc),

                                            false, 0, nullptr, std::move(pUndoData) ) );

        }

    }

    if (pDestData)                                      // delete / adjust destination range

    {

        m_pDocument->DeleteAreaTab(aOldDest, InsertDeleteFlags::CONTENTS);

        pDestData->SetArea( rParam.nTab, rParam.nCol, rParam.nRow,

                            rParam.nCol + nColSize - 1, rParam.nRow + nRowSize - 1 );

        pDestData->SetHeader( rParam.bByRow );

    }

    aData.OutputToDocument( *m_pDocument, rParam.nCol, rParam.nRow, rParam.nTab );

    SCCOL nPaintStartCol = rParam.nCol;

    SCROW nPaintStartRow = rParam.nRow;

    SCCOL nPaintEndCol = nPaintStartCol + nColSize - 1;

    SCROW nPaintEndRow = nPaintStartRow + nRowSize - 1;

    PaintPartFlags nPaintFlags = PaintPartFlags::Grid;

    if (rParam.bByCol)

        ++nPaintEndRow;

    if (rParam.bByRow)

        ++nPaintEndCol;

    if (rParam.bReferenceData)

    {

        nPaintStartCol = 0;

        nPaintEndCol = m_pDocument->MaxCol();

        nPaintEndRow = m_pDocument->MaxRow();

        nPaintFlags |= PaintPartFlags::Left | PaintPartFlags::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 (!m_pDocument->IsScenario(nTab))

    {

        SCTAB   nTabCount = m_pDocument->GetTableCount();

        SCTAB   nSrcTab = SCTAB_MAX;

        SCTAB   nEndTab = nTab;

        OUString aCompare;

        while ( nEndTab+1 < nTabCount && m_pDocument->IsScenario(nEndTab+1) )

        {

            ++nEndTab;

            if (nSrcTab > MAXTAB)           // still searching for the scenario?

            {

                m_pDocument->GetName( nEndTab, aCompare );

                if (aCompare == rName)

                    nSrcTab = nEndTab;      // found

            }

        }

        if (ValidTab(nSrcTab))

        {

            if ( m_pDocument->TestCopyScenario( nSrcTab, nTab ) )          // test cell protection

            {

                ScDocShellModificator aModificator( *this );

                ScMarkData aScenMark(m_pDocument->GetSheetLimits());

                m_pDocument->MarkScenario( nSrcTab, nTab, aScenMark );

                const ScRange& aMultiRange = aScenMark.GetMultiMarkArea();

                SCCOL nStartCol = aMultiRange.aStart.Col();

                SCROW nStartRow = aMultiRange.aStart.Row();

                SCCOL nEndCol = aMultiRange.aEnd.Col();

                SCROW nEndRow = aMultiRange.aEnd.Row();

                if (bRecord)

                {

                    ScDocumentUniquePtr pUndoDoc(new ScDocument( SCDOCMODE_UNDO ));

                    pUndoDoc->InitUndo( *m_pDocument, nTab,nEndTab );             // also all scenarios

                    //  shown table:

                    m_pDocument->CopyToDocument(nStartCol, nStartRow, nTab,

                                             nEndCol, nEndRow, nTab, InsertDeleteFlags::ALL,

                                             true, *pUndoDoc, &aScenMark);

                    //  scenarios

                    for (SCTAB i=nTab+1; i<=nEndTab; i++)

                    {

                        pUndoDoc->SetScenario( i, true );

                        OUString aComment;

                        Color  aColor;

                        ScScenarioFlags nScenFlags;

                        m_pDocument->GetScenarioData( i, aComment, aColor, nScenFlags );

                        pUndoDoc->SetScenarioData( i, aComment, aColor, nScenFlags );

                        bool bActive = m_pDocument->IsActiveScenario( i );

                        pUndoDoc->SetActiveScenario( i, bActive );

                        //  At copy-back scenarios also contents

                        if ( nScenFlags & ScScenarioFlags::TwoWay )

                            m_pDocument->CopyToDocument(0, 0, i, m_pDocument->MaxCol(), m_pDocument->MaxRow(), i,

                                                     InsertDeleteFlags::ALL, false, *pUndoDoc );

                    }

                    GetUndoManager()->AddUndoAction(

                        std::make_unique<ScUndoUseScenario>( *this, aScenMark,

                                        ScArea( nTab,nStartCol,nStartRow,nEndCol,nEndRow ),

                                        std::move(pUndoDoc), rName ) );

                }

                m_pDocument->CopyScenario( nSrcTab, nTab );

                sc::SetFormulaDirtyContext aCxt;

                m_pDocument->SetAllFormulasDirty(aCxt);

                //  paint all, because the active scenario may be modified in other ranges;

                //! only if there are visible frames?

                PostPaint( 0,0,nTab, m_pDocument->MaxCol(),m_pDocument->MaxRow(),nTab, PaintPartFlags::Grid );

                aModificator.SetDocumentModified();

            }

            else

            {

                std::unique_ptr<weld::MessageDialog> xInfoBox(Application::CreateMessageDialog(GetActiveDialogParent(),

                                                              VclMessageType::Info, VclButtonsType::Ok,

                                                              ScResId(STR_PROTECTIONERR)));

                xInfoBox->run();

            }

        }

        else

        {