summaryrefslogtreecommitdiff
path: root/testautomation/writer/tools/includes/w_tool1.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/writer/tools/includes/w_tool1.inc')
-rwxr-xr-xtestautomation/writer/tools/includes/w_tool1.inc1041
1 files changed, 1041 insertions, 0 deletions
diff --git a/testautomation/writer/tools/includes/w_tool1.inc b/testautomation/writer/tools/includes/w_tool1.inc
new file mode 100755
index 000000000000..a39fa5773102
--- /dev/null
+++ b/testautomation/writer/tools/includes/w_tool1.inc
@@ -0,0 +1,1041 @@
+'*******************************************************************************
+' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'
+' Copyright 2000, 2010 Oracle and/or its affiliates.
+'
+' OpenOffice.org - a multi-platform office productivity suite
+'
+' This file is part of OpenOffice.org.
+'
+' OpenOffice.org is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Lesser General Public License version 3
+' only, as published by the Free Software Foundation.
+'
+' OpenOffice.org is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+' GNU Lesser General Public License version 3 for more details
+' (a copy is included in the LICENSE file that accompanied this code).
+'
+' You should have received a copy of the GNU Lesser General Public License
+' version 3 along with OpenOffice.org. If not, see
+' <http://www.openoffice.org/license.html>
+' for a copy of the LGPLv3 License.
+'
+'/******************************************************************************
+'*
+'* owner : helge.delfs@oracle.com
+'*
+'* short description : Put description here
+'*
+' \*****************************************************************************
+
+sub hInhalte
+
+ Dim Anzahl as Integer
+ Dim i as Integer
+
+ if ( hUseAsyncSlot( "EditCut" ) = -1 ) then
+ Warnlog "Unable to execute 'Edit / Cut'!. Maybe object not selected!"
+ exit sub
+ endif
+
+ Sleep 1
+ Call gMouseClick ( 99,80 )
+ Sleep 1
+
+ hUseAsyncSlot( "EditPasteSpecialWriter" )
+
+ Kontext "InhaltEinfuegen"
+ if ( InhaltEinfuegen.exists( 1 ) ) then
+ Anzahl = Auswahl.GetItemCount
+ for i = 1 to Anzahl
+ Auswahl.Select i
+ InhaltEinfuegen.OK
+
+ if ( hUseAsyncSlot( "EditDeleteContents" ) = -1 ) then
+ Warnlog "Unable to execute Edit / Delete / Contents ! Entry: " + i
+ else
+ Call gMouseClick ( 99,80 )
+ if ( hUseAsyncSlot( "EditPasteSpecialWriter" ) = -1 ) then
+ warnlog "Unable to execute Edit / Paste / Special!"
+ endif
+ endif
+ Kontext "InhaltEinfuegen"
+ next i
+ InhaltEinfuegen.Cancel
+ else
+ warnlog( "Dialog <InhaltEinfuegen> is not available" )
+ endif
+end sub
+
+' -----------------------------------------------------------------------
+
+sub hObjektmalen
+ Kontext "DocumentWriter"
+ DocumentWriter.MouseDown 35, 25
+ DocumentWriter.MouseMove 70, 60
+ DocumentWriter.MouseUp 70, 60
+ Sleep 1
+end sub
+
+' -----------------------------------------------------------------------
+
+sub hClipboarden
+
+ if ( hUseAsyncSlot( "EditCut" ) = -1 ) then
+ Warnlog "Unable to Cut object. 'Edit / Cut' is disabled!"
+ exit sub
+ endif
+
+ Call wTypeKeys "<Escape>"
+ hUseAsyncSlot( "EditPaste" )
+
+ hUseAsyncSlot( "EditCopy" )
+ Call wTypeKeys "<Escape>"
+
+ hUseAsyncSlot( "EditPaste" )
+
+ Call wTypeKeys "<Delete>"
+ WaitSlot() ' NOOP
+ Call wTypeKeys "<Escape>"
+ WaitSlot() ' NOOP
+end sub
+
+' -----------------------------------------------------------------------
+
+sub FeldbefehlAendernUndKontrollieren ( Selektion as Integer )
+
+ Dim Merk_dir_das as String
+
+ Call wTypeKeys "<Left>"
+ EditFields
+ Kontext "FeldbefehlBearbeitenDokument"
+ if ( FeldbefehlBearbeitenDokument.exists( 1 ) ) then
+ if Formatliste.IsVisible AND Formatliste.IsEnabled then
+ Formatliste.Select Selektion
+ Merk_dir_das=Formatliste.GetSelText
+ else
+ if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
+ Zahlenformat.Select Selektion
+ Merk_dir_das=Zahlenformat.GetSelText
+ else
+ Auswahl.Select 2
+ end if
+ end if
+ FeldbefehlBearbeitenDokument.OK
+ else
+ warnlog( "Dialog <FeldbefehlBearbeitenDokument> not available" )
+ endif
+
+ EditFields
+ Kontext "FeldbefehlBearbeitenDokument"
+ if ( FeldbefehlBearbeitenDokument.exists( 1 ) ) then
+ if Formatliste.IsVisible AND Formatliste.IsEnabled then
+ if Formatliste.GetSelText <> Merk_dir_das then Warnlog "Changing the field has not been worked. Format " + Merk_dir_das + " Is : Format " + Formatliste.GetSelText
+ else
+ if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
+ if Zahlenformat.GetSelText <> Merk_dir_das then Warnlog "Changing the field has not been worked. Format " + Merk_dir_das + " Is : Format " + Zahlenformat.GetSelText
+ else
+ if Auswahl.GetSelIndex <> 2 then Warnlog "Changing the field has not been worked."
+ end if
+ end if
+ FeldbefehlBearbeitenDokument.OK
+ else
+ warnlog( "Dialog <FeldbefehlBearbeitenDokument> not available" )
+ endif
+ Call wTypeKeys "<End>"
+ WaitSlot() ' NOOP
+ Call wTypeKeys "<Return>"
+end sub
+
+' -----------------------------------------------------------------------
+
+sub hEinfuegenFloatingFrame
+
+ InsertFloatingFrame
+
+ Kontext "TabEigenschaften"
+ if ( Tabeigenschaften.exists( 2 ) ) then
+ FrameName.SetText "Hallo"
+ Inhalt.SetText ConvertPath ( gTesttoolpath + "input\desktop\frameset.htm" )
+ hCloseDialog( TabEigenschaften, "ok" )
+ else
+ warnlog( "Failed to open <TabEigenschaften>" )
+ endif
+
+end sub
+
+' -----------------------------------------------------------------------
+
+sub hEinfuegenRahmen
+
+ InsertFrame
+
+ Kontext
+ if ( Active.exists( 2 ) ) then
+ Active.SetPage TabType
+ Kontext "TabType"
+ hCloseDialog( TabType, "ok" )
+ else
+ warnlog( "Failed to open <TabType>" )
+ endif
+
+end sub
+
+' -----------------------------------------------------------------------
+
+sub hEinfuegenChart
+
+ InsertObjectChart
+
+ Kontext "AutoformatDiagramm1"
+ if ( AutoformatDiagramm1.exists( 2 ) ) then
+ hClickButton( Fertigstellen )
+ else
+ warnlog( "Failed to open <AutoformatDiagramm1>" )
+ endif
+
+end sub
+
+' -----------------------------------------------------------------------
+
+sub hLegendeEinfugen
+ Kontext "Toolbar"
+ Zeichnen.TearOff
+ Kontext "Drawbar"
+ Sleep 2
+ Legende.Click
+ Kontext "DocumentWriter"
+ DocumentWriter.MouseDown 20, 20
+ DocumentWriter.MouseMove 40, 40
+ DocumentWriter.MouseUp 40, 40
+ Kontext "Drawbar"
+ Drawbar.Close
+end sub
+
+' -----------------------------------------------------------------------
+
+sub wWriterKickBoxAway
+ ' Call this routine if you don't expect a messagebox
+ ' expect on an error. Closes messagebox and gives a Warnlog
+ Kontext "Active"
+ if Active.Exists then
+ if Active.GetRT = 304 then
+ Warnlog Active.Gettext
+ try
+ Active.Ok
+ catch
+ Active.Yes
+ endcatch
+ end if
+ end if
+end sub
+
+'----------------------------------------------------------------
+
+sub tCheckAutotextInGroup(NumberOff as integer, NumberVariant as integer)
+ Dim j as integer
+ for j = 1 to NumberOff
+ Liste.Select j + NumberVariant
+ printlog "- " & Liste.GetSelText
+ Wait 500
+ try
+ AutoText.Ok
+ Wait 100
+ Kontext "Active" ' Messagebox bei Basic-Fehler
+ if Active.Exists then
+ Warnlog Active.Gettext + "Group " + NumberVariant + " Entry " + j
+ Active.Ok
+ end if
+ wait 500
+ Kontext "Eingabefeld"
+ if Eingabefeld.Exists then Eingabefeld.Cancel
+ wait 500
+ Call wTypeKeys "<Mod1 a>"
+ EditCopy
+ if GetClipboard = "" then Warnlog "No autotext inserted. Variant: "+ NumberVariant + " " + j
+ catch
+ Warnlog "Variant "+ NumberVariant + " " + j +" has a Problem."
+ endcatch
+ Call wTypeKeys "<Delete>" ' only text
+ Call wMarkObjects(TRUE)
+ EditAutotext
+ Kontext "Active"
+ if active.Exists then
+ QAErrorlog Active.Gettext
+ Active.Ok
+ end if
+ Kontext "AutoText"
+ if not Vorschau_anzeigen.IsChecked then Warnlog "Preview isn't checked anymore!"
+ next j
+end sub
+
+'----------------------------------------------------------------
+
+sub hMalZeichnenMitSelektion ( xS, yS, xE, yE )
+ Select Case gApplication
+ Case "WRITER"
+ Kontext "DocumentWriter"
+ DocumentWriter.MouseDown ( xS, yS )
+ DocumentWriter.MouseMove ( xE, yE )
+ DocumentWriter.MouseUp ( xE, yE )
+
+ Case "HTML"
+ Kontext "DocumentWriterWeb"
+ DocumentWriterWeb.MouseDown ( xS, yS )
+ DocumentWriterWeb.MouseMove ( xE, yE )
+ DocumentWriterWeb.MouseUp ( xE, yE )
+
+ Case "MASTERDOCUMENT"
+ Kontext "DocumentMasterDoc"
+ DocumentMasterDoc.MouseDown ( xS, yS )
+ DocumentMasterDoc.MouseMove ( xE, yE )
+ DocumentMasterDoc.MouseUp ( xE, yE )
+
+ end select
+ WaitSlot() ' NOOP
+end sub
+
+'----------------------------------------------------------------
+
+sub hMalZeichnen ( xS, yS, xE, yE )
+ Select Case gApplication
+ Case "WRITER"
+ Kontext "DocumentWriter"
+ DocumentWriter.MouseDown ( xS, yS )
+ DocumentWriter.MouseMove ( xE, yE )
+ DocumentWriter.MouseUp ( xE, yE )
+ WaitSlot() ' NOOP
+ if DocumentWriter.IsEnabled then Call wTypeKeys "<Escape>"
+
+ Case "HTML"
+ Kontext "DocumentWriterWeb"
+ DocumentWriterWeb.MouseDown ( xS, yS )
+ DocumentWriterWeb.MouseMove ( xE, yE )
+ DocumentWriterWeb.MouseUp ( xE, yE )
+ WaitSlot() ' NOOP
+ if DocumentWriterWeb.IsEnabled then DocumentWriterWeb.TypeKeys "<Escape>"
+
+ Case "MASTERDOCUMENT"
+ Kontext "DocumentMasterDoc"
+ DocumentMasterDoc.MouseDown ( xS, yS )
+ DocumentMasterDoc.MouseMove ( xE, yE )
+ DocumentMasterDoc.MouseUp ( xE, yE )
+ WaitSlot() ' NOOP
+ if DocumentMasterDoc.IsEnabled then DocumentMasterDoc.TypeKeys "<Escape>"
+
+ end select
+end sub
+
+'----------------------------------------------------------------
+
+sub sMenufunktionen(Fuer_Was as string)
+
+ const RC_FAILURE = -1
+ Dim i as integer
+
+ Kontext "FormControls"
+ Sleep 3
+ for i = 1 to 20
+ if ControlProperties.IsEnabled then
+ ControlProperties.Click ' Formularfunktion über Toolbox abschalten
+ i=21
+ else
+ Sleep 1
+ if i >= 20 then
+ if gPlatform = "osx" then
+ Warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything"
+ else
+ Warnlog "Button (" + i + ")" + Fuer_Was + " is disabled "
+ end if
+ end if
+ end if
+ next i
+
+ Kontext
+ if ( hUseAsyncSlot( "FormatControl" ) <> RC_FAILURE ) then
+
+ Kontext "ControlPropertiesDialog"
+ if ControlPropertiesDialog.Exists( 2 ) then
+ hCloseDialog( ControlPropertiesDialog, "close" )
+ endif
+ printlog Fuer_Was
+ else
+ if gPlatform = "osx" then
+ Warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything"
+ else
+ Warnlog " - Controlfieldproperties "+ Fuer_Was +" from Menu not available!"
+ end if
+ endif
+
+ Call wTypeKeys "<Escape>"
+ Kontext "FormControls"
+end sub
+
+'----------------------------------------------------------------
+
+sub sAutopilot_Groupelement
+ Kontext "AutopilotGroupelement"
+ if AutopilotGroupelement.Exists then
+ printlog " -Autopilot-Group-Box Page 1"
+ Kontext "TabGroupBoxData"
+ Call DialogTest ( TabGroupBoxData )
+ Names.Settext "Optionsfeld 1"
+ if AddTo.IsEnabled then
+ AddTo.Click
+ else
+ Warnlog "Entry couldn't be overtaken in 1st Window of the Group Box-Autopilot!"
+ Kontext "AutopilotGroupelement"
+ CancelButton.Click
+ end if
+ Sleep 3
+ Kontext "AutopilotGroupelement"
+ if NextButton.IsEnabled then
+ NextButton.Click
+ else
+ Warnlog "In 1st Window the 'Next'-button is disabled!"
+ CancelButton.Click
+ end if
+ Sleep 3
+ printlog " -Autopilot-Group-Box Page 2"
+ Kontext "TabDefaultFieldSelection"
+ Call DialogTest ( TabDefaultFieldSelection )
+ Kontext "AutopilotGroupelement"
+ if NextButton.IsEnabled then
+ NextButton.Click
+ else
+ Warnlog "In 2nd Window the 'Next'-button is disabled!!"
+ AutopilotGroupelement.Cancel
+ end if
+ Sleep 3
+ printlog " -Autopilot-Group-Box Page 3"
+ Kontext "TabDatabaseValues"
+ Call DialogTest ( TabDatabaseValues )
+ Kontext "AutopilotGroupelement"
+ if NextButton.IsEnabled then
+ NextButton.Click
+ else
+ Warnlog "In 3rd Window the 'Next'-button is disabled!"
+ AutopilotGroupelement.Cancel
+ end if
+ Sleep 3
+ printlog " -Autopilot-Group-Box Page 4"
+ Kontext "TabCreateOptionGroup"
+ Call DialogTest ( TabCreateOptionGroup )
+ Kontext "AutopilotGroupelement"
+ if CreateButton.IsEnabled then
+ CreateButton.Click
+ else
+ Warnlog "In 4th Window the 'Create'-button is disabled!"
+ AutopilotGroupelement.Cancel
+ end if
+ else
+ Warnlog "- Autopilot for Group Box didn't appear!"
+ end if
+ Sleep 2
+end sub
+
+'----------------------------------------------------------------
+
+sub sAutopilot_ListboxCombobox(WhichBox as String)
+ Dim iCount as integer
+ iCount = 1
+ Kontext "AutoPilotListComboBox"
+ if AutoPilotListComboBox.Exists then
+ printlog " -Autopilot-Listbox Page 1"
+ Kontext "TabListBoxData"
+ if TabListboxData.Exists then
+ Call DialogTest( TabListBoxData )
+ DataSource.Select 1
+ Do
+ if iCount >= 15 then exit do
+ try
+ Table.Select 1
+ exit do
+ catch
+ wait 500
+ printlog " - attempt " & i & " to select table"
+ iCount = iCount + 1
+ endcatch
+ Loop
+
+ if Table.GetItemCount > 0 then
+ Table.Select 1
+ else
+ Kontext "Messagebox"
+ Do
+ if Messagebox.Exists then
+ Warnlog Messagebox.Gettext
+ Messagebox.Ok
+ else
+ Warnlog "No table selectable!"
+ exit do
+ end if
+ Loop
+ Kontext "AutoPilotListComboBox"
+ CancelButton.Click
+ exit sub
+ end if
+ end if
+ Sleep 5
+ Kontext "AutoPilotListComboBox"
+ if NextButton.IsEnabled then
+ NextButton.Click
+ printlog " -Autopilot-Listbox Page 2"
+ Kontext "TabTableSelection"
+ Call DialogTest ( TabTableSelection )
+ if TableSelection.GetItemCount > 0 then
+ TableSelection.Select 1
+ Kontext "AutoPilotListComboBox"
+ if NextButton.IsEnabled then
+ NextButton.Click
+ printlog " -Autopilot-Listbox Page 3"
+ Kontext "TabFieldSelection"
+ Call DialogTest ( TabFieldSelection )
+ ExistingFields.Select 1
+ Kontext "AutoPilotListComboBox"
+ if NextButton.IsEnabled then
+ NextButton.Click
+ Select Case Ucase(WhichBox)
+ Case "LISTBOX"
+ printlog " -Autopilot-Listbox Page 4"
+ Kontext "TabFieldLink"
+ Call DialogTest ( TabFieldLink )
+ Case "COMBO"
+ Kontext "TabDatabaseField"
+ Call DialogTest ( TabDatabaseField )
+ end select
+ Kontext "AutoPilotListComboBox"
+ CancelButton.Click
+ else
+ Warnlog "Next-Button on 3rd Tabpage disabled!"
+ CancelButton.Click
+ exit sub
+ end if
+ else
+ Warnlog "Next-Button on Second Tabpage disabled!"
+ CancelButton.Click
+ exit sub
+ end if
+ else
+ Warnlog "Unable to select table on second tabpage!"
+ CancelButton.Click
+ exit sub
+ end if
+ else
+ Warnlog "Next-Button on first Tabpage disabled!"
+ CancelButton.Click
+ Exit sub
+ end if
+ else
+ Warnlog "Autopilot is not up!"
+ end if
+end sub
+
+'----------------------------------------------------------------
+
+sub sAutopilotTableElement
+ Kontext "AutopilotTableElement"
+ if AutopilotTableElement.Exists then
+ Call DialogTest ( AutopilotTableElement )
+ Kontext "TabListBoxData"
+ if TabListboxData.Exists then
+ Call DialogTest( TabListBoxData )
+ DataSource.Select 1
+ if Table.GetItemCount > 0 then
+ Table.Select 1
+ else
+ Kontext "Messagebox"
+ if Messagebox.Exists then
+ Warnlog Messagebox.Gettext
+ Messagebox.Ok
+ else
+ Warnlog "No table selectable!"
+ end if
+ Kontext "AutopilotTableElement"
+ CancelButton.Click
+ exit sub
+ end if
+ end if
+ Kontext "AutopilotTableElement"
+ CancelButton.Click
+ else
+ Warnlog "Autopilot Table Element is not up"
+ end if
+end sub
+
+' *****************************************************
+' ************* Subroutines for Fields ****************
+' *****************************************************
+
+function uTabDokument as Integer
+ Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
+ Dim Zaehler
+ Dim AlterWert as String : Dim Naechster as String
+
+ printlog " - Tabpage Document"
+ try
+ Kontext
+ Active.SetPage TabDokumentFeldbefehle
+ Kontext "TabDokumentFeldbefehle"
+ for i=1 to Feldtyp.GetItemCount
+ Feldtyp.Select i
+ Sleep 1
+ if Formatliste.IsVisible then
+ if Formatliste.IsEnabled then
+ if Auswahl.IsEnabled then
+ for j=1 to Auswahl.GetItemCount
+ Auswahl.Select j
+ for k=1 to Formatliste.GetItemCount
+ Formatliste.Select k
+ Zaehler=Zaehler+1
+ Einfuegen.Click
+ next k
+ k=0
+ next j
+ j=0
+ else
+ for k=1 to Formatliste.GetItemCount
+ Formatliste.Select k
+ Zaehler=Zaehler+1
+ Einfuegen.Click
+ next k
+ k=0
+ end if
+ else
+ if Auswahl.IsEnabled then
+ for j=1 to Auswahl.GetItemCount
+ Auswahl.Select j
+ Zaehler=Zaehler+1
+ Einfuegen.Click
+ next j
+ j=0
+ end if
+ end if
+ else
+ if Zahlenformat.IsEnabled then
+ if Auswahl.IsEnabled then
+ for j=1 to Auswahl.GetItemCount
+ Auswahl.Select j
+ for k=1 to Zahlenformat.GetItemCount
+ Zahlenformat.Select k
+ BeseitigeTabZahlen
+ Zaehler=Zaehler+1
+ Einfuegen.Click
+ next k
+ k=0
+ next j
+ j=0
+ else
+ for k=1 to Zahlenformat.GetItemCount
+ Zahlenformat.Select k
+ BeseitigeTabZahlen
+ Zaehler=Zaehler+1
+ Einfuegen.Click
+ next k
+ k=0
+ end if
+ else
+ if Auswahl.IsEnabled then
+ for j=1 to Auswahl.GetItemCount
+ Auswahl.Select j
+ Zaehler=Zaehler+1
+ Einfuegen.Click
+ next j
+ j=0
+ end if
+ end if
+ end if
+ Sleep 1
+ next i
+ printlog " here are " + Zaehler + " Fields selectable"
+ catch
+ Exceptlog
+ Warnlog "Tabpage Document: Error in variant " + i + " " + j + " " + k
+ endcatch
+ uTabDokument = Zaehler
+end function
+
+' -----------------------------------------------------------------------
+
+function uTabReferenzen as Integer
+ Dim i : Dim Zaehler
+
+ printlog " - Tabpage Reference"
+ try
+ Zaehler = 0 : i=0
+ Kontext
+ Active.SetPage TabReferenzen
+ Kontext "TabReferenzen"
+ if NOT NameFeld.IsEnabled then Feldtyp.Select 2
+ NameFeld.SetText "Testtool"
+ TabReferenzen.OK
+ Feldtyp.Select 1
+ if NameFeld.IsEnabled then Feldtyp.Select 2
+ for i=1 to Formatliste.GetItemCount
+ Formatliste.Select i
+ Zaehler=Zaehler+1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ Sleep 1
+ next i
+ printlog " - here are " + Zaehler + " Fields selectable"
+ catch
+ Exceptlog
+ Warnlog "Tabpage References: Error in Listentry Type " + i
+ endcatch
+ uTabReferenzen = Zaehler
+end function
+
+' -----------------------------------------------------------------------
+
+function uTabFunktionen as Integer
+ Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
+ Dim Zaehler, x as integer
+ Dim weiter as Boolean
+ Dim AlterWert as String : Dim Naechster as String
+
+ printlog " - Tabpage Function"
+ try
+ Zaehler = 0 : i=0 : j=0 : k= 0
+ Kontext
+ Active.SetPage TabFunktionen
+ Kontext "TabFunktionen"
+ for i=1 to Feldtyp.GetItemCount
+ Feldtyp.Select i
+ weiter = TRUE
+ if Formatliste.IsVisible AND Formatliste.IsEnabled then
+ for j=1 to FormatListe.GetItemCount
+ FormatListe.Select j
+ Platzhalter.SetText "Ein"
+ Hinweis.SetText "Test"
+ Zaehler=Zaehler+1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ weiter = FALSE
+ next j
+ j=0
+ else
+ if Dann.IsVisible AND Dann.IsEnabled then
+ Bedingung.SetText "Hallo"
+ Dann.SetText "Ein"
+ Sonst.SetText "Test"
+ Zaehler=Zaehler+1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ weiter = FALSE
+ end if
+
+ if weiter = TRUE then
+ if ( Hinweis.IsVisible AND Hinweis.IsEnabled ) AND NOT Namefeld.IsEnabled then
+ Hinweis.SetText "Testtool"
+ Zaehler=Zaehler+1
+ Einfuegen.Click
+ Kontext "Eingabefeld"
+ if Eingabefeld.Exists then
+ Eingabefeld.OK
+ else
+ Warnlog "The textfield is missing in Variant " + i + " " + j + " " + k + " !"
+ end if
+ Kontext "TabFunktionen"
+ weiter = FALSE
+ end if
+ end if
+
+ if weiter = TRUE then
+ if MakroButton.IsEnabled then
+ MakroButton.Click
+ ' if no JRE is installed a messagebox appears
+ Do
+ x = x + 1
+ Kontext "Active"
+ if Active.Exists then
+ if Active.GetRT = 304 then
+ if x = 1 then Warnlog Active.Gettext
+ Active.Ok
+ else
+ exit do
+ end if
+ else
+ exit do
+ end if
+ Loop
+ Kontext "Makro"
+ if Ausfuehren.IsEnabled then
+ Ausfuehren.Click
+ else
+ Makro.Cancel
+ end if
+ Kontext "TabFunktionen"
+ Zaehler=Zaehler+1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ weiter = FALSE
+ end if
+ end if
+
+ if weiter = TRUE then
+ if Bedingung.IsEnabled AND TextEinfuegen.IsEnabled then
+ Bedingung.SetText "Ein"
+ TextEinfuegen.SetText "Test"
+ Zaehler=Zaehler+1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ weiter = FALSE
+ end if
+ end if
+
+ if weiter = TRUE then
+ if Bedingung.IsEnabled AND NOT Wert.IsEnabled then
+ Bedingung.SetText "Ein Test"
+ Zaehler=Zaehler+1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ weiter = FALSE
+ end if
+ end if
+ end if
+ Sleep 1
+ next i
+ printlog " - here are " + Zaehler + " Fields selectable"
+ catch
+ Exceptlog
+ Warnlog "Tabpage Functions: Error in entry type " + i + " " + j
+ endcatch
+ uTabFunktionen = Zaehler
+end function
+
+' -----------------------------------------------------------------------
+
+function uTabDokumentinfo as Integer
+ Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
+ Dim Zaehler
+ Dim AlterWert as String : Dim Naechster as String
+
+ printlog " - Tabpage DocInformation"
+ try
+ Zaehler = 0 : i=0 : j=0 : k= 0
+ Kontext
+ Active.SetPage TabDokumentInfoFeldbefehle
+ Kontext "TabDokumentInfoFeldbefehle"
+
+ for i=1 to 20
+ AlterWert = Feldtyp.GetText
+ Feldtyp.TypeKeys "<Down>"
+ Naechster = Feldtyp.GetText
+ Feldtyp.TypeKeys "<Up>"
+ Feldtyp.TypeKeys "<Add>"
+ Feldtyp.TypeKeys "<Down>"
+ if Feldtyp.GetText <> Naechster then NichtMachen=i
+ Feldtyp.TypeKeys "<Up>"
+ Feldtyp.TypeKeys "<Down>"
+ if Feldtyp.GetText = AlterWert then
+ Ende = i
+ i=21
+ end if
+ Sleep 1
+ next i
+ Feldtyp.TypeKeys "<Up>", Ende+1
+
+ i=0
+ for i=1 to Ende ' Alle Feldtypen
+ Sleep 1
+ if Auswahl.IsEnabled then
+ for j=1 to Auswahl.GetItemCount
+ Auswahl.Select j
+ if Zahlenformat.IsEnabled then
+ for k=1 to Zahlenformat.GetItemCount
+ Zahlenformat.Select k
+ Zaehler = Zaehler + 1
+ Kontext "TabZahlen"
+ if TabZahlen.Exists then TabZahlen.Cancel
+ Kontext "TabDokumentinfoFeldbefehle"
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ next k
+ k=0
+ else
+ Zaehler = Zaehler + 1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ end if
+ next j
+ j=0
+ else
+ if Zahlenformat.IsEnabled then
+ for k=1 to Zahlenformat.GetItemCount
+ Zahlenformat.Select k
+ Zaehler = Zaehler + 1
+ Kontext "TabZahlen"
+ if TabZahlen.Exists then TabZahlen.Cancel
+ Kontext "TabDokumentinfoFeldbefehle"
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ next k
+ k=0
+ else
+ Zaehler = Zaehler + 1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ end if
+ end if
+ if i = NichtMachen-1 then
+ Feldtyp.TypeKeys "<Down><Down>"
+ else
+ Feldtyp.TypeKeys "<Down>"
+ end if
+ Sleep 1
+ next i
+ printlog " - here are " + Zaehler + " Fields selectable"
+ catch
+ Exceptlog
+ Warnlog "Tabpage Variables: Error on type entry " + i + " " + j + " " + k
+ endcatch
+ uTabDokumentinfo = Zaehler
+end function
+
+' -----------------------------------------------------------------------
+
+function uTabVariablen as Integer
+ Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
+ Dim Zaehler
+ Dim AlterWert as String : Dim Naechster as String
+ printlog " - Tabpage Variables"
+
+ try
+ Zaehler = 0 : i=0 : j=0 : k=0
+ Kontext
+ Active.SetPage TabVariablen
+ Kontext "TabVariablen"
+
+ for i=1 to Feldtyp.GetItemCount
+ Feldtyp.Select i
+ if i=9 then
+ Feldtyp.TypeKeys "<Up>"
+ Feldtyp.TypeKeys "<Down>"
+ end if
+ if NameText.IsEnabled then NameText.SetText "Hallo"
+ if Wert.IsEnabled then Wert.SetText "189882"
+
+ if Auswahl.IsEnabled AND ( Formatliste.IsEnabled OR Zahlenformat.IsEnabled )then
+ for j=1 to Auswahl.GetItemCount
+ Auswahl.Select j
+ if FormatListe.IsVisible AND FormatListe.IsEnabled then
+ for k=1 to Formatliste.GetItemCount
+ Formatliste.Select k
+ Zaehler = Zaehler + 1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ next k
+ k=0
+ else
+ if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
+ for k=1 to Zahlenformat.GetItemCount
+ Zahlenformat.Select k
+ Zaehler = Zaehler + 1
+ Kontext "TabZahlen"
+ if TabZahlen.Exists then TabZahlen.OK
+ Kontext "TabVariablen"
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ Kontext "Eingabefeld"
+ if Eingabefeld.Exists then Eingabefeld.OK
+ Kontext "TabVariablen"
+ next k
+ k=0
+ end if
+ end if
+ next j
+ j=0
+ else
+ if FormatListe.IsVisible AND FormatListe.IsEnabled then
+ for k=1 to Formatliste.GetItemCount
+ Formatliste.Select k
+ Zaehler = Zaehler + 1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ Kontext "TabZahlen"
+ if TabZahlen.Exists then TabZahlen.OK
+ Kontext "TabVariablen"
+ next k
+ k=0
+ else
+ if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
+ for k=1 to Zahlenformat.GetItemCount
+ Zahlenformat.Select k
+ Zaehler = Zaehler + 1
+ Kontext "TabZahlen"
+ if TabZahlen.Exists then TabZahlen.OK
+ Kontext "TabVariablen"
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ Kontext "Eingabefeld"
+ if Eingabefeld.Exists then Eingabefeld.OK
+ Kontext "TabVariablen"
+ next k
+ k=0
+ end if
+ end if
+ end if
+ Sleep 1
+ next i
+ i=0
+ printlog " - here are " + Zaehler + " Fields selectable"
+ catch
+ Exceptlog
+ Warnlog "Tabpage Variables: Error on entry type" + i + " " + j + " " + k
+ endcatch
+ uTabVariablen = Zaehler
+end function
+
+' -----------------------------------------------------------------------
+
+function uTabDatenbank as Integer
+ Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
+ Dim Zaehler
+ Dim AlterWert as String : Dim Naechster as String
+
+ printlog " - Tabpage Database"
+ try
+ Zaehler = 0 : i=0 : j=0 : k= 0
+ Kontext
+ Active.SetPage TabDatenbank
+ Kontext "TabDatenbank"
+
+ Datenbankauswahl.TypeKeys "<Up>", 5
+ for i=1 to Feldtyp.GetItemCount
+ j=0 : k=0
+ Feldtyp.Select i
+ if Satznummer.IsEnabled then Satznummer.SetText "Na_mal_sehen"
+ for j=1 to 20
+ AlterWert = Datenbankauswahl.GetText
+ if j=1 then
+ Datenbankauswahl.TypeKeys "<Add>"
+ Datenbankauswahl.TypeKeys "<Down>"
+ Datenbankauswahl.TypeKeys "<Add>"
+ Datenbankauswahl.TypeKeys "<Down>"
+ else
+ Datenbankauswahl.TypeKeys "<Down>"
+ end if
+ if Datenbankauswahl.GetText = AlterWert then
+ if j=1 then printlog "Address book contains no data"
+ j=21
+ else
+ if Selbstdefiniert.IsEnabled AND Selbstdefiniert.IsChecked then
+ for k=1 to Formatliste.GetItemCount
+ Formatliste.Select k
+ Zaehler = Zaehler + 1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ next k
+ else
+ Zaehler = Zaehler + 1
+ if Einfuegen.IsEnabled then Einfuegen.Click
+ end if
+ end if
+ next j
+ Datenbankauswahl.TypeKeys "<up>", 20
+ Sleep 1
+ next i
+
+ printlog " - here are " + Zaehler + " Fields selectable"
+ catch
+ Exceptlog
+ Warnlog "Tabpage Database: Error on field entry " + i + " " + j + " " + k
+ endcatch
+ uTabDatenbank = Zaehler
+end function
+
+' -----------------------------------------------------------------------
+
+sub BeseitigeTabZahlen
+ Kontext "TabZahlen"
+ if TabZahlen.Exists then TabZahlen.Cancel
+ Kontext "TabDokumentFeldbefehle"
+end sub
generated by cgit (git 2.34.1) at 2024-06-14 21:50:35 +0000