Line data Source code
1 : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : /*
3 : * This file is part of the LibreOffice project.
4 : *
5 : * This Source Code Form is subject to the terms of the Mozilla Public
6 : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : *
9 : * This file incorporates work covered by the following license notice:
10 : *
11 : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : * contributor license agreements. See the NOTICE file distributed
13 : * with this work for additional information regarding copyright
14 : * ownership. The ASF licenses this file to you under the Apache
15 : * License, Version 2.0 (the "License"); you may not use this file
16 : * except in compliance with the License. You may obtain a copy of
17 : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : */
19 :
20 : #include "dbfunc.hxx"
21 : #include "scitems.hxx"
22 : #include <sfx2/bindings.hxx>
23 : #include <vcl/svapp.hxx>
24 : #include <vcl/msgbox.hxx>
25 : #include <vcl/waitobj.hxx>
26 : #include <svl/zforlist.hxx>
27 : #include <sfx2/app.hxx>
28 : #include <com/sun/star/beans/XPropertySet.hpp>
29 : #include <com/sun/star/container/XNameAccess.hpp>
30 : #include <com/sun/star/sheet/DataPilotFieldFilter.hpp>
31 : #include <com/sun/star/sheet/DataPilotFieldGroupBy.hpp>
32 : #include <com/sun/star/sheet/DataPilotFieldOrientation.hpp>
33 : #include <com/sun/star/sheet/DataPilotFieldSortMode.hpp>
34 : #include <com/sun/star/sheet/DataPilotTableHeaderData.hpp>
35 : #include <com/sun/star/sheet/GeneralFunction.hpp>
36 : #include <com/sun/star/sheet/MemberResultFlags.hpp>
37 : #include <com/sun/star/sheet/XDimensionsSupplier.hpp>
38 : #include <com/sun/star/sheet/XDrillDownDataSupplier.hpp>
39 :
40 : #include "global.hxx"
41 : #include "globstr.hrc"
42 : #include "sc.hrc"
43 : #include "undotab.hxx"
44 : #include "undodat.hxx"
45 : #include "dbdata.hxx"
46 : #include "rangenam.hxx"
47 : #include "rangeutl.hxx"
48 : #include "docsh.hxx"
49 : #include "olinetab.hxx"
50 : #include "consoli.hxx"
51 : #include "olinefun.hxx"
52 : #include "dpobject.hxx"
53 : #include "dpsave.hxx"
54 : #include "dpdimsave.hxx"
55 : #include "dbdocfun.hxx"
56 : #include "dpoutput.hxx"
57 : #include "dptabsrc.hxx"
58 : #include "dpshttab.hxx"
59 : #include "dpsdbtab.hxx"
60 : #include "editable.hxx"
61 : #include "docpool.hxx"
62 : #include "patattr.hxx"
63 : #include "unonames.hxx"
64 : #include "formulacell.hxx"
65 : #include "userlist.hxx"
66 : #include "queryentry.hxx"
67 : #include "markdata.hxx"
68 : #include "stringutil.hxx"
69 :
70 : #include <boost/scoped_ptr.hpp>
71 : #include <boost/unordered_set.hpp>
72 : #include <boost/unordered_map.hpp>
73 : #include <list>
74 : #include <vector>
75 :
76 : using namespace com::sun::star;
77 : using ::com::sun::star::uno::Any;
78 : using ::com::sun::star::uno::Sequence;
79 : using ::com::sun::star::uno::Reference;
80 : using ::com::sun::star::uno::UNO_QUERY;
81 : using ::com::sun::star::beans::XPropertySet;
82 : using ::com::sun::star::container::XNameAccess;
83 : using ::com::sun::star::sheet::XDimensionsSupplier;
84 : using ::std::list;
85 : using ::std::vector;
86 :
87 : // STATIC DATA -----------------------------------------------------------
88 :
89 :
90 :
91 : // Outliner
92 :
93 :
94 : // Outline-Gruppierung erzeugen
95 :
96 0 : void ScDBFunc::MakeOutline( bool bColumns, bool bRecord )
97 : {
98 0 : ScRange aRange;
99 0 : if (GetViewData()->GetSimpleArea(aRange) == SC_MARK_SIMPLE)
100 : {
101 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
102 0 : ScOutlineDocFunc aFunc(*pDocSh);
103 0 : aFunc.MakeOutline( aRange, bColumns, bRecord, false );
104 : }
105 : else
106 0 : ErrorMessage(STR_NOMULTISELECT);
107 0 : }
108 :
109 : // Outline-Gruppierung loeschen
110 :
111 0 : void ScDBFunc::RemoveOutline( bool bColumns, bool bRecord )
112 : {
113 0 : ScRange aRange;
114 0 : if (GetViewData()->GetSimpleArea(aRange) == SC_MARK_SIMPLE)
115 : {
116 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
117 0 : ScOutlineDocFunc aFunc(*pDocSh);
118 0 : aFunc.RemoveOutline( aRange, bColumns, bRecord, false );
119 : }
120 : else
121 0 : ErrorMessage(STR_NOMULTISELECT);
122 0 : }
123 :
124 : // Menue-Status: Outlines loeschen
125 :
126 0 : void ScDBFunc::TestRemoveOutline( bool& rCol, bool& rRow )
127 : {
128 0 : bool bColFound = false;
129 0 : bool bRowFound = false;
130 :
131 : SCCOL nStartCol, nEndCol;
132 : SCROW nStartRow, nEndRow;
133 : SCTAB nStartTab, nEndTab;
134 0 : if (GetViewData()->GetSimpleArea(nStartCol,nStartRow,nStartTab,nEndCol,nEndRow,nEndTab) == SC_MARK_SIMPLE)
135 : {
136 0 : SCTAB nTab = nStartTab;
137 0 : ScDocument* pDoc = GetViewData()->GetDocument();
138 0 : ScOutlineTable* pTable = pDoc->GetOutlineTable( nTab );
139 0 : if (pTable)
140 : {
141 : ScOutlineArray* pArray;
142 : ScOutlineEntry* pEntry;
143 : SCCOLROW nStart;
144 : SCCOLROW nEnd;
145 0 : bool bColMarked = ( nStartRow == 0 && nEndRow == MAXROW );
146 0 : bool bRowMarked = ( nStartCol == 0 && nEndCol == MAXCOL );
147 :
148 : // Spalten
149 :
150 0 : if ( !bRowMarked || bColMarked ) // nicht wenn ganze Zeilen markiert
151 : {
152 0 : pArray = pTable->GetColArray();
153 0 : ScSubOutlineIterator aColIter( pArray );
154 0 : while ((pEntry=aColIter.GetNext()) != NULL && !bColFound)
155 : {
156 0 : nStart = pEntry->GetStart();
157 0 : nEnd = pEntry->GetEnd();
158 0 : if ( nStartCol<=static_cast<SCCOL>(nEnd) && nEndCol>=static_cast<SCCOL>(nStart) )
159 0 : bColFound = true;
160 : }
161 : }
162 :
163 : // Zeilen
164 :
165 0 : if ( !bColMarked || bRowMarked ) // nicht wenn ganze Spalten markiert
166 : {
167 0 : pArray = pTable->GetRowArray();
168 0 : ScSubOutlineIterator aRowIter( pArray );
169 0 : while ((pEntry=aRowIter.GetNext()) != NULL && !bRowFound)
170 : {
171 0 : nStart = pEntry->GetStart();
172 0 : nEnd = pEntry->GetEnd();
173 0 : if ( nStartRow<=nEnd && nEndRow>=nStart )
174 0 : bRowFound = true;
175 : }
176 : }
177 : }
178 : }
179 :
180 0 : rCol = bColFound;
181 0 : rRow = bRowFound;
182 0 : }
183 :
184 0 : void ScDBFunc::RemoveAllOutlines( bool bRecord )
185 : {
186 0 : SCTAB nTab = GetViewData()->GetTabNo();
187 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
188 0 : ScOutlineDocFunc aFunc(*pDocSh);
189 :
190 0 : bool bOk = aFunc.RemoveAllOutlines( nTab, bRecord );
191 :
192 0 : if (bOk)
193 0 : UpdateScrollBars();
194 0 : }
195 :
196 : // Auto-Outlines
197 :
198 0 : void ScDBFunc::AutoOutline( bool bRecord )
199 : {
200 0 : SCTAB nTab = GetViewData()->GetTabNo();
201 0 : ScRange aRange( 0,0,nTab, MAXCOL,MAXROW,nTab ); // ganze Tabelle, wenn nichts markiert
202 0 : ScMarkData& rMark = GetViewData()->GetMarkData();
203 0 : if ( rMark.IsMarked() || rMark.IsMultiMarked() )
204 : {
205 0 : rMark.MarkToMulti();
206 0 : rMark.GetMultiMarkArea( aRange );
207 : }
208 :
209 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
210 0 : ScOutlineDocFunc aFunc(*pDocSh);
211 0 : aFunc.AutoOutline( aRange, bRecord );
212 0 : }
213 :
214 : // Outline-Ebene auswaehlen
215 :
216 0 : void ScDBFunc::SelectLevel( bool bColumns, sal_uInt16 nLevel, bool bRecord, bool bPaint )
217 : {
218 0 : SCTAB nTab = GetViewData()->GetTabNo();
219 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
220 0 : ScOutlineDocFunc aFunc(*pDocSh);
221 :
222 0 : bool bOk = aFunc.SelectLevel( nTab, bColumns, nLevel, bRecord, bPaint );
223 :
224 0 : if (bOk)
225 0 : UpdateScrollBars();
226 0 : }
227 :
228 : // einzelne Outline-Gruppe einblenden
229 :
230 0 : void ScDBFunc::ShowOutline( bool bColumns, sal_uInt16 nLevel, sal_uInt16 nEntry, bool bRecord, bool bPaint )
231 : {
232 0 : SCTAB nTab = GetViewData()->GetTabNo();
233 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
234 0 : ScOutlineDocFunc aFunc(*pDocSh);
235 :
236 0 : bool bOk = aFunc.ShowOutline( nTab, bColumns, nLevel, nEntry, bRecord, bPaint );
237 :
238 0 : if ( bOk && bPaint )
239 0 : UpdateScrollBars();
240 0 : }
241 :
242 : // einzelne Outline-Gruppe ausblenden
243 :
244 0 : void ScDBFunc::HideOutline( bool bColumns, sal_uInt16 nLevel, sal_uInt16 nEntry, bool bRecord, bool bPaint )
245 : {
246 0 : SCTAB nTab = GetViewData()->GetTabNo();
247 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
248 0 : ScOutlineDocFunc aFunc(*pDocSh);
249 :
250 0 : bool bOk = aFunc.HideOutline( nTab, bColumns, nLevel, nEntry, bRecord, bPaint );
251 :
252 0 : if ( bOk && bPaint )
253 0 : UpdateScrollBars();
254 0 : }
255 :
256 : // Menue-Status: markierten Bereich ein-/ausblenden
257 :
258 0 : bool ScDBFunc::OutlinePossible(bool bHide)
259 : {
260 0 : bool bEnable = false;
261 :
262 : SCCOL nStartCol;
263 : SCROW nStartRow;
264 : SCTAB nStartTab;
265 : SCCOL nEndCol;
266 : SCROW nEndRow;
267 : SCTAB nEndTab;
268 :
269 0 : if (GetViewData()->GetSimpleArea(nStartCol,nStartRow,nStartTab,nEndCol,nEndRow,nEndTab) == SC_MARK_SIMPLE)
270 : {
271 0 : ScDocument* pDoc = GetViewData()->GetDocument();
272 0 : SCTAB nTab = GetViewData()->GetTabNo();
273 0 : ScOutlineTable* pTable = pDoc->GetOutlineTable( nTab );
274 0 : if (pTable)
275 : {
276 : ScOutlineArray* pArray;
277 : ScOutlineEntry* pEntry;
278 : SCCOLROW nStart;
279 : SCCOLROW nEnd;
280 :
281 : // Spalten
282 :
283 0 : pArray = pTable->GetColArray();
284 0 : ScSubOutlineIterator aColIter( pArray );
285 0 : while ((pEntry=aColIter.GetNext()) != NULL && !bEnable)
286 : {
287 0 : nStart = pEntry->GetStart();
288 0 : nEnd = pEntry->GetEnd();
289 0 : if ( bHide )
290 : {
291 0 : if ( nStartCol<=static_cast<SCCOL>(nEnd) && nEndCol>=static_cast<SCCOL>(nStart) )
292 0 : if (!pEntry->IsHidden())
293 0 : bEnable = true;
294 : }
295 : else
296 : {
297 0 : if ( nStart>=nStartCol && nEnd<=nEndCol )
298 0 : if (pEntry->IsHidden())
299 0 : bEnable = true;
300 : }
301 : }
302 :
303 : // Zeilen
304 :
305 0 : pArray = pTable->GetRowArray();
306 0 : ScSubOutlineIterator aRowIter( pArray );
307 0 : while ((pEntry=aRowIter.GetNext()) != NULL)
308 : {
309 0 : nStart = pEntry->GetStart();
310 0 : nEnd = pEntry->GetEnd();
311 0 : if ( bHide )
312 : {
313 0 : if ( nStartRow<=nEnd && nEndRow>=nStart )
314 0 : if (!pEntry->IsHidden())
315 0 : bEnable = true;
316 : }
317 : else
318 : {
319 0 : if ( nStart>=nStartRow && nEnd<=nEndRow )
320 0 : if (pEntry->IsHidden())
321 0 : bEnable = true;
322 : }
323 : }
324 : }
325 : }
326 :
327 0 : return bEnable;
328 : }
329 :
330 : // markierten Bereich einblenden
331 :
332 0 : void ScDBFunc::ShowMarkedOutlines( bool bRecord )
333 : {
334 0 : ScRange aRange;
335 0 : if (GetViewData()->GetSimpleArea(aRange) == SC_MARK_SIMPLE)
336 : {
337 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
338 0 : ScOutlineDocFunc aFunc(*pDocSh);
339 0 : sal_Bool bDone = aFunc.ShowMarkedOutlines( aRange, bRecord );
340 0 : if (bDone)
341 0 : UpdateScrollBars();
342 : }
343 : else
344 0 : ErrorMessage(STR_NOMULTISELECT);
345 0 : }
346 :
347 : // markierten Bereich ausblenden
348 :
349 0 : void ScDBFunc::HideMarkedOutlines( bool bRecord )
350 : {
351 0 : ScRange aRange;
352 0 : if (GetViewData()->GetSimpleArea(aRange) == SC_MARK_SIMPLE)
353 : {
354 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
355 0 : ScOutlineDocFunc aFunc(*pDocSh);
356 0 : bool bDone = aFunc.HideMarkedOutlines( aRange, bRecord );
357 0 : if (bDone)
358 0 : UpdateScrollBars();
359 : }
360 : else
361 0 : ErrorMessage(STR_NOMULTISELECT);
362 0 : }
363 :
364 :
365 : // Teilergebnisse
366 :
367 :
368 0 : void ScDBFunc::DoSubTotals( const ScSubTotalParam& rParam, bool bRecord,
369 : const ScSortParam* pForceNewSort )
370 : {
371 0 : sal_Bool bDo = !rParam.bRemoveOnly; // sal_False = nur loeschen
372 :
373 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
374 0 : ScDocument* pDoc = pDocSh->GetDocument();
375 0 : ScMarkData& rMark = GetViewData()->GetMarkData();
376 0 : SCTAB nTab = GetViewData()->GetTabNo();
377 0 : if (bRecord && !pDoc->IsUndoEnabled())
378 0 : bRecord = false;
379 :
380 : ScDBData* pDBData = pDoc->GetDBAtArea( nTab, rParam.nCol1, rParam.nRow1,
381 0 : rParam.nCol2, rParam.nRow2 );
382 0 : if (!pDBData)
383 : {
384 : OSL_FAIL( "SubTotals: keine DBData" );
385 0 : return;
386 : }
387 :
388 0 : ScEditableTester aTester( pDoc, nTab, 0,rParam.nRow1+1, MAXCOL,MAXROW );
389 0 : if (!aTester.IsEditable())
390 : {
391 0 : ErrorMessage(aTester.GetMessageId());
392 0 : return;
393 : }
394 :
395 0 : if (pDoc->HasAttrib( rParam.nCol1, rParam.nRow1+1, nTab,
396 0 : rParam.nCol2, rParam.nRow2, nTab, HASATTR_MERGED | HASATTR_OVERLAPPED ))
397 : {
398 0 : ErrorMessage(STR_MSSG_INSERTCELLS_0); // nicht in zusammengefasste einfuegen
399 0 : return;
400 : }
401 :
402 0 : WaitObject aWait( GetViewData()->GetDialogParent() );
403 0 : sal_Bool bOk = true;
404 0 : if (rParam.bReplace)
405 0 : if (pDoc->TestRemoveSubTotals( nTab, rParam ))
406 : {
407 : bOk = ( MessBox( GetViewData()->GetDialogParent(), WinBits(WB_YES_NO | WB_DEF_YES),
408 : // "StarCalc" "Daten loeschen?"
409 0 : ScGlobal::GetRscString( STR_MSSG_DOSUBTOTALS_0 ),
410 0 : ScGlobal::GetRscString( STR_MSSG_DOSUBTOTALS_1 ) ).Execute()
411 0 : == RET_YES );
412 : }
413 :
414 0 : if (bOk)
415 : {
416 0 : ScDocShellModificator aModificator( *pDocSh );
417 :
418 0 : ScSubTotalParam aNewParam( rParam ); // Bereichsende wird veraendert
419 0 : ScDocument* pUndoDoc = NULL;
420 0 : ScOutlineTable* pUndoTab = NULL;
421 0 : ScRangeName* pUndoRange = NULL;
422 0 : ScDBCollection* pUndoDB = NULL;
423 :
424 0 : if (bRecord) // alte Daten sichern
425 : {
426 0 : sal_Bool bOldFilter = bDo && rParam.bDoSort;
427 0 : SCTAB nTabCount = pDoc->GetTableCount();
428 0 : pUndoDoc = new ScDocument( SCDOCMODE_UNDO );
429 0 : ScOutlineTable* pTable = pDoc->GetOutlineTable( nTab );
430 0 : if (pTable)
431 : {
432 0 : pUndoTab = new ScOutlineTable( *pTable );
433 :
434 : SCCOLROW nOutStartCol; // Zeilen/Spaltenstatus
435 : SCCOLROW nOutStartRow;
436 : SCCOLROW nOutEndCol;
437 : SCCOLROW nOutEndRow;
438 0 : pTable->GetColArray()->GetRange( nOutStartCol, nOutEndCol );
439 0 : pTable->GetRowArray()->GetRange( nOutStartRow, nOutEndRow );
440 :
441 0 : pUndoDoc->InitUndo( pDoc, nTab, nTab, true, true );
442 0 : pDoc->CopyToDocument( static_cast<SCCOL>(nOutStartCol), 0, nTab, static_cast<SCCOL>(nOutEndCol), MAXROW, nTab, IDF_NONE, false, pUndoDoc );
443 0 : pDoc->CopyToDocument( 0, nOutStartRow, nTab, MAXCOL, nOutEndRow, nTab, IDF_NONE, false, pUndoDoc );
444 : }
445 : else
446 0 : pUndoDoc->InitUndo( pDoc, nTab, nTab, false, bOldFilter );
447 :
448 : // Datenbereich sichern - incl. Filter-Ergebnis
449 : pDoc->CopyToDocument( 0,rParam.nRow1+1,nTab, MAXCOL,rParam.nRow2,nTab,
450 0 : IDF_ALL, false, pUndoDoc );
451 :
452 : // alle Formeln wegen Referenzen
453 : pDoc->CopyToDocument( 0,0,0, MAXCOL,MAXROW,nTabCount-1,
454 0 : IDF_FORMULA, false, pUndoDoc );
455 :
456 : // DB- und andere Bereiche
457 0 : ScRangeName* pDocRange = pDoc->GetRangeName();
458 0 : if (!pDocRange->empty())
459 0 : pUndoRange = new ScRangeName( *pDocRange );
460 0 : ScDBCollection* pDocDB = pDoc->GetDBCollection();
461 0 : if (!pDocDB->empty())
462 0 : pUndoDB = new ScDBCollection( *pDocDB );
463 : }
464 :
465 0 : ScOutlineTable* pOut = pDoc->GetOutlineTable( nTab );
466 0 : if (pOut)
467 : {
468 : // Remove all existing outlines in the specified range.
469 0 : ScOutlineArray* pRowArray = pOut->GetRowArray();
470 0 : sal_uInt16 nDepth = pRowArray->GetDepth();
471 0 : for (sal_uInt16 i = 0; i < nDepth; ++i)
472 : {
473 : bool bSize;
474 0 : pRowArray->Remove(aNewParam.nRow1, aNewParam.nRow2, bSize);
475 : }
476 : }
477 :
478 0 : if (rParam.bReplace)
479 0 : pDoc->RemoveSubTotals( nTab, aNewParam );
480 0 : sal_Bool bSuccess = sal_True;
481 0 : if (bDo)
482 : {
483 : // Sortieren
484 0 : if ( rParam.bDoSort || pForceNewSort )
485 : {
486 0 : pDBData->SetArea( nTab, aNewParam.nCol1,aNewParam.nRow1, aNewParam.nCol2,aNewParam.nRow2 );
487 :
488 : // Teilergebnis-Felder vor die Sortierung setzen
489 : // (doppelte werden weggelassen, kann darum auch wieder aufgerufen werden)
490 :
491 0 : ScSortParam aOldSort;
492 0 : pDBData->GetSortParam( aOldSort );
493 0 : ScSortParam aSortParam( aNewParam, pForceNewSort ? *pForceNewSort : aOldSort );
494 0 : Sort( aSortParam, false, false );
495 : }
496 :
497 0 : bSuccess = pDoc->DoSubTotals( nTab, aNewParam );
498 : }
499 : ScRange aDirtyRange( aNewParam.nCol1, aNewParam.nRow1, nTab,
500 0 : aNewParam.nCol2, aNewParam.nRow2, nTab );
501 0 : pDoc->SetDirty( aDirtyRange );
502 :
503 0 : if (bRecord)
504 : {
505 0 : pDocSh->GetUndoManager()->AddUndoAction(
506 : new ScUndoSubTotals( pDocSh, nTab,
507 : rParam, aNewParam.nRow2,
508 : pUndoDoc, pUndoTab, // pUndoDBData,
509 0 : pUndoRange, pUndoDB ) );
510 : }
511 :
512 0 : if (!bSuccess)
513 : {
514 : // "Kann keine Zeilen einfuegen"
515 0 : ErrorMessage(STR_MSSG_DOSUBTOTALS_2);
516 : }
517 :
518 : // merken
519 0 : pDBData->SetSubTotalParam( aNewParam );
520 0 : pDBData->SetArea( nTab, aNewParam.nCol1,aNewParam.nRow1, aNewParam.nCol2,aNewParam.nRow2 );
521 0 : pDoc->CompileDBFormula();
522 :
523 0 : DoneBlockMode();
524 0 : InitOwnBlockMode();
525 : rMark.SetMarkArea( ScRange( aNewParam.nCol1,aNewParam.nRow1,nTab,
526 0 : aNewParam.nCol2,aNewParam.nRow2,nTab ) );
527 0 : MarkDataChanged();
528 :
529 : pDocSh->PostPaint(ScRange(0, 0, nTab, MAXCOL, MAXROW, nTab),
530 0 : PAINT_GRID | PAINT_LEFT | PAINT_TOP | PAINT_SIZE);
531 :
532 0 : aModificator.SetDocumentModified();
533 :
534 0 : SelectionChanged();
535 0 : }
536 : }
537 :
538 :
539 : // Consolidate
540 :
541 :
542 0 : void ScDBFunc::Consolidate( const ScConsolidateParam& rParam, bool bRecord )
543 : {
544 0 : ScDocShell* pDocShell = GetViewData()->GetDocShell();
545 0 : pDocShell->DoConsolidate( rParam, bRecord );
546 0 : SetTabNo( rParam.nTab, true );
547 0 : }
548 :
549 :
550 : // Pivot
551 :
552 :
553 0 : static OUString lcl_MakePivotTabName( const OUString& rPrefix, SCTAB nNumber )
554 : {
555 0 : OUString aName = rPrefix + OUString::number( nNumber );
556 0 : return aName;
557 : }
558 :
559 0 : bool ScDBFunc::MakePivotTable(
560 : const ScDPSaveData& rData, const ScRange& rDest, bool bNewTable,
561 : const ScDPObject& rSource, bool bApi )
562 : {
563 : // error message if no fields are set
564 : // this must be removed when drag&drop of fields from a toolbox is available
565 :
566 0 : if ( rData.IsEmpty() && !bApi )
567 : {
568 0 : ErrorMessage(STR_PIVOT_NODATA);
569 0 : return false;
570 : }
571 :
572 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
573 0 : ScDocument* pDoc = GetViewData()->GetDocument();
574 0 : bool bUndo = pDoc->IsUndoEnabled();
575 :
576 0 : ScRange aDestRange = rDest;
577 0 : if ( bNewTable )
578 : {
579 0 : SCTAB nSrcTab = GetViewData()->GetTabNo();
580 :
581 0 : OUString aName( ScGlobal::GetRscString(STR_PIVOT_TABLE) );
582 0 : OUString aStr;
583 :
584 0 : pDoc->GetName( nSrcTab, aStr );
585 0 : aName += "_";
586 0 : aName += aStr;
587 0 : aName += "_";
588 :
589 0 : SCTAB nNewTab = nSrcTab+1;
590 :
591 0 : SCTAB i=1;
592 0 : while ( !pDoc->InsertTab( nNewTab, lcl_MakePivotTabName( aName, i ) ) && i <= MAXTAB )
593 0 : i++;
594 :
595 0 : bool bAppend = ( nNewTab+1 == pDoc->GetTableCount() );
596 0 : if (bUndo)
597 : {
598 0 : pDocSh->GetUndoManager()->AddUndoAction(
599 0 : new ScUndoInsertTab( pDocSh, nNewTab, bAppend, lcl_MakePivotTabName( aName, i ) ));
600 : }
601 :
602 0 : GetViewData()->InsertTab( nNewTab );
603 0 : SetTabNo(nNewTab, true);
604 :
605 0 : aDestRange = ScRange( 0, 0, nNewTab );
606 : }
607 :
608 : ScDPObject* pDPObj = pDoc->GetDPAtCursor(
609 0 : aDestRange.aStart.Col(), aDestRange.aStart.Row(), aDestRange.aStart.Tab() );
610 :
611 0 : ScDPObject aObj( rSource );
612 0 : aObj.SetOutRange( aDestRange );
613 0 : if ( pDPObj && !rData.GetExistingDimensionData() )
614 : {
615 : // copy dimension data from old object - lost in the dialog
616 : //! change the dialog to keep the dimension data
617 :
618 0 : ScDPSaveData aNewData( rData );
619 0 : const ScDPSaveData* pOldData = pDPObj->GetSaveData();
620 0 : if ( pOldData )
621 : {
622 0 : const ScDPDimensionSaveData* pDimSave = pOldData->GetExistingDimensionData();
623 0 : aNewData.SetDimensionData( pDimSave );
624 : }
625 0 : aObj.SetSaveData( aNewData );
626 : }
627 : else
628 0 : aObj.SetSaveData( rData );
629 :
630 0 : bool bAllowMove = (pDPObj != NULL); // allow re-positioning when editing existing table
631 :
632 0 : ScDBDocFunc aFunc( *pDocSh );
633 0 : bool bSuccess = aFunc.DataPilotUpdate(pDPObj, &aObj, true, false, bAllowMove);
634 :
635 0 : CursorPosChanged(); // shells may be switched
636 :
637 0 : if ( bNewTable )
638 : {
639 0 : pDocSh->PostPaintExtras();
640 0 : SFX_APP()->Broadcast( SfxSimpleHint( SC_HINT_TABLES_CHANGED ) );
641 : }
642 :
643 0 : return bSuccess;
644 : }
645 :
646 0 : void ScDBFunc::DeletePivotTable()
647 : {
648 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
649 0 : ScDocument* pDoc = pDocSh->GetDocument();
650 0 : ScDPObject* pDPObj = pDoc->GetDPAtCursor( GetViewData()->GetCurX(),
651 : GetViewData()->GetCurY(),
652 0 : GetViewData()->GetTabNo() );
653 0 : if ( pDPObj )
654 : {
655 0 : ScDBDocFunc aFunc( *pDocSh );
656 0 : aFunc.RemovePivotTable(*pDPObj, true, false);
657 0 : CursorPosChanged(); // shells may be switched
658 : }
659 : else
660 0 : ErrorMessage(STR_PIVOT_NOTFOUND);
661 0 : }
662 :
663 0 : void ScDBFunc::RecalcPivotTable()
664 : {
665 0 : ScDocShell* pDocSh = GetViewData()->GetDocShell();
666 0 : ScDocument* pDoc = GetViewData()->GetDocument();
667 :
668 0 : ScDPObject* pDPObj = pDoc->GetDPAtCursor( GetViewData()->GetCurX(),
669 : GetViewData()->GetCurY(),
670 0 : GetViewData()->GetTabNo() );
671 0 : if (pDPObj)
672 : {
673 : // Remove existing data cache for the data that this datapilot uses,
674 : // to force re-build data cache.
675 0 : ScDBDocFunc aFunc(*pDocSh);
676 0 : aFunc.RefreshPivotTables(pDPObj, false);
677 :
678 0 : CursorPosChanged(); // shells may be switched
679 : }
680 : else
681 0 : ErrorMessage(STR_PIVOT_NOTFOUND);
682 0 : }
683 :
684 0 : void ScDBFunc::GetSelectedMemberList(ScDPUniqueStringSet& rEntries, long& rDimension)
685 : {
686 0 : ScDPObject* pDPObj = GetViewData()->GetDocument()->GetDPAtCursor( GetViewData()->GetCurX(),
687 0 : GetViewData()->GetCurY(), GetViewData()->GetTabNo() );
688 0 : if ( !pDPObj )
689 0 : return;
690 :
691 0 : long nStartDimension = -1;
692 0 : long nStartHierarchy = -1;
693 0 : long nStartLevel = -1;
694 :
695 0 : ScRangeListRef xRanges;
696 0 : GetViewData()->GetMultiArea( xRanges ); // incl. cursor if nothing is selected
697 0 : size_t nRangeCount = xRanges->size();
698 0 : sal_Bool bContinue = true;
699 :
700 0 : for (size_t nRangePos=0; nRangePos < nRangeCount && bContinue; nRangePos++)
701 : {
702 0 : ScRange aRange = *(*xRanges)[nRangePos];
703 0 : SCCOL nStartCol = aRange.aStart.Col();
704 0 : SCROW nStartRow = aRange.aStart.Row();
705 0 : SCCOL nEndCol = aRange.aEnd.Col();
706 0 : SCROW nEndRow = aRange.aEnd.Row();
707 0 : SCTAB nTab = aRange.aStart.Tab();
708 :
709 0 : for (SCROW nRow=nStartRow; nRow<=nEndRow && bContinue; nRow++)
710 0 : for (SCCOL nCol=nStartCol; nCol<=nEndCol && bContinue; nCol++)
711 : {
712 0 : sheet::DataPilotTableHeaderData aData;
713 0 : pDPObj->GetHeaderPositionData(ScAddress(nCol, nRow, nTab), aData);
714 0 : if ( aData.Dimension < 0 )
715 0 : bContinue = false; // not part of any dimension
716 : else
717 : {
718 0 : if ( nStartDimension < 0 ) // first member?
719 : {
720 0 : nStartDimension = aData.Dimension;
721 0 : nStartHierarchy = aData.Hierarchy;
722 0 : nStartLevel = aData.Level;
723 : }
724 0 : if ( aData.Dimension != nStartDimension ||
725 0 : aData.Hierarchy != nStartHierarchy ||
726 0 : aData.Level != nStartLevel )
727 : {
728 0 : bContinue = false; // cannot mix dimensions
729 : }
730 : }
731 0 : if ( bContinue )
732 : {
733 : // accept any part of a member description, also subtotals,
734 : // but don't stop if empty parts are contained
735 0 : if ( aData.Flags & sheet::MemberResultFlags::HASMEMBER )
736 0 : rEntries.insert(aData.MemberName);
737 : }
738 0 : }
739 : }
740 :
741 0 : rDimension = nStartDimension; // dimension from which the found members came
742 0 : if (!bContinue)
743 0 : rEntries.clear(); // remove all if not valid
744 : }
745 :
746 0 : bool ScDBFunc::HasSelectionForDateGroup( ScDPNumGroupInfo& rOldInfo, sal_Int32& rParts )
747 : {
748 : // determine if the date group dialog has to be shown for the current selection
749 :
750 0 : bool bFound = false;
751 :
752 0 : SCCOL nCurX = GetViewData()->GetCurX();
753 0 : SCROW nCurY = GetViewData()->GetCurY();
754 0 : SCTAB nTab = GetViewData()->GetTabNo();
755 0 : ScDocument* pDoc = GetViewData()->GetDocument();
756 :
757 0 : ScDPObject* pDPObj = pDoc->GetDPAtCursor( nCurX, nCurY, nTab );
758 0 : if ( pDPObj )
759 : {
760 0 : ScDPUniqueStringSet aEntries;
761 0 : long nSelectDimension = -1;
762 0 : GetSelectedMemberList( aEntries, nSelectDimension );
763 :
764 0 : if (!aEntries.empty())
765 : {
766 : bool bIsDataLayout;
767 0 : OUString aDimName = pDPObj->GetDimName( nSelectDimension, bIsDataLayout );
768 0 : OUString aBaseDimName( aDimName );
769 :
770 0 : sal_Bool bInGroupDim = false;
771 0 : sal_Bool bFoundParts = false;
772 :
773 : ScDPDimensionSaveData* pDimData =
774 0 : const_cast<ScDPDimensionSaveData*>( pDPObj->GetSaveData()->GetExistingDimensionData() );
775 0 : if ( pDimData )
776 : {
777 0 : const ScDPSaveNumGroupDimension* pNumGroupDim = pDimData->GetNumGroupDim( aDimName );
778 0 : const ScDPSaveGroupDimension* pGroupDim = pDimData->GetNamedGroupDim( aDimName );
779 0 : if ( pNumGroupDim )
780 : {
781 : // existing num group dimension
782 :
783 0 : if ( pNumGroupDim->GetDatePart() != 0 )
784 : {
785 : // dimension has date info -> edit settings of this dimension
786 : // (parts are collected below)
787 :
788 0 : rOldInfo = pNumGroupDim->GetDateInfo();
789 0 : bFound = true;
790 : }
791 0 : else if ( pNumGroupDim->GetInfo().mbDateValues )
792 : {
793 : // Numerical grouping with DateValues flag is used for grouping
794 : // of days with a "Number of days" value.
795 :
796 0 : rOldInfo = pNumGroupDim->GetInfo();
797 0 : rParts = com::sun::star::sheet::DataPilotFieldGroupBy::DAYS; // not found in CollectDateParts
798 0 : bFoundParts = sal_True;
799 0 : bFound = true;
800 : }
801 0 : bInGroupDim = sal_True;
802 : }
803 0 : else if ( pGroupDim )
804 : {
805 : // existing additional group dimension
806 :
807 0 : if ( pGroupDim->GetDatePart() != 0 )
808 : {
809 : // dimension has date info -> edit settings of this dimension
810 : // (parts are collected below)
811 :
812 0 : rOldInfo = pGroupDim->GetDateInfo();
813 0 : aBaseDimName = pGroupDim->GetSourceDimName();
814 0 : bFound = true;
815 : }
816 0 : bInGroupDim = sal_True;
817 : }
818 : }
819 0 : if ( bFound && !bFoundParts )
820 : {
821 : // collect date parts from all group dimensions
822 0 : rParts = pDimData->CollectDateParts( aBaseDimName );
823 : }
824 0 : if ( !bFound && !bInGroupDim )
825 : {
826 : // create new date group dimensions if the selection is a single cell
827 : // in a normal dimension with date content
828 :
829 0 : ScRange aSelRange;
830 0 : if ( (GetViewData()->GetSimpleArea( aSelRange ) == SC_MARK_SIMPLE) &&
831 0 : aSelRange.aStart == aSelRange.aEnd )
832 : {
833 0 : SCCOL nSelCol = aSelRange.aStart.Col();
834 0 : SCROW nSelRow = aSelRange.aStart.Row();
835 0 : SCTAB nSelTab = aSelRange.aStart.Tab();
836 0 : if ( pDoc->HasValueData( nSelCol, nSelRow, nSelTab ) )
837 : {
838 : sal_uLong nIndex = static_cast<const SfxUInt32Item*>(pDoc->GetAttr(
839 0 : nSelCol, nSelRow, nSelTab, ATTR_VALUE_FORMAT))->GetValue();
840 0 : short nType = pDoc->GetFormatTable()->GetType(nIndex);
841 0 : if ( nType == NUMBERFORMAT_DATE || nType == NUMBERFORMAT_TIME || nType == NUMBERFORMAT_DATETIME )
842 : {
843 0 : bFound = true;
844 : // use currently selected value for automatic limits
845 0 : if( rOldInfo.mbAutoStart )
846 0 : rOldInfo.mfStart = pDoc->GetValue( aSelRange.aStart );
847 0 : if( rOldInfo.mbAutoEnd )
848 0 : rOldInfo.mfEnd = pDoc->GetValue( aSelRange.aStart );
849 : }
850 : }
851 : }
852 0 : }
853 0 : }
854 : }
855 :
856 0 : return bFound;
857 : }
858 :
859 0 : bool ScDBFunc::HasSelectionForNumGroup( ScDPNumGroupInfo& rOldInfo )
860 : {
861 : // determine if the numeric group dialog has to be shown for the current selection
862 :
863 0 : bool bFound = false;
864 :
865 0 : SCCOL nCurX = GetViewData()->GetCurX();
866 0 : SCROW nCurY = GetViewData()->GetCurY();
867 0 : SCTAB nTab = GetViewData()->GetTabNo();
868 0 : ScDocument* pDoc = GetViewData()->GetDocument();
869 :
870 0 : ScDPObject* pDPObj = pDoc->GetDPAtCursor( nCurX, nCurY, nTab );
871 0 : if ( pDPObj )
872 : {
873 0 : ScDPUniqueStringSet aEntries;
874 0 : long nSelectDimension = -1;
875 0 : GetSelectedMemberList( aEntries, nSelectDimension );
876 :
877 0 : if (!aEntries.empty())
878 : {
879 : bool bIsDataLayout;
880 0 : OUString aDimName = pDPObj->GetDimName( nSelectDimension, bIsDataLayout );
881 :
882 0 : sal_Bool bInGroupDim = false;
883 :
884 : ScDPDimensionSaveData* pDimData =
885 0 : const_cast<ScDPDimensionSaveData*>( pDPObj->GetSaveData()->GetExistingDimensionData() );
886 0 : if ( pDimData )
887 : {
888 0 : const ScDPSaveNumGroupDimension* pNumGroupDim = pDimData->GetNumGroupDim( aDimName );
889 0 : if ( pNumGroupDim )
890 : {
891 : // existing num group dimension
892 : // -> edit settings of this dimension
893 :
894 0 : rOldInfo = pNumGroupDim->GetInfo();
895 0 : bFound = true;
896 : }
897 0 : else if ( pDimData->GetNamedGroupDim( aDimName ) )
898 0 : bInGroupDim = sal_True; // in a group dimension
899 : }
900 0 : if ( !bFound && !bInGroupDim )
901 : {
902 : // create a new num group dimension if the selection is a single cell
903 : // in a normal dimension with numeric content
904 :
905 0 : ScRange aSelRange;
906 0 : if ( (GetViewData()->GetSimpleArea( aSelRange ) == SC_MARK_SIMPLE) &&
907 0 : aSelRange.aStart == aSelRange.aEnd )
908 : {
909 0 : if ( pDoc->HasValueData( aSelRange.aStart.Col(), aSelRange.aStart.Row(),
910 0 : aSelRange.aStart.Tab() ) )
911 : {
912 0 : bFound = true;
913 : // use currently selected value for automatic limits
914 0 : if( rOldInfo.mbAutoStart )
915 0 : rOldInfo.mfStart = pDoc->GetValue( aSelRange.aStart );
916 0 : if( rOldInfo.mbAutoEnd )
917 0 : rOldInfo.mfEnd = pDoc->GetValue( aSelRange.aStart );
918 : }
919 : }
920 0 : }
921 0 : }
922 : }
923 :
924 0 : return bFound;
925 : }
926 :
927 0 : void ScDBFunc::DateGroupDataPilot( const ScDPNumGroupInfo& rInfo, sal_Int32 nParts )
928 : {
929 0 : ScDPObject* pDPObj = GetViewData()->GetDocument()->GetDPAtCursor( GetViewData()->GetCurX(),
930 0 : GetViewData()->GetCurY(), GetViewData()->GetTabNo() );
931 0 : if (!pDPObj)
932 0 : return;
933 :
934 0 : ScDPUniqueStringSet aEntries;
935 0 : long nSelectDimension = -1;
936 0 : GetSelectedMemberList( aEntries, nSelectDimension );
937 :
938 0 : if (aEntries.empty())
939 0 : return;
940 :
941 0 : std::vector<OUString> aDeletedNames;
942 : bool bIsDataLayout;
943 0 : OUString aDimName = pDPObj->GetDimName( nSelectDimension, bIsDataLayout );
944 :
945 0 : ScDPSaveData aData( *pDPObj->GetSaveData() );
946 0 : ScDPDimensionSaveData* pDimData = aData.GetDimensionData(); // created if not there
947 :
948 : // find the source dimension name.
949 0 : OUString aBaseDimName = aDimName;
950 0 : if( const ScDPSaveGroupDimension* pBaseGroupDim = pDimData->GetNamedGroupDim( aDimName ) )
951 0 : aBaseDimName = pBaseGroupDim->GetSourceDimName();
952 :
953 : // Remove all group dimensions associated with this source dimension. For
954 : // date grouping, we need to remove all existing groups for the affected
955 : // source dimension and build new one(s) from scratch. Keep the deleted
956 : // names so that they can be reused during re-construction.
957 0 : aData.RemoveAllGroupDimensions(aBaseDimName, &aDeletedNames);
958 :
959 0 : if ( nParts )
960 : {
961 : // create date group dimensions
962 :
963 0 : ScDPNumGroupInfo aEmpty;
964 0 : bool bFirst = true;
965 0 : sal_Int32 nMask = 1;
966 0 : for (sal_uInt16 nBit=0; nBit<32; nBit++)
967 : {
968 0 : if ( nParts & nMask )
969 : {
970 0 : if ( bFirst )
971 : {
972 : // innermost part: create NumGroupDimension (replacing original values)
973 : // Dimension name is left unchanged
974 :
975 0 : if ( (nParts == sheet::DataPilotFieldGroupBy::DAYS) && (rInfo.mfStep >= 1.0) )
976 : {
977 : // only days, and a step value specified: use numerical grouping
978 : // with DateValues flag, not date grouping
979 :
980 0 : ScDPNumGroupInfo aNumInfo( rInfo );
981 0 : aNumInfo.mbDateValues = true;
982 :
983 0 : ScDPSaveNumGroupDimension aNumGroupDim( aBaseDimName, aNumInfo );
984 0 : pDimData->AddNumGroupDimension( aNumGroupDim );
985 : }
986 : else
987 : {
988 0 : ScDPSaveNumGroupDimension aNumGroupDim( aBaseDimName, rInfo, nMask );
989 0 : pDimData->AddNumGroupDimension( aNumGroupDim );
990 : }
991 :
992 0 : bFirst = false;
993 : }
994 : else
995 : {
996 : // additional parts: create GroupDimension (shown as additional dimensions)
997 : OUString aGroupDimName =
998 0 : pDimData->CreateDateGroupDimName(nMask, *pDPObj, true, &aDeletedNames);
999 0 : ScDPSaveGroupDimension aGroupDim( aBaseDimName, aGroupDimName );
1000 0 : aGroupDim.SetDateInfo( rInfo, nMask );
1001 0 : pDimData->AddGroupDimension( aGroupDim );
1002 :
1003 : // set orientation
1004 0 : ScDPSaveDimension* pSaveDimension = aData.GetDimensionByName( aGroupDimName );
1005 0 : if ( pSaveDimension->GetOrientation() == sheet::DataPilotFieldOrientation_HIDDEN )
1006 : {
1007 0 : ScDPSaveDimension* pOldDimension = aData.GetDimensionByName( aBaseDimName );
1008 0 : pSaveDimension->SetOrientation( pOldDimension->GetOrientation() );
1009 0 : long nPosition = 0; //! before (immediate) base
1010 0 : aData.SetPosition( pSaveDimension, nPosition );
1011 0 : }
1012 : }
1013 : }
1014 0 : nMask *= 2;
1015 : }
1016 : }
1017 :
1018 : // apply changes
1019 0 : ScDBDocFunc aFunc( *GetViewData()->GetDocShell() );
1020 0 : pDPObj->SetSaveData( aData );
1021 0 : aFunc.RefreshPivotTableGroups(pDPObj);
1022 :
1023 : // unmark cell selection
1024 0 : Unmark();
1025 : }
1026 :
1027 0 : void ScDBFunc::NumGroupDataPilot( const ScDPNumGroupInfo& rInfo )
1028 : {
1029 0 : ScDPObject* pDPObj = GetViewData()->GetDocument()->GetDPAtCursor( GetViewData()->GetCurX(),
1030 0 : GetViewData()->GetCurY(), GetViewData()->GetTabNo() );
1031 0 : if (!pDPObj)
1032 0 : return;
1033 :
1034 0 : ScDPUniqueStringSet aEntries;
1035 0 : long nSelectDimension = -1;
1036 0 : GetSelectedMemberList( aEntries, nSelectDimension );
1037 :
1038 0 : if (aEntries.empty())
1039 0 : return;
1040 :
1041 : bool bIsDataLayout;
1042 0 : OUString aDimName = pDPObj->GetDimName( nSelectDimension, bIsDataLayout );
1043 :
1044 0 : ScDPSaveData aData( *pDPObj->GetSaveData() );
1045 0 : ScDPDimensionSaveData* pDimData = aData.GetDimensionData(); // created if not there
1046 :
1047 0 : ScDPSaveNumGroupDimension* pExisting = pDimData->GetNumGroupDimAcc( aDimName );
1048 0 : if ( pExisting )
1049 : {
1050 : // modify existing group dimension
1051 0 : pExisting->SetGroupInfo( rInfo );
1052 : }
1053 : else
1054 : {
1055 : // create new group dimension
1056 0 : ScDPSaveNumGroupDimension aNumGroupDim( aDimName, rInfo );
1057 0 : pDimData->AddNumGroupDimension( aNumGroupDim );
1058 : }
1059 :
1060 : // apply changes
1061 0 : ScDBDocFunc aFunc( *GetViewData()->GetDocShell() );
1062 0 : pDPObj->SetSaveData( aData );
1063 0 : aFunc.RefreshPivotTableGroups(pDPObj);
1064 :
1065 : // unmark cell selection
1066 0 : Unmark();
1067 : }
1068 :
1069 0 : void ScDBFunc::GroupDataPilot()
1070 : {
1071 0 : ScDPObject* pDPObj = GetViewData()->GetDocument()->GetDPAtCursor( GetViewData()->GetCurX(),
1072 0 : GetViewData()->GetCurY(), GetViewData()->GetTabNo() );
1073 0 : if (!pDPObj)
1074 0 : return;
1075 :
1076 0 : ScDPUniqueStringSet aEntries;
1077 0 : long nSelectDimension = -1;
1078 0 : GetSelectedMemberList( aEntries, nSelectDimension );
1079 :
1080 0 : if (aEntries.empty())
1081 0 : return;
1082 :
1083 : bool bIsDataLayout;
1084 0 : OUString aDimName = pDPObj->GetDimName( nSelectDimension, bIsDataLayout );
1085 :
1086 0 : ScDPSaveData aData( *pDPObj->GetSaveData() );
1087 0 : ScDPDimensionSaveData* pDimData = aData.GetDimensionData(); // created if not there
1088 :
1089 : // find original base
1090 0 : OUString aBaseDimName = aDimName;
1091 0 : const ScDPSaveGroupDimension* pBaseGroupDim = pDimData->GetNamedGroupDim( aDimName );
1092 0 : if ( pBaseGroupDim )
1093 : {
1094 : // any entry's SourceDimName is the original base
1095 0 : aBaseDimName = pBaseGroupDim->GetSourceDimName();
1096 : }
1097 :
1098 : // find existing group dimension
1099 : // (using the selected dim, can be intermediate group dim)
1100 0 : ScDPSaveGroupDimension* pGroupDimension = pDimData->GetGroupDimAccForBase( aDimName );
1101 :
1102 : // remove the selected items from their groups
1103 : // (empty groups are removed, too)
1104 0 : if ( pGroupDimension )
1105 : {
1106 0 : ScDPUniqueStringSet::const_iterator it = aEntries.begin(), itEnd = aEntries.end();
1107 0 : for (; it != itEnd; ++it)
1108 : {
1109 0 : const OUString& aEntryName = *it;
1110 0 : if ( pBaseGroupDim )
1111 : {
1112 : // for each selected (intermediate) group, remove all its items
1113 : // (same logic as for adding, below)
1114 0 : const ScDPSaveGroupItem* pBaseGroup = pBaseGroupDim->GetNamedGroup( aEntryName );
1115 0 : if ( pBaseGroup )
1116 0 : pBaseGroup->RemoveElementsFromGroups( *pGroupDimension ); // remove all elements
1117 : else
1118 0 : pGroupDimension->RemoveFromGroups( aEntryName );
1119 : }
1120 : else
1121 0 : pGroupDimension->RemoveFromGroups( aEntryName );
1122 : }
1123 : }
1124 :
1125 0 : ScDPSaveGroupDimension* pNewGroupDim = NULL;
1126 0 : if ( !pGroupDimension )
1127 : {
1128 : // create a new group dimension
1129 : OUString aGroupDimName =
1130 0 : pDimData->CreateGroupDimName(aBaseDimName, *pDPObj, false, NULL);
1131 0 : pNewGroupDim = new ScDPSaveGroupDimension( aBaseDimName, aGroupDimName );
1132 :
1133 0 : pGroupDimension = pNewGroupDim; // make changes to the new dim if none existed
1134 :
1135 0 : if ( pBaseGroupDim )
1136 : {
1137 : // If it's a higher-order group dimension, pre-allocate groups for all
1138 : // non-selected original groups, so the individual base members aren't
1139 : // used for automatic groups (this would make the original groups hard
1140 : // to find).
1141 : //! Also do this when removing groups?
1142 : //! Handle this case dynamically with automatic groups?
1143 :
1144 0 : long nGroupCount = pBaseGroupDim->GetGroupCount();
1145 0 : for ( long nGroup = 0; nGroup < nGroupCount; nGroup++ )
1146 : {
1147 0 : const ScDPSaveGroupItem* pBaseGroup = pBaseGroupDim->GetGroupByIndex( nGroup );
1148 :
1149 0 : if (!aEntries.count(pBaseGroup->GetGroupName()))
1150 : {
1151 : // add an additional group for each item that is not in the selection
1152 0 : ScDPSaveGroupItem aGroup( pBaseGroup->GetGroupName() );
1153 0 : aGroup.AddElementsFromGroup( *pBaseGroup );
1154 0 : pGroupDimension->AddGroupItem( aGroup );
1155 : }
1156 : }
1157 0 : }
1158 : }
1159 0 : OUString aGroupDimName = pGroupDimension->GetGroupDimName();
1160 :
1161 0 : OUString aGroupName = pGroupDimension->CreateGroupName(ScGlobal::GetRscString(STR_PIVOT_GROUP));
1162 0 : ScDPSaveGroupItem aGroup( aGroupName );
1163 0 : ScDPUniqueStringSet::const_iterator it = aEntries.begin(), itEnd = aEntries.end();
1164 0 : for (; it != itEnd; ++it)
1165 : {
1166 0 : const OUString& aEntryName = *it;
1167 0 : if ( pBaseGroupDim )
1168 : {
1169 : // for each selected (intermediate) group, add all its items
1170 0 : const ScDPSaveGroupItem* pBaseGroup = pBaseGroupDim->GetNamedGroup( aEntryName );
1171 0 : if ( pBaseGroup )
1172 0 : aGroup.AddElementsFromGroup( *pBaseGroup );
1173 : else
1174 0 : aGroup.AddElement( aEntryName ); // no group found -> automatic group, add the item itself
1175 : }
1176 : else
1177 0 : aGroup.AddElement( aEntryName ); // no group dimension, add all items directly
1178 : }
1179 :
1180 0 : pGroupDimension->AddGroupItem( aGroup );
1181 :
1182 0 : if ( pNewGroupDim )
1183 : {
1184 0 : pDimData->AddGroupDimension( *pNewGroupDim );
1185 0 : delete pNewGroupDim; // AddGroupDimension copies the object
1186 : // don't access pGroupDimension after here
1187 : }
1188 0 : pGroupDimension = pNewGroupDim = NULL;
1189 :
1190 : // set orientation
1191 0 : ScDPSaveDimension* pSaveDimension = aData.GetDimensionByName( aGroupDimName );
1192 0 : if ( pSaveDimension->GetOrientation() == sheet::DataPilotFieldOrientation_HIDDEN )
1193 : {
1194 0 : ScDPSaveDimension* pOldDimension = aData.GetDimensionByName( aDimName );
1195 0 : pSaveDimension->SetOrientation( pOldDimension->GetOrientation() );
1196 0 : long nPosition = 0; //! before (immediate) base
1197 0 : aData.SetPosition( pSaveDimension, nPosition );
1198 : }
1199 :
1200 : // apply changes
1201 0 : ScDBDocFunc aFunc( *GetViewData()->GetDocShell() );
1202 0 : pDPObj->SetSaveData( aData );
1203 0 : aFunc.RefreshPivotTableGroups(pDPObj);
1204 :
1205 : // unmark cell selection
1206 0 : Unmark();
1207 : }
1208 :
1209 0 : void ScDBFunc::UngroupDataPilot()
1210 : {
1211 0 : ScDPObject* pDPObj = GetViewData()->GetDocument()->GetDPAtCursor( GetViewData()->GetCurX(),
1212 0 : GetViewData()->GetCurY(), GetViewData()->GetTabNo() );
1213 0 : if (!pDPObj)
1214 0 : return;
1215 :
1216 0 : ScDPUniqueStringSet aEntries;
1217 0 : long nSelectDimension = -1;
1218 0 : GetSelectedMemberList( aEntries, nSelectDimension );
1219 :
1220 0 : if (aEntries.empty())
1221 0 : return;
1222 :
1223 : bool bIsDataLayout;
1224 0 : OUString aDimName = pDPObj->GetDimName( nSelectDimension, bIsDataLayout );
1225 :
1226 0 : ScDPSaveData aData( *pDPObj->GetSaveData() );
1227 0 : if (!aData.GetExistingDimensionData())
1228 : // There is nothing to ungroup.
1229 0 : return;
1230 :
1231 0 : ScDPDimensionSaveData* pDimData = aData.GetDimensionData();
1232 :
1233 0 : ScDPSaveGroupDimension* pGroupDim = pDimData->GetNamedGroupDimAcc( aDimName );
1234 0 : const ScDPSaveNumGroupDimension* pNumGroupDim = pDimData->GetNumGroupDim( aDimName );
1235 0 : if ( ( pGroupDim && pGroupDim->GetDatePart() != 0 ) ||
1236 0 : ( pNumGroupDim && pNumGroupDim->GetDatePart() != 0 ) )
1237 : {
1238 : // Date grouping: need to remove all affected group dimensions.
1239 : // This is done using DateGroupDataPilot with nParts=0.
1240 :
1241 0 : DateGroupDataPilot( ScDPNumGroupInfo(), 0 );
1242 0 : return;
1243 : }
1244 :
1245 0 : if ( pGroupDim )
1246 : {
1247 0 : ScDPUniqueStringSet::const_iterator it = aEntries.begin(), itEnd = aEntries.end();
1248 0 : for (; it != itEnd; ++it)
1249 0 : pGroupDim->RemoveGroup(*it);
1250 :
1251 : // remove group dimension if empty
1252 0 : bool bEmptyDim = pGroupDim->IsEmpty();
1253 0 : if ( !bEmptyDim )
1254 : {
1255 : // If all remaining groups in the dimension aren't shown, remove
1256 : // the dimension too, as if it was completely empty.
1257 0 : ScDPUniqueStringSet aVisibleEntries;
1258 0 : pDPObj->GetMemberResultNames( aVisibleEntries, nSelectDimension );
1259 0 : bEmptyDim = pGroupDim->HasOnlyHidden( aVisibleEntries );
1260 : }
1261 0 : if ( bEmptyDim )
1262 : {
1263 0 : pDimData->RemoveGroupDimension( aDimName ); // pGroupDim is deleted
1264 :
1265 : // also remove SaveData settings for the dimension that no longer exists
1266 0 : aData.RemoveDimensionByName( aDimName );
1267 : }
1268 : }
1269 0 : else if ( pNumGroupDim )
1270 : {
1271 : // remove the numerical grouping
1272 0 : pDimData->RemoveNumGroupDimension( aDimName );
1273 : // SaveData settings can remain unchanged - the same dimension still exists
1274 : }
1275 :
1276 : // apply changes
1277 0 : ScDBDocFunc aFunc( *GetViewData()->GetDocShell() );
1278 0 : pDPObj->SetSaveData( aData );
1279 0 : aFunc.RefreshPivotTableGroups(pDPObj);
1280 :
1281 : // unmark cell selection
1282 0 : Unmark();
1283 : }
1284 :
1285 0 : static OUString lcl_replaceMemberNameInSubtotal(const OUString& rSubtotal, const OUString& rMemberName)
1286 : {
1287 0 : sal_Int32 n = rSubtotal.getLength();
1288 0 : const sal_Unicode* p = rSubtotal.getStr();
1289 0 : OUStringBuffer aBuf, aWordBuf;
1290 0 : for (sal_Int32 i = 0; i < n; ++i)
1291 : {
1292 0 : sal_Unicode c = p[i];
1293 0 : if (c == ' ')
1294 : {
1295 0 : OUString aWord = aWordBuf.makeStringAndClear();
1296 0 : if (aWord.equals(rMemberName))
1297 0 : aBuf.append('?');
1298 : else
1299 0 : aBuf.append(aWord);
1300 0 : aBuf.append(c);
1301 : }
1302 0 : else if (c == '\\')
1303 : {
1304 : // Escape a backslash character.
1305 0 : aWordBuf.append(c);
1306 0 : aWordBuf.append(c);
1307 : }
1308 0 : else if (c == '?')
1309 : {
1310 : // A literal '?' must be escaped with a backslash ('\');
1311 0 : aWordBuf.append('\\');
1312 0 : aWordBuf.append(c);
1313 : }
1314 : else
1315 0 : aWordBuf.append(c);
1316 : }
1317 :
1318 0 : if (!aWordBuf.isEmpty())
1319 : {
1320 0 : OUString aWord = aWordBuf.makeStringAndClear();
1321 0 : if (aWord.equals(rMemberName))
1322 0 : aBuf.append('?');
1323 : else
1324 0 : aBuf.append(aWord);
1325 : }
1326 :
1327 0 : return aBuf.makeStringAndClear();
1328 : }
1329 :
1330 0 : void ScDBFunc::DataPilotInput( const ScAddress& rPos, const OUString& rString )
1331 : {
1332 : using namespace ::com::sun::star::sheet;
1333 :
1334 0 : ScDocument* pDoc = GetViewData()->GetDocument();
1335 0 : ScDPObject* pDPObj = pDoc->GetDPAtCursor( rPos.Col(), rPos.Row(), rPos.Tab() );
1336 0 : if (!pDPObj)
1337 0 : return;
1338 :
1339 0 : OUString aOldText = pDoc->GetString(rPos.Col(), rPos.Row(), rPos.Tab());
1340 :
1341 0 : if ( aOldText == rString )
1342 : {
1343 : // nothing to do: silently exit
1344 0 : return;
1345 : }
1346 :
1347 0 : sal_uInt16 nErrorId = 0;
1348 :
1349 0 : pDPObj->BuildAllDimensionMembers();
1350 0 : ScDPSaveData aData( *pDPObj->GetSaveData() );
1351 0 : bool bChange = false;
1352 :
1353 0 : sal_uInt16 nOrient = DataPilotFieldOrientation_HIDDEN;
1354 0 : long nField = pDPObj->GetHeaderDim( rPos, nOrient );
1355 0 : if ( nField >= 0 )
1356 : {
1357 : // changing a field title
1358 0 : if ( aData.GetExistingDimensionData() )
1359 : {
1360 : // only group dimensions can be renamed
1361 :
1362 0 : ScDPDimensionSaveData* pDimData = aData.GetDimensionData();
1363 0 : ScDPSaveGroupDimension* pGroupDim = pDimData->GetNamedGroupDimAcc( aOldText );
1364 0 : if ( pGroupDim )
1365 : {
1366 : // valid name: not empty, no existing dimension (group or other)
1367 0 : if (!rString.isEmpty() && !pDPObj->IsDimNameInUse(rString))
1368 : {
1369 0 : pGroupDim->Rename( rString );
1370 :
1371 : // also rename in SaveData to preserve the field settings
1372 0 : ScDPSaveDimension* pSaveDim = aData.GetDimensionByName( aOldText );
1373 0 : pSaveDim->SetName( rString );
1374 :
1375 0 : bChange = true;
1376 : }
1377 : else
1378 0 : nErrorId = STR_INVALIDNAME;
1379 : }
1380 : }
1381 0 : else if (nOrient == DataPilotFieldOrientation_COLUMN || nOrient == DataPilotFieldOrientation_ROW)
1382 : {
1383 0 : bool bDataLayout = false;
1384 0 : OUString aDimName = pDPObj->GetDimName(nField, bDataLayout);
1385 0 : ScDPSaveDimension* pDim = bDataLayout ? aData.GetDataLayoutDimension() : aData.GetDimensionByName(aDimName);
1386 0 : if (pDim)
1387 : {
1388 0 : if (!rString.isEmpty())
1389 : {
1390 0 : if (rString.equalsIgnoreAsciiCase(aDimName))
1391 : {
1392 0 : pDim->RemoveLayoutName();
1393 0 : bChange = true;
1394 : }
1395 0 : else if (!pDPObj->IsDimNameInUse(rString))
1396 : {
1397 0 : pDim->SetLayoutName(rString);
1398 0 : bChange = true;
1399 : }
1400 : else
1401 0 : nErrorId = STR_INVALIDNAME;
1402 : }
1403 : else
1404 0 : nErrorId = STR_INVALIDNAME;
1405 0 : }
1406 : }
1407 : }
1408 0 : else if (pDPObj->IsDataDescriptionCell(rPos))
1409 : {
1410 : // There is only one data dimension.
1411 0 : ScDPSaveDimension* pDim = aData.GetFirstDimension(sheet::DataPilotFieldOrientation_DATA);
1412 0 : if (pDim)
1413 : {
1414 0 : if (!rString.isEmpty())
1415 : {
1416 0 : if (pDim->GetName().equalsIgnoreAsciiCase(rString))
1417 : {
1418 0 : pDim->RemoveLayoutName();
1419 0 : bChange = true;
1420 : }
1421 0 : else if (!pDPObj->IsDimNameInUse(rString))
1422 : {
1423 0 : pDim->SetLayoutName(rString);
1424 0 : bChange = true;
1425 : }
1426 : else
1427 0 : nErrorId = STR_INVALIDNAME;
1428 : }
1429 : else
1430 0 : nErrorId = STR_INVALIDNAME;
1431 : }
1432 : }
1433 : else
1434 : {
1435 : // This is not a field header.
1436 0 : sheet::DataPilotTableHeaderData aPosData;
1437 0 : pDPObj->GetHeaderPositionData(rPos, aPosData);
1438 :
1439 0 : if ((aPosData.Flags & MemberResultFlags::HASMEMBER) && !aOldText.isEmpty())
1440 : {
1441 0 : if ( aData.GetExistingDimensionData() && !(aPosData.Flags & MemberResultFlags::SUBTOTAL))
1442 : {
1443 : bool bIsDataLayout;
1444 0 : OUString aDimName = pDPObj->GetDimName( aPosData.Dimension, bIsDataLayout );
1445 :
1446 0 : ScDPDimensionSaveData* pDimData = aData.GetDimensionData();
1447 0 : ScDPSaveGroupDimension* pGroupDim = pDimData->GetNamedGroupDimAcc( aDimName );
1448 0 : if ( pGroupDim )
1449 : {
1450 : // valid name: not empty, no existing group in this dimension
1451 : //! ignore case?
1452 0 : if (!rString.isEmpty() && !pGroupDim->GetNamedGroup(rString))
1453 : {
1454 0 : ScDPSaveGroupItem* pGroup = pGroupDim->GetNamedGroupAcc( aOldText );
1455 0 : if ( pGroup )
1456 0 : pGroup->Rename( rString ); // rename the existing group
1457 : else
1458 : {
1459 : // create a new group to replace the automatic group
1460 0 : ScDPSaveGroupItem aGroup( rString );
1461 0 : aGroup.AddElement( aOldText );
1462 0 : pGroupDim->AddGroupItem( aGroup );
1463 : }
1464 :
1465 : // in both cases also adjust savedata, to preserve member settings (show details)
1466 0 : ScDPSaveDimension* pSaveDim = aData.GetDimensionByName( aDimName );
1467 0 : ScDPSaveMember* pSaveMember = pSaveDim->GetExistingMemberByName( aOldText );
1468 0 : if ( pSaveMember )
1469 0 : pSaveMember->SetName( rString );
1470 :
1471 0 : bChange = true;
1472 : }
1473 : else
1474 0 : nErrorId = STR_INVALIDNAME;
1475 0 : }
1476 : }
1477 0 : else if ((aPosData.Flags & MemberResultFlags::GRANDTOTAL))
1478 : {
1479 0 : aData.SetGrandTotalName(rString);
1480 0 : bChange = true;
1481 : }
1482 0 : else if (aPosData.Dimension >= 0 && !aPosData.MemberName.isEmpty())
1483 : {
1484 0 : bool bDataLayout = false;
1485 0 : OUString aDimName = pDPObj->GetDimName(static_cast<long>(aPosData.Dimension), bDataLayout);
1486 0 : if (bDataLayout)
1487 : {
1488 : // data dimension
1489 : do
1490 : {
1491 0 : if ((aPosData.Flags & MemberResultFlags::SUBTOTAL))
1492 0 : break;
1493 :
1494 0 : ScDPSaveDimension* pDim = aData.GetDimensionByName(aPosData.MemberName);
1495 0 : if (!pDim)
1496 0 : break;
1497 :
1498 0 : if (rString.isEmpty())
1499 : {
1500 0 : nErrorId = STR_INVALIDNAME;
1501 0 : break;
1502 : }
1503 :
1504 0 : if (aPosData.MemberName.equalsIgnoreAsciiCase(rString))
1505 : {
1506 0 : pDim->RemoveLayoutName();
1507 0 : bChange = true;
1508 : }
1509 0 : else if (!pDPObj->IsDimNameInUse(rString))
1510 : {
1511 0 : pDim->SetLayoutName(rString);
1512 0 : bChange = true;
1513 : }
1514 : else
1515 0 : nErrorId = STR_INVALIDNAME;
1516 : }
1517 : while (false);
1518 : }
1519 : else
1520 : {
1521 : // field member
1522 : do
1523 : {
1524 0 : ScDPSaveDimension* pDim = aData.GetDimensionByName(aDimName);
1525 0 : if (!pDim)
1526 0 : break;
1527 :
1528 0 : ScDPSaveMember* pMem = pDim->GetExistingMemberByName(aPosData.MemberName);
1529 0 : if (!pMem)
1530 0 : break;
1531 :
1532 0 : if ((aPosData.Flags & MemberResultFlags::SUBTOTAL))
1533 : {
1534 : // Change subtotal only when the table has one data dimension.
1535 0 : if (aData.GetDataDimensionCount() > 1)
1536 0 : break;
1537 :
1538 : // display name for subtotal is allowed only if the subtotal type is 'Automatic'.
1539 0 : if (pDim->GetSubTotalsCount() != 1)
1540 0 : break;
1541 :
1542 0 : if (pDim->GetSubTotalFunc(0) != sheet::GeneralFunction_AUTO)
1543 0 : break;
1544 :
1545 0 : const OUString* pLayoutName = pMem->GetLayoutName();
1546 0 : OUString aMemberName;
1547 0 : if (pLayoutName)
1548 0 : aMemberName = *pLayoutName;
1549 : else
1550 0 : aMemberName = aPosData.MemberName;
1551 :
1552 0 : OUString aNew = lcl_replaceMemberNameInSubtotal(rString, aMemberName);
1553 0 : pDim->SetSubtotalName(aNew);
1554 0 : bChange = true;
1555 : }
1556 : else
1557 : {
1558 : // Check to make sure the member name isn't
1559 : // already used.
1560 0 : if (!rString.isEmpty())
1561 : {
1562 0 : if (rString.equalsIgnoreAsciiCase(pMem->GetName()))
1563 : {
1564 0 : pMem->RemoveLayoutName();
1565 0 : bChange = true;
1566 : }
1567 0 : else if (!pDim->IsMemberNameInUse(rString))
1568 : {
1569 0 : pMem->SetLayoutName(rString);
1570 0 : bChange = true;
1571 : }
1572 : else
1573 0 : nErrorId = STR_INVALIDNAME;
1574 : }
1575 : else
1576 0 : nErrorId = STR_INVALIDNAME;
1577 : }
1578 : }
1579 : while (false);
1580 0 : }
1581 : }
1582 0 : }
1583 : }
1584 :
1585 0 : if ( bChange )
1586 : {
1587 : // apply changes
1588 0 : ScDBDocFunc aFunc( *GetViewData()->GetDocShell() );
1589 0 : pDPObj->SetSaveData( aData );
1590 0 : aFunc.UpdatePivotTable(*pDPObj, true, false);
1591 : }
1592 : else
1593 : {
1594 0 : if ( !nErrorId )
1595 0 : nErrorId = STR_ERR_DATAPILOT_INPUT;
1596 0 : ErrorMessage( nErrorId );
1597 0 : }
1598 : }
1599 :
1600 0 : static void lcl_MoveToEnd( ScDPSaveDimension& rDim, const OUString& rItemName )
1601 : {
1602 0 : ScDPSaveMember* pNewMember = NULL;
1603 0 : const ScDPSaveMember* pOldMember = rDim.GetExistingMemberByName( rItemName );
1604 0 : if ( pOldMember )
1605 0 : pNewMember = new ScDPSaveMember( *pOldMember );
1606 : else
1607 0 : pNewMember = new ScDPSaveMember( rItemName );
1608 0 : rDim.AddMember( pNewMember );
1609 : // AddMember takes ownership of the new pointer,
1610 : // puts it to the end of the list even if it was in the list before.
1611 0 : }
1612 :
1613 : struct ScOUStringCollate
1614 : {
1615 : CollatorWrapper* mpCollator;
1616 :
1617 0 : ScOUStringCollate(CollatorWrapper* pColl) : mpCollator(pColl) {}
1618 :
1619 0 : bool operator()(const OUString& rStr1, const OUString& rStr2) const
1620 : {
1621 0 : return ( mpCollator->compareString(rStr1, rStr2) < 0 );
1622 : }
1623 : };
1624 :
1625 0 : bool ScDBFunc::DataPilotSort( const ScAddress& rPos, bool bAscending, sal_uInt16* pUserListId )
1626 : {
1627 0 : ScDocument* pDoc = GetViewData()->GetDocument();
1628 0 : ScDPObject* pDPObj = pDoc->GetDPAtCursor(rPos.Col(), rPos.Row(), rPos.Tab());
1629 0 : if (!pDPObj)
1630 0 : return false;
1631 :
1632 : // We need to run this to get all members later.
1633 0 : if ( pUserListId )
1634 0 : pDPObj->BuildAllDimensionMembers();
1635 :
1636 : sal_uInt16 nOrientation;
1637 0 : long nDimIndex = pDPObj->GetHeaderDim(rPos, nOrientation);
1638 0 : if (nDimIndex < 0)
1639 : // Invalid dimension index. Bail out.
1640 0 : return false;
1641 :
1642 0 : ScDPSaveData* pSaveData = pDPObj->GetSaveData();
1643 0 : if (!pSaveData)
1644 0 : return false;
1645 :
1646 0 : ScDPSaveData aNewSaveData(*pSaveData);
1647 : bool bDataLayout;
1648 0 : OUString aDimName = pDPObj->GetDimName(nDimIndex, bDataLayout);
1649 0 : ScDPSaveDimension* pSaveDim = aNewSaveData.GetDimensionByName(aDimName);
1650 0 : if (!pSaveDim)
1651 0 : return false;
1652 :
1653 : // manual evaluation of sort order is only needed if a user list id is given
1654 0 : if ( pUserListId )
1655 : {
1656 : typedef ScDPSaveDimension::MemberList MemList;
1657 0 : const MemList& rDimMembers = pSaveDim->GetMembers();
1658 0 : list<OUString> aMembers;
1659 0 : boost::unordered_set<OUString, OUStringHash> aMemberSet;
1660 0 : size_t nMemberCount = 0;
1661 0 : for (MemList::const_iterator itr = rDimMembers.begin(), itrEnd = rDimMembers.end();
1662 : itr != itrEnd; ++itr)
1663 : {
1664 0 : ScDPSaveMember* pMem = *itr;
1665 0 : aMembers.push_back(pMem->GetName());
1666 0 : aMemberSet.insert(pMem->GetName());
1667 0 : ++nMemberCount;
1668 : }
1669 :
1670 : // Sort the member list in ascending order.
1671 0 : ScOUStringCollate aCollate( ScGlobal::GetCollator() );
1672 0 : aMembers.sort(aCollate);
1673 :
1674 : // Collect and rank those custom sort strings that also exist in the member name list.
1675 :
1676 : typedef boost::unordered_map<OUString, sal_uInt16, OUStringHash> UserSortMap;
1677 0 : UserSortMap aSubStrs;
1678 0 : sal_uInt16 nSubCount = 0;
1679 0 : if (pUserListId)
1680 : {
1681 0 : ScUserList* pUserList = ScGlobal::GetUserList();
1682 0 : if (!pUserList)
1683 0 : return false;
1684 :
1685 : {
1686 0 : size_t n = pUserList->size();
1687 0 : if (!n || *pUserListId >= static_cast<sal_uInt16>(n))
1688 0 : return false;
1689 : }
1690 :
1691 0 : const ScUserListData* pData = (*pUserList)[*pUserListId];
1692 0 : if (pData)
1693 : {
1694 0 : sal_uInt16 n = pData->GetSubCount();
1695 0 : for (sal_uInt16 i = 0; i < n; ++i)
1696 : {
1697 0 : OUString aSub = pData->GetSubStr(i);
1698 0 : if (!aMemberSet.count(aSub))
1699 : // This string doesn't exist in the member name set. Don't add this.
1700 0 : continue;
1701 :
1702 0 : aSubStrs.insert(UserSortMap::value_type(aSub, nSubCount++));
1703 0 : }
1704 : }
1705 : }
1706 :
1707 : // Rank all members.
1708 :
1709 0 : vector<OUString> aRankedNames(nMemberCount);
1710 0 : sal_uInt16 nCurStrId = 0;
1711 0 : for (list<OUString>::const_iterator itr = aMembers.begin(), itrEnd = aMembers.end();
1712 : itr != itrEnd; ++itr)
1713 : {
1714 0 : OUString aName = *itr;
1715 0 : sal_uInt16 nRank = 0;
1716 0 : UserSortMap::const_iterator itrSub = aSubStrs.find(aName);
1717 0 : if (itrSub == aSubStrs.end())
1718 0 : nRank = nSubCount + nCurStrId++;
1719 : else
1720 0 : nRank = itrSub->second;
1721 :
1722 0 : if (!bAscending)
1723 0 : nRank = static_cast< sal_uInt16 >( nMemberCount - nRank - 1 );
1724 :
1725 0 : aRankedNames[nRank] = aName;
1726 0 : }
1727 :
1728 : // Re-order ScDPSaveMember instances with the new ranks.
1729 :
1730 0 : for (vector<OUString>::const_iterator itr = aRankedNames.begin(), itrEnd = aRankedNames.end();
1731 : itr != itrEnd; ++itr)
1732 : {
1733 0 : const ScDPSaveMember* pOldMem = pSaveDim->GetExistingMemberByName(*itr);
1734 0 : if (!pOldMem)
1735 : // All members are supposed to be present.
1736 0 : continue;
1737 :
1738 0 : ScDPSaveMember* pNewMem = new ScDPSaveMember(*pOldMem);
1739 0 : pSaveDim->AddMember(pNewMem);
1740 : }
1741 :
1742 : // Set the sorting mode to manual for now. We may introduce a new sorting
1743 : // mode later on.
1744 :
1745 0 : sheet::DataPilotFieldSortInfo aSortInfo;
1746 0 : aSortInfo.Mode = sheet::DataPilotFieldSortMode::MANUAL;
1747 0 : pSaveDim->SetSortInfo(&aSortInfo);
1748 : }
1749 : else
1750 : {
1751 : // without user list id, just apply sorting mode
1752 :
1753 0 : sheet::DataPilotFieldSortInfo aSortInfo;
1754 0 : aSortInfo.Mode = sheet::DataPilotFieldSortMode::NAME;
1755 0 : aSortInfo.IsAscending = bAscending;
1756 0 : pSaveDim->SetSortInfo(&aSortInfo);
1757 : }
1758 :
1759 : // Update the datapilot with the newly sorted field members.
1760 :
1761 0 : boost::scoped_ptr<ScDPObject> pNewObj(new ScDPObject(*pDPObj));
1762 0 : pNewObj->SetSaveData(aNewSaveData);
1763 0 : ScDBDocFunc aFunc(*GetViewData()->GetDocShell());
1764 :
1765 0 : return aFunc.DataPilotUpdate(pDPObj, pNewObj.get(), true, false);
1766 : }
1767 :
1768 0 : bool ScDBFunc::DataPilotMove( const ScRange& rSource, const ScAddress& rDest )
1769 : {
1770 0 : bool bRet = false;
1771 0 : ScDocument* pDoc = GetViewData()->GetDocument();
1772 0 : ScDPObject* pDPObj = pDoc->GetDPAtCursor( rSource.aStart.Col(), rSource.aStart.Row(), rSource.aStart.Tab() );
1773 0 : if ( pDPObj && pDPObj == pDoc->GetDPAtCursor( rDest.Col(), rDest.Row(), rDest.Tab() ) )
1774 : {
1775 0 : sheet::DataPilotTableHeaderData aDestData;
1776 0 : pDPObj->GetHeaderPositionData( rDest, aDestData );
1777 0 : bool bValid = ( aDestData.Dimension >= 0 ); // dropping onto a field
1778 :
1779 : // look through the source range
1780 0 : boost::unordered_set< OUString, OUStringHash, std::equal_to<OUString> > aMembersSet; // for lookup
1781 0 : std::vector< OUString > aMembersVector; // members in original order, for inserting
1782 0 : aMembersVector.reserve( std::max( static_cast<SCSIZE>( rSource.aEnd.Col() - rSource.aStart.Col() + 1 ),
1783 0 : static_cast<SCSIZE>( rSource.aEnd.Row() - rSource.aStart.Row() + 1 ) ) );
1784 0 : for (SCROW nRow = rSource.aStart.Row(); bValid && nRow <= rSource.aEnd.Row(); ++nRow )
1785 0 : for (SCCOL nCol = rSource.aStart.Col(); bValid && nCol <= rSource.aEnd.Col(); ++nCol )
1786 : {
1787 0 : sheet::DataPilotTableHeaderData aSourceData;
1788 0 : pDPObj->GetHeaderPositionData( ScAddress( nCol, nRow, rSource.aStart.Tab() ), aSourceData );
1789 0 : if ( aSourceData.Dimension == aDestData.Dimension && !aSourceData.MemberName.isEmpty() )
1790 : {
1791 0 : if ( aMembersSet.find( aSourceData.MemberName ) == aMembersSet.end() )
1792 : {
1793 0 : aMembersSet.insert( aSourceData.MemberName );
1794 0 : aMembersVector.push_back( aSourceData.MemberName );
1795 : }
1796 : // duplicates are ignored
1797 : }
1798 : else
1799 0 : bValid = false; // empty (subtotal) or different field
1800 0 : }
1801 :
1802 0 : if ( bValid )
1803 : {
1804 : bool bIsDataLayout;
1805 0 : OUString aDimName = pDPObj->GetDimName( aDestData.Dimension, bIsDataLayout );
1806 0 : if ( !bIsDataLayout )
1807 : {
1808 0 : ScDPSaveData aData( *pDPObj->GetSaveData() );
1809 0 : ScDPSaveDimension* pDim = aData.GetDimensionByName( aDimName );
1810 :
1811 : // get all member names in source order
1812 0 : uno::Sequence<OUString> aMemberNames;
1813 0 : pDPObj->GetMemberNames( aDestData.Dimension, aMemberNames );
1814 :
1815 0 : bool bInserted = false;
1816 :
1817 0 : sal_Int32 nMemberCount = aMemberNames.getLength();
1818 0 : for (sal_Int32 nMemberPos=0; nMemberPos<nMemberCount; ++nMemberPos)
1819 : {
1820 0 : OUString aMemberStr( aMemberNames[nMemberPos] );
1821 :
1822 0 : if ( !bInserted && aMemberNames[nMemberPos] == aDestData.MemberName )
1823 : {
1824 : // insert dragged items before this item
1825 0 : for ( std::vector<OUString>::const_iterator aIter = aMembersVector.begin();
1826 0 : aIter != aMembersVector.end(); ++aIter )
1827 0 : lcl_MoveToEnd( *pDim, *aIter );
1828 0 : bInserted = true;
1829 : }
1830 :
1831 0 : if ( aMembersSet.find( aMemberStr ) == aMembersSet.end() ) // skip dragged items
1832 0 : lcl_MoveToEnd( *pDim, aMemberStr );
1833 0 : }
1834 : // insert dragged item at end if dest wasn't found (for example, empty)
1835 0 : if ( !bInserted )
1836 0 : for ( std::vector<OUString>::const_iterator aIter = aMembersVector.begin();
1837 0 : aIter != aMembersVector.end(); ++aIter )
1838 0 : lcl_MoveToEnd( *pDim, *aIter );
1839 :
1840 : // Items that were in SaveData, but not in the source, end up at the start of the list.
1841 :
1842 : // set flag for manual sorting
1843 0 : sheet::DataPilotFieldSortInfo aSortInfo;
1844 0 : aSortInfo.Mode = sheet::DataPilotFieldSortMode::MANUAL;
1845 0 : pDim->SetSortInfo( &aSortInfo );
1846 :
1847 : // apply changes
1848 0 : ScDBDocFunc aFunc( *GetViewData()->GetDocShell() );
1849 0 : ScDPObject* pNewObj = new ScDPObject( *pDPObj );
1850 0 : pNewObj->SetSaveData( aData );
1851 0 : aFunc.DataPilotUpdate( pDPObj, pNewObj, true, false ); //! bApi for drag&drop?
1852 0 : delete pNewObj;
1853 :
1854 0 : Unmark(); // entry was moved - no use in leaving the old cell selected
1855 :
1856 0 : bRet = true;
1857 0 : }
1858 0 : }
1859 : }
1860 :
1861 0 : return bRet;
1862 : }
1863 :
1864 0 : bool ScDBFunc::HasSelectionForDrillDown( sal_uInt16& rOrientation )
1865 : {
1866 0 : bool bRet = false;
1867 :
1868 0 : ScDPObject* pDPObj = GetViewData()->GetDocument()->GetDPAtCursor( GetViewData()->GetCurX(),
1869 0 : GetViewData()->GetCurY(), GetViewData()->GetTabNo() );
1870 0 : if ( pDPObj )
1871 : {
1872 0 : ScDPUniqueStringSet aEntries;
1873 0 : long nSelectDimension = -1;
1874 0 : GetSelectedMemberList( aEntries, nSelectDimension );
1875 :
1876 0 : if (!aEntries.empty())
1877 : {
1878 : bool bIsDataLayout;
1879 0 : OUString aDimName = pDPObj->GetDimName( nSelectDimension, bIsDataLayout );
1880 0 : if ( !bIsDataLayout )
1881 : {
1882 0 : ScDPSaveData* pSaveData = pDPObj->GetSaveData();
1883 0 : ScDPSaveDimension* pDim = pSaveData->GetExistingDimensionByName( aDimName );
1884 0 : if ( pDim )
1885 : {
1886 0 : sal_uInt16 nDimOrient = pDim->GetOrientation();
1887 0 : ScDPSaveDimension* pInner = pSaveData->GetInnermostDimension( nDimOrient );
1888 0 : if ( pDim == pInner )
1889 : {
1890 0 : rOrientation = nDimOrient;
1891 0 : bRet = true;
1892 : }
1893 : }
1894 0 : }
1895 0 : }
1896 : }
1897 :
1898 0 : return bRet;
1899 : }
1900 :
1901 0 : void ScDBFunc::SetDataPilotDetails(bool bShow, const OUString* pNewDimensionName)
1902 : {
1903 0 : ScDPObject* pDPObj = GetViewData()->GetDocument()->GetDPAtCursor( GetViewData()->GetCurX(),
1904 0 : GetViewData()->GetCurY(), GetViewData()->GetTabNo() );
1905 0 : if ( pDPObj )
1906 : {
1907 0 : ScDPUniqueStringSet aEntries;
1908 0 : long nSelectDimension = -1;
1909 0 : GetSelectedMemberList( aEntries, nSelectDimension );
1910 :
1911 0 : if (!aEntries.empty())
1912 : {
1913 : bool bIsDataLayout;
1914 0 : OUString aDimName = pDPObj->GetDimName( nSelectDimension, bIsDataLayout );
1915 0 : if ( !bIsDataLayout )
1916 : {
1917 0 : ScDPSaveData aData( *pDPObj->GetSaveData() );
1918 0 : ScDPSaveDimension* pDim = aData.GetDimensionByName( aDimName );
1919 :
1920 0 : if ( bShow && pNewDimensionName )
1921 : {
1922 : // add the new dimension with the same orientation, at the end
1923 :
1924 0 : ScDPSaveDimension* pNewDim = aData.GetDimensionByName( *pNewDimensionName );
1925 0 : ScDPSaveDimension* pDuplicated = NULL;
1926 0 : if ( pNewDim->GetOrientation() == sheet::DataPilotFieldOrientation_DATA )
1927 : {
1928 : // Need to duplicate the dimension, create column/row in addition to data:
1929 : // The duplicated dimension inherits the existing settings, pNewDim is modified below.
1930 0 : pDuplicated = aData.DuplicateDimension( *pNewDimensionName );
1931 : }
1932 :
1933 0 : sal_uInt16 nOrientation = pDim->GetOrientation();
1934 0 : pNewDim->SetOrientation( nOrientation );
1935 :
1936 0 : long nPosition = LONG_MAX;
1937 0 : aData.SetPosition( pNewDim, nPosition );
1938 :
1939 0 : ScDPSaveDimension* pDataLayout = aData.GetDataLayoutDimension();
1940 0 : if ( pDataLayout->GetOrientation() == nOrientation &&
1941 0 : aData.GetDataDimensionCount() <= 1 )
1942 : {
1943 : // If there is only one data dimension, the data layout dimension
1944 : // must still be the last one in its orientation.
1945 0 : aData.SetPosition( pDataLayout, nPosition );
1946 : }
1947 :
1948 0 : if ( pDuplicated )
1949 : {
1950 : // The duplicated (data) dimension needs to be behind the original dimension
1951 0 : aData.SetPosition( pDuplicated, nPosition );
1952 : }
1953 :
1954 : // Hide details for all visible members (selected are changed below).
1955 : //! Use all members from source level instead (including non-visible)?
1956 :
1957 0 : ScDPUniqueStringSet aVisibleEntries;
1958 0 : pDPObj->GetMemberResultNames( aVisibleEntries, nSelectDimension );
1959 :
1960 0 : ScDPUniqueStringSet::const_iterator it = aVisibleEntries.begin(), itEnd = aVisibleEntries.end();
1961 0 : for (; it != itEnd; ++it)
1962 : {
1963 0 : const OUString& aVisName = *it;
1964 0 : ScDPSaveMember* pMember = pDim->GetMemberByName( aVisName );
1965 0 : pMember->SetShowDetails( false );
1966 0 : }
1967 : }
1968 :
1969 0 : ScDPUniqueStringSet::const_iterator it = aEntries.begin(), itEnd = aEntries.end();
1970 0 : for (; it != itEnd; ++it)
1971 : {
1972 0 : ScDPSaveMember* pMember = pDim->GetMemberByName(*it);
1973 0 : pMember->SetShowDetails( bShow );
1974 : }
1975 :
1976 : // apply changes
1977 0 : ScDBDocFunc aFunc( *GetViewData()->GetDocShell() );
1978 0 : ScDPObject* pNewObj = new ScDPObject( *pDPObj );
1979 0 : pNewObj->SetSaveData( aData );
1980 0 : aFunc.DataPilotUpdate( pDPObj, pNewObj, true, false );
1981 0 : delete pNewObj;
1982 :
1983 : // unmark cell selection
1984 0 : Unmark();
1985 0 : }
1986 0 : }
1987 : }
1988 0 : }
1989 :
1990 0 : void ScDBFunc::ShowDataPilotSourceData( ScDPObject& rDPObj, const Sequence<sheet::DataPilotFieldFilter>& rFilters )
1991 : {
1992 0 : ScDocument* pDoc = GetViewData()->GetDocument();
1993 0 : if (pDoc->GetDocumentShell()->IsReadOnly())
1994 : {
1995 0 : ErrorMessage(STR_READONLYERR);
1996 0 : return;
1997 : }
1998 :
1999 0 : Reference<sheet::XDimensionsSupplier> xDimSupplier = rDPObj.GetSource();
2000 0 : Reference<container::XNameAccess> xDims = xDimSupplier->getDimensions();
2001 0 : Reference<sheet::XDrillDownDataSupplier> xDDSupplier(xDimSupplier, UNO_QUERY);
2002 0 : if (!xDDSupplier.is())
2003 0 : return;
2004 :
2005 0 : Sequence< Sequence<Any> > aTabData = xDDSupplier->getDrillDownData(rFilters);
2006 0 : sal_Int32 nRowSize = aTabData.getLength();
2007 0 : if (nRowSize <= 1)
2008 : // There is no data to show. Bail out.
2009 0 : return;
2010 :
2011 0 : sal_Int32 nColSize = aTabData[0].getLength();
2012 :
2013 0 : SCTAB nNewTab = GetViewData()->GetTabNo();
2014 :
2015 0 : boost::scoped_ptr<ScDocument> pInsDoc(new ScDocument(SCDOCMODE_CLIP));
2016 0 : pInsDoc->ResetClip( pDoc, nNewTab );
2017 0 : for (SCROW nRow = 0; nRow < nRowSize; ++nRow)
2018 : {
2019 0 : for (SCCOL nCol = 0; nCol < nColSize; ++nCol)
2020 : {
2021 0 : const Any& rAny = aTabData[nRow][nCol];
2022 0 : OUString aStr;
2023 : double fVal;
2024 0 : if (rAny >>= aStr)
2025 : {
2026 0 : ScSetStringParam aParam;
2027 0 : aParam.setTextInput();
2028 0 : pInsDoc->SetString(ScAddress(nCol,nRow,nNewTab), aStr);
2029 : }
2030 0 : else if (rAny >>= fVal)
2031 0 : pInsDoc->SetValue(nCol, nRow, nNewTab, fVal);
2032 0 : }
2033 : }
2034 :
2035 : // set number format (important for dates)
2036 0 : for (SCCOL nCol = 0; nCol < nColSize; ++nCol)
2037 : {
2038 0 : OUString aStr;
2039 0 : if (!(aTabData[0][nCol] >>= aStr))
2040 0 : continue;
2041 :
2042 0 : Reference<XPropertySet> xPropSet(xDims->getByName(aStr), UNO_QUERY);
2043 0 : if (!xPropSet.is())
2044 0 : continue;
2045 :
2046 0 : Any any = xPropSet->getPropertyValue( OUString(SC_UNO_DP_NUMBERFO) );
2047 0 : sal_Int32 nNumFmt = 0;
2048 0 : if (!(any >>= nNumFmt))
2049 0 : continue;
2050 :
2051 0 : ScPatternAttr aPattern( pInsDoc->GetPool() );
2052 0 : aPattern.GetItemSet().Put( SfxUInt32Item(ATTR_VALUE_FORMAT, static_cast<sal_uInt32>(nNumFmt)) );
2053 0 : pInsDoc->ApplyPatternAreaTab(nCol, 1, nCol, nRowSize-1, nNewTab, aPattern);
2054 0 : }
2055 :
2056 0 : SCCOL nEndCol = 0;
2057 0 : SCROW nEndRow = 0;
2058 0 : pInsDoc->GetCellArea( nNewTab, nEndCol, nEndRow );
2059 0 : pInsDoc->SetClipArea( ScRange( 0, 0, nNewTab, nEndCol, nEndRow, nNewTab ) );
2060 :
2061 0 : ::svl::IUndoManager* pMgr = GetViewData()->GetDocShell()->GetUndoManager();
2062 0 : OUString aUndo = ScGlobal::GetRscString( STR_UNDO_DOOUTLINE );
2063 0 : pMgr->EnterListAction( aUndo, aUndo );
2064 :
2065 0 : OUString aNewTabName;
2066 0 : pDoc->CreateValidTabName(aNewTabName);
2067 0 : if ( InsertTable(aNewTabName, nNewTab) )
2068 0 : PasteFromClip( IDF_ALL, pInsDoc.get() );
2069 :
2070 0 : pMgr->LeaveListAction();
2071 : }
2072 :
2073 :
2074 : // DB-Operationen (Sortieren, Filtern, Teilergebnisse) wiederholen
2075 :
2076 :
2077 0 : void ScDBFunc::RepeatDB( bool bRecord )
2078 : {
2079 0 : SCCOL nCurX = GetViewData()->GetCurX();
2080 0 : SCROW nCurY = GetViewData()->GetCurY();
2081 0 : SCTAB nTab = GetViewData()->GetTabNo();
2082 0 : ScDocument* pDoc = GetViewData()->GetDocument();
2083 0 : ScDBData* pDBData = GetDBData();
2084 0 : if (bRecord && !pDoc->IsUndoEnabled())
2085 0 : bRecord = false;
2086 :
2087 0 : ScQueryParam aQueryParam;
2088 0 : pDBData->GetQueryParam( aQueryParam );
2089 0 : sal_Bool bQuery = aQueryParam.GetEntry(0).bDoQuery;
2090 :
2091 0 : ScSortParam aSortParam;
2092 0 : pDBData->GetSortParam( aSortParam );
2093 0 : sal_Bool bSort = aSortParam.maKeyState[0].bDoSort;
2094 :
2095 0 : ScSubTotalParam aSubTotalParam;
2096 0 : pDBData->GetSubTotalParam( aSubTotalParam );
2097 0 : sal_Bool bSubTotal = aSubTotalParam.bGroupActive[0] && !aSubTotalParam.bRemoveOnly;
2098 :
2099 0 : if ( bQuery || bSort || bSubTotal )
2100 : {
2101 0 : sal_Bool bQuerySize = false;
2102 0 : ScRange aOldQuery;
2103 0 : ScRange aNewQuery;
2104 0 : if (bQuery && !aQueryParam.bInplace)
2105 : {
2106 : ScDBData* pDest = pDoc->GetDBAtCursor( aQueryParam.nDestCol, aQueryParam.nDestRow,
2107 0 : aQueryParam.nDestTab, true );
2108 0 : if (pDest && pDest->IsDoSize())
2109 : {
2110 0 : pDest->GetArea( aOldQuery );
2111 0 : bQuerySize = sal_True;
2112 : }
2113 : }
2114 :
2115 : SCTAB nDummy;
2116 : SCCOL nStartCol;
2117 : SCROW nStartRow;
2118 : SCCOL nEndCol;
2119 : SCROW nEndRow;
2120 0 : pDBData->GetArea( nDummy, nStartCol, nStartRow, nEndCol, nEndRow );
2121 :
2122 : //! Undo nur benoetigte Daten ?
2123 :
2124 0 : ScDocument* pUndoDoc = NULL;
2125 0 : ScOutlineTable* pUndoTab = NULL;
2126 0 : ScRangeName* pUndoRange = NULL;
2127 0 : ScDBCollection* pUndoDB = NULL;
2128 :
2129 0 : if (bRecord)
2130 : {
2131 0 : SCTAB nTabCount = pDoc->GetTableCount();
2132 0 : pUndoDoc = new ScDocument( SCDOCMODE_UNDO );
2133 0 : ScOutlineTable* pTable = pDoc->GetOutlineTable( nTab );
2134 0 : if (pTable)
2135 : {
2136 0 : pUndoTab = new ScOutlineTable( *pTable );
2137 :
2138 : SCCOLROW nOutStartCol; // Zeilen/Spaltenstatus
2139 : SCCOLROW nOutStartRow;
2140 : SCCOLROW nOutEndCol;
2141 : SCCOLROW nOutEndRow;
2142 0 : pTable->GetColArray()->GetRange( nOutStartCol, nOutEndCol );
2143 0 : pTable->GetRowArray()->GetRange( nOutStartRow, nOutEndRow );
2144 :
2145 0 : pUndoDoc->InitUndo( pDoc, nTab, nTab, true, true );
2146 0 : pDoc->CopyToDocument( static_cast<SCCOL>(nOutStartCol), 0, nTab, static_cast<SCCOL>(nOutEndCol), MAXROW, nTab, IDF_NONE, false, pUndoDoc );
2147 0 : pDoc->CopyToDocument( 0, nOutStartRow, nTab, MAXCOL, nOutEndRow, nTab, IDF_NONE, false, pUndoDoc );
2148 : }
2149 : else
2150 0 : pUndoDoc->InitUndo( pDoc, nTab, nTab, false, true );
2151 :
2152 : // Datenbereich sichern - incl. Filter-Ergebnis
2153 0 : pDoc->CopyToDocument( 0,nStartRow,nTab, MAXCOL,nEndRow,nTab, IDF_ALL, false, pUndoDoc );
2154 :
2155 : // alle Formeln wegen Referenzen
2156 0 : pDoc->CopyToDocument( 0,0,0, MAXCOL,MAXROW,nTabCount-1, IDF_FORMULA, false, pUndoDoc );
2157 :
2158 : // DB- und andere Bereiche
2159 0 : ScRangeName* pDocRange = pDoc->GetRangeName();
2160 0 : if (!pDocRange->empty())
2161 0 : pUndoRange = new ScRangeName( *pDocRange );
2162 0 : ScDBCollection* pDocDB = pDoc->GetDBCollection();
2163 0 : if (!pDocDB->empty())
2164 0 : pUndoDB = new ScDBCollection( *pDocDB );
2165 : }
2166 :
2167 0 : if (bSort && bSubTotal)
2168 : {
2169 : // Sortieren ohne SubTotals
2170 :
2171 0 : aSubTotalParam.bRemoveOnly = true; // wird unten wieder zurueckgesetzt
2172 0 : DoSubTotals( aSubTotalParam, false );
2173 : }
2174 :
2175 0 : if (bSort)
2176 : {
2177 0 : pDBData->GetSortParam( aSortParam ); // Bereich kann sich geaendert haben
2178 0 : Sort( aSortParam, false, false);
2179 : }
2180 0 : if (bQuery)
2181 : {
2182 0 : pDBData->GetQueryParam( aQueryParam ); // Bereich kann sich geaendert haben
2183 0 : ScRange aAdvSource;
2184 0 : if (pDBData->GetAdvancedQuerySource(aAdvSource))
2185 : {
2186 : pDoc->CreateQueryParam(
2187 0 : aAdvSource.aStart.Col(), aAdvSource.aStart.Row(),
2188 0 : aAdvSource.aEnd.Col(), aAdvSource.aEnd.Row(),
2189 0 : aAdvSource.aStart.Tab(), aQueryParam );
2190 0 : Query( aQueryParam, &aAdvSource, false );
2191 : }
2192 : else
2193 0 : Query( aQueryParam, NULL, false );
2194 :
2195 : // bei nicht-inplace kann die Tabelle umgestellt worden sein
2196 0 : if ( !aQueryParam.bInplace && aQueryParam.nDestTab != nTab )
2197 0 : SetTabNo( nTab );
2198 : }
2199 0 : if (bSubTotal)
2200 : {
2201 0 : pDBData->GetSubTotalParam( aSubTotalParam ); // Bereich kann sich geaendert haben
2202 0 : aSubTotalParam.bRemoveOnly = false;
2203 0 : DoSubTotals( aSubTotalParam, false );
2204 : }
2205 :
2206 0 : if (bRecord)
2207 : {
2208 : SCTAB nDummyTab;
2209 : SCCOL nDummyCol;
2210 : SCROW nDummyRow, nNewEndRow;
2211 0 : pDBData->GetArea( nDummyTab, nDummyCol,nDummyRow, nDummyCol,nNewEndRow );
2212 :
2213 0 : const ScRange* pOld = NULL;
2214 0 : const ScRange* pNew = NULL;
2215 0 : if (bQuerySize)
2216 : {
2217 : ScDBData* pDest = pDoc->GetDBAtCursor( aQueryParam.nDestCol, aQueryParam.nDestRow,
2218 0 : aQueryParam.nDestTab, true );
2219 0 : if (pDest)
2220 : {
2221 0 : pDest->GetArea( aNewQuery );
2222 0 : pOld = &aOldQuery;
2223 0 : pNew = &aNewQuery;
2224 : }
2225 : }
2226 :
2227 0 : GetViewData()->GetDocShell()->GetUndoManager()->AddUndoAction(
2228 0 : new ScUndoRepeatDB( GetViewData()->GetDocShell(), nTab,
2229 : nStartCol, nStartRow, nEndCol, nEndRow,
2230 : nNewEndRow,
2231 : nCurX, nCurY,
2232 : pUndoDoc, pUndoTab,
2233 : pUndoRange, pUndoDB,
2234 0 : pOld, pNew ) );
2235 : }
2236 :
2237 : GetViewData()->GetDocShell()->PostPaint(
2238 : ScRange(0, 0, nTab, MAXCOL, MAXROW, nTab),
2239 0 : PAINT_GRID | PAINT_LEFT | PAINT_TOP | PAINT_SIZE);
2240 : }
2241 : else // "Keine Operationen auszufuehren"
2242 0 : ErrorMessage(STR_MSSG_REPEATDB_0);
2243 0 : }
2244 :
2245 : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
