testautomation/writer/tools/includes/w_tool1.inc

   1 '*******************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: w_tool1.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:43:01 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/******************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description : Put description here
  36 '*
  37 ' \*****************************************************************************
  38
  39 sub hInhalte
  40
  41     Dim Anzahl as Integer
  42     Dim i as Integer
  43
  44     if ( hUseAsyncSlot( "EditCut" ) = -1 ) then
  45         Warnlog "Unable to execute 'Edit / Cut'!. Maybe object not selected!"
  46         exit sub
  47     endif
  48
  49     Sleep 1
  50     Call gMouseClick ( 99,80 )
  51     Sleep 1
  52
  53     hUseAsyncSlot( "EditPasteSpecialWriter" )
  54
  55     Kontext "InhaltEinfuegen"
  56     if ( InhaltEinfuegen.exists( 1 ) ) then
  57         Anzahl = Auswahl.GetItemCount
  58         for i = 1 to Anzahl
  59             Auswahl.Select i
  60             InhaltEinfuegen.OK
  61
  62             if ( hUseAsyncSlot( "EditDeleteContents" ) = -1 ) then
  63                 Warnlog "Unable to execute Edit / Delete / Contents ! Entry: " + i
  64             else
  65                 Call gMouseClick ( 99,80 )
  66                 if ( hUseAsyncSlot( "EditPasteSpecialWriter" ) = -1 ) then
  67                     warnlog "Unable to execute Edit / Paste / Special!"
  68                 endif
  69             endif
  70             Kontext "InhaltEinfuegen"
  71         next i
  72         InhaltEinfuegen.Cancel
  73     else
  74         warnlog( "Dialog <InhaltEinfuegen> is not available" )
  75     endif
  76 end sub
  77
  78 ' -----------------------------------------------------------------------
  79
  80 sub hObjektmalen
  81     Kontext "DocumentWriter"
  82     DocumentWriter.MouseDown 35, 25
  83     DocumentWriter.MouseMove 70, 60
  84     DocumentWriter.MouseUp 70, 60
  85     Sleep 1
  86 end sub
  87
  88 ' -----------------------------------------------------------------------
  89
  90 sub hClipboarden
  91
  92     if ( hUseAsyncSlot( "EditCut" ) = -1 ) then
  93         Warnlog "Unable to Cut object. 'Edit / Cut' is disabled!"
  94         exit sub
  95     endif
  96
  97     Call wTypeKeys "<Escape>"
  98     hUseAsyncSlot( "EditPaste" )
  99
 100     hUseAsyncSlot( "EditCopy" )
 101     Call wTypeKeys "<Escape>"
 102
 103     hUseAsyncSlot( "EditPaste" )
 104
 105     Call wTypeKeys "<Delete>"
 106     WaitSlot() ' NOOP
 107     Call wTypeKeys "<Escape>"
 108     WaitSlot() ' NOOP
 109 end sub
 110
 111 ' -----------------------------------------------------------------------
 112
 113 sub FeldbefehlAendernUndKontrollieren ( Selektion as Integer )
 114
 115     Dim Merk_dir_das as String
 116
 117     Call wTypeKeys "<Left>"
 118     EditFields
 119     Kontext "FeldbefehlBearbeitenDokument"
 120     if ( FeldbefehlBearbeitenDokument.exists( 1 ) ) then
 121         if Formatliste.IsVisible AND Formatliste.IsEnabled then
 122             Formatliste.Select Selektion
 123             Merk_dir_das=Formatliste.GetSelText
 124         else
 125             if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
 126                 Zahlenformat.Select Selektion
 127                 Merk_dir_das=Zahlenformat.GetSelText
 128             else
 129                 Auswahl.Select 2
 130             end if
 131         end if
 132         FeldbefehlBearbeitenDokument.OK
 133     else
 134         warnlog( "Dialog <FeldbefehlBearbeitenDokument> not available" )
 135     endif
 136
 137     EditFields
 138     Kontext "FeldbefehlBearbeitenDokument"
 139     if ( FeldbefehlBearbeitenDokument.exists( 1 ) ) then
 140         if Formatliste.IsVisible AND Formatliste.IsEnabled then
 141             if Formatliste.GetSelText <> Merk_dir_das then Warnlog "Changing the field has not been worked. Format " + Merk_dir_das + "   Is : Format " + Formatliste.GetSelText
 142         else
 143             if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
 144                 if Zahlenformat.GetSelText <> Merk_dir_das then Warnlog "Changing the field has not been worked. Format " + Merk_dir_das + "   Is : Format " + Zahlenformat.GetSelText
 145             else
 146                 if Auswahl.GetSelIndex <> 2 then Warnlog "Changing the field has not been worked."
 147             end if
 148         end if
 149         FeldbefehlBearbeitenDokument.OK
 150     else
 151         warnlog( "Dialog <FeldbefehlBearbeitenDokument> not available" )
 152     endif
 153     Call wTypeKeys "<End>"
 154     WaitSlot() ' NOOP
 155     Call wTypeKeys "<Return>"
 156 end sub
 157
 158 ' -----------------------------------------------------------------------
 159
 160 sub hEinfuegenFloatingFrame
 161
 162     InsertFloatingFrame
 163     Kontext "TabEigenschaften"
 164     FrameName.SetText "Hallo"
 165     Inhalt.SetText ConvertPath ( gTesttoolpath + "input\desktop\frameset.htm" )
 166     TabEigenschaften.OK
 167     Sleep 10
 168
 169 end sub
 170
 171 ' -----------------------------------------------------------------------
 172
 173 sub hEinfuegenRahmen
 174     InsertFrame
 175     Kontext
 176     Active.SetPage TabType
 177     Kontext "TabType"
 178     TabType.OK
 179     Sleep 3
 180 end sub
 181
 182 ' -----------------------------------------------------------------------
 183
 184 sub hEinfuegenChart
 185     InsertObjectChart
 186     Kontext "AutoformatDiagramm1"
 187     Fertigstellen.Click
 188     WaitSlot() ' NOOP
 189 end sub
 190
 191 ' -----------------------------------------------------------------------
 192
 193 sub hLegendeEinfugen
 194     Kontext "Toolbar"
 195     Zeichnen.TearOff
 196     Kontext "Drawbar"
 197     Sleep 2
 198     Legende.Click
 199     Kontext "DocumentWriter"
 200     DocumentWriter.MouseDown 20, 20
 201     DocumentWriter.MouseMove 40, 40
 202     DocumentWriter.MouseUp 40, 40
 203     Kontext "Drawbar"
 204     Drawbar.Close
 205 end sub
 206
 207 ' -----------------------------------------------------------------------
 208
 209 sub wWriterKickBoxAway
 210     ' Call this routine if you don't expect a messagebox
 211     ' expect on an error. Closes messagebox and gives a Warnlog
 212     Kontext "Active"
 213     if Active.Exists then
 214         if Active.GetRT = 304 then
 215             Warnlog Active.Gettext
 216             try
 217                 Active.Ok
 218             catch
 219                 Active.Yes
 220             endcatch
 221         end if
 222     end if
 223 end sub
 224
 225 '----------------------------------------------------------------
 226
 227 sub tCheckAutotextInGroup(NumberOff as integer, NumberVariant as integer)
 228     Dim j as integer
 229     for j = 1 to NumberOff
 230         Liste.Select j + NumberVariant
 231         printlog "- " & Liste.GetSelText
 232         Wait 500
 233         try
 234             AutoText.Ok
 235             Wait 100
 236             Kontext "Active"    ' Messagebox bei Basic-Fehler
 237             if Active.Exists then
 238                 Warnlog Active.Gettext + "Group " + NumberVariant + " Entry " + j
 239                 Active.Ok
 240             end if
 241             wait 500
 242             Kontext "Eingabefeld"
 243             if Eingabefeld.Exists then Eingabefeld.Cancel
 244             wait 500
 245             Call wTypeKeys "<Mod1 a>"
 246             EditCopy
 247             if GetClipboard = "" then Warnlog "No autotext inserted. Variant: "+ NumberVariant + "  " + j
 248         catch
 249             Warnlog "Variant "+ NumberVariant + " " + j +" has a Problem."
 250         endcatch
 251         Call wTypeKeys "<Delete>"  ' only text
 252         Call wMarkObjects(TRUE)
 253         EditAutotext
 254         Kontext "Active"
 255         if active.Exists then
 256             QAErrorlog Active.Gettext
 257             Active.Ok
 258         end if
 259         Kontext "AutoText"
 260         if not Vorschau_anzeigen.IsChecked then Warnlog "Preview isn't checked anymore!"
 261     next j
 262 end sub
 263
 264 '----------------------------------------------------------------
 265
 266 sub hMalZeichnenMitSelektion ( xS, yS, xE, yE )
 267     Select Case gApplication
 268     Case "WRITER"
 269         Kontext "DocumentWriter"
 270         DocumentWriter.MouseDown ( xS, yS )
 271         DocumentWriter.MouseMove ( xE, yE )
 272         DocumentWriter.MouseUp   ( xE, yE )
 273
 274     Case "HTML"
 275         Kontext "DocumentWriterWeb"
 276         DocumentWriterWeb.MouseDown ( xS, yS )
 277         DocumentWriterWeb.MouseMove ( xE, yE )
 278         DocumentWriterWeb.MouseUp   ( xE, yE )
 279
 280     Case "MASTERDOCUMENT"
 281         Kontext "DocumentMasterDoc"
 282         DocumentMasterDoc.MouseDown ( xS, yS )
 283         DocumentMasterDoc.MouseMove ( xE, yE )
 284         DocumentMasterDoc.MouseUp   ( xE, yE )
 285
 286     end select
 287     WaitSlot() ' NOOP
 288 end sub
 289
 290 '----------------------------------------------------------------
 291
 292 sub hMalZeichnen ( xS, yS, xE, yE )
 293     Select Case gApplication
 294     Case "WRITER"
 295         Kontext "DocumentWriter"
 296         DocumentWriter.MouseDown ( xS, yS )
 297         DocumentWriter.MouseMove ( xE, yE )
 298         DocumentWriter.MouseUp   ( xE, yE )
 299         WaitSlot() ' NOOP
 300         if DocumentWriter.IsEnabled then Call wTypeKeys "<Escape>"
 301
 302     Case "HTML"
 303         Kontext "DocumentWriterWeb"
 304         DocumentWriterWeb.MouseDown ( xS, yS )
 305         DocumentWriterWeb.MouseMove ( xE, yE )
 306         DocumentWriterWeb.MouseUp   ( xE, yE )
 307         WaitSlot() ' NOOP
 308         if DocumentWriterWeb.IsEnabled then DocumentWriterWeb.TypeKeys "<Escape>"
 309
 310     Case "MASTERDOCUMENT"
 311         Kontext "DocumentMasterDoc"
 312         DocumentMasterDoc.MouseDown ( xS, yS )
 313         DocumentMasterDoc.MouseMove ( xE, yE )
 314         DocumentMasterDoc.MouseUp   ( xE, yE )
 315         WaitSlot() ' NOOP
 316         if DocumentMasterDoc.IsEnabled then DocumentMasterDoc.TypeKeys "<Escape>"
 317
 318     end select
 319 end sub
 320
 321 '----------------------------------------------------------------
 322
 323 sub sMenufunktionen(Fuer_Was as string)
 324     Dim i as integer
 325
 326     Kontext "FormControls"
 327     Sleep 3
 328     for i = 1 to 20
 329         if ControlProperties.IsEnabled then
 330             ControlProperties.Click          ' Formularfunktion über Toolbox abschalten
 331             i=21
 332         else
 333             Sleep 1
 334             if i >= 20 then
 335                 if gPlatform = "osx" then
 336                     Warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything"
 337                 else
 338                     Warnlog "Button (" + i + ")" + Fuer_Was + " is disabled "
 339                 end if
 340             end if
 341         end if
 342     next i
 343
 344     Kontext
 345     try
 346         FormatControl
 347         Sleep 1
 348         Kontext "ControlPropertiesDialog"
 349         if ControlPropertiesDialog.Exists then
 350             ControlPropertiesDialog.Close
 351         else
 352             FormatControl
 353             Wait 500
 354             Kontext "ControlPropertiesDialog"
 355             if ControlPropertiesDialog.Exists then
 356                 ControlPropertiesDialog.Close
 357             else
 358                 Warnlog "  - Controlfieldproperties "+ Fuer_Was +" from Menu not available!"
 359             end if
 360         end if
 361         printlog Fuer_Was
 362     catch
 363         if gPlatform = "osx" then
 364             Warnlog "#i82427#-Mac OS X (Aqua): Drawing function does not draw anything"
 365         else
 366             Warnlog "  - Controlfieldproperties "+ Fuer_Was +" from Menu not available!"
 367         end if
 368     endcatch
 369
 370     Call wTypeKeys "<Escape>"
 371     Kontext "FormControls"
 372 end sub
 373
 374 '----------------------------------------------------------------
 375
 376 sub sAutopilot_Groupelement
 377     Kontext "AutopilotGroupelement"
 378     if AutopilotGroupelement.Exists then
 379         printlog "  -Autopilot-Group-Box Page 1"
 380         Kontext "TabGroupBoxData"
 381         Call DialogTest ( TabGroupBoxData )
 382         Names.Settext "Optionsfeld 1"
 383         if AddTo.IsEnabled then
 384             AddTo.Click
 385         else
 386             Warnlog "Entry couldn't be overtaken in 1st Window of the Group Box-Autopilot!"
 387             Kontext "AutopilotGroupelement"
 388             CancelButton.Click
 389         end if
 390         Sleep 3
 391         Kontext "AutopilotGroupelement"
 392         if NextButton.IsEnabled then
 393             NextButton.Click
 394         else
 395             Warnlog "In 1st Window the 'Next'-button is disabled!"
 396             CancelButton.Click
 397         end if
 398         Sleep 3
 399         printlog "  -Autopilot-Group-Box Page 2"
 400         Kontext "TabDefaultFieldSelection"
 401         Call DialogTest ( TabDefaultFieldSelection )
 402         Kontext "AutopilotGroupelement"
 403         if NextButton.IsEnabled then
 404             NextButton.Click
 405         else
 406             Warnlog "In 2nd Window the 'Next'-button is disabled!!"
 407             AutopilotGroupelement.Cancel
 408         end if
 409         Sleep 3
 410         printlog "  -Autopilot-Group-Box Page 3"
 411         Kontext "TabDatabaseValues"
 412         Call DialogTest ( TabDatabaseValues )
 413         Kontext "AutopilotGroupelement"
 414         if NextButton.IsEnabled then
 415             NextButton.Click
 416         else
 417             Warnlog "In 3rd Window the 'Next'-button is disabled!"
 418             AutopilotGroupelement.Cancel
 419         end if
 420         Sleep 3
 421         printlog "  -Autopilot-Group-Box Page 4"
 422         Kontext "TabCreateOptionGroup"
 423         Call DialogTest ( TabCreateOptionGroup )
 424         Kontext "AutopilotGroupelement"
 425         if CreateButton.IsEnabled then
 426             CreateButton.Click
 427         else
 428             Warnlog "In 4th Window the 'Create'-button is disabled!"
 429             AutopilotGroupelement.Cancel
 430         end if
 431     else
 432         Warnlog "- Autopilot for Group Box didn't appear!"
 433     end if
 434     Sleep 2
 435 end sub
 436
 437 '----------------------------------------------------------------
 438
 439 sub sAutopilot_ListboxCombobox(WhichBox as String)
 440     Kontext "AutoPilotListComboBox"
 441     if AutoPilotListComboBox.Exists then
 442         printlog "  -Autopilot-Listbox Page 1"
 443         Kontext "TabListBoxData"
 444         if TabListboxData.Exists then
 445             Call DialogTest( TabListBoxData )
 446             DataSource.Select 1
 447             if Table.GetItemCount > 0 then
 448                 Table.Select 1
 449             else
 450                 Kontext "Messagebox"
 451                 Do
 452                     if Messagebox.Exists then
 453                         Warnlog Messagebox.Gettext
 454                         Messagebox.Ok
 455                     else
 456                         Warnlog "No table selectable!"
 457                         exit do
 458                     end if
 459                 Loop
 460                 Kontext "AutoPilotListComboBox"
 461                 CancelButton.Click
 462                 exit sub
 463             end if
 464         end if
 465         Sleep 5
 466         Kontext "AutoPilotListComboBox"
 467         if NextButton.IsEnabled then
 468             NextButton.Click
 469             printlog "  -Autopilot-Listbox Page 2"
 470             Kontext "TabTableSelection"
 471             Call DialogTest ( TabTableSelection )
 472             if TableSelection.GetItemCount > 0 then
 473                 TableSelection.Select 1
 474                 Kontext "AutoPilotListComboBox"
 475                 if NextButton.IsEnabled then
 476                     NextButton.Click
 477                     printlog "  -Autopilot-Listbox Page 3"
 478                     Kontext "TabFieldSelection"
 479                     Call DialogTest ( TabFieldSelection )
 480                     ExistingFields.Select 1
 481                     Kontext "AutoPilotListComboBox"
 482                     if NextButton.IsEnabled then
 483                         NextButton.Click
 484                         Select Case Ucase(WhichBox)
 485                         Case "LISTBOX"
 486                             printlog "  -Autopilot-Listbox Page 4"
 487                             Kontext "TabFieldLink"
 488                             Call DialogTest ( TabFieldLink )
 489                         Case "COMBO"
 490                             Kontext "TabDatabaseField"
 491                             Call DialogTest ( TabDatabaseField )
 492                         end select
 493                         Kontext "AutoPilotListComboBox"
 494                         CancelButton.Click
 495                     else
 496                         Warnlog "Next-Button on 3rd Tabpage disabled!"
 497                         CancelButton.Click
 498                         exit sub
 499                     end if
 500                 else
 501                     Warnlog "Next-Button on Second Tabpage disabled!"
 502                     CancelButton.Click
 503                     exit sub
 504                 end if
 505             else
 506                 Warnlog "Unable to select table on second tabpage!"
 507                 CancelButton.Click
 508                 exit sub
 509             end if
 510         else
 511             Warnlog "Next-Button on first Tabpage disabled!"
 512             CancelButton.Click
 513             Exit sub
 514         end if
 515     else
 516         Warnlog "Autopilot is not up!"
 517     end if
 518 end sub
 519
 520 '----------------------------------------------------------------
 521
 522 sub sAutopilotTableElement
 523     Kontext "AutopilotTableElement"
 524     if AutopilotTableElement.Exists then
 525         Call DialogTest ( AutopilotTableElement )
 526         Kontext "TabListBoxData"
 527         if TabListboxData.Exists then
 528             Call DialogTest( TabListBoxData )
 529             DataSource.Select 1
 530             if Table.GetItemCount > 0 then
 531                 Table.Select 1
 532             else
 533                 Kontext "Messagebox"
 534                 if Messagebox.Exists then
 535                     Warnlog Messagebox.Gettext
 536                     Messagebox.Ok
 537                 else
 538                     Warnlog "No table selectable!"
 539                 end if
 540                 Kontext "AutopilotTableElement"
 541                 CancelButton.Click
 542                 exit sub
 543             end if
 544         end if
 545         Kontext "AutopilotTableElement"
 546         CancelButton.Click
 547     else
 548         Warnlog "Autopilot Table Element is not up"
 549     end if
 550 end sub
 551
 552 ' *****************************************************
 553 ' ************* Subroutines for Fields ****************
 554 ' *****************************************************
 555
 556 function uTabDokument as Integer
 557     Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
 558     Dim Zaehler
 559     Dim AlterWert as String : Dim Naechster as String
 560
 561     printlog "  - Tabpage Document"
 562     try
 563         Kontext
 564         Active.SetPage TabDokumentFeldbefehle
 565         Kontext "TabDokumentFeldbefehle"
 566         for i=1 to Feldtyp.GetItemCount
 567             Feldtyp.Select i
 568             Sleep 1
 569             if Formatliste.IsVisible then
 570                 if Formatliste.IsEnabled then
 571                     if Auswahl.IsEnabled then
 572                         for j=1 to Auswahl.GetItemCount
 573                             Auswahl.Select j
 574                             for k=1 to Formatliste.GetItemCount
 575                                 Formatliste.Select k
 576                                 Zaehler=Zaehler+1
 577                                 Einfuegen.Click
 578                             next k
 579                             k=0
 580                         next j
 581                         j=0
 582                     else
 583                         for k=1 to Formatliste.GetItemCount
 584                             Formatliste.Select k
 585                             Zaehler=Zaehler+1
 586                             Einfuegen.Click
 587                         next k
 588                         k=0
 589                     end if
 590                 else
 591                     if Auswahl.IsEnabled then
 592                         for j=1 to Auswahl.GetItemCount
 593                             Auswahl.Select j
 594                             Zaehler=Zaehler+1
 595                             Einfuegen.Click
 596                         next j
 597                         j=0
 598                     end if
 599                 end if
 600             else
 601                 if Zahlenformat.IsEnabled then
 602                     if Auswahl.IsEnabled then
 603                         for j=1 to Auswahl.GetItemCount
 604                             Auswahl.Select j
 605                             for k=1 to Zahlenformat.GetItemCount
 606                                 Zahlenformat.Select k
 607                                 BeseitigeTabZahlen
 608                                 Zaehler=Zaehler+1
 609                                 Einfuegen.Click
 610                             next k
 611                             k=0
 612                         next j
 613                         j=0
 614                     else
 615                         for k=1 to Zahlenformat.GetItemCount
 616                             Zahlenformat.Select k
 617                             BeseitigeTabZahlen
 618                             Zaehler=Zaehler+1
 619                             Einfuegen.Click
 620                         next k
 621                         k=0
 622                     end if
 623                 else
 624                     if Auswahl.IsEnabled then
 625                         for j=1 to Auswahl.GetItemCount
 626                             Auswahl.Select j
 627                             Zaehler=Zaehler+1
 628                             Einfuegen.Click
 629                         next j
 630                         j=0
 631                     end if
 632                 end if
 633             end if
 634             Sleep 1
 635         next i
 636         printlog "    here are " + Zaehler + " Fields selectable"
 637     catch
 638         Exceptlog
 639         Warnlog "Tabpage Document: Error in variant " + i + "  " + j + "  " + k
 640     endcatch
 641     uTabDokument = Zaehler
 642 end function
 643
 644 ' -----------------------------------------------------------------------
 645
 646 function uTabReferenzen as Integer
 647     Dim i : Dim Zaehler
 648
 649     printlog "  - Tabpage Reference"
 650     try
 651         Zaehler = 0 : i=0
 652         Kontext
 653         Active.SetPage TabReferenzen
 654         Kontext "TabReferenzen"
 655         if NOT NameFeld.IsEnabled then Feldtyp.Select 2
 656         NameFeld.SetText "Testtool"
 657         TabReferenzen.OK
 658         Feldtyp.Select 1
 659         if NameFeld.IsEnabled then Feldtyp.Select 2
 660         for i=1 to Formatliste.GetItemCount
 661             Formatliste.Select i
 662             Zaehler=Zaehler+1
 663             if Einfuegen.IsEnabled then Einfuegen.Click
 664             Sleep 1
 665         next i
 666         printlog "  - here are " + Zaehler + " Fields selectable"
 667     catch
 668         Exceptlog
 669         Warnlog "Tabpage References: Error in Listentry Type " + i
 670     endcatch
 671     uTabReferenzen = Zaehler
 672 end function
 673
 674 ' -----------------------------------------------------------------------
 675
 676 function uTabFunktionen as Integer
 677     Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
 678     Dim Zaehler, x as integer
 679     Dim weiter as Boolean
 680     Dim AlterWert as String : Dim Naechster as String
 681
 682     printlog "  - Tabpage Function"
 683     try
 684         Zaehler = 0 : i=0 : j=0 : k= 0
 685         Kontext
 686         Active.SetPage TabFunktionen
 687         Kontext "TabFunktionen"
 688         for i=1 to Feldtyp.GetItemCount
 689             Feldtyp.Select i
 690             weiter = TRUE
 691             if Formatliste.IsVisible AND Formatliste.IsEnabled then
 692                 for j=1 to FormatListe.GetItemCount
 693                     FormatListe.Select j
 694                     Platzhalter.SetText "Ein"
 695                     Hinweis.SetText "Test"
 696                     Zaehler=Zaehler+1
 697                     if Einfuegen.IsEnabled then Einfuegen.Click
 698                     weiter = FALSE
 699                 next j
 700                 j=0
 701             else
 702                 if Dann.IsVisible AND Dann.IsEnabled then
 703                     Bedingung.SetText "Hallo"
 704                     Dann.SetText "Ein"
 705                     Sonst.SetText "Test"
 706                     Zaehler=Zaehler+1
 707                     if Einfuegen.IsEnabled then Einfuegen.Click
 708                     weiter = FALSE
 709                 end if
 710
 711                 if weiter = TRUE then
 712                     if ( Hinweis.IsVisible AND Hinweis.IsEnabled ) AND NOT Namefeld.IsEnabled then
 713                         Hinweis.SetText "Testtool"
 714                         Zaehler=Zaehler+1
 715                         Einfuegen.Click
 716                         Kontext "Eingabefeld"
 717                         if Eingabefeld.Exists then
 718                             Eingabefeld.OK
 719                         else
 720                             Warnlog "The textfield is missing in Variant " + i + " " + j + " " + k + " !"
 721                         end if
 722                         Kontext "TabFunktionen"
 723                         weiter = FALSE
 724                     end if
 725                 end if
 726
 727                 if weiter = TRUE then
 728                     if MakroButton.IsEnabled then
 729                         MakroButton.Click
 730                         ' if no JRE is installed a messagebox appears
 731                         Do
 732                             x = x + 1
 733                             Kontext "Active"
 734                             if Active.Exists then
 735                                 if Active.GetRT = 304 then
 736                                     if x = 1 then Warnlog Active.Gettext
 737                                     Active.Ok
 738                                 else
 739                                     exit do
 740                                 end if
 741                             else
 742                                 exit do
 743                             end if
 744                         Loop
 745                         Kontext "Makro"
 746                         if Ausfuehren.IsEnabled then
 747                             Ausfuehren.Click
 748                         else
 749                             Makro.Cancel
 750                         end if
 751                         Kontext "TabFunktionen"
 752                         Zaehler=Zaehler+1
 753                         if Einfuegen.IsEnabled then Einfuegen.Click
 754                         weiter = FALSE
 755                     end if
 756                 end if
 757
 758                 if weiter = TRUE then
 759                     if Bedingung.IsEnabled AND TextEinfuegen.IsEnabled then
 760                         Bedingung.SetText "Ein"
 761                         TextEinfuegen.SetText "Test"
 762                         Zaehler=Zaehler+1
 763                         if Einfuegen.IsEnabled then Einfuegen.Click
 764                         weiter = FALSE
 765                     end if
 766                 end if
 767
 768                 if weiter = TRUE then
 769                     if Bedingung.IsEnabled AND NOT Wert.IsEnabled then
 770                         Bedingung.SetText "Ein Test"
 771                         Zaehler=Zaehler+1
 772                         if Einfuegen.IsEnabled then Einfuegen.Click
 773                         weiter = FALSE
 774                     end if
 775                 end if
 776             end if
 777             Sleep 1
 778         next i
 779         printlog "  - here are " + Zaehler + " Fields selectable"
 780     catch
 781         Exceptlog
 782         Warnlog "Tabpage Functions: Error in entry type " + i + " "  + j
 783     endcatch
 784     uTabFunktionen = Zaehler
 785 end function
 786
 787 ' -----------------------------------------------------------------------
 788
 789 function uTabDokumentinfo as Integer
 790     Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
 791     Dim Zaehler
 792     Dim AlterWert as String : Dim Naechster as String
 793
 794     printlog "  - Tabpage DocInformation"
 795     try
 796         Zaehler = 0 : i=0 : j=0 : k= 0
 797         Kontext
 798         Active.SetPage TabDokumentInfoFeldbefehle
 799         Kontext "TabDokumentInfoFeldbefehle"
 800
 801         for i=1 to 20
 802             AlterWert = Feldtyp.GetText
 803             Feldtyp.TypeKeys "<Down>"
 804             Naechster = Feldtyp.GetText
 805             Feldtyp.TypeKeys "<Up>"
 806             Feldtyp.TypeKeys "<Add>"
 807             Feldtyp.TypeKeys "<Down>"
 808             if Feldtyp.GetText <> Naechster then NichtMachen=i
 809             Feldtyp.TypeKeys "<Up>"
 810             Feldtyp.TypeKeys "<Down>"
 811             if Feldtyp.GetText = AlterWert then
 812                 Ende = i
 813                 i=21
 814             end if
 815             Sleep 1
 816         next i
 817         Feldtyp.TypeKeys "<Up>", Ende+1
 818
 819         i=0
 820         for i=1 to Ende         ' Alle Feldtypen
 821             Sleep 1
 822             if Auswahl.IsEnabled then
 823                 for j=1 to Auswahl.GetItemCount
 824                     Auswahl.Select j
 825                     if Zahlenformat.IsEnabled then
 826                         for k=1 to Zahlenformat.GetItemCount
 827                             Zahlenformat.Select k
 828                             Zaehler = Zaehler + 1
 829                             Kontext "TabZahlen"
 830                             if TabZahlen.Exists then TabZahlen.Cancel
 831                             Kontext "TabDokumentinfoFeldbefehle"
 832                             if Einfuegen.IsEnabled then Einfuegen.Click
 833                         next k
 834                         k=0
 835                     else
 836                         Zaehler = Zaehler + 1
 837                         if Einfuegen.IsEnabled then Einfuegen.Click
 838                     end if
 839                 next j
 840                 j=0
 841             else
 842                 if Zahlenformat.IsEnabled then
 843                     for k=1 to Zahlenformat.GetItemCount
 844                         Zahlenformat.Select k
 845                         Zaehler = Zaehler + 1
 846                         Kontext "TabZahlen"
 847                         if TabZahlen.Exists then TabZahlen.Cancel
 848                         Kontext "TabDokumentinfoFeldbefehle"
 849                         if Einfuegen.IsEnabled then Einfuegen.Click
 850                     next k
 851                     k=0
 852                 else
 853                     Zaehler = Zaehler + 1
 854                     if Einfuegen.IsEnabled then Einfuegen.Click
 855                 end if
 856             end if
 857             if i = NichtMachen-1 then
 858                 Feldtyp.TypeKeys "<Down><Down>"
 859             else
 860                 Feldtyp.TypeKeys "<Down>"
 861             end if
 862             Sleep 1
 863         next i
 864         printlog "  - here are " + Zaehler + " Fields selectable"
 865     catch
 866         Exceptlog
 867         Warnlog "Tabpage Variables: Error on type entry " + i + " " + j + " " + k
 868     endcatch
 869     uTabDokumentinfo = Zaehler
 870 end function
 871
 872 ' -----------------------------------------------------------------------
 873
 874 function uTabVariablen as Integer
 875     Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
 876     Dim Zaehler
 877     Dim AlterWert as String : Dim Naechster as String
 878     printlog "  - Tabpage Variables"
 879
 880     try
 881         Zaehler = 0 : i=0 : j=0 : k=0
 882         Kontext
 883         Active.SetPage TabVariablen
 884         Kontext "TabVariablen"
 885
 886         for i=1 to Feldtyp.GetItemCount
 887             Feldtyp.Select i
 888             if i=9 then
 889                 Feldtyp.TypeKeys "<Up>"
 890                 Feldtyp.TypeKeys "<Down>"
 891             end if
 892             if NameText.IsEnabled then NameText.SetText "Hallo"
 893             if Wert.IsEnabled then Wert.SetText "189882"
 894
 895             if Auswahl.IsEnabled AND ( Formatliste.IsEnabled OR Zahlenformat.IsEnabled )then
 896                 for j=1 to Auswahl.GetItemCount
 897                     Auswahl.Select j
 898                     if FormatListe.IsVisible AND FormatListe.IsEnabled then
 899                         for k=1 to Formatliste.GetItemCount
 900                             Formatliste.Select k
 901                             Zaehler = Zaehler + 1
 902                             if Einfuegen.IsEnabled then Einfuegen.Click
 903                         next k
 904                         k=0
 905                     else
 906                         if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
 907                             for k=1 to Zahlenformat.GetItemCount
 908                                 Zahlenformat.Select k
 909                                 Zaehler = Zaehler + 1
 910                                 Kontext "TabZahlen"
 911                                 if TabZahlen.Exists then TabZahlen.OK
 912                                 Kontext "TabVariablen"
 913                                 if Einfuegen.IsEnabled then Einfuegen.Click
 914                                 Kontext "Eingabefeld"
 915                                 if Eingabefeld.Exists then Eingabefeld.OK
 916                                 Kontext "TabVariablen"
 917                             next k
 918                             k=0
 919                         end if
 920                     end if
 921                 next j
 922                 j=0
 923             else
 924                 if FormatListe.IsVisible AND FormatListe.IsEnabled then
 925                     for k=1 to Formatliste.GetItemCount
 926                         Formatliste.Select k
 927                         Zaehler =  Zaehler + 1
 928                         if Einfuegen.IsEnabled then Einfuegen.Click
 929                         Kontext "TabZahlen"
 930                         if TabZahlen.Exists then TabZahlen.OK
 931                         Kontext "TabVariablen"
 932                     next k
 933                     k=0
 934                 else
 935                     if Zahlenformat.IsVisible AND Zahlenformat.IsEnabled then
 936                         for k=1 to Zahlenformat.GetItemCount
 937                             Zahlenformat.Select k
 938                             Zaehler =  Zaehler + 1
 939                             Kontext "TabZahlen"
 940                             if TabZahlen.Exists then TabZahlen.OK
 941                             Kontext "TabVariablen"
 942                             if Einfuegen.IsEnabled then Einfuegen.Click
 943                             Kontext "Eingabefeld"
 944                             if Eingabefeld.Exists then Eingabefeld.OK
 945                             Kontext "TabVariablen"
 946                         next k
 947                         k=0
 948                     end if
 949                 end if
 950             end if
 951             Sleep 1
 952         next i
 953         i=0
 954         printlog "  - here are " + Zaehler + " Fields selectable"
 955     catch
 956         Exceptlog
 957         Warnlog "Tabpage Variables: Error on entry type" + i + " " + j + " " + k
 958     endcatch
 959     uTabVariablen = Zaehler
 960 end function
 961
 962 ' -----------------------------------------------------------------------
 963
 964 function uTabDatenbank as Integer
 965     Dim i : Dim j : Dim k : Dim Ende : Dim NichtMachen
 966     Dim Zaehler
 967     Dim AlterWert as String : Dim Naechster as String
 968
 969     printlog "  - Tabpage Database"
 970     try
 971         Zaehler = 0 : i=0 : j=0 : k= 0
 972         Kontext
 973         Active.SetPage TabDatenbank
 974         Kontext "TabDatenbank"
 975
 976         Datenbankauswahl.TypeKeys "<Up>", 5
 977         for i=1 to Feldtyp.GetItemCount
 978             j=0 : k=0
 979             Feldtyp.Select i
 980             if Satznummer.IsEnabled then Satznummer.SetText "Na_mal_sehen"
 981             for j=1 to 20
 982                 AlterWert = Datenbankauswahl.GetText
 983                 if j=1 then
 984                     Datenbankauswahl.TypeKeys "<Add>"
 985                     Datenbankauswahl.TypeKeys "<Down>"
 986                     Datenbankauswahl.TypeKeys "<Add>"
 987                     Datenbankauswahl.TypeKeys "<Down>"
 988                 else
 989                     Datenbankauswahl.TypeKeys "<Down>"
 990                 end if
 991                 if Datenbankauswahl.GetText = AlterWert then
 992                     if j=1 then printlog "Address book contains no data"
 993                     j=21
 994                 else
 995                     if Selbstdefiniert.IsEnabled AND Selbstdefiniert.IsChecked then
 996                         for k=1 to Formatliste.GetItemCount
 997                             Formatliste.Select k
 998                             Zaehler = Zaehler + 1
 999                             if Einfuegen.IsEnabled then Einfuegen.Click
1000                         next k
1001                     else
1002                         Zaehler = Zaehler + 1
1003                         if Einfuegen.IsEnabled then Einfuegen.Click
1004                     end if
1005                 end if
1006             next j
1007             Datenbankauswahl.TypeKeys "<up>", 20
1008             Sleep 1
1009         next i
1010
1011         printlog "  - here are " + Zaehler + " Fields selectable"
1012     catch
1013         Exceptlog
1014         Warnlog "Tabpage Database: Error on field entry " + i + " " + j + " " + k
1015     endcatch
1016     uTabDatenbank = Zaehler
1017 end function
1018
1019 ' -----------------------------------------------------------------------
1020
1021 sub BeseitigeTabZahlen
1022     Kontext "TabZahlen"
1023     if TabZahlen.Exists then TabZahlen.Cancel
1024     Kontext "TabDokumentFeldbefehle"
1025 end sub