path: root/testautomation/writer/tools/includes/w_tool1.inc

'*******************************************************************************
' 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 "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 "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