testautomation/dbaccess/required/includes/ReportBuilder01.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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: ReportBuilder01.inc,v $
  10 '*
  11 '* $Revision: 1.4 $
  12 '*
  13 '* last change: $Author: obo $ $Date: 2008-07-25 07:44:12 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : marc.neumann@sun.com
  35 '*
  36 '* short description : report builder include file
  37 '*
  38 '\***********************************************************************************
  39 sub rpt_Main
  40
  41     printlog "------------------ ReportBuilder01.inc ---------------------"
  42
  43     if ( tools_reporttools_InstallExtension() = 0 ) then
  44         call tMainMenuBar
  45         call tExecuteReport
  46         call tEditReport
  47         call tConditionalFormatingDialog
  48         call tPageNumber
  49         call tDateTime
  50         call tFormatPage
  51         call tGroupingSorting
  52         call tReportNavigator
  53         call tReportHeaderFooter
  54         call tPageHeaderFooter
  55         call tFunctionWizard
  56     else
  57         warnlog "report extension could not installed"
  58     endif
  59
  60 end sub
  61 '-------------------------------------------------------------------------
  62 '-------------------------------------------------------------------------
  63 '-------------------------------------------------------------------------
  64 testcase tMainMenuBar
  65
  66     dim iCount as Integer
  67
  68     '/// open Bibliography database
  69
  70     call hFileOpen(gOfficePath + ConvertPath("user/database/biblio.odb"))
  71
  72     Kontext "Insight"
  73
  74     Insight.MouseDown(50,50)
  75     Insight.MouseUp(50,50)
  76     sleep(1)
  77
  78     '/// open the report designer
  79     call fOpenNewReportDesign
  80
  81
  82
  83     '/// check the menu for the right entries
  84
  85  'file menu
  86     Kontext "ReportDesign"
  87     if ( ReportDesign.exists( 20 ) ) then
  88         ReportDesign.UseMenu
  89         '/// check if there are 10 items in the file menu.
  90         printlog "check if there are 10 items in the file menu."
  91         hMenuSelectNr(1) ' the file menu
  92         iCount = hMenuItemGetCount()
  93         if ( lcase( gPlatform ) = "osx" ) then
  94             if ( iCount <> 9 ) then
  95                 warnlog( "File menu: 9 Items expected, found " & iCount )
  96             endif
  97         else
  98             if (iCount <> 10 ) then
  99                 warnlog "There should be 10 items in the file menu but there are " + iCount + " items."
 100             end if
 101         endif
 102
 103         '/// check if there are 12 items in the FILE/NEW menu.
 104         printlog "check if there are 12 items in the FILE/NEW menu."
 105         hMenuSelectNr(1) ' FILE/NEW menu
 106         iCount = hMenuItemGetCount()
 107         if (iCount <> 12) then
 108             warnlog "There should 12 items in the FILE/NEW menu but there are " + iCount + " items."
 109         end if
 110         call hMenuClose() ' close the FILE menu
 111
 112         '/// check the FILE/AUTOPILOTS
 113         printlog "check the FILE/AUTOPILOTS"
 114         ReportDesign.UseMenu
 115         hMenuSelectNr(1) ' the file menu
 116         hMenuSelectNr(4) ' the autopilots menu
 117         iCount = hMenuItemGetCount()
 118         if (iCount <> 8) then
 119             warnlog "There should 8 items in the FILE/AUTOPILOTS menu but there are " + iCount + " items."
 120         endif
 121         call hMenuClose()
 122
 123  'edit menu
 124
 125         '/// check if there are 11 items in the edit menu.
 126         printlog "check if there are 11 items in the edit menu."
 127         ReportDesign.UseMenu
 128         hMenuSelectNr(2)
 129         iCount = hMenuItemGetCount()
 130         if (iCount <> 11) then
 131             warnlog "There should 11 items in the edit menu but there are " + iCount + " items."
 132         end if
 133         call hMenuClose()
 134
 135  'view menu
 136
 137         '/// check if there are 11 items in the view menu.
 138         printlog "check if there are 11 items in the view menu."
 139         ReportDesign.UseMenu
 140         hMenuSelectNr(3)
 141         iCount = hMenuItemGetCount()
 142         if (iCount <> 11) then
 143             warnlog "There should 11 items in the view menu but there are " + iCount + " items."
 144         end if
 145         call hMenuClose()
 146
 147  'insert menu
 148
 149         '/// check if there are 3 items in the insert menu.
 150         printlog "check if there are 3 items in the insert menu."
 151         ReportDesign.UseMenu
 152         hMenuSelectNr(4)
 153         iCount = hMenuItemGetCount()
 154         if (iCount <> 3) then
 155             warnlog "There should 3 items in the insert menu but there are " + iCount + " items."
 156         end if
 157         call hMenuClose()
 158
 159  'format menu
 160
 161         '/// check if there are 7 items in the format menu.
 162         printlog "check if there are 7 items in the format menu."
 163         ReportDesign.UseMenu
 164         hMenuSelectNr(5)
 165         iCount = hMenuItemGetCount()
 166         if (iCount <> 7) then
 167             warnlog "There should 7 items in the format menu but there are " + iCount + " items."
 168         end if
 169         call hMenuClose()
 170
 171         '/// check if there are 6 items in the format/arange menu.
 172         printlog "check if there are 6 items in the format/arange menu."
 173         ReportDesign.UseMenu
 174         hMenuSelectNr(5)
 175         hMenuSelectNr(4)
 176         iCount = hMenuItemGetCount()
 177         if (iCount <> 6) then
 178             warnlog "There should 6 items in the format/arrange menu but there are " + iCount + " items."
 179         end if
 180         call hMenuClose()
 181
 182         '/// check if there are 6 items in the format/alignment menu.
 183         printlog "check if there are 6 items in the format/alignment menu."
 184         ReportDesign.UseMenu
 185         hMenuSelectNr(5)
 186         hMenuSelectNr(5)
 187         iCount = hMenuItemGetCount()
 188         if (iCount <> 6) then
 189             warnlog "There should 6 items in the format/alignment menu but there are " + iCount + " items."
 190         end if
 191         call hMenuClose()
 192
 193         '/// check if there are 4 items in the format/object resiing menu.
 194         printlog "check if there are 4 items in the format/object resiing menu."
 195         ReportDesign.UseMenu
 196         hMenuSelectNr(5)
 197         hMenuSelectNr(6)
 198         iCount = hMenuItemGetCount()
 199         if (iCount <> 4) then
 200             warnlog "There should 4 items in the format/alignment menu but there are " + iCount + " items."
 201         end if
 202         call hMenuClose()
 203
 204
 205  'tools menu
 206
 207         '/// check if there are 4 items in the tools menu.
 208         printlog "check if there are 4 items in the tools menu."
 209         ReportDesign.UseMenu
 210         hMenuSelectNr(6)
 211         iCount = hMenuItemGetCount()
 212         if ( lcase( gPlatform ) = "osx" ) then
 213             if ( iCount <> 3 ) then
 214                 warnlog( "Tools menu: 3 items expected, found " & iCount )
 215             endif
 216         else
 217             if (iCount <> 4) then
 218                 warnlog "There should 4 items in the tools menu but there are " + iCount + " items."
 219             end if
 220         endif
 221         call hMenuClose()
 222
 223  'help menu
 224
 225         '/// check if there are 9 items in the help menu.
 226         printlog "check if there are 9 items in the help menu."
 227         ReportDesign.UseMenu
 228         hMenuSelectNr(8)
 229         iCount = hMenuItemGetCount()
 230         if ( lcase( gPlatform ) = "osx" ) then iCount = iCount + 1 ' dirty, but check is fuzzy anyway.
 231         if (gOOO) then
 232             if (iCount <> 9) then
 233                 warnlog "There should 9 items in the help menu but there are " + iCount + " items."
 234             end if
 235         else
 236             if (iCount <> 9 AND iCount <> 8 ) then
 237                 warnlog "There should 8 or 9 items in the help menu but there are " + iCount + " items."
 238             end if
 239         endif
 240         call hMenuClose()
 241
 242
 243         '/// close the report designer
 244         call fCloseReportDesign
 245
 246     else
 247         warnlog "The Report Designer did not open within expected timeframe"
 248     endif
 249     '/// close the database
 250     call fCloseDatabase
 251
 252 endcase
 253 '-------------------------------------------------------------------------
 254 testcase tConditionalFormatingDialog
 255
 256     '/// open Bibliography database
 257     printlog "open Bibliography database"
 258     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 259
 260     '/// open the report designer
 261     printlog "open the report designer"
 262     call fOpenNewReportDesign
 263
 264     Kontext "ReportDesign"
 265         ReportDesign.Maximize()
 266
 267     '/// insert a data control
 268     printlog "insert a data control"
 269         Kontext "FormControls"
 270             Edit.Click
 271         sleep(1)
 272
 273     Kontext "ReportDesign"
 274             ReportDesign.MouseDown ( 30, 10 )
 275             ReportDesign.MouseMove ( 40, 20 )
 276             ReportDesign.MouseUp ( 40, 20 )
 277     sleep(1)
 278
 279     '/// open the conditional formating dialog via the menu
 280     printlog "open the conditional formating dialog via the menu"
 281     Kontext "ReportDesign"
 282         ReportDesign.UseMenu
 283         hMenuSelectNr(5)
 284         hMenuSelectNr(1)
 285
 286     '/// check if the conditional formating dialog appear
 287     printlog "check if the conditional formating dialog appear"
 288     sleep(10)
 289     Kontext "ConditionalFormating"
 290         if ( not ConditionalFormating.exists(3)) then
 291             warnlog "Condditional Formating Dialog doesn't appear"
 292             call fCloseReportDesign
 293             call fCloseDatabase
 294             goto endsub
 295         else
 296             printlog "Conditional Formating Dialog appear"
 297             call DialogTest(ConditionalFormating)
 298             ConditionalFormating.Cancel
 299         endif
 300
 301     '/// check if there is one condition
 302     '/// add 2 more conditions and check if the dialog grows
 303     '/// add one more condition and check if the scrollbar gets enabled
 304     '/// check if the right condition is displayed
 305     '/// remove the second condition and check if the scrollbar gets disabled
 306     '/// remove 2 conditions and check if the dialog skrink
 307
 308     '/// close the report designer
 309     call fCloseReportDesign
 310     '/// close the database
 311     call fCloseDatabase
 312
 313 endcase
 314 '-------------------------------------------------------------------------
 315 testcase tExecuteReport
 316
 317     '/// open Bibliography database
 318     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 319
 320     '/// open the report designer
 321     call fOpenNewReportDesign
 322
 323     '/// select the first table in the content list box
 324     printlog "select the first table in the content list box"
 325     Kontext "ReportDataProperties"
 326         Content.select 1
 327         Content.typeKeys("<RETURN>",true) ' important to leave the listbox
 328
 329     Kontext "ReportDesign"
 330         ReportDesign.TypeKeys("<MOD1 TAB>",true)
 331         ReportDesign.TypeKeys("<MOD1 TAB>",true)
 332
 333     Kontext "ReportAddField"
 334         ReportAddFieldList.select 1
 335         ReportAddField.TypeKeys("<RETURN>",true)
 336
 337     'close the Add Field dialog to get the focus back to the design
 338     call fCloseAddFieldDialog()
 339
 340     '/// execute the report
 341     printlog "execute the report"
 342     Kontext "ReportDesign"
 343         ReportDesign.UseMenu
 344         hMenuSelectNr(2)
 345         hMenuSelectNr(11)
 346
 347     sleep(10)
 348
 349     '/// ckeck if the report is created
 350     printlog "ckeck if the report is created"
 351     Kontext "DocumentWriter"
 352         if (DocumentWriter.exists(10)) then
 353             call fCloseReportView
 354         else
 355             warnlog "No report is created."
 356         endif
 357
 358     sleep(1)
 359     '/// close the report design
 360     printlog "close the report design"
 361     call fCloseReportDesign
 362
 363     '/// close the database
 364     printlog "close the database"
 365     call fCloseDatabase
 366
 367 endcase
 368 '-------------------------------------------------------------------------
 369 testcase tPageNumber
 370
 371     '/// open Bibliography database
 372     printlog "open Bibliography database"
 373     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 374
 375     '/// open the report designer
 376     printlog "open the report designer"
 377     call fOpenNewReportDesign
 378
 379     '/// insert a data control
 380     printlog "insert a data control"
 381         Kontext "FormControls"
 382             Edit.Click
 383         sleep(1)
 384
 385     Kontext "ReportDesign"
 386             ReportDesign.MouseDown ( 30, 20 )
 387             ReportDesign.MouseMove ( 40, 30 )
 388             ReportDesign.MouseUp ( 40, 30 )
 389     sleep(1)
 390
 391     '/// open page number dialog via the menu
 392     printlog "open page number dialog via the menu"
 393     Kontext "ReportDesign"
 394         ReportDesign.UseMenu
 395         hMenuSelectNr(4)
 396         hMenuSelectNr(1)
 397
 398     '/// check if the page number dialog appear
 399     printlog "check if the page number dialog appear"
 400     Kontext "ReportPageNumber"
 401         if ( not ReportPageNumber.exists(3)) then
 402             warnlog "Page Number Dialog doesn't appear"
 403             call fCloseReportDesign
 404             call fCloseDatabase
 405             goto endsub
 406         else
 407             printlog "Page Number Dialog appear"
 408             call DialogTest(ReportPageNumber)
 409             ReportPageNumber.Cancel
 410         endif
 411
 412     '/// close the report designer
 413     call fCloseReportDesign
 414     '/// close the database
 415     call fCloseDatabase
 416
 417 endcase
 418 '-------------------------------------------------------------------------
 419 testcase tDateTime
 420
 421     '/// open Bibliography database
 422     printlog "open Bibliography database"
 423     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 424
 425     '/// open the report designer
 426     printlog "open the report designer"
 427     call fOpenNewReportDesign
 428
 429     '/// insert a data control
 430     printlog "insert a data control"
 431         Kontext "FormControls"
 432             Edit.Click
 433         sleep(1)
 434
 435     Kontext "ReportDesign"
 436             ReportDesign.MouseDown ( 30, 20 )
 437             ReportDesign.MouseMove ( 40, 30 )
 438             ReportDesign.MouseUp ( 40, 30 )
 439     sleep(1)
 440
 441     '/// open date time dialog via the menu
 442     printlog "open date time dialog via the menu"
 443     Kontext "ReportDesign"
 444         ReportDesign.UseMenu
 445         hMenuSelectNr(4)
 446         hMenuSelectNr(2)
 447
 448     '/// check if the date time dialog appear
 449     printlog "check if the date time dialog appear"
 450     Kontext "ReportDateTime"
 451         if ( not ReportDateTime.exists(3)) then
 452             warnlog "Date Time Dialog doesn't appear"
 453             call fCloseReportDesign
 454             call fCloseDatabase
 455             goto endsub
 456         else
 457             printlog "Date Time Dialog appear"
 458             call DialogTest(ReportDateTime)
 459             ReportDateTime.Cancel
 460         endif
 461
 462
 463     '/// close the report designer
 464     call fCloseReportDesign
 465     '/// close the database
 466     call fCloseDatabase
 467
 468 endcase
 469 '-------------------------------------------------------------------------
 470 testcase tGroupingSorting
 471
 472     '/// open Bibliography database
 473     printlog "open Bibliography database"
 474     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 475
 476     '/// open the report designer
 477     printlog "open the report designer"
 478     call fOpenNewReportDesign
 479
 480     '/// insert a data control
 481     printlog "insert a data control"
 482         Kontext "FormControls"
 483             Edit.Click
 484         sleep(1)
 485
 486     Kontext "ReportDesign"
 487             ReportDesign.MouseDown ( 30, 50 )
 488             ReportDesign.MouseMove ( 40, 60 )
 489             ReportDesign.MouseUp ( 40, 60 )
 490     sleep(1)
 491
 492     '/// open date time dialog via the menu
 493     printlog "open date time dialog via the menu"
 494     Kontext "ReportDesign"
 495         ReportDesign.UseMenu
 496         hMenuSelectNr(3)
 497         hMenuSelectNr(4)
 498
 499     '/// check if the sorting and grouping dialog appear
 500     printlog "check if the sorting and grouping dialog appear"
 501     Kontext "ReportSortingGrouping"
 502         if ( not ReportSortingGrouping.exists(3)) then
 503             warnlog "Sorting and Grouping Dialog doesn't appear"
 504             call fCloseReportDesign
 505             call fCloseDatabase
 506             goto endsub
 507         else
 508             printlog "Sorting and Grouping Dialog appear"
 509             call DialogTest(ReportSortingGrouping)
 510             ReportSortingGrouping.Close
 511         endif
 512
 513
 514     '/// close the report designer
 515     call fCloseReportDesign
 516     '/// close the database
 517     call fCloseDatabase
 518
 519 endcase
 520 '-------------------------------------------------------------------------
 521 testcase tReportNavigator
 522
 523     '/// open Bibliography database
 524     printlog "open Bibliography database"
 525     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 526
 527     '/// open the report designer
 528     printlog "open the report designer"
 529     call fOpenNewReportDesign
 530
 531     '/// insert a data control
 532     printlog "insert a data control"
 533         Kontext "FormControls"
 534             Edit.Click
 535         sleep(1)
 536
 537     Kontext "ReportDesign"
 538             ReportDesign.MouseDown ( 30, 50 )
 539             ReportDesign.MouseMove ( 40, 60 )
 540             ReportDesign.MouseUp ( 40, 60 )
 541     sleep(1)
 542
 543     '/// open report navigator via the menu
 544     printlog "open report navigator via the menu"
 545     Kontext "ReportDesign"
 546         ReportDesign.UseMenu
 547         hMenuSelectNr(3)
 548         hMenuSelectNr(5)
 549
 550     '/// check if the report navigator appear
 551     printlog "check if the report navigator appear"
 552     Kontext "ReportNavigator"
 553         if ( not ReportNavigator.exists(3)) then
 554             warnlog "report navigator doesn't appear"
 555             call fCloseReportDesign
 556             call fCloseDatabase
 557             goto endsub
 558         else
 559             printlog "report navigator appear"
 560             call DialogTest(ReportNavigator)
 561             ReportNavigator.Close
 562         endif
 563
 564
 565     '/// close the report designer
 566     call fCloseReportDesign
 567     '/// close the database
 568     call fCloseDatabase
 569
 570 endcase
 571 '-------------------------------------------------------------------------
 572 testcase tReportHeaderFooter
 573
 574     '/// open Bibliography database
 575     printlog "open Bibliography database"
 576     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 577
 578     '/// open the report designer
 579     printlog "open the report designer"
 580     call fOpenNewReportDesign
 581
 582     '/// open report navigator
 583     printlog "open report navigator"
 584     call fOpenReportNavigator
 585
 586     '/// check if the report navigator appear
 587     printlog "check if the report navigator appear"
 588     Kontext "ReportNavigator"
 589         if ( not ReportNavigator.exists(3)) then
 590             warnlog "report navigator doesn't appear"
 591             call fCloseReportDesign
 592             call fCloseDatabase
 593             goto endsub
 594         endif
 595         '/// check if there are 6 entries in the report navigator
 596         printlog "check if there are 6 entries in the report navigator"
 597         if (NavigatorTree.getItemCount <> 6) then
 598             warnlog "the count of items in the report navigator is not correct." + _
 599             "it should 6 but it is " + NavigatorTree.getItemCount
 600         endif
 601
 602     'close the report navigator to get the focus back into the document
 603     call fCloseReportNavigator
 604
 605     '/// turn on the report header via the edit menu
 606     printlog "turn on the report header via the edit menu"
 607     Kontext "ReportDesign"
 608         ReportDesign.UseMenu
 609         hMenuSelectNr(2)
 610         hMenuSelectNr(9)
 611
 612     'open the navigator again
 613     call fOpenReportNavigator
 614
 615     '/// check if report header appear in the report navigator (8 entries)
 616     printlog "check if report header appear in the report navigator (8 entries)"
 617     Kontext "ReportNavigator"
 618         if (NavigatorTree.getItemCount <> 8) then
 619             warnlog "the report header is not diaplyed in the report navigator."
 620         endif
 621
 622     'close the report navigator to get the focus back into the document
 623     call fCloseReportNavigator
 624
 625     '/// turn off the report header via the edit menu
 626     printlog "turn off the report header via the edit menu"
 627     Kontext "ReportDesign"
 628         ReportDesign.UseMenu
 629         hMenuSelectNr(2)
 630         hMenuSelectNr(9)
 631
 632     'open the navigator again
 633     call fOpenReportNavigator
 634
 635     '/// check if report header disappear in the report navigator (6 entries)
 636     printlog "check if report header disappear in the report navigator (6 entries)"
 637     Kontext "ReportNavigator"
 638         if (NavigatorTree.getItemCount <> 6) then
 639             warnlog "the report header is not diaplyed in the report navigator."
 640         endif
 641
 642     'close the report navigator
 643     call fCloseReportNavigator
 644
 645     '/// close the report designer
 646     printlog "close the report designer"
 647     call fCloseReportDesign
 648     '/// close the database
 649     printlog "close the database"
 650     call fCloseDatabase
 651
 652 endcase
 653 '-------------------------------------------------------------------------
 654 testcase tPageHeaderFooter
 655
 656     '/// open Bibliography database
 657     printlog "open Bibliography database"
 658     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 659
 660     '/// open the report designer
 661     printlog "open the report designer"
 662     call fOpenNewReportDesign
 663
 664     '/// open report navigator
 665     call fOpenReportNavigator
 666
 667     '/// check if the report navigator appear
 668     printlog "check if the report navigator appear"
 669     Kontext "ReportNavigator"
 670         if ( not ReportNavigator.exists(3)) then
 671             warnlog "report navigator doesn't appear"
 672             call fCloseReportDesign
 673             call fCloseDatabase
 674             goto endsub
 675         endif
 676         '/// check if there are 6 entries in the report navigator
 677         printlog "check if there are 6 entries in the report navigator"
 678         if (NavigatorTree.getItemCount <> 6) then
 679             warnlog "the count of items in the report navigator is not correct." + _
 680             "it should 6 but it is " + NavigatorTree.getItemCount
 681         endif
 682
 683     'close the report navigator to get the focus back into the document
 684     call fCloseReportNavigator
 685
 686     '/// turn off the page header via the edit menu
 687     printlog "turn off the page header via the edit menu"
 688     Kontext "ReportDesign"
 689         ReportDesign.UseMenu
 690         hMenuSelectNr(2)
 691         hMenuSelectNr(8)
 692
 693     'open the report navigator
 694     call fOpenReportNavigator
 695
 696     '/// check if page header disappear in the report navigator (4 entries)
 697     printlog "check if page header disappear in the report navigator (4 entries)"
 698     Kontext "ReportNavigator"
 699         if (NavigatorTree.getItemCount <> 4) then
 700             warnlog "the page header is not displayed in the report navigator."
 701         endif
 702
 703     'close the report navigator to get the focus back into the document
 704     call fCloseReportNavigator
 705
 706     '/// turn on the page header via the edit menu
 707     printlog "turn on the page header via the edit menu"
 708     Kontext "ReportDesign"
 709         ReportDesign.UseMenu
 710         hMenuSelectNr(2)
 711         hMenuSelectNr(8)
 712
 713     'open the report navigator
 714     call fOpenReportNavigator
 715
 716     '/// check if page header appear in the report navigator (6 entries)
 717     printlog "check if page header appear in the report navigator (6 entries)"
 718     Kontext "ReportNavigator"
 719         if (NavigatorTree.getItemCount <> 6) then
 720             warnlog "the page header is displayed in the report navigator."
 721         endif
 722
 723     'close the report navigator
 724     call fCloseReportNavigator
 725
 726     '/// close the report designer
 727     printlog "close the report designer"
 728     call fCloseReportDesign
 729     '/// close the database
 730     printlog "close the database"
 731     call fCloseDatabase
 732
 733 endcase
 734 '-------------------------------------------------------------------------
 735 testcase tEditReport
 736
 737     '/// open Bibliography database
 738     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 739
 740     '/// open the report designer
 741     call fOpenNewReportDesign
 742
 743     '/// select the first table in the content list box
 744     printlog "select the first table in the content list box"
 745     Kontext "ReportDataProperties"
 746         Content.select 1
 747         Content.typeKeys("<RETURN>",true) ' important to leave the listbox
 748
 749     Kontext "ReportDesign"
 750         ReportDesign.TypeKeys("<MOD1 TAB>",true)
 751         ReportDesign.TypeKeys("<MOD1 TAB>",true)
 752
 753     Kontext "ReportAddField"
 754         ReportAddFieldList.select 1
 755         ReportAddField.TypeKeys("<RETURN>",true)
 756
 757     'close the Add Field dialog to get the focus back to the design
 758     call fCloseAddFieldDialog()
 759
 760     '/// save the report
 761     printlog "save the report"
 762     Kontext "ReportDesign"
 763         ReportDesign.UseMenu
 764         hMenuSelectNr(1)
 765         hMenuSelectNr(6)
 766
 767     sleep(10)
 768
 769     '/// insert a name into the save dialog
 770     printlog "insert a name into the save dialog"
 771
 772     Kontext "FormSaveDialog" ' report and forms use the same dialog
 773         FormName.setText("Report1")
 774         SaveBtn.Click
 775
 776     '/// close the report design
 777     printlog "close the report design"
 778     call fCloseReportDesign
 779
 780     '/// open the report again in the edit mode
 781     printlog "open the report again in the edit mode"
 782     call fOpenReportInDesign("Report1")
 783
 784     Kontext "ReportDesign"
 785         if (ReportDesign.exists(10)) then
 786             call fCloseReportDesign
 787         else
 788             warnlog "ReportDesign not open"
 789         endif
 790
 791     '/// close the database
 792     printlog "close the database"
 793     call fCloseDatabase
 794
 795 endcase
 796 '-------------------------------------------------------------------------
 797 testcase tFormatPage
 798
 799     printlog "open Bibliography database"
 800     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 801
 802     printlog "open the report designer"
 803     call fOpenNewReportDesign
 804
 805     printlog "open format/page dialog via the menu"
 806     Kontext "ReportDesign"
 807         ReportDesign.UseMenu
 808         hMenuSelectNr(5)
 809         hMenuSelectNr(3)
 810
 811     printlog "check if the format page dialog appear"
 812     Kontext "TabSeite"
 813         if ( not TabSeite.exists(3)) then
 814             warnlog "format page dialog doesn't appear"
 815             call fCloseReportDesign
 816             call fCloseDatabase
 817             goto endsub
 818         else
 819             printlog "format page dialog appear"
 820             call DialogTest(TabSeite)
 821             TabSeite.Cancel
 822         endif
 823
 824     '/// close the report designer
 825     call fCloseReportDesign
 826     '/// close the database
 827     call fCloseDatabase
 828
 829 endcase
 830 '-------------------------------------------------------------------------
 831 testcase tFunctionWizard
 832
 833     printlog "open Bibliography database"
 834     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 835
 836     printlog "open the report designer"
 837     call fOpenNewReportDesign
 838
 839     printlog "select the first table in the content list box"
 840     Kontext "ReportDataProperties"
 841         Content.select 1
 842         Content.typeKeys("<RETURN>",true) ' important to leave the listbox
 843
 844     Kontext "ReportDesign"
 845         ReportDesign.TypeKeys("<MOD1 TAB>",true)
 846         ReportDesign.TypeKeys("<MOD1 TAB>",true)
 847
 848     Kontext "ReportAddField"
 849         ReportAddFieldList.select 1
 850         ReportAddField.TypeKeys("<RETURN>",true)
 851
 852     'close the Add Field dialog to get the focus back to the design
 853     call fCloseAddFieldDialog()
 854
 855     'press 2 time tab to select the edit field
 856     Kontext "ReportDesign"
 857         ReportDesign.TypeKeys("<TAB>",true)
 858         ReportDesign.TypeKeys("<TAB>",true)
 859
 860     sleep(1)
 861
 862     printlog "click on the ... button behind the datafield property in the property browser"
 863     Kontext "ReportDataProperties"
 864         OpenFormularWizard.Click
 865
 866     printlog "check if the function wizard appear"
 867     Kontext "FunctionWizard"
 868         if(FunctionWizard.exists(5)) then
 869             printlog "The function wizard appear -> OK"
 870             FunctionWizard.close
 871         else
 872             warnlog "The function wizard does not appear -> FAILED"
 873         endif
 874
 875     sleep(1)
 876
 877     printlog "close the report designer"
 878     call fCloseReportDesign
 879     printlog "close the database"
 880     call fCloseDatabase
 881
 882 endcase