testautomation/dbaccess/optional/includes/rpt_Grouping.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_Grouping.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 : Grouping Report
  37 '*
  38 '\***********************************************************************************
  39 sub rpt_Grouping
  40
  41     printlog "------------------ rpt_Grouping.inc ---------------------"
  42
  43     call tGrouping
  44
  45 end sub
  46 '-------------------------------------------------------------------------
  47 '-------------------------------------------------------------------------
  48 '-------------------------------------------------------------------------
  49 testcase tGrouping
  50
  51     '/// open Bibliography database
  52     printlog "open Bibliography database"
  53     call fOpenDataBase(gOfficePath + ConvertPath("user/database/biblio.odb"))
  54
  55     '/// open the report designer
  56     printlog "open the report designer"
  57     call fOpenNewReportDesign
  58
  59     sleep(1)
  60
  61     '/// select the first table in the content list box
  62     printlog "select the first table in the content list box"
  63     Kontext "ReportDataProperties"
  64         Content.select 1
  65         Content.typeKeys("<RETURN>",true) ' important to leave the listbox
  66
  67     'close the Add Field dialog to get the focus back to the design
  68     call fCloseAddFieldDialog
  69
  70     '/// turn of the page header
  71     call fSwitchPageHeader
  72
  73     '/// insert a data control
  74     printlog "insert a data control"
  75         Kontext "FormControls"
  76             Edit.Click
  77         sleep(1)
  78
  79     Kontext "ReportDesign"
  80         ReportDesign.MouseDown ( 30, 10 )
  81         ReportDesign.MouseMove ( 40, 20 )
  82         ReportDesign.MouseUp ( 40, 20 )
  83
  84     Kontext "ReportDesign"
  85
  86         '/// align the control to the left
  87         ReportDesign.UseMenu
  88         hMenuSelectNr(5)
  89         hMenuSelectNr(5)
  90         hMenuSelectNr(1)
  91
  92         '/// align the control to the top
  93         ReportDesign.UseMenu
  94         hMenuSelectNr(5)
  95         hMenuSelectNr(5)
  96         hMenuSelectNr(4)
  97
  98     sleep(1)
  99
 100     Kontext "ReportPropertiesTabControl"
 101         ReportPropertiesTabControl.setPage ReportDataProperties
 102
 103     Kontext "ReportDataProperties"
 104         DataField.select 1
 105         DataField.typeKeys("<RETURN>",true) ' important to leave the listbox
 106
 107     ' select detail section with unselect the control
 108     Kontext "ReportDesign"
 109         ReportDesign.MouseDown(50, 10)
 110         ReportDesign.MouseUp(50, 10)
 111
 112     Kontext "ReportGeneralProperties"
 113         Height.setText("0")
 114         Height.typeKeys("<RETURN>",true)
 115
 116
 117
 118     '/// open the sorting and grouping
 119     Kontext "ReportDesign"
 120     ReportDesign.UseMenu
 121         hMenuSelectNr(3)
 122         hMenuSelectNr(4)
 123
 124         sleep(1)
 125
 126     Kontext "ReportSortingGrouping"
 127         if (ReportSortingGrouping.exists(3)) then
 128                 Groups.typeKeys("Type",true)
 129             Groups.typeKeys("<return>",true)
 130                 sleep(1)
 131                 ReportSortingGrouping.Close
 132                 else
 133             warnlog "ReportSortingGrouping doesn't exists"
 134             endif
 135
 136     sleep(1)
 137
 138     '/// execute the report
 139     call fExecuteReport
 140
 141     sleep(10)
 142
 143     '/// check if the report is created
 144     printlog "check if the report is created"
 145     Kontext "DocumentWriter"
 146         if (DocumentWriter.exists(10)) then
 147             call fCloseReportView
 148         else
 149             warnlog "No report is created."
 150         endif
 151
 152     '/// close the report designer
 153     printlog "close the report designer"
 154     call fCloseReportDesign
 155
 156     '/// close the database
 157     printlog "close the database"
 158     call fCloseDatabase
 159
 160 endcase
 161 '-------------------------------------------------------------------------
 162