testautomation/global/tools/includes/optional/t_spreadsheet_tools1.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: t_spreadsheet_tools1.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-13 10:27:08 $
  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 : oliver.craemer@sun.com
  35 '*
  36 '* short description : Global tools for spreadsheet
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 fGotoCell     ' Set active cell in a spreadhseet to a defined cell adress
  41 '
  42 '*
  43 '\***********************************************************************
  44
  45 function fGotoCell (sCelladdress as String) as integer
  46 '/// The function sets the active cell in a spreadsheet to a defined cell address.
  47 '/// Input: sCelladdress as String
  48 '/// Output: <ul><li>0 = active cell has changed successfully</li>
  49 '///+ <li>1 = active cell hasn't changed</li>
  50
  51     Dim sActualPlace as string
  52
  53     const CFN = "qa:qatesttool:global:tools:inc:t_spreadsheet_tools1.inc:fGotoCell: "
  54
  55     'function will return 1 if something goes wrong
  56     fGotoCell = 1
  57     Kontext "RechenleisteCalc"
  58     '/// If the spreadsheet <i>formula toolbar</i> isn't available make them
  59     '/// + available with View / Toolbars / Formula Bar
  60     if NOT RechenleisteCalc.Exists(1) then
  61         ViewToolbarsFormulaBar
  62     end if
  63     try
  64         Kontext "RechenleisteCalc"
  65         sActualPlace = AktiverZellbereich.GetSelText
  66         if UCase(sActualPlace) = UCase(sCelladdress) then
  67             fGotocell = 0
  68             exit function
  69         else
  70             sActualPlace = ""
  71             '/// Type the cell address into the <i>name box</i>
  72             AktiverZellbereich.SetText sCelladdress
  73             '///+ and press RETURN
  74             AktiverZellbereich.TypeKeys "<RETURN>"
  75             sleep(1)
  76             '/// If the <i>name box<i>' address has been changed to the expected
  77             '///+ cell address the function was successfull.
  78             sActualPlace = AktiverZellbereich.GetSelText
  79             if UCase(sActualPlace) = UCase(sCelladdress) then
  80                 fGotocell = 0
  81             else
  82                 warnlog CFN & "The cell address has not been changed!"
  83             end if
  84         end if
  85     catch
  86         warnlog CFN & "Something unexpected happened! The cell address has not been changed!"
  87         fGotocell = 1
  88     endcatch
  89 end function
  90