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