sc/source/ui/dbgui/sfiltdlg.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: sfiltdlg.cxx,v $
  10  * $Revision: 1.14 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_sc.hxx"
  33
  34 // System - Includes ---------------------------------------------------------
  35
  36
  37
  38 // INCLUDE -------------------------------------------------------------------
  39 #include <sfx2/dispatch.hxx>
  40
  41 #include "uiitems.hxx"
  42 #include "rangenam.hxx"
  43 #include "dbcolect.hxx"
  44 #include "reffact.hxx"
  45 #include "viewdata.hxx"
  46 #include "document.hxx"
  47 #include "docsh.hxx"
  48 #include "scresid.hxx"
  49
  50 #include "foptmgr.hxx"
  51
  52 #include "globstr.hrc"
  53 #include "filter.hrc"
  54
  55 #define _SFILTDLG_CXX
  56 #include "filtdlg.hxx"
  57 #undef _SFILTDLG_CXX
  58 #include <vcl/msgbox.hxx>
  59
  60 // DEFINE --------------------------------------------------------------------
  61
  62 #define ERRORBOX(rid) ErrorBox( this, WinBits( WB_OK|WB_DEF_OK),\
  63                                     ScGlobal::GetRscString(rid) ).Execute()
  64
  65
  66 //============================================================================
  67 //      class ScSpecialFilterDialog
  68
  69 //----------------------------------------------------------------------------
  70
  71 ScSpecialFilterDlg::ScSpecialFilterDlg( SfxBindings* pB, SfxChildWindow* pCW, Window* pParent,
  72                                         const SfxItemSet&       rArgSet )
  73
  74     :   ScAnyRefDlg     ( pB, pCW, pParent, RID_SCDLG_SPEC_FILTER ),
  75         //
  76         aLbFilterArea   ( this, ScResId( LB_CRITERIA_AREA ) ),
  77         aFtFilterArea   ( this, ScResId( FT_CRITERIA_AREA ) ),
  78         aEdFilterArea   ( this, this, ScResId( ED_CRITERIA_AREA ) ),
  79         aRbFilterArea   ( this, ScResId( RB_CRITERIA_AREA ), &aEdFilterArea, this ),
  80         //
  81         aFlOptions      ( this, ScResId( FL_OPTIONS ) ),
  82         _INIT_COMMON_FILTER_RSCOBJS
  83         aBtnOk          ( this, ScResId( BTN_OK ) ),
  84         aBtnCancel      ( this, ScResId( BTN_CANCEL ) ),
  85         aBtnHelp        ( this, ScResId( BTN_HELP ) ),
  86         aBtnMore        ( this, ScResId( BTN_MORE ) ),
  87         //
  88         pOptionsMgr             ( NULL ),
  89         nWhichQuery             ( rArgSet.GetPool()->GetWhich( SID_QUERY ) ),
  90         theQueryData    ( ((const ScQueryItem&)
  91                            rArgSet.Get( nWhichQuery )).GetQueryData() ),
  92         pOutItem                ( NULL ),
  93         pViewData               ( NULL ),
  94         pDoc                    ( NULL ),
  95         pRefInputEdit   ( NULL ),
  96         bRefInputMode   ( FALSE ),
  97         pTimer                  ( NULL )
  98 {
  99     Init( rArgSet );
 100     aEdFilterArea.GrabFocus();
 101
 102     FreeResource();
 103
 104     // Hack: RefInput-Kontrolle
 105     pTimer = new Timer;
 106     pTimer->SetTimeout( 50 ); // 50ms warten
 107     pTimer->SetTimeoutHdl( LINK( this, ScSpecialFilterDlg, TimeOutHdl ) );
 108     pTimer->Start();
 109 }
 110
 111
 112 //----------------------------------------------------------------------------
 113
 114 __EXPORT ScSpecialFilterDlg::~ScSpecialFilterDlg()
 115 {
 116     USHORT nEntries = aLbFilterArea.GetEntryCount();
 117     USHORT i;
 118
 119     for ( i=1; i<nEntries; i++ )
 120         delete (String*)aLbFilterArea.GetEntryData( i );
 121
 122     delete pOptionsMgr;
 123
 124     if ( pOutItem )
 125         delete pOutItem;
 126
 127     // Hack: RefInput-Kontrolle
 128     pTimer->Stop();
 129     delete pTimer;
 130 }
 131
 132
 133 //----------------------------------------------------------------------------
 134
 135 void __EXPORT ScSpecialFilterDlg::Init( const SfxItemSet& rArgSet )
 136 {
 137     const ScQueryItem& rQueryItem = (const ScQueryItem&)
 138                                     rArgSet.Get( nWhichQuery );
 139
 140     aBtnOk.SetClickHdl                  ( LINK( this, ScSpecialFilterDlg, EndDlgHdl ) );
 141     aBtnCancel.SetClickHdl              ( LINK( this, ScSpecialFilterDlg, EndDlgHdl ) );
 142     aLbFilterArea.SetSelectHdl  ( LINK( this, ScSpecialFilterDlg, FilterAreaSelHdl ) );
 143     aEdFilterArea.SetModifyHdl  ( LINK( this, ScSpecialFilterDlg, FilterAreaModHdl ) );
 144
 145     pViewData   = rQueryItem.GetViewData();
 146     pDoc                = pViewData ? pViewData->GetDocument()  : NULL;
 147
 148     aEdFilterArea.SetText( EMPTY_STRING );              // may be overwritten below
 149
 150     if ( pViewData && pDoc )
 151     {
 152         if(pDoc->GetChangeTrack()!=NULL) aBtnCopyResult.Disable();
 153
 154         ScRangeName*    pRangeNames     = pDoc->GetRangeName();
 155         const USHORT    nCount          = pRangeNames ? pRangeNames->GetCount() : 0;
 156
 157         /*
 158          * Aus den RangeNames des Dokumentes werden nun die
 159          * gemerkt, bei denen es sich um Filter-Bereiche handelt
 160          */
 161
 162         aLbFilterArea.Clear();
 163         aLbFilterArea.InsertEntry( aStrUndefined, 0 );
 164
 165         if ( nCount > 0 )
 166         {
 167             String               aString;
 168             ScRangeData* pData = NULL;
 169             USHORT               nInsert = 0;
 170
 171             for ( USHORT i=0; i<nCount; i++ )
 172             {
 173                 pData = (ScRangeData*)(pRangeNames->At( i ));
 174                 if ( pData )
 175                 {
 176                     if ( pData->HasType( RT_CRITERIA ) )
 177                     {
 178                         pData->GetName( aString );
 179                         nInsert = aLbFilterArea.InsertEntry( aString );
 180                         pData->GetSymbol( aString );
 181                         aLbFilterArea.SetEntryData( nInsert,
 182                                                     new String( aString ) );
 183                     }
 184                 }
 185             }
 186         }
 187
 188         //      is there a stored source range?
 189
 190         ScRange aAdvSource;
 191         if (rQueryItem.GetAdvancedQuerySource(aAdvSource))
 192         {
 193             String aRefStr;
 194             aAdvSource.Format( aRefStr, SCR_ABS_3D, pDoc, pDoc->GetAddressConvention() );
 195             aEdFilterArea.SetRefString( aRefStr );
 196         }
 197     }
 198
 199     aLbFilterArea.SelectEntryPos( 0 );
 200
 201     // Optionen initialisieren lassen:
 202
 203     pOptionsMgr  = new ScFilterOptionsMgr(
 204                             this,
 205                             pViewData,
 206                             theQueryData,
 207                             aBtnMore,
 208                             aBtnCase,
 209                             aBtnRegExp,
 210                             aBtnHeader,
 211                             aBtnUnique,
 212                             aBtnCopyResult,
 213                             aBtnDestPers,
 214                             aLbCopyArea,
 215                             aEdCopyArea,
 216                             aRbCopyArea,
 217                             aFtDbAreaLabel,
 218                             aFtDbArea,
 219                             aFlOptions,
 220                             aStrNoName,
 221                             aStrUndefined );
 222
 223     //  #35206# Spezialfilter braucht immer Spaltenkoepfe
 224     aBtnHeader.Check(TRUE);
 225     aBtnHeader.Disable();
 226
 227     // Modal-Modus einschalten
 228 //      SetDispatcherLock( TRUE );
 229     //@BugID 54702 Enablen/Disablen nur noch in Basisklasse
 230     //SFX_APPWINDOW->Disable(FALSE);            //! allgemeine Methode im ScAnyRefDlg
 231 }
 232
 233
 234 //----------------------------------------------------------------------------
 235
 236 BOOL __EXPORT ScSpecialFilterDlg::Close()
 237 {
 238     if (pViewData)
 239         pViewData->GetDocShell()->CancelAutoDBRange();
 240
 241     return DoClose( ScSpecialFilterDlgWrapper::GetChildWindowId() );
 242 }
 243
 244
 245 //----------------------------------------------------------------------------
 246 // Uebergabe eines mit der Maus selektierten Tabellenbereiches, der dann als
 247 // neue Selektion im Referenz-Edit angezeigt wird.
 248
 249 void ScSpecialFilterDlg::SetReference( const ScRange& rRef, ScDocument* pDocP )
 250 {
 251     if ( bRefInputMode && pRefInputEdit )               // Nur moeglich, wenn im Referenz-Editmodus
 252     {
 253         if ( rRef.aStart != rRef.aEnd )
 254             RefInputStart( pRefInputEdit );
 255
 256         String aRefStr;
 257         const formula::FormulaGrammar::AddressConvention eConv = pDocP->GetAddressConvention();
 258
 259         if ( pRefInputEdit == &aEdCopyArea)
 260             rRef.aStart.Format( aRefStr, SCA_ABS_3D, pDocP, eConv );
 261         else if ( pRefInputEdit == &aEdFilterArea)
 262             rRef.Format( aRefStr, SCR_ABS_3D, pDocP, eConv );
 263
 264         pRefInputEdit->SetRefString( aRefStr );
 265     }
 266 }
 267
 268
 269 //----------------------------------------------------------------------------
 270
 271 void ScSpecialFilterDlg::SetActive()
 272 {
 273     if ( bRefInputMode )
 274     {
 275         if ( pRefInputEdit == &aEdCopyArea )
 276         {
 277             aEdCopyArea.GrabFocus();
 278             if ( aEdCopyArea.GetModifyHdl().IsSet() )
 279                 ((Link&)aEdCopyArea.GetModifyHdl()).Call( &aEdCopyArea );
 280         }
 281         else if ( pRefInputEdit == &aEdFilterArea )
 282         {
 283             aEdFilterArea.GrabFocus();
 284             FilterAreaModHdl( &aEdFilterArea );
 285         }
 286     }
 287     else
 288         GrabFocus();
 289
 290     RefInputDone();
 291 }
 292
 293
 294 //----------------------------------------------------------------------------
 295
 296 ScQueryItem* ScSpecialFilterDlg::GetOutputItem( const ScQueryParam& rParam,
 297                                                 const ScRange& rSource )
 298 {
 299     if ( pOutItem ) DELETEZ( pOutItem );
 300     pOutItem = new ScQueryItem( nWhichQuery, &rParam );
 301     pOutItem->SetAdvancedQuerySource( &rSource );
 302
 303     return pOutItem;
 304 }
 305
 306
 307 //----------------------------------------------------------------------------
 308
 309 BOOL ScSpecialFilterDlg::IsRefInputMode() const
 310 {
 311     return bRefInputMode;
 312 }
 313
 314
 315 //----------------------------------------------------------------------------
 316 // Handler:
 317 // ========
 318
 319 IMPL_LINK( ScSpecialFilterDlg, EndDlgHdl, Button*, pBtn )
 320 {
 321     DBG_ASSERT( pDoc && pViewData, "Document or ViewData not found. :-/" );
 322
 323     if ( (pBtn == &aBtnOk) && pDoc && pViewData )
 324     {
 325         String                  theCopyStr( aEdCopyArea.GetText() );
 326         String                  theAreaStr( aEdFilterArea.GetText() );
 327         ScQueryParam    theOutParam( theQueryData );
 328         ScAddress               theAdrCopy;
 329         BOOL                    bEditInputOk    = TRUE;
 330         BOOL                    bQueryOk                = FALSE;
 331         ScRange                 theFilterArea;
 332         const formula::FormulaGrammar::AddressConvention eConv = pDoc->GetAddressConvention();
 333
 334         if ( aBtnCopyResult.IsChecked() )
 335         {
 336             xub_StrLen nColonPos = theCopyStr.Search( ':' );
 337
 338             if ( STRING_NOTFOUND != nColonPos )
 339                 theCopyStr.Erase( nColonPos );
 340
 341             USHORT nResult = theAdrCopy.Parse( theCopyStr, pDoc, eConv );
 342
 343             if ( SCA_VALID != (nResult & SCA_VALID) )
 344             {
 345                 if ( !aBtnMore.GetState() )
 346                     aBtnMore.SetState( TRUE );
 347
 348                 ERRORBOX( STR_INVALID_TABREF );
 349                 aEdCopyArea.GrabFocus();
 350                 bEditInputOk = FALSE;
 351             }
 352         }
 353
 354         if ( bEditInputOk )
 355         {
 356             USHORT nResult = ScRange().Parse( theAreaStr, pDoc, eConv );
 357
 358             if ( SCA_VALID != (nResult & SCA_VALID) )
 359             {
 360                 ERRORBOX( STR_INVALID_TABREF );
 361                 aEdFilterArea.GrabFocus();
 362                 bEditInputOk = FALSE;
 363             }
 364         }
 365
 366         if ( bEditInputOk )
 367         {
 368             /*
 369              * Alle Edit-Felder enthalten gueltige Bereiche.
 370              * Nun wird versucht aus dem Filterbereich
 371              * ein ScQueryParam zu erzeugen:
 372              */
 373
 374             USHORT      nResult = theFilterArea.Parse( theAreaStr, pDoc, eConv );
 375
 376             if ( SCA_VALID == (nResult & SCA_VALID) )
 377             {
 378                 ScAddress& rStart = theFilterArea.aStart;
 379                 ScAddress& rEnd   = theFilterArea.aEnd;
 380
 381                 if ( aBtnCopyResult.IsChecked() )
 382                 {
 383                     theOutParam.bInplace        = FALSE;
 384                     theOutParam.nDestTab        = theAdrCopy.Tab();
 385                     theOutParam.nDestCol        = theAdrCopy.Col();
 386                     theOutParam.nDestRow        = theAdrCopy.Row();
 387                 }
 388                 else
 389                 {
 390                     theOutParam.bInplace        = TRUE;
 391                     theOutParam.nDestTab        = 0;
 392                     theOutParam.nDestCol        = 0;
 393                     theOutParam.nDestRow        = 0;
 394                 }
 395
 396                 theOutParam.bHasHeader = aBtnHeader.IsChecked();
 397                 theOutParam.bByRow         = TRUE;
 398                 theOutParam.bCaseSens  = aBtnCase.IsChecked();
 399                 theOutParam.bRegExp        = aBtnRegExp.IsChecked();
 400                 theOutParam.bDuplicate = !aBtnUnique.IsChecked();
 401                 theOutParam.bDestPers  = aBtnDestPers.IsChecked();
 402
 403                 bQueryOk =
 404                     pDoc->CreateQueryParam( rStart.Col(),
 405                                             rStart.Row(),
 406                                             rEnd.Col(),
 407                                             rEnd.Row(),
 408                                             rStart.Tab(),
 409                                             theOutParam );
 410
 411                 //      an der DB-Collection koennen nur MAXQUERY Filter-Eintraege
 412                 //      gespeichert werden
 413
 414                 if ( bQueryOk && theOutParam.GetEntryCount() > MAXQUERY &&
 415                      theOutParam.GetEntry(MAXQUERY).bDoQuery )
 416                 {
 417                     bQueryOk = FALSE;           // zu viele
 418                                             //! andere Fehlermeldung ??
 419                 }
 420             }
 421         }
 422
 423         if ( bQueryOk )
 424         {
 425             SetDispatcherLock( FALSE );
 426             SwitchToDocument();
 427             GetBindings().GetDispatcher()->Execute( FID_FILTER_OK,
 428                                       SFX_CALLMODE_SLOT | SFX_CALLMODE_RECORD,
 429                                       GetOutputItem( theOutParam, theFilterArea ), 0L, 0L );
 430             Close();
 431         }
 432         else
 433         {
 434             ERRORBOX( STR_INVALID_QUERYAREA );
 435             aEdFilterArea.GrabFocus();
 436         }
 437     }
 438     else if ( pBtn == &aBtnCancel )
 439     {
 440         Close();
 441     }
 442     return 0;
 443 }
 444
 445
 446 //----------------------------------------------------------------------------
 447
 448 IMPL_LINK( ScSpecialFilterDlg, TimeOutHdl, Timer*, _pTimer )
 449 {
 450     // alle 50ms nachschauen, ob RefInputMode noch stimmt
 451
 452     if( (_pTimer == pTimer) && IsActive() )
 453     {
 454         if( aEdCopyArea.HasFocus() || aRbCopyArea.HasFocus() )
 455         {
 456             pRefInputEdit = &aEdCopyArea;
 457             bRefInputMode = TRUE;
 458         }
 459         else if( aEdFilterArea.HasFocus() || aRbFilterArea.HasFocus() )
 460         {
 461             pRefInputEdit = &aEdFilterArea;
 462             bRefInputMode = TRUE;
 463         }
 464         else if( bRefInputMode )
 465         {
 466             pRefInputEdit = NULL;
 467             bRefInputMode = FALSE;
 468         }
 469     }
 470
 471     pTimer->Start();
 472
 473     return 0;
 474 }
 475
 476
 477 //----------------------------------------------------------------------------
 478
 479 IMPL_LINK( ScSpecialFilterDlg, FilterAreaSelHdl, ListBox*, pLb )
 480 {
 481     if ( pLb == &aLbFilterArea )
 482     {
 483         String  aString;
 484         USHORT  nSelPos = aLbFilterArea.GetSelectEntryPos();
 485
 486         if ( nSelPos > 0 )
 487             aString = *(String*)aLbFilterArea.GetEntryData( nSelPos );
 488
 489         aEdFilterArea.SetText( aString );
 490     }
 491
 492     return 0;
 493 }
 494
 495
 496 //----------------------------------------------------------------------------
 497
 498 IMPL_LINK( ScSpecialFilterDlg, FilterAreaModHdl, formula::RefEdit*, pEd )
 499 {
 500     if ( pEd == &aEdFilterArea )
 501     {
 502         if ( pDoc && pViewData )
 503         {
 504             String      theCurAreaStr = pEd->GetText();
 505             USHORT      nResult = ScRange().Parse( theCurAreaStr, pDoc );
 506
 507             if ( SCA_VALID == (nResult & SCA_VALID) )
 508             {
 509                 String* pStr    = NULL;
 510                 BOOL    bFound  = FALSE;
 511                 USHORT  i               = 0;
 512                 USHORT  nCount  = aLbFilterArea.GetEntryCount();
 513
 514                 for ( i=1; i<nCount && !bFound; i++ )
 515                 {
 516                     pStr = (String*)aLbFilterArea.GetEntryData( i );
 517                     bFound = (theCurAreaStr == *pStr);
 518                 }
 519
 520                 if ( bFound )
 521                     aLbFilterArea.SelectEntryPos( --i );
 522                 else
 523                     aLbFilterArea.SelectEntryPos( 0 );
 524             }
 525         }
 526         else
 527             aLbFilterArea.SelectEntryPos( 0 );
 528     }
 529
 530     return 0;
 531 }
 532
 533