testautomation/dbaccess/optional/includes/rpt_PageNumber.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: rpt_PageNumber.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:42 $
  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 : Page Number
  37 '*
  38 '\***********************************************************************************
  39 sub rpt_PageNumber
  40
  41     printlog "------------------ rpt_PageNumber.inc ---------------------"
  42
  43     call tDefaultSetting
  44     call tPageNumber
  45
  46 end sub
  47 '-------------------------------------------------------------------------
  48 '-------------------------------------------------------------------------
  49 '-------------------------------------------------------------------------
  50 testcase tDefaultSetting
  51
  52     '/// FILE / OPEN / biblio.odb
  53     printlog "FILE / OPEN / biblio.odb"
  54     call fOpenDataBase(gOfficePath + ConvertPath("user/database/biblio.odb"))
  55
  56     '/// INSERT / REPORT
  57     printlog "INSERT / REPORT"
  58     call fOpenNewReportDesign
  59
  60     sleep(1)
  61
  62     '/// select any section to get the insert page number menu item activated
  63     printlog "select any section to get the insert page number menu item activated"
  64     Kontext "ReportDesign"
  65         ReportDesign.MouseDown(50, 10)
  66         ReportDesign.MouseUp(50, 10)
  67
  68     '/// INSERT / PAGE NUMBER
  69     Kontext "ReportDesign"
  70     ReportDesign.UseMenu
  71         hMenuSelectNr(4)
  72         hMenuSelectNr(1)
  73
  74         sleep(1)
  75     '/// check if the "Page Number" dialog appear
  76     printlog "check if the ""Page Number"" dialog appear"
  77     Kontext "ReportPageNumber"
  78         if (ReportPageNumber.exists(3)) then
  79
  80             '/// check if PageN is checked
  81             printlog "check if PageN is checked"
  82             if ( PageN.isChecked() ) then
  83                 printlog "Default PageN is checked"
  84             else
  85                 warnlog "Default PageN is not checked"
  86             endif
  87
  88             '/// check if PageOfPage is checked
  89             printlog "check if PageOfPage is checked"
  90             if TopOfPage.isChecked() then
  91                 printlog "Default TopOfPage is checked"
  92             else
  93                 warnlog "Default TopOfpage is not checked"
  94             endif
  95
  96             '/// check if PageAlignment is set to center
  97             printlog "check if PageAlignment is set to center"
  98             if ( PageNumberAlignment.getSelIndex() = 2 ) then
  99                 printlog "center alignment is selected"
 100             else
 101                 warnlog "center alignment is not selected"
 102             endif
 103
 104             '/// check if ShowNumberOnFirstPage checkboc is available. If not issue i78945
 105             printlog "check if ShowNumberOnFirstPage checkboc is available"
 106             if ( ShowNumberOnFirstPage.isVisible() ) then
 107
 108                 '/// check if ShowNumberOnFirstPage is checked
 109                 printlog "check if PageAlignment is set to center"
 110                 if ( ShowNumberOnFirstPage.isChecked() ) then
 111                     printlog "ShowNumberOnFirstPage is checked"
 112                 else
 113                     warnlog "ShowNumberOnFirstPage is not checked"
 114                 endif
 115             else
 116                 qaerrorlog "#i78945# ShowNumberOnFirstPage is not visible"
 117             endif
 118                 '/// close dialog with OK
 119             printlog "close dialog with OK"
 120                 ReportPageNumber.OK
 121                 else
 122             warnlog "ReportPageNumber doesn't exists"
 123             endif
 124
 125     '/// close the report designer with WINDOW / CLOSE
 126     printlog "close the report designer with WINDOW / CLOSE"
 127     call fCloseReportDesign
 128
 129     '/// close the database with FILE / CLOSE
 130     printlog "close the database with FILE / CLOSE"
 131     call fCloseDatabase
 132
 133 endcase
 134 '-------------------------------------------------------------------------
 135 testcase tPageNumber
 136
 137     '/// open Bibliography database
 138     printlog "open Bibliography database"
 139     call fOpenDataBase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 140
 141     '/// open the report designer
 142     printlog "open the report designer"
 143     call fOpenNewReportDesign
 144
 145     sleep(1)
 146
 147     '/// select the first table in the content list box
 148     printlog "select the first table in the content list box"
 149     Kontext "ReportDataProperties"
 150         Content.select 1
 151         Content.typeKeys("<RETURN>",true) ' important to leave the listbox
 152
 153     'close the Add Field dialog to get the focus back to the design
 154     call fCloseAddFieldDialog
 155
 156     '/// turn of the page header
 157     call fSwitchPageHeader
 158     '/// insert a data control
 159     printlog "insert a data control"
 160         Kontext "FormControls"
 161             Edit.Click
 162         sleep(1)
 163
 164     Kontext "ReportDesign"
 165         ReportDesign.MouseDown ( 30, 10 )
 166         ReportDesign.MouseMove ( 40, 20 )
 167         ReportDesign.MouseUp ( 40, 20 )
 168
 169     Kontext "ReportDesign"
 170
 171         '/// align the control to the left
 172         ReportDesign.UseMenu
 173         hMenuSelectNr(5)
 174         hMenuSelectNr(5)
 175         hMenuSelectNr(1)
 176
 177         '/// align the control to the top
 178         ReportDesign.UseMenu
 179         hMenuSelectNr(5)
 180         hMenuSelectNr(5)
 181         hMenuSelectNr(4)
 182
 183     sleep(1)
 184
 185     Kontext "ReportPropertiesTabControl"
 186         ReportPropertiesTabControl.setPage ReportDataProperties
 187
 188     Kontext "ReportDataProperties"
 189         DataField.select 1
 190         DataField.typeKeys("<RETURN>",true) ' important to leave the listbox
 191
 192     ' select detail section with unselect the control
 193     Kontext "ReportDesign"
 194         ReportDesign.MouseDown(50, 10)
 195         ReportDesign.MouseUp(50, 10)
 196
 197     Kontext "ReportGeneralProperties"
 198         Height.setText("0")
 199         Height.typeKeys("<RETURN>",true)
 200
 201     '/// INSERT / PAGE NUMBER
 202     Kontext "ReportDesign"
 203     ReportDesign.UseMenu
 204         hMenuSelectNr(4)
 205         hMenuSelectNr(1)
 206
 207         sleep(1)
 208
 209     Kontext "ReportPageNumber"
 210         '/// check PageNofM
 211         printlog "check PageNofM"
 212         PageNOfM.Check()
 213         '/// check BottomOfPage
 214         printlog "check BottomOfPage"
 215         BottomOfPage.check()
 216         '/// select the 3 entry inPageNumberAlignment
 217         printlog "select the 3 entry inPageNumberAlignment"
 218         PageNumberAlignment.select(3)
 219
 220         '/// close dialog with OK
 221         printlog "close dialog with OK"
 222         ReportPageNumber.OK
 223
 224     'sleep(5)
 225
 226
 227     Kontext "ReportPropertiesTabControl"
 228         ReportPropertiesTabControl.setPage ReportDataProperties
 229     'sleep(5)
 230     Kontext "ReportDataProperties"
 231         dim s as string
 232         s = DataField.getSelText()
 233         if ((instr(s," & PageNumber() & ") = 0) OR (instr(s," & PageCount()") = 0)) then
 234             warnlog "The page number function is not correct.The function is " + s
 235         else
 236             printlog "The page number function is correct."
 237         endif
 238     'sleep(5)
 239     '/// execute the report
 240     call fExecuteReport
 241
 242     sleep(10)
 243
 244     '/// check if the report is created
 245     printlog "check if the report is created"
 246     Kontext "DocumentWriter"
 247         if (DocumentWriter.exists(10)) then
 248             call fCloseReportView
 249         else
 250             warnlog "No report is created."
 251         endif
 252
 253     '/// close the report designer with WINDOW / CLOSE
 254     printlog "close the report designer with WINDOW / CLOSE"
 255     call fCloseReportDesign
 256
 257     '/// close the database with FILE / CLOSE
 258     printlog "close the database with FILE / CLOSE"
 259     call fCloseDatabase
 260
 261 endcase
 262 '-------------------------------------------------------------------------
 263