testautomation/spreadsheet/required/includes/c_upd_datamenu.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/***********************************************************************
  27 '*
  28 '* owner : oliver.craemer@oracle.com
  29 '*
  30 '* short description : Resource Test - Data Menu
  31 '*
  32 '************************************************************************
  33 '*
  34 ' #1 tDataDefineRange
  35 ' #1 tDataSelectRange
  36 ' #1 tDataSort
  37 ' #1 tDataFilterAutoFilter
  38 ' #1 tDataFilterStandardFilter
  39 ' #1 tDataFilterAdvancedFilter
  40 ' #1 tDataFilterRemoveFilter
  41 ' #1 tDataFilterHideFilter
  42 ' #1 tDataSubtotals
  43 ' #1 tDataValidity
  44 ' #1 tDataMultipleOperations
  45 ' #1 tDataTexttoColumn
  46 ' #1 tDataConsolidate
  47 ' #1 tDataGroupandOutline
  48 ' #1 tDataDataPilot
  49 ' #1 tDataRefreshRange
  50 '*
  51 '\***********************************************************************
  52
  53 sub c_upd_datamenu
  54
  55     Printlog Chr(13) + "--------- Data Menu (c_upd_datamenu.inc) ---------"
  56
  57     call tDataDefineRange
  58     call tDataSelectRange
  59     call tDataSort
  60     call tDataFilterAutoFilter
  61     call tDataFilterStandardFilter
  62     call tDataFilterAdvancedFilter
  63     call tDataFilterRemoveFilter
  64     call tDataFilterHideFilter
  65     call tDataSubtotals
  66     call tDataValidity
  67     call tDataMultipleOperations
  68     call tDataTexttoColumn
  69     call tDataConsolidate
  70     call tDataGroupandOutline
  71     call tDataDataPilot
  72     call tDataRefreshRange
  73
  74
  75 end sub
  76
  77 '-----------------------------------------------------------
  78
  79 testcase tDataDefineRange
  80 '///<u><b>Data – Define Range</b></u>
  81
  82     '/// Opening new spreadsheet document for getting defined starting environment
  83     printlog " Opening new spreadsheet document for getting defined starting environment"
  84     call hNewDocument
  85     '/// Open 'Define Database range' dialog by 'Data – Define Range'
  86     printlog " Open 'Define Database range' dialog by 'Data – Define Range'"
  87     DataDefineRange
  88     Kontext "DatenbankbereichFestlegen"
  89     '/// Enter name 'Testrange'
  90     printlog " Enter name 'Testrange'"
  91     BereichsName.SetText "Testrange_by_TT"
  92     '/// Click on 'More' button
  93     printlog " Click on 'More' button"
  94     Zusaetze.Click
  95     DialogTest ( DatenbankbereichFestlegen )
  96     '/// Click on 'Shrink' button to open rangechooser
  97     printlog " Click on 'Shrink' button to open rangechooser"
  98     BereichMin.Click
  99     '/// Close rangechooser by click on 'Shrink' button
 100     printlog " Close rangechooser by click on 'Shrink' button"
 101     BereichMin.Click
 102     '/// Click on 'Add' button
 103     printlog " Click on 'Add' button"
 104     Hinzufuegen.Click
 105     '/// Select 'Testrange_by_TT'
 106     printlog " Select 'Testrange_by_TT'"
 107     BereichsName.Select "Testrange_by_TT"
 108     '/// Click on 'Modify' button
 109     printlog " Click on 'Modify' button"
 110     Aendern.Click
 111     '/// Select 'Testrange_by_TT'
 112     printlog " Select 'Testrange_by_TT'"
 113     BereichsName.Select "Testrange_by_TT"
 114     '/// Click on 'Delete' button
 115     printlog " Click on 'Delete' button"
 116     Loeschen.Click
 117     '/// Close messagebox with 'Yes'
 118     printlog " Close messagebox with 'Yes'"
 119     Kontext
 120     if Active.exists then
 121         Active.Yes
 122     end if
 123     Kontext "DatenbankbereichFestlegen"
 124     '/// Close 'Define Database range' dialog with 'Cancel'
 125     printlog " Close 'Define Database range' dialog with 'Cancel'"
 126     DatenbankbereichFestlegen.Cancel
 127     '/// Close document
 128     printlog " Close document"
 129     Call hCloseDocument
 130
 131 endcase
 132
 133 '-----------------------------------------------------------
 134
 135 testcase tDataSelectRange
 136 '///<u><b>Data – Select Range</b></u>
 137
 138     '/// Open new Spreadsheet document
 139     printlog " Open new Spreadsheet document"
 140     Call hNewDocument
 141     '/// Open 'Select Database range' dialog by 'Data – Select Range'
 142     printlog " Open 'Select Database range' dialog by 'Data – Select Range'"
 143     DataSelectRange
 144     Kontext "DatenbankbereichWaehlen"
 145     DialogTest ( DatenbankbereichWaehlen )
 146     '/// Close dialog with 'Cancel'
 147     printlog " Close dialog with 'Cancel'"
 148     DatenbankbereichWaehlen.Cancel
 149     '/// Close document
 150     printlog " Close document"
 151     Call hCloseDocument
 152
 153 endcase
 154
 155 '-----------------------------------------------------------
 156
 157 testcase tDataSort
 158 '///<u><b>Data – Sort</b></u>
 159
 160     '/// Open new Spreadsheet document
 161     printlog " Open new Spreadsheet document"
 162     Call hNewDocument
 163     '/// Open 'Sort' dialog by 'Data – Sort'
 164     printlog " Open 'Sort' dialog by 'Data – Sort'"
 165     DataSort
 166     '/// Switch to tabpage 'Sort Criteria'
 167     printlog " Switch to tabpage 'Sort Criteria'"
 168     Kontext
 169     active.SetPage TabSortierkriterien
 170     Kontext "TabSortierkriterien"
 171     Call DialogTest ( TabSortierkriterien )
 172     '/// Verify that combobox 'Sort by' has items
 173     printlog " Verify that combobox 'Sort by' has items"
 174     If SortierenNach.GetItemCount < 1 then
 175         warnlog "The Sortlist is empty"
 176     end if
 177     '/// Switch to tabpage 'Options'
 178     printlog " Switch to tabpage 'Options'"
 179     Kontext
 180     active.SetPage TabSortierenOptionen
 181     Kontext "TabSortierenOptionen"
 182     Call DialogTest ( TabSortierenOptionen )
 183     '/// Verify that the 'Language' combobox has items
 184     printlog " Verify that the 'Language' combobox has items"
 185     If Sprache.GetItemCount < 1 then
 186         warnlog "The Languagelist is empty"
 187     end if
 188     '/// Close 'Sort' dialog with 'Cancel
 189     printlog " Close 'Sort' dialog with 'Cancel"
 190     TabSortierenOptionen.Cancel
 191         printlog " Select cell B3"
 192         Kontext ( "DocumentCalc" )
 193         fCalcSelectRange ( "B3" )
 194         printlog " Fill cells B3:B8 with numbers 1-6"
 195     DocumentCalc.TypeKeys "1<RETURN>2<RETURN>3<RETURN>4<RETURN>5<RETURN>6"
 196         printlog " Select cell C3"
 197         fCalcSelectRange ( "C3" )
 198         printlog " Fill cells C3:C8 with numbers 7-2"
 199     DocumentCalc.TypeKeys "7<RETURN>6<RETURN>5<RETURN>4<RETURN>3<RETURN>2"
 200         printlog " Select cells B5:B6"
 201         fCalcSelectRange ( "B5:B6" )
 202         printlog " Open Data Sort"
 203         DataSort
 204         Kontext ( "SortRange" )
 205         printlog " SortRange dialog has opened"
 206         printlog " Cancel Sort Range dialog"
 207         SortRange.Cancel
 208     '/// Close document
 209     printlog " Close document"
 210     Call hCloseDocument
 211
 212 endcase
 213
 214 '-----------------------------------------------------------
 215
 216 testcase tDataFilterAutoFilter
 217 '///<u><b>Data – Filter – AutoFilter</b></u>
 218
 219     '/// Open new Spreadsheet document
 220     printlog " Open new Spreadsheet document"
 221     Call hNewDocument
 222     '/// Enter 'Value' in A1, '1' in A2, '2' in A3
 223     printlog " Enter 'Value' in A1, '1' in A2, '2' in A3"
 224     DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>"
 225     '/// Use 'AutoFilter' by 'Data – Filter – AutoFilter'
 226     printlog " Use 'AutoFilter' by 'Data – Filter – AutoFilter'"
 227     DataFilterAutoFilter
 228     '/// Remove 'AutoFilter' by 'Data – Filter – AutoFilter'
 229     printlog " Remove 'AutoFilter' by 'Data – Filter – AutoFilter'"
 230     DataFilterAutoFilter
 231     '/// Close document
 232     printlog " Close document"
 233     Call hCloseDocument
 234
 235 endcase
 236
 237 '-----------------------------------------------------------
 238
 239 testcase tDataFilterStandardFilter
 240 '///<u><b>Data – Filter – Standard Filter</b></u>
 241
 242     '/// Open new Spreadsheet document
 243     printlog " Open new Spreadsheet document"
 244     Call hNewDocument
 245     '/// Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'
 246     printlog " Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'"
 247     DataFilterStandardFilter
 248     Kontext "Standardfilter"
 249     '/// Click on 'More' button
 250     printlog " Click on 'More' button"
 251     Zusaetze.Click
 252     DialogTest ( Standardfilter )
 253     '/// Verify that the 'Field name' combobox has items
 254     printlog " Verify that the 'Field name' combobox has items"
 255     If FeldName1.GetItemCount < 1 then
 256         warnlog "The list is empty"
 257     end if
 258     '/// Verify that the 'Condition' combobox has items
 259     printlog " Verify that the 'Condition' combobox has items"
 260     If Bedingung1.GetItemCount < 1 then
 261         warnlog "The list is empty"
 262     end if
 263     '/// Verify that the 'Value' combobox has items
 264     printlog " Verify that the 'Value' combobox has items"
 265     If Wert1.GetItemCount < 1 then
 266         warnlog "The list is empty"
 267     end if
 268     '/// Choose first operator
 269     printlog " Choose first operator"
 270     Verknuepfung2.Select 1
 271     '/// Check option 'Case sensitive'
 272     printlog " Check option 'Case sensitive'"
 273     GrossKleinschreibung.Check
 274     '/// Check option 'Range contains column labels'
 275     printlog " Check option 'Range contains column labels'"
 276     BereicheEnthaeltSpaltenkoepfe.Check
 277     '/// Check option 'Regular expressions'
 278     printlog " Check option 'Regular expressions'"
 279     RegulaererAusdruck.Check
 280     '/// Check option 'No duplication'
 281     printlog " Check option 'No duplication'"
 282     KeineDuplikate.Check
 283     '/// Check option 'Copy results to'
 284     printlog " Check option 'Copy results to'"
 285     FilterergebnisNach.Check
 286     '/// Click on 'Shrink' button to open rangechooser
 287     printlog " Click on 'Shrink' button to open rangechooser"
 288     DialogMin.Click
 289     '/// Close rangechooser by click on 'Shrink' button
 290     printlog " Close rangechooser by click on 'Shrink' button"
 291     DialogMin.Click
 292     '/// Check option 'Keep filter criteria'
 293     printlog " Check option 'Keep filter criteria'"
 294     Persistent.Check
 295     '/// Close 'Standard Filter' dialog with 'Cancel'
 296     printlog " Close 'Standard Filter' dialog with 'Cancel'"
 297     Standardfilter.Cancel
 298     '/// Close document
 299     printlog " Close document"
 300     Call hCloseDocument
 301
 302 endcase
 303
 304 '-----------------------------------------------------------
 305
 306 testcase tDataFilterAdvancedFilter
 307 '///<u><b>Data – Filter – Advanced Filter</b></u>
 308
 309     '/// Open new Spreadsheet document
 310     printlog " Open new Spreadsheet document"
 311     Call hNewDocument
 312     '/// Open 'Advanced Filter' dialog by 'Data – Filter – Advanced Filter'
 313     printlog " Open 'Advanced Filter' dialog by 'Data – Filter – Advanced Filter'"
 314     DataFilterAdvancedFilter
 315     Kontext "Spezialfilter"
 316     '/// Click on 'More' button
 317     printlog " Click on 'More' button"
 318     Zusaetze.Click
 319     DialogTest ( Spezialfilter )
 320     '/// Click on 'Shrink' button to open rangechooser
 321     printlog " Click on 'Shrink' button to open rangechooser"
 322     FilterkriterienMin.Click
 323     '/// Close rangechooser by click on 'Shrink' button
 324     printlog " Close rangechooser by click on 'Shrink' button"
 325     FilterkriterienMin.Click
 326     '/// Check option 'Case sensitive'
 327     printlog " Check option 'Case sensitive'"
 328     GrossKleinschreibung.Check
 329     '/// Check if option 'Range contains column labels' is disabled
 330     printlog " Check if option 'Range contains column labels' is disabled"
 331     If BereichEnthaeltSpaltenkoepfe.IsEnabled then
 332         warnlog "The option is enabled"
 333     end if
 334     '/// Check option 'Regular expressions'
 335     printlog " Check option 'Regular expressions'"
 336     RegulaererAusdruck.Check
 337     '/// Check option 'No duplication'
 338     printlog " Check option 'No duplication'"
 339     KeineDuplikate.Check
 340     '/// Check option 'Copy results to'
 341     printlog " Check option 'Copy results to'"
 342     FilterergebnisAusgeben.Check
 343     '/// Click on 'Shrink' button to open rangechooser
 344     printlog " Click on 'Shrink' button to open rangechooser"
 345     FilterergebnisMin.Click
 346     '/// Close rangechooser by click on 'Shrink' button
 347     printlog " Close rangechooser by click on 'Shrink' button"
 348     FilterergebnisMin.Click
 349     '/// Check option 'Keep filter criteria'
 350     printlog " Check option 'Keep filter criteria'"
 351     Persistent.Check
 352     '/// Close 'Advanced Filter' dialog with 'Cancel'
 353     printlog " Close 'Advanced Filter' dialog with 'Cancel'"
 354     Spezialfilter.Cancel
 355     '/// Close document
 356     printlog " Close document"
 357     Call hCloseDocument
 358
 359 endcase
 360
 361 '-----------------------------------------------------------
 362
 363 testcase tDataFilterRemoveFilter
 364 '///<u><b>Data – Filter – Remove Filter</b></u>
 365
 366     '/// Open new Spreadsheet document
 367     printlog " Open new Spreadsheet document"
 368     Call hNewDocument
 369     '/// Enter 'Value' in A1, '1' in A2, '2' in A3
 370     printlog " Enter 'Value' in A1, '1' in A2, '2' in A3"
 371     DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>"
 372     '/// Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'
 373     printlog " Open 'Standard Filter' dialog by 'Data – Filter – Standard Filter'"
 374     DataFilterStandardFilter
 375     Kontext "Standardfilter"
 376     '/// Set 'Field name' to 'Value'
 377     printlog " Set 'Field name' to 'Value'"
 378     Feldname1.select 2
 379     '/// Set 'Condition' to first entry
 380     printlog " Set 'Condition' to first entry"
 381     Bedingung1.select 1
 382     '/// Set 'Value' to last entry
 383     printlog " Set 'Value' to last entry"
 384     Wert1.select 2
 385     '/// Close 'Standard Filter' dialog with 'OK'
 386     printlog " Close 'Standard Filter' dialog with 'OK'"
 387     Standardfilter.Ok
 388     '/// Remove filter by 'Data – Filter – Remove Filter'
 389     printlog " Remove filter by 'Data – Filter – Remove Filter'"
 390     DataFilterRemoveFilter
 391     '/// Close document
 392     printlog " Close document"
 393     Call hCloseDocument
 394
 395 endcase
 396
 397 '-----------------------------------------------------------
 398
 399 testcase tDataFilterHideFilter
 400 '///<u><b>Data – Filter – Hide Filter</b></u>
 401
 402     '/// Open new Spreadsheet document
 403     printlog " Open new Spreadsheet document"
 404     Call hNewDocument
 405     '/// Enter 'Value' in A1, '1' in A2, '2' in A3
 406     printlog " Enter 'Value' in A1, '1' in A2, '2' in A3"
 407     DocumentCalc.TypeKeys "Value<Return>1<Return>2<Return><Up>"
 408     '/// Use 'AutoFilter' by 'Data – Filter – AutoFilter'
 409     printlog " Use 'AutoFilter' by 'Data – Filter – AutoFilter'"
 410     DataFilterAutoFilter
 411     '/// Hide 'AutoFilter' by 'Data – Filter – Hide Filter'
 412     printlog " Hide 'AutoFilter' by 'Data – Filter – Hide Filter'"
 413     DataFilterHideAutoFilter
 414     '/// Close document
 415     printlog " Close document"
 416     Call hCloseDocument
 417
 418 endcase
 419
 420 '-----------------------------------------------------------
 421
 422 testcase tDataSubtotals
 423 '///<u><b>Data – Subtotals</b></u>
 424
 425     '/// Open new Spreadsheet document
 426     printlog " Open new Spreadsheet document"
 427     Call hNewDocument
 428     '/// Open 'Subtotals' dialog by 'Data – Subtotals'
 429     printlog " Open 'Subtotals' dialog by 'Data – Subtotals'"
 430     DataSubtotals
 431     Kontext "Teilergebnisse"
 432     '/// Switch to tabpage '1st Group'
 433     printlog " Switch to tabpage '1st Group'"
 434     Kontext
 435     active.SetPage TabGruppe1
 436     Kontext "TabGruppe1"
 437     Call DialogTest ( TabGruppe1 )
 438     '/// Verify that the 'Group by' combobox has items
 439     printlog " Verify that the 'Group by' combobox has items"
 440     If GruppierenNach.GetItemCount < 1 then
 441         warnlog "The list is empty"
 442     end if
 443     '/// Verify that there are functions available in the  'Use function' control
 444     printlog " Verify that there are functions available in the  'Use function' control"
 445     If Berechnungsvorschrift.GetItemCount < 1 then
 446         warnlog "The list is empty"
 447     end if
 448     '/// Switch to tabpage '2nd Group'
 449     printlog " Switch to tabpage '2nd Group'"
 450     Kontext
 451     active.SetPage TabGruppe2
 452     Kontext "TabGruppe2"
 453     Call DialogTest ( TabGruppe2 )
 454     '/// Verify that the 'Group by' combobox has items
 455     printlog " Verify that the 'Group by' combobox has items"
 456     If GruppierenNach.GetItemCount < 1 then
 457         warnlog "The list is empty"
 458     end if
 459     '/// Verify that there are functions available in the  'Use function' control
 460     printlog " Verify that there are functions available in the  'Use function' control"
 461     If Berechnungsvorschrift.GetItemCount < 1 then
 462         warnlog "The list is empty"
 463     end if
 464     '/// Switch to tabpage '3rd Group'
 465     printlog " Switch to tabpage '3rd Group'"
 466     Kontext
 467     active.SetPage TabGruppe3
 468     Kontext "TabGruppe3"
 469     Call DialogTest ( TabGruppe3 )
 470     '/// Verify that the 'Group by' combobox has items
 471     printlog " Verify that the 'Group by' combobox has items"
 472     If GruppierenNach.GetItemCount < 1 then
 473         warnlog "The list is empty"
 474     end if
 475     '/// Verify that there are functions available in the  'Use function' control
 476     printlog " Verify that there are functions available in the  'Use function' control"
 477     If Berechnungsvorschrift.GetItemCount < 1 then
 478         warnlog "The list is empty"
 479     end if
 480     '/// Switch to tabpage 'Options'
 481     printlog " Switch to tabpage 'Options'"
 482     Kontext
 483     active.SetPage TabTeilergebnisseOptionen
 484     Kontext "TabTeilergebnisseOptionen"
 485     Call DialogTest ( TabTeilergebnisseOptionen )
 486     '/// Check option 'Page break between groups'
 487     printlog " Check option 'Page break between groups'"
 488     NeueSeiteBeiGruppenwechsel.Check
 489     '/// Check option 'Case sensitive'
 490     printlog " Check option 'Case sensitive'"
 491     GrossKleinschreibungBeachten.Check
 492     '/// Check option 'Pre-sort area according to groups'
 493     printlog " Check option 'Pre-sort area according to groups'"
 494     BereichVorherNachGruppenSortieren.Check
 495     '/// Check option 'Ascending'
 496     printlog " Check option 'Ascending'"
 497     Aufsteigend.Check
 498     '/// Check option 'Decending'
 499     printlog " Check option 'Decending'"
 500     Absteigend.Check
 501     '/// Check option 'Include formats'
 502     printlog " Check option 'Include formats'"
 503     FormateEinschliessen.Check
 504     '/// Check option 'Custom sort order'
 505     printlog " Check option 'Custom sort order'"
 506     BenutzerdefinierteSortierreihenfolge.Check
 507     '/// Verify that there are sortorders available
 508     printlog " Verify that there are sortorders available"
 509     If SortierreihenfolgeAnzeige.GetItemCount < 1 then
 510         warnlog "The list is empty"
 511     end if
 512     '/// Close 'Subtotals' dialog with 'Cancel'
 513     printlog " Close 'Subtotals' dialog with 'Cancel'"
 514     TabTeilergebnisseOptionen.Close
 515     '/// Close document
 516     printlog " Close document"
 517     hCloseDocument
 518
 519 endcase
 520
 521 '-----------------------------------------------------------
 522
 523 testcase tDataValidity
 524 '///<u><b>Data – Validity</b></u>
 525
 526     '/// Open new Spreadshet document
 527     printlog " Open new Spreadshet document"
 528     call hNewDocument
 529     '/// Open 'Validity' dialog by 'Data – Validity'
 530     printlog " Open 'Validity' dialog by 'Data – Validity'"
 531     DataValidity
 532     '/// Switch to tabpage 'Criteria'
 533     printlog " Switch to tabpage 'Criteria'"
 534     Kontext
 535     Active.SetPage TabWerte
 536     Kontext "TabWerte"
 537     Call DialogTest ( TabWerte,1 )
 538     '/// Choose 8th entry (Text length) in 'Allow' combobox
 539     printlog " Choose 8th entry (Text length) in 'Allow' combobox"
 540     Zulassen.select (8)
 541     Call DialogTest ( TabWerte,2 )
 542     '/// Choose last entry (not between) in 'Data' combobox
 543     printlog " Choose last entry (not between) in 'Data' combobox"
 544     Daten.select (8)
 545     Call DialogTest ( TabWerte,3 )
 546     '/// Choose 7th entry (List) in 'Allow' combobox
 547     printlog " Choose 7th entry (List) in 'Allow' combobox"
 548     Zulassen.select (7)
 549     Call DialogTest ( TabWerte,4 )
 550     '/// Choose 6th entry (Cell range) in 'Allow' combobox
 551     printlog " Choose 6th entry (Cell range) in 'Allow' combobox"
 552     Zulassen.select (6)
 553     Call DialogTest ( TabWerte,5 )
 554     printlog " Press Shrink button"
 555     SourceShrink.Click
 556     Kontext "TabWerte"
 557     printlog " Close rangechooser"
 558     SourceShrink.Click
 559     Kontext "TabWerte"
 560     '/// Switch to tabpage 'Input Help'
 561     printlog " Switch to tabpage 'Input Help'"
 562     Kontext
 563     Active.SetPage TabEingabehilfe
 564     Kontext "TabEingabehilfe"
 565     Call DialogTest ( TabEingabehilfe )
 566     '/// Switch to tabpage 'Error Alert'
 567     printlog " Switch to tabpage 'Error Alert'"
 568     Kontext
 569     Active.SetPage TabFehlermeldung
 570     Kontext "TabFehlermeldung"
 571     Call DialogTest ( TabFehlermeldung )
 572     '/// Choose last entry (Macro) in 'Action' combobox
 573     printlog " Choose last entry (Macro) in 'Action' combobox"
 574     Aktion.Select (4)
 575     '/// Click on 'Browse' button
 576     printlog " Click on 'Browse' button"
 577     Durchsuchen.Click
 578     Kontext "ScriptSelector"
 579     '/// Close 'Macro Selector' with 'Cancel'
 580     printlog " Close 'Macro Selector' with 'Cancel'"
 581     ScriptSelector.Cancel
 582     Kontext "TabFehlermeldung"
 583     '/// Close 'Validity' dialog with 'Cancel'
 584     printlog " Close 'Validity' dialog with 'Cancel'"
 585     TabFehlermeldung.Cancel
 586     '/// Close document
 587     printlog " Close document"
 588     Call hCloseDocument
 589
 590 endcase
 591
 592 '-----------------------------------------------------------
 593
 594 testcase tDataMultipleOperations
 595 '///<u><b>Data – Multiple Operations</b></u>
 596
 597     '/// Open new Spreadsheet ocument
 598     printlog " Open new Spreadsheet ocument"
 599     Call hNewDocument
 600     '/// Select cells A1:D4
 601     printlog " Select cells A1:D4"
 602     Call fCalcSelectRange ("A1:D4")
 603     '/// Open 'Multiple operations' dialog by 'Data – Multiple Operations'
 604     printlog " Open 'Multiple operations' dialog by 'Data – Multiple Operations'"
 605     DataMultipleOperations
 606     Kontext "Mehrfachoperationen"
 607     DialogTest ( Mehrfachoperationen )
 608     '/// Click on 'Shrink' button for Formulas' to open rangechooser
 609     printlog " Click on 'Shrink' button for Formulas' to open rangechooser"
 610     Vorgaben1.Click
 611     '/// Close rangechooser by click on 'Shrink' button
 612     printlog " Close rangechooser by click on 'Shrink' button"
 613     Vorgaben1.Click
 614     '/// Click on 'Shrink' button for 'Row input cell' to open rangechooser
 615     printlog " Click on 'Shrink' button for 'Row input cell' to open rangechooser"
 616     Vorgaben2.Click
 617     '/// Close rangechooser by click on 'Shrink' button
 618     printlog " Close rangechooser by click on 'Shrink' button"
 619     Vorgaben2.Click
 620     '/// Click on 'Shrink' button for 'Column Input Cell' to open rangechooser
 621     printlog " Click on 'Shrink' button for 'Column Input Cell' to open rangechooser"
 622     Vorgaben3.Click
 623     '/// Close rangechooser by click on 'Shrink' button
 624     printlog " Close rangechooser by click on 'Shrink' button"
 625     Vorgaben3.Click
 626     '/// Close 'Multiple operations' dialog with 'Cancel'
 627     printlog " Close 'Multiple operations' dialog with 'Cancel'"
 628     Mehrfachoperationen.Cancel
 629     '/// Close document
 630     printlog " Close document"
 631     Call hCloseDocument
 632
 633 endcase
 634
 635 '-----------------------------------------------------------
 636
 637 testcase tDataTexttoColumn
 638 '///<u><b>Data – Text to Column</b></u>
 639
 640     '/// Open new Spreadsheet document
 641     printlog " Open new Spreadsheet document"
 642     Call hNewDocument
 643     '/// In cell A1 enter string  'First Second'
 644     printlog " In cell A1 enter string  'First Second'"
 645     Call fCalcSelectRange ("A1")
 646     DocumentCalc.TypeKeys "First Second<Return>"
 647     '/// Select cell A1
 648     printlog " Select cell A1"
 649     Call fCalcSelectRange ("A1")
 650     '/// Open 'Text to Column' dialog by 'Data – Text to Columns'
 651     printlog " Open 'Text to Column' dialog by 'Data – Text to Columns'"
 652     DataTextToColumns
 653     Kontext "TextImport"
 654     '/// Close 'Text to Column' dialog
 655     printlog " Close 'Text to Column' dialog"
 656     TextImport.Cancel
 657     '/// Close document
 658     printlog " Close document"
 659     Call hCloseDocument
 660
 661 endcase
 662
 663 '-----------------------------------------------------------
 664
 665 testcase tDataConsolidate
 666 '///<u><b>Data – Consolidate</b></u>
 667
 668     '/// Open new Spreadsheet document
 669     printlog " Open new Spreadsheet document"
 670     Call hNewDocument
 671     '/// Open 'Consolidate' dialog by 'Data – Consolidate'
 672     printlog " Open 'Consolidate' dialog by 'Data – Consolidate'"
 673     DataConsolidate
 674     '/// Click on 'More' button
 675     printlog " Click on 'More' button"
 676     Kontext "Konsolidieren"
 677     Zusaetze.Click
 678     DialogTest ( Konsolidieren )
 679     '/// Verify that the 'Function' combobox has items
 680     printlog " Verify that the 'Function' combobox has items"
 681     If Berechnungsvorschrift.GetItemCount < 1 then
 682         warnlog "The list is empty"
 683     end if
 684     '/// Click on 'Shrink' button for 'Source data range' to open rangechooser
 685     printlog " Click on 'Shrink' button for 'Source data range' to open rangechooser"
 686     ButtonQuelldaten.Click
 687     '/// Close rangechooser by click on 'Shrink' button
 688     printlog " Close rangechooser by click on 'Shrink' button"
 689     ButtonQuelldaten.Click
 690     '/// Click on 'Shrink' button for 'Copy results to' to open rangechooser
 691     printlog " Click on 'Shrink' button for 'Copy results to' to open rangechooser"
 692     ButtonAusgeben.Click
 693     '/// Close rangechooser by click on 'Shrink' button
 694     printlog " Close rangechooser by click on 'Shrink' button"
 695     ButtonAusgeben.Click
 696     '/// Close 'Consolidate' dialog with 'Cancel'
 697     printlog " Close 'Consolidate' dialog with 'Cancel'"
 698     Konsolidieren.Cancel
 699     '/// Close document
 700     printlog " Close document"
 701     Call hCloseDocument
 702
 703 endcase
 704
 705 '-----------------------------------------------------------
 706
 707 testcase tDataGroupandOutline
 708 '///<u><b>Data – Group and Outline</b></u>
 709
 710     '/// Open new Spreadsheet document
 711     printlog " Open new Spreadsheet document"
 712     Call hNewDocument
 713     '/// Select cells A1:D9
 714     printlog " Select cells A1:D9"
 715     Call fCalcSelectRange ("A1:D9")
 716     '/// Open 'Group' dialog by 'Data – Group and Outline – Group'
 717     printlog " Open 'Group' dialog by 'Data – Group and Outline – Group'"
 718     DataOutlineGroup
 719     Kontext "GruppierungAktivieren"
 720     DialogTest ( GruppierungAktivieren )
 721     '/// Check option 'Rows'
 722     printlog " Check option 'Rows'"
 723     Zeilen.Check
 724     '/// Close dialog with 'OK'
 725     printlog " Close dialog with 'OK'"
 726     GruppierungAktivieren.OK
 727     '/// Open 'Group' dialog by 'Data – Group and Outline – Group'
 728     printlog " Open 'Group' dialog by 'Data – Group and Outline – Group'"
 729     DataOutlineGroup
 730     Kontext "GruppierungAktivieren"
 731     '/// Check option 'Rows'
 732     printlog " Check option 'Rows'"
 733     Spalten.Check
 734     '/// Close dialog with 'OK'
 735     printlog " Close dialog with 'OK'"
 736     GruppierungAktivieren.OK
 737     '/// Hide details by 'Data – Group and Outline – Hide details'
 738     printlog " Hide details by 'Data – Group and Outline – Hide details'"
 739     DataOutlineHideDetails
 740     '/// Show details by 'Data – Group and Outline – Show details'
 741     printlog " Show details by 'Data – Group and Outline – Show details'"
 742     DataOutlineShowDetails
 743     '/// Open 'Ungroup' dialog ' Data – Group and Outline – Ungroup'
 744     printlog " Open 'Ungroup' dialog by ' Data – Group and Outline – Ungroup'"
 745     DataOutlineUngroup
 746     Kontext "GruppierungAufheben"
 747     DialogTest ( GruppierungAufheben )
 748     '/// Check option 'Rows'
 749     printlog " Check option 'Rows'"
 750     Spalten.Check
 751     '/// Close dialog with 'OK'
 752     printlog " Close dialog with 'OK'"
 753     GruppierungAufheben.OK
 754     '/// Ungroup data by 'Data – Group and Outline – Ungroup'
 755     printlog " Ungroup data by 'Data – Group and Outline – Ungroup'"
 756     DataOutlineUngroup
 757     '/// Enter '1' in A1, '2' in A2, '3' in A3
 758     printlog " Enter '1' in A1, '2' in A2, '3' in A3"
 759     Call fCalcSelectRange ("A1")
 760     DocumentCalc.TypeKeys "1<Return>2<Return>3<Return>"
 761     '/// Select cell A4 and click on Autosum button on Formularbar
 762     printlog " Select cell A4 and click on Autosum button on Formularbar"
 763     Call fCalcSelectRange ("A4")
 764     Kontext "RechenleisteCalc"
 765     Summe.Click
 766     Kontext "DocumentCalc"
 767     DocumentCalc.TypeKeys "<Return>"
 768     '/// Select cells A1:A4
 769     printlog " Select cells A1:A4"
 770     Call fCalcSelectRange ("A1:A4")
 771     '/// Use 'AutoOutline' by 'Data – Group and Outline – AutoOutline'
 772     printlog " Use 'AutoOutline' by 'Data – Group and Outline – AutoOutline'"
 773     DataOutlineAutoOutline
 774     '/// Remove outline by 'Data – Group and Outline – Remove'
 775     printlog " Remove outline by 'Data – Group and Outline – Remove'"
 776     DataOutlineRemove
 777     '/// Close document
 778     printlog " Close document"
 779     Call hCloseDocument
 780
 781 endcase
 782
 783 '-----------------------------------------------------------
 784
 785 testcase tDataDataPilot
 786 '///<u><b>Data – DataPilot</b></u>
 787
 788     printlog " Close and restart the Office"
 789     ExitRestartTheOffice
 790     '/// Open new Spreadsheet document
 791     printlog " Open new Spreadsheet document"
 792     Call hNewDocument
 793     '/// Enter string 'Month' in A1, 'Value' in B1
 794     printlog " Enter string 'Month' in A1, 'Value' in B1"
 795     Call fCalcSelectRange ("A1")
 796     DocumentCalc.TypeKeys "Month<Right>Value<Return>"
 797     '/// Select A1:B1
 798     printlog " Select A1:B1"
 799     Call fCalcSelectRange ("A1:B1")
 800     '/// Start 'DataPilot' by 'Data – DataPilot'
 801     printlog " Start 'DataPilot' by 'Data – DataPilot'"
 802     DataDataPilotStart
 803     Kontext "QuelleAuswaehlen"
 804     DialogTest ( QuelleAuswaehlen )
 805     '/// Choose 'Current Selection' on 'Select Source' dialog
 806     printlog " Choose 'Current Selection' on 'Select Source' dialog"
 807     AktuelleSelektion.Check
 808     '/// Click 'OK' button
 809     printlog " Click 'OK' button"
 810     QuelleAuswaehlen.OK
 811     '/// On 'DataPilot' dialog click on 'More' button
 812     printlog " On 'DataPilot' dialog click on 'More' button"
 813     Kontext "Datenpilot"
 814     Zusaetze.Open
 815     DialogTest ( Datenpilot )
 816         '/// Verify that the 'Selection from' editfield is correct
 817         printlog "Verify that the 'Selection from' editfield has content"
 818     printlog "The Range is" & DataPilotRange.Gettext
 819     '/// Click on 'Shrink' button for 'Selection from' to open rangechooser
 820     printlog " Click on 'Shrink' button for 'Selection from' to open rangechooser"
 821     DataPilotRangeShrink.Click
 822     '/// Close rangechooser by click on 'Maximize' button
 823     printlog " Close rangechooser by click on 'Maximize' button"
 824     DataPilotRangeShrink.Click
 825     '/// Verify that the 'Results to' combobox has items
 826     printlog " Verify that the 'Results to' combobox has items"
 827     If AusgabeAb.GetItemCount < 1 then
 828         warnlog "The list is empty"
 829     end if
 830     '/// Click on 'Shrink' button for 'Source data range' to open rangechooser
 831     printlog " Click on 'Shrink' button for 'Source data range' to open rangechooser"
 832     Minimieren.Click
 833     '/// Close rangechooser by click on 'Shrink' button
 834     printlog " Close rangechooser by click on 'Shrink' button"
 835     Minimieren.Click
 836     '/// Check option 'Ignore empty rows'
 837     printlog " Check option 'Ignore empty rows'"
 838     LeerzeilenIgnorieren.Check
 839     '/// Check option 'Total columns'
 840     printlog " Check option 'Total columns'"
 841     GesamtSpalten.Check
 842     '/// Check option 'Add filter'
 843     printlog " Check option 'Add filter'"
 844     AddFilter.Check
 845     '/// Check option 'Identify categories'
 846     printlog " Check option 'Identify categories'"
 847     KategorieErkennung.Check
 848     '/// Check option 'Total rows'
 849     printlog " Check option 'Total rows'"
 850     GesamtZeilen.Check
 851     '/// Check option 'Enable drill to details'
 852     printlog " Check option 'Enable drill to details'"
 853     EnableDrillToDetails.Check
 854     '/// Close 'DataPilot' dialog with 'Cancel'
 855     printlog " Close 'DataPilot' dialog with 'Cancel'"
 856     DatenPilot.Cancel
 857
 858     '/// Start datapilot by 'Data – DataPilot'
 859     printlog " Start datapilot by 'Data – DataPilot'"
 860     DataDataPilotStart
 861     Kontext "QuelleAuswaehlen"
 862     '/// Choose 'Data source registered in...' on 'Select Source' dialog
 863     printlog " Choose 'Data source registered in...' on 'Select Source' dialog"
 864     AngemeldeteDatenQuelle.Check
 865     '/// Click 'OK' button
 866     printlog " Click 'OK' button"
 867     QuelleAuswaehlen.OK
 868     Kontext "DatenquelleAuswaehlen"
 869     Call DialogTest ( DatenquelleAuswaehlen )
 870     '/// Count the entries in the 'Database' combobox
 871     printlog " Count the entries in the 'Database' combobox"
 872     Datenbank.GetItemCount
 873     '/// Count the entries in the 'Data source' combobox
 874     printlog " Count the entries in the 'Data source' combobox"
 875     Datenquelle.GetItemCount
 876     '/// Count the entries in the 'Type' combobox
 877     printlog " Count the entries in the 'Type' combobox"
 878     Art.GetItemCount
 879     '/// Close 'Select Data Source' dialog with 'Cancel'
 880     printlog " Close 'Select Data Source' dialog with 'Cancel'"
 881     DatenquelleAuswaehlen.Cancel
 882     '/// Close document
 883     printlog " Close document"
 884     call hCloseDocument
 885
 886     '/// Open testdocument 'gTesttoolPath + spreadsheet\required\input\datapilot.ods'
 887     printlog " Open testdocument 'gTesttoolPath + spreadsheet\required\input\datapilot.ods'"
 888     hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\datapilot.ods" )
 889     '/// Select cell C34
 890     printlog " Select cell C34"
 891     Call fCalcSelectRange ( "C34" )
 892     '/// Open 'DataPilot' dialog by 'Data – Datapilot – Start'
 893     printlog " Open 'DataPilot' dialog by 'Data – Datapilot – Start'"
 894     DataDataPilotStart
 895     sleep 1
 896     Kontext "Datenpilot"
 897     '/// Select 'Products' in 'Page Fields' by 5 <TAB>
 898     printlog " Select 'Products' in 'Page Fields' by 5 <TAB>"
 899     Datenpilot.TypeKeys "<TAB><TAB><TAB><TAB><TAB>",TRUE
 900     '/// Click on 'Options' button
 901     printlog " Click on 'Options' button"
 902     If Optionen.IsEnabled Then
 903         Optionen.Click
 904     else
 905         warnlog "Option button is not enabled. Aborting"
 906         Datenpilot.Cancel
 907         Call hCloseDocument
 908         goto endsub
 909     end if
 910     Kontext "Datenfeld"
 911     Call DialogTest ( Datenfeld )
 912     '/// On 'Data Field' dialog choose option 'User-defined'
 913     printlog " On 'Data Field' dialog choose option 'User-defined'"
 914     Benutzerdefiniert.Check
 915     '/// Verify that there are functions in the combobox
 916     printlog " Verify that there are functions in the combobox"
 917     If Funktionen.GetItemCount < 1 then
 918         warnlog "There are no functions available"
 919     end if
 920     '/// Check option 'Show items without data'
 921     printlog " Check option 'Show items without data'"
 922     OhneDatenAnzeigen.Check
 923     '/// Click on 'Options' button to open 'Data Filed Options' dialog
 924     printlog " Click on 'Options' button to open 'Data Filed Options' dialog"
 925     Options.Click
 926     Kontext "DataFieldsOptionsDlg"
 927     Call DialogTest ( DataFieldsOptionsDlg )
 928     '/// Choose option 'Ascending'
 929     printlog " Choose option 'Ascending'"
 930     Ascending.Check
 931     '/// Verify that there are items in the 'Sort by' combobox
 932     printlog " Verify that there are items in the 'Sort by' combobox"
 933     If Sortby.GetItemCount < 1 then
 934         warnlog "The list is empty"
 935     end if
 936     '/// Check option 'Show'
 937     printlog " Check option 'Show'"
 938     Show.Check
 939     '/// Increase 'Show Items'
 940     printlog " Increase 'Show Items'"
 941     ShowItems.More
 942     '/// Count items in combobox 'From'
 943     printlog " Count items in combobox 'From'"
 944     ShowFrom.GetItemCount
 945     '/// Count items in combobox 'Using field'
 946     printlog " Count items in combobox 'Using field'"
 947     UsingField.GetItemCount
 948     '/// Close 'Data Filed Options' dialog with 'Cancel'
 949     printlog " Close 'Data Filed Options' dialog with 'Cancel'"
 950     DataFieldsOptionsDlg.Cancel
 951     Kontext "Datenfeld"
 952     '/// Close 'Data Field' dialog with 'Cancel'
 953     printlog " Close 'Data Field' dialog with 'Cancel'"
 954     Datenfeld.Cancel
 955     sleep 2
 956     Kontext "Datenpilot"
 957         printlog " Close 'DataPilot' dialog with 'Cancel'"
 958     Datenpilot.Cancel
 959         printlog " Reopen 'DataPilot' dialog by 'Data – Datapilot – Start'"
 960     DataDataPilotStart
 961     sleep 1
 962     Kontext "Datenpilot"
 963     '/// Select item (Sum – 2001) in 'Data Fields' by 8 <TAB>
 964     printlog " Select item (Sum – 2001) in 'Data Fields' by 8 <TAB>"
 965     Datenpilot.TypeKeys "<TAB><TAB><TAB><TAB><TAB><TAB><TAB><TAB>",TRUE
 966     Sleep 1
 967     '/// Click on 'Options' button to open 'Data Filed' dialog
 968     printlog " Click on 'Options' button to open 'Data Filed' dialog"
 969     If Optionen.IsEnabled Then
 970         Optionen.Click
 971     else
 972         warnlog "Option button is not enabled. Aborting"
 973         Datenpilot.Cancel
 974         Call hCloseDocument
 975         goto endsub
 976     end if
 977         sleep 1
 978     Kontext "DataFieldsFunctionDlg"
 979     '/// Click on 'More' button
 980     printlog " Click on 'More' button"
 981     More.Click
 982     Call DialogTest ( DataFieldsFunctionDlg )
 983     '/// Verify that the 'Function' list has items
 984     printlog " Verify that the 'Function' list has items"
 985     If FunctionList.GetItemCount < 1 then
 986         warnlog "The list is empty"
 987     end if
 988     '/// Choose second entry in 'Type' combobox to enable next both comboboxes
 989     printlog " Choose second entry in 'Type' combobox to enable next both comboboxes"
 990     ValueType.Select 2
 991     '/// Verify that the 'Base field' combobox has items
 992     printlog " Verify that the 'Base field' combobox has items"
 993     If BaseField.GetItemCount < 1 then
 994         warnlog "The list is empty"
 995     end if
 996     '/// Verify that the 'Base item' combobox has items
 997     printlog " Verify that the 'Base item' combobox has items"
 998     If BaseItem.GetItemCount < 1 then
 999         warnlog "The list is empty"
1000     end if
1001     '/// Close 'Data Field' dialog with 'Cancel'
1002     printlog " Close 'Data Field' dialog with 'Cancel'"
1003     DataFieldsFunctionDlg.Cancel
1004     Kontext "Datenpilot"
1005     '/// Close 'DataPilot' dialog with 'Cancel'
1006     printlog " Close 'DataPilot' dialog with 'Cancel'"
1007     Datenpilot.Cancel
1008
1009     '/// Refresh 'DataPilot' by 'Data – DataPilot – Refresh'
1010     printlog " Refresh 'DataPilot' by 'Data – DataPilot – Refresh'"
1011     DataDataPilotRefresh
1012
1013     '/// Delete 'DataPilot' by 'Data – DataPilot – Delete'
1014     printlog " Delete 'DataPilot' by 'Data – DataPilot – Delete'"
1015     DataDataPilotDelete
1016
1017     '/// Close document without saving
1018     printlog " Close document without saving"
1019     Call hCloseDocument
1020
1021 endcase
1022
1023 '-----------------------------------------------------------
1024
1025 testcase tDataRefreshRange
1026 '///<u><b>Data – Refresh Range</b></u>
1027
1028     '/// Load testdocument Database_Refresh
1029     printlog " Load testdocument Database_Refresh"
1030     hFileOpenLocally( gTesttoolPath & "spreadsheet\required\input\Database_Refresh.ods" )
1031     '/// Refresh Database by 'Data – Refresh Range'
1032     printlog " Refresh Database by 'Data – Refresh Range'"
1033     DataRefreshRange
1034     '/// Close document
1035     printlog " Close document"
1036     Call hCloseDocument
1037
1038 endcase
1039
1040 '-----------------------------------------------------------
1041